PowerBuilder

SFTP Fsync -- Flush an Open File on the Server

See more SFTP Examples

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.

PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Sftp
string ls_Handle

li_Success = 0

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

loo_Sftp = create oleobject
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