Class TFtpudlg (unit FreeFtp)

Inherits from

TForm

Constructors



Functions

procedure cancelClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Ftp1FtpError(Sender: TObject; error: FtpError; addinfo: String);


procedure Ftp1FtpInfo(Sender: TObject; info: FtpInfo; addinfo: String);


procedure Ftp1FtpNeedInfo(Sender: TObject; need: TFtpInfoNeeded; var value: OpenString);


procedure PaintBox1Paint(Sender: TObject);


procedure TimerTimer(Sender: TObject);

====================================================================================

procedure FtpProceed(var Msg: TMsg);


procedure PaintBox1Update;


Properties

Events

Variables

cancel : TButton;


counter : TLabel;


Ftp1 : TStarFtp;


PaintBox1 : TPaintBox;


Status : TLabel;


Timer : TTimer;


act : TFtpURLAction;


c1 : TColor;


c2 : TColor;


Fdemo : Boolean;


tconn1 : string;


tconn2 : string;


tlogin : string;


ttrans : string;


URLError : FtpError;


done : Longint;


todo : Longint;



Constructors


Functions


procedure cancelClick(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure Ftp1FtpError(Sender: TObject; error: FtpError; addinfo: String);


procedure Ftp1FtpInfo(Sender: TObject; info: FtpInfo; addinfo: String);


procedure Ftp1FtpNeedInfo(Sender: TObject; need: TFtpInfoNeeded; var value: OpenString);


procedure PaintBox1Paint(Sender: TObject);


procedure TimerTimer(Sender: TObject);

====================================================================================


procedure FtpProceed(var Msg: TMsg);


procedure PaintBox1Update;


Properties


Events


Variables


cancel : TButton;


counter : TLabel;


Ftp1 : TStarFtp;


PaintBox1 : TPaintBox;


Status : TLabel;


Timer : TTimer;


act : TFtpURLAction;


c1 : TColor;


c2 : TColor;


Fdemo : Boolean;


tconn1 : string;


tconn2 : string;


tlogin : string;


ttrans : string;


URLError : FtpError;


done : Longint;


todo : Longint;