TIdFTP

type TIdFTP = class(TIdExplicitTLSClient)

protected

  FAutoLogin: Boolean;

  FAutoIssueFEAT: Boolean;

  FCurrentTransferMode: TIdFTPTransferMode;

  FClientInfo: TIdFTPClientIdentifier;

  FDataSettingsSent: Boolean;

  FUsingSFTP: Boolean;

  FUsingCCC: Boolean;

  FUseHOST: Boolean;

  FServerHOST: string;

  FCanUseMLS: Boolean;

  FUsingExtDataPort: Boolean;

  FUsingNATFastTrack: Boolean;

  FCanResume: Boolean;

  FListResult: TStrings;

  FLoginMsg: TIdReplyFTP;

  FPassive: Boolean;

  FPassiveUseControlHost: Boolean;

  FDataPortProtection: TIdFTPDataPortSecurity;

  FAUTHCmd: TAuthCmd;

  FDataPort: TIdPort;

  FDataPortMin: TIdPort;

  FDataPortMax: TIdPort;

  FDefStringEncoding: IIdTextEncoding;

  FExternalIP: string;

  FResumeTested: Boolean;

  FServerDesc: string;

  FSystemDesc: string;

  FTransferType: TIdFTPTransferType;

  FTransferTimeout: Integer;

  FListenTimeout: Integer;

  FDataChannel: TIdTCPConnection;

  FDirectoryListing: TIdFTPListItems;

  FDirFormat: string;

  FListParserClass: TIdFTPListParseClass;

  FOnAfterClientLogin: TNotifyEvent;

  FOnCreateFTPList: TIdCreateFTPList;

  FOnBeforeGet: TNotifyEvent;

  FOnBeforePut: TIdFtpAfterGet;

  FOnAfterGet: TIdFtpAfterGet;

  FOnAfterPut: TNotifyEvent;

  FOnNeedAccount: TIdNeedAccountEvent;

  FOnCustomFTPProxy: TNotifyEvent;

  FOnDataChannelCreate: TIdOnDataChannelCreate;

  FOnDataChannelDestroy: TIdOnDataChannelDestroy;

  FProxySettings: TIdFtpProxySettings;

  FUseExtensionDataPort: Boolean;

  FTryNATFastTrack: Boolean;

  FUseMLIS: Boolean;

  FLangsSupported: TStrings;

  FUseCCC: Boolean;

  FSSCNOn: Boolean;

  FIsCompressionSupported: Boolean;

  FOnBannerBeforeLogin: TIdFTPBannerEvent;

  FOnBannerAfterLogin: TIdFTPBannerEvent;

  FOnBannerWarning: TIdFTPBannerEvent;

  FTZInfo: TIdFTPTZInfo;

  FCompressor: TIdZLibCompressorBase;

  FZLibCompressionLevel: Integer;

  FZLibWindowBits: Integer;

  FZLibMemLevel: Integer;

  FZLibStratagy: Integer;

  FOnRetrievedDir: TNotifyEvent;

  FOnDirParseStart: TNotifyEvent;

  FOnDirParseEnd: TNotifyEvent;

  FAbortFlag: TIdThreadSafeBoolean;

  FAccount: string;

  FNATKeepAlive: TIdFTPKeepAlive;

  procedure DoOnDataChannelCreate;

  procedure DoOnDataChannelDestroy;

  procedure DoOnRetrievedDir;

  procedure DoOnDirParseStart;

  procedure DoOnDirParseEnd;

  procedure FinalizeDataOperation;

  procedure SetTZInfo();

  function IsSiteZONESupported;

  function IndexOfFeatLine();

  procedure ClearSSCN;

  function SetSSCNToOn;

  procedure SendInternalPassive();

  procedure SendCPassive();

  function FindAuthCmd;

  function GetReplyClass; override;

  procedure ParseFTPList;

  procedure SetPassive();

  procedure SetTryNATFastTrack();

  procedure DoTryNATFastTrack;

  procedure SetUseExtensionDataPort();

  procedure SetIPVersion(); override;

  procedure SetIOHandler(); override;

  function GetSupportsTLS; override;

  procedure ConstructDirListing;

  procedure DoAfterLogin;

  procedure DoFTPList;

  procedure DoCustomFTPProxy;

  procedure DoOnBannerAfterLogin();

  procedure DoOnBannerBeforeLogin();

  procedure DoOnBannerWarning();

  procedure SendPBSZ;

  procedure SendPROT;

  procedure SendDataSettings;

  function GetDirectoryListing;

  procedure InitDataChannel;

  procedure SendPret();

  procedure InternalGet();

  procedure InternalPut();

  procedure SendPassive();

  procedure SendPort();

  procedure ParseEPSV();

  procedure SendEPort();

  procedure SendEPassive();

  function SendHost;

  procedure SetProxySettings();

  procedure SetClientInfo();

  procedure SetCompressor();

  procedure SendTransferType();

  procedure SetTransferType();

  procedure DoBeforeGet; virtual;

  procedure DoBeforePut(); virtual;

  procedure DoAfterGet(); virtual;

  procedure DoAfterPut; virtual;

  class procedure FXPSetTransferPorts();

  class procedure FXPSendFile();

  class function InternalEncryptedTLSFXP();

  class function InternalUnencryptedFXP();

  class function ValidateInternalIsTLSFXP();

  procedure InitComponent; override;

  procedure SetUseTLS(); override;

  procedure Notification(); override;

  procedure SetDataPortProtection();

  procedure SetAUTHCmd();

  procedure SetDefStringEncoding();

  procedure SetUseCCC();

  procedure SetNATKeepAlive();

  procedure IssueFEAT;

  function IsOldServU;

  function IsBPFTP;

  function IsTitan;

  function IsWSFTP;

  function IsIIS;

  function CheckAccount;

  function IsAccountNeeded;

  function GetSupportsVerification;

