[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

10.04.2010, 12:56

EndLeSSDre@M

Участник форума

Регистрация: 18.07.2009

Сообщений: 278

Провел на форуме:
3055344

Репутация: 259

Отправить сообщение для EndLeSSDre@M с помощью ICQ

Цитата:

Сообщение от 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;