Text (Content) einer ms-help://-Adresse erhalten

[Daniel]

Danke Dir vielmals.

Ich habe es jetzt so gelöst, dass ich die Daten in einem Stream erhalte:

Delphi-Quellcode:

function DownLoadInternetFile( const URL : WideString; const outStream : TStream ) : boolean;
var Stream : IStream;
    Buffer : array of byte;
  numBytes : longint;
        hr : HRESULT;
begin
  SetLength( Buffer, 8192 );

  if (URLOpenBlockingStreamW( NIL, PWideChar(URL), Stream, 0, NIL) = S_OK) then
  begin
     hr:= Stream.Read (@Buffer[0], SizeOf(Buffer), @numBytes );
     while (hr = S_OK) do
     begin
       outStream.Write( Buffer[0], numBytes );
       hr:= Stream.Read (@Buffer[0], SizeOf(Buffer), @numBytes );
     end;

    result:= TRUE;
  end
  else
    result:= FALSE;

  SetLength( Buffer, 0 );
end;