PowerBuilder

FTP Upload / Download to StringBuilder

Demonstrate how to upload from a Chilkat StringBuilder object, and download into a StringBuilder object. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Ftp
oleobject loo_SbA
integer li_BIncludeBOM
string ls_RemoteFilename
oleobject loo_SbB
integer li_BCaseSensitive

li_Success = 0

// This example assumes Chilkat Ftp2 to have been previously unlocked.
// See Unlock Ftp2 for sample code.

loo_Ftp = create oleobject
li_rc = loo_Ftp.ConnectToNewObject("Chilkat.Ftp2")
if li_rc < 0 then
    destroy loo_Ftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

loo_Ftp.Hostname = "www.my-ftp-server.com"
loo_Ftp.Username = "mFtpLogin"
loo_Ftp.Password = "myFtpPassword"

// Connect to the FTP server.
li_Success = loo_Ftp.ConnectOnly()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

// Authenticate with the FTP server.
li_Success = loo_Ftp.LoginAfterConnectOnly()
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    return
end if

loo_SbA = create oleobject
li_rc = loo_SbA.ConnectToNewObject("Chilkat.StringBuilder")

loo_SbA.LoadFile("qa_data/hamlet.xml","utf-8")

// Upload the contents of sbA to the FTP server.
li_BIncludeBOM = 0
ls_RemoteFilename = "hamletFromSb.xml"
li_Success = loo_Ftp.PutFileSb(loo_SbA,"utf-8",li_BIncludeBOM,ls_RemoteFilename)
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    destroy loo_SbA
    return
end if

// Download...
loo_SbB = create oleobject
li_rc = loo_SbB.ConnectToNewObject("Chilkat.StringBuilder")

li_Success = loo_Ftp.GetFileSb(ls_RemoteFilename,"utf-8",loo_SbB)
if li_Success <> 1 then
    Write-Debug loo_Ftp.LastErrorText
    destroy loo_Ftp
    destroy loo_SbA
    destroy loo_SbB
    return
end if

// Verify that sbA and sbB have the exact same contents.
Write-Debug "size of sbA: " + string(loo_SbA.Length)
li_BCaseSensitive = 1
if loo_SbA.ContentsEqualSb(loo_SbB,li_BCaseSensitive) = 1 then
    Write-Debug "Contents are equal. Success."
else
    Write-Debug "Contents are NOT equal.  Failed."
end if

loo_Ftp.Disconnect()


destroy loo_Ftp
destroy loo_SbA
destroy loo_SbB