Delphi DLL

Get the FTP Server System Type (SYST)

Demonstrates the Chilkat Ftp2.Syst method, which sends SYST and returns the server's operating-system type reply. It takes no arguments.

Background: The SYST reply (for example UNIX Type: L8 or Windows_NT) hints at how the server formats things like legacy directory listings, which historically varied by platform. Chilkat uses it internally to parse such listings; you rarely need to call it directly, but it is useful for diagnostics or when adapting to an unusual server.

Chilkat Delphi DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
ftp: HCkFtp2;
systemType: PWideChar;

begin
success := False;

//  Demonstrates the Ftp2.Syst method, which sends SYST and returns the server's operating-system
//  type reply.  It takes no arguments.

ftp := CkFtp2_Create();

CkFtp2_putHostname(ftp,'ftp.example.com');
CkFtp2_putUsername(ftp,'myFtpLogin');

//  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.
CkFtp2_putPassword(ftp,'myPassword');

//  Connect and log in (Connect performs both).
success := CkFtp2_Connect(ftp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

//  Chilkat can use the SYST reply when interpreting legacy directory listings.
systemType := CkFtp2__syst(ftp);
if (CkFtp2_getLastMethodSuccess(ftp) = False) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;
Memo1.Lines.Add('Server system type: ' + systemType);

success := CkFtp2_Disconnect(ftp);
if (success = False) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

CkFtp2_Dispose(ftp);