| Class TFtpudlg (unit FreeFtp) |
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;