Write Text at a String Offset in a Remote SFTP File

See more SFTP Examples

Demonstrates the Chilkat SFtp.WriteFileText64s method, which is like WriteFileText64 but takes the byte offset as a decimal string. The arguments are the handle, the offset string, the charset, and the text.

load ./chilkat.dll

set success 0

#  Demonstrates the SFtp.WriteFileText64s method, which is like WriteFileText64 but takes the
#  byte offset as a decimal string.  The 1st argument is the handle, the 2nd is the offset string,
#  the 3rd is the charset, and the 4th is the text.

set sftp [new_CkSFtp]

#  Connect, authenticate, and initialize the SFTP subsystem.
set port 22
set success [CkSFtp_Connect $sftp "sftp.example.com" $port]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

#  Normally you would not hard-code the password in source.  You should instead obtain it
#  from an interactive prompt, environment variable, or a secrets vault.
set password "mySshPassword"

set success [CkSFtp_AuthenticatePw $sftp "mySshLogin" $password]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

set success [CkSFtp_InitializeSftp $sftp]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

set handle [CkSFtp_openFile $sftp "subdir/hugefile.dat" "readWrite" "openOrCreate"]
if {[CkSFtp_get_LastMethodSuccess $sftp] == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

#  Supplying the offset as a string is convenient in languages without a native 64-bit integer.
set offset "5000000000"
set success [CkSFtp_WriteFileText64s $sftp $handle $offset "utf-8" "MARKER"]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

set success [CkSFtp_CloseHandle $sftp $handle]
if {$success == 0} then {
    puts [CkSFtp_lastErrorText $sftp]
    delete_CkSFtp $sftp
    exit
}

puts "Wrote at the string offset."

CkSFtp_Disconnect $sftp

delete_CkSFtp $sftp