| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Функция закачки файла по FTP протоколу используя Wininet [D6, Win95/98, WinME, NT4, Win2k, WinXP]
Dr.Nemo © (2005-08-30 15:05:00)Вот есть такой код
//Функция закачки файла по 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;
Dr.Nemo (2005-08-31 18:50:00) [1]О спасибки большое щас попробую!!
dmitry501 (2005-08-31 05:13:00) [2]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 01:48:00) [3]Спасибо обязательно напишу!
McSource (2005-08-30 16:22:00) [4]Не парься! Возьми стандартный компонент TIdFTP, кажись вкладка Indy. Если нужен пример готового FTP-клиента пиши на scaint@mail.ru
| |
