URLOpenBlockingStream +iStream?

[zl0y]

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 :)