Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "WinAPI";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.006 c
14-71378
Igit
2002-07-29 09:58
2002.08.22
Я фигею


3-70993
nikolo
2002-07-31 14:06
2002.08.22
Как в BDE создать алиас на MS SQL Server 2000?


3-70965
rex
2002-07-31 10:07
2002.08.22
Не можу связать две таблицы с помощью Halcyon


1-71073
VID
2002-08-07 21:02
2002.08.22
Задний фон строки, в RichEdit


1-71156
Nikolai_S
2002-08-09 15:52
2002.08.22
Как считать текстовый файл, хранимый в формате UNICODE?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский