also ich hab damit mal angefangen...
mitlesen funktionierte tadellos.
woran es hakte war das ändern der übertragenen Daten und das dekomprimieren :-/
ich suchs mal raus
Wenn was reinkommt:
Delphi-Quellcode:
procedure TForm1.ProxyHTTPDocument(ASender: TIdHTTPProxyServer;
const ADocument: string; var VStream: TStream; const AHeaders: TIdHeaderList);
var T: String;
begin
ListBox1.Items.Add(ADocument); //Liste der Dokumente
ListBox1.Perform(WM_VSCROLL,SB_BOTTOM,0);
T:=StreamToString(VStream);
Memo1.Text:=T; //Letztes Dokument
end;
StreamToStr (Hier auch dekodieren...)
Delphi-Quellcode:
function TForm1.StreamToString(const Input: TStream): string;
var i:Integer;
begin
SetLength(Result, Input.Size);
i:=Input.Read(Result[1], Input.Size);
Result:=copy(Result, 1, Input.Size);
end;
das sollte soweit funktionieren...für unkomprimierte übertragung...
solltest du eine entschlüsselung schaffen, teils mir bitte mit
ich habe es ebenfalls nicht geschafft das dokument abzuändern (und dem browser die geänderte version zu schicken...)
falls du es schaffst...
Edit:
Ich merk grad
Mein 2000. Post