Delphi, прием и отправка файла по FTP .

Пример Проекта на Delphi7

Использован компонент IdFTP(IdFTP) из закладки Indy Clients

Пример кода

//Закачать файл на сервер по FTP

procedure TForm1.PutClick(Sender: TObject);

var

ftp: TIdFTP;

ms: TMemoryStream;

begin

ftp:=TIdFTP.Create(Application);

ms:=TMemoryStream.Create;

try

try

ftp.Host:='127.0.0.1';// ftp адрес сервера

ftp.Port:=21;

ftp.Username:='anonymous';//логин

ftp.Password:='';//Пароль

ftp.Connect(true, 2000);

AssErt(ftp.Connected);

ftp.ChangeDir('/');//Установить папку на сервере

ftp.Put('c:\file.txt','file.txt',false); //Файл Откуда-Куда

ShowMessage('Отправлено');

finally

ms.Free; ftp.Free;

end;

except

ShowMessage(‘Неудачная попытка отправки файла на сервер’);

end;

end;

//----Put---

//Получить файл с сервера по FTP

procedure TForm1.GetClick(Sender: TObject);

var

ftp: TIdFTP;

ms: TMemoryStream;

begin

ftp:=TIdFTP.Create(Application);

ms:=TMemoryStream.Create;

try

try

ftp.Host:='127.0.0.1'; // ftp адрес сервера

ftp.Port:=21;

ftp.Username:='anonymous'; //логин

ftp.Password:=''; //Пароль

ftp.Connect(true, 2000);

AssErt(ftp.Connected);

ftp.ChangeDir('/');// Установить папку на сервере

ftp.Get('file.txt','c:\file.txt',true);//Файл Откуда-Куда

ShowMessage(‘Файл принят’);

finally

ms.Free; ftp.Free;

end;

except

ShowMessage (‘Неудачная попытка приема файла с сервера’);

end;

end;

//----Get---

Перейти на Главную

<<НАЗАД