Текущий архив: 2002.08.22;
Скачать: CL | DM;
Вниз
Закачка ф-ла по HTTP Найти похожие ветки
← →
Ярослав (2002-06-19 16:25) [0]Доброго дня всем!
Задача: пребуется получить ф-л с IP камеры, т.е. картинку по ссылке. ссылка тут ( http://62.117.124.10/cgi-bin/hugesize.jpg?camera=4&compression=2)
проблема: с компонентом TNMHTTP все работает великолепно. Файл размера более 35 кбайт. Пытаюсь программировать с Win API. Использую ф-ции в такой последовательности:
InternetOpen
InternetConnect
HttpOpenRequest
HttpSendRequest
HttpQueryInfo
InternetReadFile
CloseHandles
При скачки статичных файлов все работает великолепно, а при скачке данной ссылки я получаю только 3.74 кбайта.
Если кто знает помогите!
Спасибо
← →
serd_hhc © (2002-06-20 06:36) [1]Мне тут Anatily Podgoretsky посоветовал:
uses Wininet;
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://62.117.124.10/cgi-bin/hugesize.jpg?camera=4&compression=2","C:\1.jpg")
Страницы: 1 вся ветка
Текущий архив: 2002.08.22;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.01 c
