Delphi ActiveX

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

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
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.');
end;