|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Visual FoxPro) FTP Upload with Progress Event CallbacksFTP upload with progress event callbacks.
LOCAL loFtp LOCAL lnSuccess LOCAL lcLocalPath LOCAL lcRemoteFilename * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ftp2') loFtp = CreateObject('Chilkat.Ftp2') ftpEventHandler = CreateObject("ftpEvents") EventHandler(loFtp,ftpEventHandler) loFtp.Hostname = "ftp.someFtpServer.com" loFtp.Username = "my_ftp_username" loFtp.Password = "my_ftp_password" * Connect and login to the FTP server. lnSuccess = loFtp.Connect() IF (lnSuccess <> 1) THEN ? loFtp.LastErrorText RELEASE loFtp CANCEL ENDIF * Change to the remote directory where the file will be uploaded. lnSuccess = loFtp.ChangeRemoteDir("junk") IF (lnSuccess <> 1) THEN ? loFtp.LastErrorText RELEASE loFtp CANCEL ENDIF * Upload a file. lcLocalPath = "c:/temp/hamlet.xml" lcRemoteFilename = "hamlet.xml" lnSuccess = loFtp.PutFile(lcLocalPath,lcRemoteFilename) IF (lnSuccess <> 1) THEN ? loFtp.LastErrorText RELEASE loFtp CANCEL ENDIF lnSuccess = loFtp.Disconnect() ? "File Uploaded!" RELEASE loFtp DEFINE CLASS ftpEvents AS SESSION OLEPUBLIC IMPLEMENTS _IChilkatFtp2Events IN "Chilkat.Ftp2" PROCEDURE _IChilkatFtp2Events_AbortCheck(abort As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_BeginDownloadFile(path As String, nSkip As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_BeginUploadFile(path As String, nSkip As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_BinaryData(data As Variant) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_DownloadRate(byteCount As Number, bytesPerSec As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_EndDownloadFile(path As String, byteCount As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_EndUploadFile(path As String, byteCount As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_PercentDone(pctDone As Number, abort As Number) * Application code goes here... ? "Percent Done: " + STR(pctDone) ENDPROC PROCEDURE _IChilkatFtp2Events_ProgressInfo(name As String, value As String) * Application code goes here... ? name + ": " + value ENDPROC PROCEDURE _IChilkatFtp2Events_TaskCompleted(task As Generic) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_TextData(data As String) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_UploadRate(byteCount As Number, bytesPerSec As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_VerifyDeleteDir(path As String, nSkip As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_VerifyDeleteFile(path As String, nSkip As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_VerifyDownloadDir(path As String, nSkip As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatFtp2Events_VerifyUploadDir(path As String, nSkip As Number) * Application code goes here... ENDPROC ENDDEFINE |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.