idFTP

[Alex_Crusher]

Помогите мне с idFTP. Не знаю даже с чего начать. Скиньте если можно исходники с закачкой и откачкой на FTP сервер

[Alex_Crusher]

(убито) :twisted:
держитесь в рамках приличий!

[Blood_Magic]

Помоги себе сам =)))

Добрый человек, скинь пример, просто для коллекции, может кому понадобится

[Alex_Crusher]

procedure TMainForma.Podkluchit_FTP_Upload(var FTP_Host: string; FTP_User,
FTP_Pass: string; FTP_Path: string; File_to_upload: string; TMP_FILE: string);
var soob: string;

begin
// Хост настройки
idFtp1.Host:=FTP_Host;
idFTP1.Username:=FTP_User;
idFTP1.Password:=FTP_Pass;
// прокси настройки
IdFTP1.ProxySettings.Host:='';
IdFTP1.ProxySettings.Port:=0;
idFTP1.Passive := true;
//Коннектимся

IdFTP1.Connect(true);
idftp1.ChangeDir(FTP_Path);//'/var/www/html/alex/bazaprg';


// Отправляем наш файл File_to_upload - полный путь к локальному файлу , TMP_FILE - имя созданного файла на FTP сервере
IDFtp1.Put(File_to_upload,TMP_FILE,false); // отправляем наш файл

soob:='Файл '+TMP_FILE+' успешно отправлен на '+FTP_Host+' сервер от '+Idftp1.LocalName;
MessageDlg(soob, mtInformation,[mbOk], 0);

end;