Visual FoxPro

FTP Upload with Progress Event Callbacks

See more FTP Examples

FTP upload with progress event callbacks. Visual FoxPro

LOCAL lnSuccess
LOCAL loFtp
LOCAL lcLocalPath
LOCAL lcRemoteFilename

lnSuccess = 0

*  This example requires the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

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 = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

*  Change to the remote directory where the file will be uploaded.
lnSuccess = loFtp.ChangeRemoteDir("junk")
IF (lnSuccess = 0) 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 = 0) THEN
    ? loFtp.LastErrorText
    RELEASE loFtp
    CANCEL
ENDIF

lnSuccess = loFtp.Disconnect()

? "File Uploaded!"

RELEASE loFtp

[K]DEFINE CLASS[/K] ftpEvents [K]AS SESSION OLEPUBLIC[/K]
[K]IMPLEMENTS[/K] _IChilkatFtp2Events [K]IN[/K] "Chilkat.Ftp2"

[K]PROCEDURE[/K] _IChilkatFtp2Events_AbortCheck(abort [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]

[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_BeginDownloadFile(path [K]As[/K] [K]String[/K], nSkip [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_BeginUploadFile(path [K]As[/K] [K]String[/K], nSkip [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_BinaryData(data [K]As[/K] [K]Variant[/K])
    [C]* Application code goes here...[/C]

[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_DownloadRate(byteCount [K]As[/K] [K]Number[/K], bytesPerSec [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_EndDownloadFile(path [K]As[/K] [K]String[/K], byteCount [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_EndUploadFile(path [K]As[/K] [K]String[/K], byteCount [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_PercentDone(pctDone [K]As[/K] [K]Number[/K], abort [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
    ? "Percent Done: " + STR(pctDone)
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_ProgressInfo(name [K]As[/K] [K]String[/K], value [K]As[/K] [K]String[/K])
    [C]* Application code goes here...[/C]
    ? name + ": " + value
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_TaskCompleted(task [K]As[/K] [K]Generic[/K])
    [C]* Application code goes here...[/C]

[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_TextData(data [K]As[/K] [K]String[/K])
    [C]* Application code goes here...[/C]

[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_UploadRate(byteCount [K]As[/K] [K]Number[/K], bytesPerSec [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_VerifyDeleteDir(path [K]As[/K] [K]String[/K], nSkip [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_VerifyDeleteFile(path [K]As[/K] [K]String[/K], nSkip [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_VerifyDownloadDir(path [K]As[/K] [K]String[/K], nSkip [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]

[K]PROCEDURE[/K] _IChilkatFtp2Events_VerifyUploadDir(path [K]As[/K] [K]String[/K], nSkip [K]As[/K] [K]Number[/K])
    [C]* Application code goes here...[/C]
[K]ENDPROC[/K]


[K]ENDDEFINE[/K]