public

  procedure GetInternalResponse(); override;

  function CheckResponse(); override;

  function IsExtSupported();

  procedure ExtractFeatFacts();

  function GetLoginPassword();

  procedure Abort; virtual;

  procedure Allocate();

  procedure ChangeDir();

  procedure ChangeDirUp;

  procedure Connect; override;

  destructor Destroy; override;

  procedure Delete();

  procedure FileStructure();

  procedure Get();

  procedure Help();

  procedure KillDataChannel; virtual;

  procedure List();

  procedure ExtListDir();

  procedure ExtListItem();

  function FileDate();

  procedure Login;

  procedure MakeDir();

  procedure Noop;

  procedure SetCmdOpt();

  procedure Put();

  procedure StoreUnique();

  procedure SiteToSiteUpload();

  procedure SiteToSiteDownload();

  procedure DisconnectNotifyPeer; override;

  procedure Quit;

  function Quote();

  procedure RemoveDir();

  procedure Rename();

  function ResumeSupported;

  function RetrieveCurrentDir;

  procedure Site();

  function Size();

  procedure Status();

  procedure StructureMount();

  procedure TransferMode();

  procedure ReInitialize();

  procedure SetLang();

  function CRC();

  function VerifyFile();

  procedure CombineFiles();

  procedure SetModTime();

  procedure SetModTimeGMT();

  function IsServerMDTZAndListTForm;

  property IsCompressionSupported: Boolean; [r]

  property SupportsVerification: Boolean; [r]

  property CanResume: Boolean; [r]

  property CanUseMLS: Boolean; [r]

  property DirectoryListing: TIdFTPListItems; [r]

  property DirFormat: string; [r]

  property LangsSupported: TStrings; [r]

  property ListParserClass: TIdFTPListParseClass; [rw]

  property LoginMsg: TIdReplyFTP; [r]

  property ListResult: TStrings; [r]

  property SystemDesc: string; [r]

  property TZInfo: TIdFTPTZInfo; [rw]

  property UsingExtDataPort: Boolean; [r]

  property UsingNATFastTrack: Boolean; [r]

  property UsingSFTP: Boolean; [r]

  property CurrentTransferMode: TIdFTPTransferMode; [rw]

  property DefStringEncoding: IIdTextEncoding; [rw]

published

  property IPVersion: TIdIPVersion;

  property AutoIssueFEAT: Boolean; [rw]

  property AutoLogin: Boolean; [rw]

  property Compressor: TIdZLibCompressorBase; [rw]

  property Host: string;

  property UseCCC: Boolean; [rw]

  property Passive: Boolean; [rw]

  property PassiveUseControlHost: Boolean; [rw]

  property DataPortProtection: TIdFTPDataPortSecurity; [rw]

  property AUTHCmd: TAuthCmd; [rw]

  property ConnectTimeout: Integer;

  property DataPort: TIdPort; [rw]

  property DataPortMin: TIdPort; [rw]

  property DataPortMax: TIdPort; [rw]

  property ExternalIP: string; [rw]

  property Password: string;

  property TransferType: TIdFTPTransferType; [rw]

  property TransferTimeout: Integer; [rw]

  property ListenTimeout: Integer; [rw]

  property Username: string;

  property Port: TIdPort;

  property UseExtensionDataPort: Boolean; [rw]

  property UseMLIS: Boolean; [rw]

  property TryNATFastTrack: Boolean; [rw]

  property NATKeepAlive: TIdFTPKeepAlive; [rw]

  property ProxySettings: TIdFtpProxySettings; [rw]

  property Account: string; [rw]

  property ClientInfo: TIdFTPClientIdentifier; [rw]

  property UseHOST: Boolean; [rw]

  property ServerHOST: string; [rw]

  property UseTLS: TIdUseTLS;

  property OnTLSNotAvailable: TIdOnTLSNegotiationFailure;

  property OnBannerBeforeLogin: TIdFTPBannerEvent; [rw]

  property OnBannerAfterLogin: TIdFTPBannerEvent; [rw]

  property OnBannerWarning: TIdFTPBannerEvent; [rw]

  property OnBeforeGet: TNotifyEvent; [rw]

  property OnBeforePut: TIdFtpAfterGet; [rw]

  property OnAfterClientLogin: TOnAfterClientLogin; [rw]

  property OnCreateFTPList: TIdCreateFTPList; [rw]

  property OnAfterGet: TIdFtpAfterGet; [rw]

  property OnAfterPut: TNotifyEvent; [rw]

  property OnNeedAccount: TIdNeedAccountEvent; [rw]

  property OnCustomFTPProxy: TNotifyEvent; [rw]

  property OnDataChannelCreate: TIdOnDataChannelCreate; [rw]

  property OnDataChannelDestroy: TIdOnDataChannelDestroy; [rw]

  property OnRetrievedDir: TNotifyEvent; [rw]

  property OnDirParseStart: TNotifyEvent; [rw]

  property OnDirParseEnd: TNotifyEvent; [rw]

  property ReadTimeout: Integer;

end;

TIdFTP

TIdExplicitTLSClient

TIdTCPClientCustom

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject