Сергей Парижский - Delphi. Учимся на примерах

begin

status1.Lines.Add('Неверное имя или пароль');

end;

Событие при подключении — OnConnect:

procedure TForm1.ftpConnect(Sender:tobject);

begin

status1.Lines.Add('Подключено');

//локальный ip-адрес

status1Lines.Add('IP клиента: ' + ftp.LocalIP);

//удаленный ip-адрес

status1Lines.Add('IPсервера: ' + ftp.RemoteIP);

end;

Событие в случае возникновения ошибки при подключении — OnConnectionFailed:

procedure TForm1.ftpConnectionFailed(Sender: TObject);

begin

status1.Lines.Add('He удалось подключиться к серверу');

end;

Событие при отключении от сервера — OnDisconnect:

procedure TForm1.ftpDisconnect(Sender: TObject);

begin

status1.Lines.Add('Отключено');

end;

Событие в случае возникновения некоторой ошибки — OnError:

procedure TForml.ftpError(Sender: TComponent; Errno: Word; Errmsg: String);

begin

status1.Lines.Add('Ошибка: ' + errmsg);

end;

Событие в случае возникновения ошибки при подключении к серверу — OnInvaIidHost:

procedure TForm1.ftpInvalidHost(var Handled: Boolean);

begin

status1.Lines.Add('Ошибка при подключении к серверу');

end;

Событие при изменении состояния — OnStatus:

procedure TForm1.ftpStatus(Sender: TComponent; Status: String);

begin

status1.Lines.Add(Status);

end;

Событие при успешном выполнении операции — OnSuccess:

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.

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-сервер

ftp.UserID:= name.Text;//логин

ftp.Password:= pass.Text;// пароль

ftp.Port:= StrToInt(port.Text); //порт для подключения

//соединяемся с сервером

if not ftp.Connected then ftp.Connect;

end;

procedure TForm1.ftpStatus(Sender: TComponent; Status: String);

begin

status1.Lines.Add(Status);

end;

procedure TForml.ftpError(Sender: TComponent; Errno: Word; Errmsg: String);

begin

status1.Lines.Add('Ошибка: ' + errmsg);

end;

procedure TForm1.ftpDisconnect(Sender: TObject);

begin

status1.Lines.Add('Отключено');

end;

procedure TForm1.ftpConnect(Sender:tobject);

begin

status1.Lines.Add('Подключено');

//локальный ip-адрес

status1Lines.Add('IP клиента: ' + ftp.LocalIP);