(Delphi ActiveX) FTP FEAT Command
Sends a FEAT command to the FTP server and returns the response.
Here is a typical response:
211-Features:
MDTM
REST STREAM
SIZE
MLST type*;size*;modify*;
MLSD
AUTH SSL
AUTH TLS
UTF8
CLNT
MFMT
211 End
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
ftp: TChilkatFtp2;
success: Integer;
ftpResponse: WideString;
begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
ftp := TChilkatFtp2.Create(Self);
ftp.Hostname := 'ftp.example.com';
ftp.Username := 'test';
ftp.Password := 'test';
// Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
begin
Memo1.Lines.Add(ftp.LastErrorText);
Exit;
end;
ftpResponse := ftp.Feat();
Memo1.Lines.Add(ftpResponse);
success := ftp.Disconnect();
end;
|