ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Цитата:

Сообщение от S[N]EP

Пытаюсь загрузить на фтп файл. пользуюсь indy ftp
вот код:

PHP код:


		
			
procedure TForm2.Button1Click(Sender: TObject);



begin

idFTP1.Host:=ftphost.Text;   //FTP-сервер

idFTP1.Port:=21;                  //порт ФТП сервера

idFTP1.Username:=ftplogin.Text;

idFTP1.Password:=ftppass.Text;

idFTP1.Connect;

idFTP1.Put(edit1.Text);

idFTP1.Disconnect;



end;

выдаёт ошибку

что делать?)

компонент Indy IdFTP

В разделе Var:

PHP код:


		
			
IdFTP1 : TIdFTP;

При ФормОнЛоад:

PHP код:


		
			
IdFTP1 := TIdFTP.Create(IdFTP1);

Конект:

PHP код:


		
			
IdFTP1.Host := ftphost.Text; 

IdFTP1.Username := ftplogin.Text; 

IdFTP1.Password := ftppass.Text; 

IdFTP1.Port := 21; 

IdFTP1.Connect(True, 10000);

idFTP1.Put(edit1.Text);

idFTP1.Disconnect;