Главная страница
    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.009 c
3-71041
Nikolai_S
2002-07-31 15:29
2002.08.22
Как отменить выполнение SQL-запроса (SELECT) во время выполнения?


3-71058
RUS1
2002-08-01 15:38
2002.08.22
Господа а какие у вас есть мнения по данному вопросу...?


3-70995
******
2002-07-30 15:08
2002.08.22
помогите с DBLookUpComboBox


3-71067
polist
2002-08-02 15:55
2002.08.22
+Microsoft Access


3-70963
НАРИК
2002-07-30 08:39
2002.08.22
создание программы





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский