Ich bekomme auf jeden Fall eine
HTML Datei zurück!!!
So schaut das im Moment bei mir aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var responseStream:Tfilestream;
begin
idhttp1.request.AcceptEncoding:='gzip';
responseStream := TFileStream.Create(edit1.text, fmCreate);
idhttp1.get('http://www.heise.de/newsticker/meldung/64197',responseStream);
edit2.text:=GZipStreamToString(responseStream);
end;
function tform1.GZipStreamToString(const input: TStream): string;
var str: TDecompressionStream;
buffer: array[0..2000] of char;
count: Longint;
begin
str:= TDecompressionStream.Create(input);
repeat
count:= str.Read(buffer, 2000);
result:= result + buffer;
until count < 2000;
str.Free
end;
Vielleicht findet ja jemand nen Fehler. Hab die Heise Seite einfach mal als beispiel genommen.