Закачка ф-ла по 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")

Закачка ф-ла по HTTP Найти похожие ветки