Форум: "Сети";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Вниз

Функция закачки файла по FTP протоколу используя Wininet   Найти похожие ветки 

← →
Dr.Nemo   (2005-08-30 15:05) [0]

Вот есть такой код //Функция закачки файла по FTP протоколу

procedure FtpUploadFile(FtpHost, FtpUser, FtpPass, LocalFile, FtpFile: string);
var
hNet, hFTP: Pointer;
begin

hNet:=InternetOpen("Program_Name", 0, nil, nil, 0);
hFTP:=InternetConnect(hNet, PChar(FtpHost), 21, PChar(FtpUser), PChar(FtpPass), 1, 0, 0);
FtpPutFile(hFtp, Pchar(LocalFile), Pchar(FtpFile), 0, 0);

InternetCloseHandle(hFTP);
InternetCloseHandle(hNet);

end;


как и где указать параметры подключения
begin
?????????????
end;

---

← →
McSource   (2005-08-30 16:22) [1]

Не парься! Возьми стандартный компонент TIdFTP, кажись вкладка Indy. Если нужен пример готового FTP-клиента пиши на scaint@mail.ru

---

← →
Dr.Nemo   (2005-08-31 01:48) [2]

Спасибо обязательно напишу!

---

← →
dmitry501 ©   (2005-08-31 05:13) [3]

Dr.Nemo   (30.08.05 15:05)
А что вызывает сложность? По-моему все понятно...
begin
 FtpUploadFile("ftp://ftp.microsoft.com", "anonymous", "login@microsoft.com", "c:\README.1ST", "/developr/fox/public/UPDATES/CURRENT/README.1ST");
end;

---

← →
Dr.Nemo ©   (2005-08-31 18:50) [4]

О спасибки большое щас попробую!!

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2005.12.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.035 c