Delphi ActiveX Requires Chilkat v11.0.0+

Co:Z SFTP Binary File Download (from z/OS IBM Mainframe)

See more SFTP Examples

Demonstrates how to download a binary file, such as a .zip, from a Co:Z SFTP server on a z/OS IBM Mainframe. Delphi ActiveX

var
success: Integer;
sftp: TChilkatSFtp;
hostname: WideString;
port: Integer;
handle: WideString;
dirListing: TChilkatSFtpDir;
localFilePath: WideString;
remoteFilePath: WideString;

begin
success := 0;

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

sftp := TChilkatSFtp.Create(Self);

//  Connect to the SSH server.  
hostname := 'sftp.example.com';
port := 22;
success := sftp.Connect(hostname,port);
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

success := sftp.AuthenticatePw('myLogin','myPassword');
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

success := sftp.InitializeSftp();
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

//  To download a binary file from the Co:Z SFTP server, 
//  we must switch to binary mode in the following unconventional way.
//  We pretend to fetch a directory listing for "/+mode=binary"
//  This has the effect of putting the server in binary mode for transfers.
handle := sftp.OpenDir('/+mode=binary');
if (sftp.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

//  Download the "directory listing" (but it's not actually a directory listing, and we'll just discard it.)

dirListing := TChilkatSFtpDir.Create(Self);
success := sftp.ReadDirListing(handle,dirListing.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

//  Close the directory handle:
success := sftp.CloseHandle(handle);
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

//  Download the binary file:
localFilePath := 'c:/temp/test.zip';
remoteFilePath := 'test.zip';
success := sftp.DownloadFileByName(remoteFilePath,localFilePath);
if (success = 0) then
  begin
    Memo1.Lines.Add(sftp.LastErrorText);
    Exit;
  end;

Memo1.Lines.Add('Success.');