Страница 1 из 1
idFTP
Добавлено: 01 фев 2006, 14:33
Alex_Crusher
Помогите мне с idFTP. Не знаю даже с чего начать. Скиньте если можно исходники с закачкой и откачкой на FTP сервер
Добавлено: 09 фев 2006, 15:02
Alex_Crusher
(убито) :twisted:
держитесь в рамках приличий!
Добавлено: 09 фев 2006, 15:05
Blood_Magic
Помоги себе сам =)))
Добрый человек, скинь пример, просто для коллекции, может кому понадобится
Ладно. Так и быть
Добавлено: 17 фев 2006, 09:36
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;