10.04.2010, 13:30
|
|
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
С нами:
8850305
Репутация:
259
|
|
тогда давай так: какая версия Indy у тебя???
вот этот код нормально работает!
PHP код:
procedure TForm1.PutClick(Sender: TObject);
var
ftp: TIdFTP;
ms: TMemoryStream;
begin
ftp:=TIdFTP.Create(Application);
ms:=TMemoryStream.Create;
try
try
ftp.Host:=ftphost.Text;
ftp.Port:=21;
ftp.Username:=ftplogin.Text;
ftp.Password:=ftppass.Text;
ftp.Connect(true, 2000);
AssErt(ftp.Connected);
ftp.ChangeDir(' ');
ftp.Put(edit1.Text);
ShowMessage('Отправлено');
finally
ms.Free; ftp.Free;
end;
except
ShowMessage('Хрен! :(');
end;
end;
end.
Indy обнови кароче
Последний раз редактировалось EndLeSSDre@M; 10.04.2010 в 13:47..
|
|
|