>procedure TForm1.ftpSuccess(Trans_Type: TCmdType);
>begin
> status1.Lines.Add('Успешно');
>end;
Событие начала передачи данных — OnTransactionStart:
>procedure TForm1.ftpTransactionStart(Sender: TObject);
>begin
> status1.Lines.Add('Начало передачи данных');
>end;
Событие завершения передачи данных — OnTransactionStop :
>procedure TForm1.ftpTransactionStop(Sender: TObject);
>begin
> statusl.Lines.Add('Конец передачи данных');
>end;
Теперь программа полностью готова к использованию. Если у вас нет собственного Web-сайта, то для тестирования FTP-клиента можете зарегистрировать сайт на бесплатном хостинге.
Полный исходный код модуля
Полный код программного модуля FTP-клиента представлен в листинге 18.1.
Листинг 18.1. Программный модуль FTP-клиента
>unit Unit1;
>interface
>uses
> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, NMFtp, StdCtrls, Psock;
>type
> TForm1 = class(TForm)
> ftp: TNMFTP;
> ftpserver: TEdit;
> Label1: TLabel;
> Label2: TLabel;
> name: TEdit;
> Label3: TLabel;
> pass: TEdit;
> Label4: TLabel;
> port: TEdit;
> Button1: TButton;
> Button2: TButton;
> status1: TMemo;
> Button3: TButton;
> Open1: TOpenDialog;
> Button4: TButton;
> del: TEdit;
> Button5: TButton;
> cd: TEdit;
> cmd: TEdit;
> Button6: TButton;
> md: TEdit;
> Button7: TButton;
> rd: TEdit;
> Button8: TButton;
> download: TEdit;
> Button9: TButton;
> Save1: TSaveDialog;
> procedure Button1Click(Sender: TObject);
> procedure ftpStatus(Sender: TComponent; Status: String);
> procedure ftpError(Sender: TComponent; Errno: Word; Errmsg : String);
> procedure ftpDisconnect(Sender: TObject);
> procedure ftpConnect(Sender: TObject);
> procedure ftpConnectionFailed(Sender: TObject);
> procedure ftpInvalidHost(var Handled: Boolean);
> procedure ftpSuccess(Trans_Type: TCmdType);
> procedure ftpTransactionStart(Sender: TObject);
> procedure ftpTransactionStop(Sender: TObject);
> procedure ftpAuthenticationFailed(var Handled: Boolean);
> procedure Button2Click(Sender: TObject);
> procedure Button3Click(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> procedure Button5Click(Sender: TObject);
> procedure Button4Click(Sender: TObject);
> procedure Button6Click(Sender: TObject);
> procedure Button7Click(Sender: TObject);
> procedure Button8Click(Sender: TObject);
> procedure Button9Click(Sender: TObject);
>private
> { Private declarations }
>public
> { Public declarations }
>end;
>var
> Form1: TForm1;
>implementation
>{$R *.dfm}
>procedure TForm1.Button1Click(sender: TObject);
>begin
> ftp.Host:= ftpserver.Text; //ftp-сервер
