(PowerBuilder) SFTP Fsync -- Flush an Open File on the Server

Demonstrates how to flush the contents of an open file on the server. This example only works for servers that implement the fsync@openssh.com extension.

Note: This example requires Chilkat v9.5.0.71 or later.

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

integer li_rc
oleobject loo_Sftp
integer li_Success
string ls_Handle

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

loo_Sftp = create oleobject
// Use "Chilkat_9_5_0.SFtp" for versions of Chilkat < 10.0.0
li_rc = loo_Sftp.ConnectToNewObject("Chilkat.SFtp")
if li_rc < 0 then
    destroy loo_Sftp
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Pass a domain or IP address..
li_Success = loo_Sftp.Connect("my-sftp-server.com",22)
if li_Success = 1 then
    li_Success = loo_Sftp.AuthenticatePw("mySFtpLogin","mySFtpPassword")
end if

if li_Success = 1 then
    li_Success = loo_Sftp.InitializeSftp()
end if

if li_Success <> 1 then
    Write-Debug loo_Sftp.LastErrorText
    destroy loo_Sftp
    return
end if

// Open a file on the server for writing.
ls_Handle = loo_Sftp.OpenFile("myTest.txt","writeOnly","createTruncate")
if loo_Sftp.LastMethodSuccess <> 1 then
    Write-Debug loo_Sftp.LastErrorText
    destroy loo_Sftp
    return
end if

// Write some text to the file:
li_Success = loo_Sftp.WriteFileText(ls_Handle,"ansi","abcdefghijklmnopqrstuvwxyz")
if li_Success <> 1 then
    Write-Debug loo_Sftp.LastErrorText
    destroy loo_Sftp
    return
end if

// Make sure the server flushes what we wrote to the disk..
// (this is requires a server that implements the fsync@openssh.com SFTP protocol extension)
li_Success = loo_Sftp.Fsync(ls_Handle)
if li_Success <> 1 then
    Write-Debug loo_Sftp.LastErrorText
    destroy loo_Sftp
    return
end if

// ....
// ....

li_Success = loo_Sftp.WriteFileText(ls_Handle,"ansi","ABCDEFGHIJKLMNOPQRSTUVWXYZ")
if li_Success <> 1 then
    Write-Debug loo_Sftp.LastErrorText
    destroy loo_Sftp
    return
end if

// Close the file.
li_Success = loo_Sftp.CloseHandle(ls_Handle)
if li_Success <> 1 then
    Write-Debug loo_Sftp.LastErrorText
    destroy loo_Sftp
    return
end if

Write-Debug "Success."


destroy loo_Sftp