| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Wininet и закачка файлов. [D6, Win95/98, WinME, NT4, Win2k, WinXP]
serd_hhc © (2002-06-15 08:45:00)Уважаемые мастера,
как при помощи Wininet API закачать ,напрмер, файл
" http://www.serd_hhc.chat.ru/Files/MyProg.exe".
Заранее спасибо за ответ...
RV (2002-06-20 10:09:00) [1]ой-ой
Ходил курить - после не на тот сайт написал, где читал
выше мое не считается, лажанулся
RV (2002-06-20 10:05:00) [2]to Anatoly Podgoretsky!
так что, и докачка будет?!?
Anatoly Podgoretsky (2002-06-15 11:52:00) [3]Правильно мыслит, зачем то какие гигантские компоненты, когда все есть в системе.
function DownloadFile(const FileURL, FileName: String): Cardinal;
var
hSession, hFile: HInternet;
Buffer: array[1..1024] of Byte;
BufferLen, fSize: LongWord;
f: File;
begin
Result := 0;
hSession := InternetOpen("STEROID Download", INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
if Assigned(hSession) then begin
hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0, INTERNET_FLAG_RELOAD, 0);
if Assigned(hFile) then begin
AssignFile(f, FileName);
Rewrite(f,1);
fSize := 0;
repeat
InternetReadFile(hFile, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen);
fSize := fSize + BufferLen;
until (BufferLen = 0);
CloseFile(f);
Result := fSize;
InternetCloseHandle(hFile);
end;
InternetCloseHandle(hSession);
end;
end;
DownloadFile(
" http://www.serd_hhc.chat.ru/Files/MyProg.exe",
"c:\Download\MyProg.exe");
Song (2002-06-15 10:24:00) [4]Обязательно нужно через WinInet ?
| |
