Es funktioniert immer noch nicht :-/
also ich habe einen TIdHTTPProxyServer...
Diesen nutze ich mit Firefox was auch alles klappt
nun nutze ich das Event OnProxyHTTPDocument wie folge:
Delphi-Quellcode:
procedure TForm1.ProxyHTTPDocument(ASender: TIdHTTPProxyServer;
const ADocument: string; var VStream: TStream; const AHeaders: TIdHeaderList);
var T: String;
begin
ListBox1.Items.Add(ADocument);
ListBox1.Perform(WM_VSCROLL,SB_BOTTOM,0);
//T:=GZipDecode(VStream);
Memo1.Text:=T;
end;
auch das funktioniert noch problemlos...in Listbox1 stehen alle geladenen Dokumente drin.
zum dekodieren verwende ich dann das:
Delphi-Quellcode:
function GZipDecode(const Input: TStream): string;
var
DS: TZDecompressionStream;
begin
DS := TZDecompressionStream.Create(Input);
Try
SetLength(Result, DS.Size);
DS.Read(Result[1], DS.Size);
Finally
DS.Free;
End;
end;
doch sobald ich das versuche kommt ein "data error".
Und ich habe absolut keine Idee mehr
