URLOpenBlockingStream +iStream?
Цитата:
function GetStr(URL: String): PChar;
var hMyResult: HRESULT;
ppStream: IStream;
lpBuffer: Pointer;
dwRead: Integer;
begin
result:='';
hMyResult:=URLOpenBlockingStream(nil, PChar(URL), ppStream, 0, nil);
if hMyResult<>S_OK then exit;
lpBuffer:=AllocMem(1024);
ppStream.Read(lpBuffer, 32, @dwread);
result:=lpBuffer;
end;
|
почему когда я задаю 32 байта для скачивания,скачивается походу весь файл,может неверно, что то делаю :confused:
Все разобрался сделал через UrlDownloadToFileA + CallBack :) |
