[Помогите!] FTP

[CyberNEŦik]

дайте пожалуйста РАБОЧИЙ код авторизации на FTP сервер + закачки на него тхт файла. Спасибо посоны

[Erstown]

IdFTP1.Username:= ' ';
 IdFTP1.Password:= ' ';
 IdFTP1.Host:= ' ';
 IdFTP1.Passive:= True;
 if IdFTP1.Connected then
 IdFTP1.Disconnect
 else
 try
 IdFTP1.Connect(True);
 except
 on E : Exception do
 ShowMessage('Îê: '+E.Message);
 end;
if IdFTP1.Connected then
try
 IdFTP1.Put('file.txt', 'file.txt', True);
except
 on E : Exception do
 ShowMessage('Íåà: '+E.Message);
end;

[CyberNEŦik]

Цитата: Сообщение от Erstown IdFTP1.Username:= ' '; IdFTP1.Password:= ' '; IdFTP1.Host:= ' '; IdFTP1.Passive:= True; if IdFTP1.Connected then IdFTP1.Disconnect else try IdFTP1.Connect(True); except on E : Exception do ShowMessage('Îê: '+E.Message); end; if IdFTP1.Connected then try IdFTP1.Put('file.txt', 'file.txt', True); except on E : Exception do ShowMessage('Íåà: '+E.Message); end;

пишет :
i won't open a connection to 0.0.0.0 (ip (тут какойто айпи)

[=PaLeTiZaToR=]

Всем добра , и тебе добра ))

idFTP1.Host:='yandexbrut.ucoz.ru';  // хост. Тут пример стоит яндекс
idFTP1.Port:=21;                  //порт ФТП сервера. 
idFTP1.Username:='Тута логин !!!'; // логин фтп
idFTP1.Password:='Пароль'; // тут пароль
idFTP1.Connect; // коннектимся
if idFTP1.Connected then
begin
IdFTP1.Put(extractFilePath('Baza.txt')+'Baza.txt','/Baza/Baza.txt' ,false);//загрузка на фтп 
idFTP1.Disconnect;
end;

IdFTP1.Get('/Baza/Baza.txt','E:\Baza.txt',true); если надо .. скачиваем с фтп ...
Ну тут все мое .. заменишь просто на свое....

А еще надо кинуть компонент idftp1

[CyberNEŦik]

Цитата: Сообщение от =^PaLeTiZaToR^= Всем добра , и тебе добра )) idFTP1.Host:='yandexbrut.ucoz.ru'; // хост. Тут пример стоит яндекс idFTP1.Port:=21; //порт ФТП сервера. idFTP1.Username:='Тута логин !!!'; // логин фтп idFTP1.Password:='Пароль'; // тут пароль idFTP1.Connect; // коннектимся if idFTP1.Connected then begin IdFTP1.Put(extractFilePath('Baza.txt')+'Baza.txt','/Baza/Baza.txt' ,false);//загрузка на фтп idFTP1.Disconnect; end; IdFTP1.Get('/Baza/Baza.txt','E:\Baza.txt',true); если надо .. скачиваем с фтп ... Ну тут все мое .. заменишь просто на свое.... А еще надо кинуть компонент idftp1

[Ссылки могут видеть только зарегистрированные пользователи. ]

[=PaLeTiZaToR=]

О скотче , а в пассивный режим перейти не пробывал ... да да не стоит благодарностей

[CyberNEŦik]

Цитата: Сообщение от =^PaLeTiZaToR^= О скотче , а в пассивный режим перейти не пробывал ... да да не стоит благодарностей

ничиго ни панял

[=PaLeTiZaToR=]

[CyberNEŦik]

Цитата: Сообщение от =^PaLeTiZaToR^=

[Ссылки могут видеть только зарегистрированные пользователи. ]

[SunRRRice]

CyberNEŦik, скиньте свой код , тут никто экстрасенсорными способностями не владеет.