Visual FoxPro

Write Text at a String Offset in a Remote SFTP File

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.

Background: Some programming languages Chilkat targets lack a native 64-bit integer type, or make large integer literals awkward. Passing the offset as a decimal string sidesteps that entirely — the value is parsed by the library — while addressing the same large-file positions as the int64 form.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loSftp
LOCAL lnPort
LOCAL lcPassword
LOCAL lcHandle
LOCAL lcOffset

lnSuccess = 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.

loSftp = CreateObject('Chilkat.SFtp')

*  Connect, authenticate, and initialize the SFTP subsystem.
lnPort = 22
lnSuccess = loSftp.Connect("sftp.example.com",lnPort)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

*  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.
lcPassword = "mySshPassword"

lnSuccess = loSftp.AuthenticatePw("mySshLogin",lcPassword)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

lnSuccess = loSftp.InitializeSftp()
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

lcHandle = loSftp.OpenFile("subdir/hugefile.dat","readWrite","openOrCreate")
IF (loSftp.LastMethodSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

*  Supplying the offset as a string is convenient in languages without a native 64-bit integer.
lcOffset = "5000000000"
lnSuccess = loSftp.WriteFileText64s(lcHandle,lcOffset,"utf-8","MARKER")
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

lnSuccess = loSftp.CloseHandle(lcHandle)
IF (lnSuccess = 0) THEN
    ? loSftp.LastErrorText
    RELEASE loSftp
    CANCEL
ENDIF

? "Wrote at the string offset."

loSftp.Disconnect()

RELEASE loSftp