Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.016 c
14-71369
Феликс
2002-07-27 16:12
2002.08.22
Прикольно


14-71323
Igit
2002-07-26 09:50
2002.08.22
Вот сайт сделал....


3-70987
Bilfeld
2002-07-31 09:42
2002.08.22
SQL


1-71072
VELK
2002-08-09 09:01
2002.08.22
Помогите !!!! Программа написана на Delphi 4 и её не возможно


14-71372
RV
2002-07-25 09:39
2002.08.22
Игра Пятнашки. Хелп ми