Pascal (Lazarus/Delphi)

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.

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.SFtp;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  sftp: TSFtp;
  handle: string;

begin
  success := False;

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

  sftp := TSFtp.Create;

  //  Pass a domain or IP address..
  success := sftp.Connect('my-sftp-server.com',22);
  if (success = True) then
    begin
      success := sftp.AuthenticatePw('mySFtpLogin','mySFtpPassword');
    end;
  if (success = True) then
    begin
      success := sftp.InitializeSftp();
    end;
  if (success <> True) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  //  Open a file on the server for writing.
  handle := sftp.OpenFile('myTest.txt','writeOnly','createTruncate');
  if (sftp.LastMethodSuccess <> True) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  //  Write some text to the file:
  success := sftp.WriteFileText(handle,'ansi','abcdefghijklmnopqrstuvwxyz');
  if (success <> True) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  //  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)
  success := sftp.Fsync(handle);
  if (success <> True) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

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

  success := sftp.WriteFileText(handle,'ansi','ABCDEFGHIJKLMNOPQRSTUVWXYZ');
  if (success <> True) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  //  Close the file.
  success := sftp.CloseHandle(handle);
  if (success <> True) then
    begin
      WriteLn(sftp.LastErrorText);
      Exit;
    end;

  WriteLn('Success.');


  sftp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.