Текущий архив: 2002.08.22;
Скачать: CL | DM;

Вниз

Wininet и закачка файлов.   Найти похожие ветки 

← →
serd_hhc ©   (2002-06-15 08:45) [0]

Уважаемые мастера,
как при помощи Wininet API закачать ,напрмер, файл
" http://www.serd_hhc.chat.ru/Files/MyProg.exe".
Заранее спасибо за ответ...

---

← →
Song ©   (2002-06-15 10:24) [1]

Обязательно нужно через WinInet ?

---

← →
Anatoly Podgoretsky ©   (2002-06-15 11:52) [2]

Правильно мыслит, зачем то какие гигантские компоненты, когда все есть в системе.

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");


---

← →
RV   (2002-06-20 10:05) [3]

to Anatoly Podgoretsky!
так что, и докачка будет?!?

---

← →
RV   (2002-06-20 10:09) [4]

ой-ой
Ходил курить - после не на тот сайт написал, где читал
выше мое не считается, лажанулся

---

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

Текущий архив: 2002.08.22;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.011 c