(Visual FoxPro) SFTP Upload and Download to a StringBuilder Object

See more SFTP Examples

Demonstrates how to SFTP upload from a Chilkat StringBuilder object, and download into a StringBuilder object.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loSftp
LOCAL lnSuccess
LOCAL lnPort
LOCAL loSbA
LOCAL lnBIncludeBOM
LOCAL lcRemotePath
LOCAL loSbB
LOCAL lnBCaseSensitive

* 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.SFtp')
loSftp = CreateObject('Chilkat.SFtp')

* Set some timeouts, in milliseconds:
loSftp.ConnectTimeoutMs = 5000
loSftp.IdleTimeoutMs = 10000

* Connect to the SSH server and then authenticate.
lnPort = 22
lnSuccess = loSftp.Connect("MY-SSH-SERVER-DOMAIN-OR-IP",lnPort)
IF (lnSuccess = 1) THEN
    lnSuccess = loSftp.AuthenticatePw("MY-SSH-LOGIN","MY-SSH-PASSWORD")
    IF (lnSuccess = 1) THEN
        lnSuccess = loSftp.InitializeSftp()
    ENDIF

ENDIF

IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbA = CreateObject('Chilkat.StringBuilder')
loSbA.LoadFile("qa_data/hamlet.xml","utf-8")

* Upload the contents of sbA to the SSH/SFTP server.
lnBIncludeBOM = 0
lcRemotePath = "sftpTesting/hamlet.xml"
lnSuccess = loSftp.UploadSb(loSbA,lcRemotePath,"utf-8",lnBIncludeBOM)
IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    RELEASE loSbA
    CANCEL
ENDIF

* Download the file..
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSbB = CreateObject('Chilkat.StringBuilder')
lnSuccess = loSftp.DownloadSb(lcRemotePath,"utf-8",loSbB)
IF (lnSuccess <> 1) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    RELEASE loSbA
    RELEASE loSbB
    CANCEL
ENDIF

* Verify that sbA and sbB have the exact same contents.
? "size of sbA: " + STR(loSbA.Length)
lnBCaseSensitive = 1
IF (loSbA.ContentsEqualSb(loSbB,lnBCaseSensitive) = 1) THEN
    ? "Contents are equal. Success."
ELSE
    ? "Contents are NOT equal.  Failed."
ENDIF

loSftp.Disconnect()

RELEASE loSftp
RELEASE loSbA
RELEASE loSbB