Ich habe ein Problem mit folgendem Code:
Delphi-Quellcode:
procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var Bufr: string;
begin
Bufr := Edit1.Text;
AResponseInfo.ContentStream := TMemoryStream.Create;
AResponseInfo.ContentStream.WriteBuffer('<h1>Mein Server</h1>', 20);
AResponseInfo.ContentStream.WriteBuffer(Bufr, Length(Bufr));
AResponseInfo.ContentStream.WriteBuffer('
<hr />', 13);
AResponseInfo.ContentStream.WriteBuffer(ARequestInfo.RemoteIP, Length(ARequestInfo.RemoteIP));
AResponseInfo.WriteContent;
AResponseInfo.ContentStream.Free;
end;
Die String-Konstanten kommen wunderbar im Browser an, Bufr und RemoteIP dagegen nicht, da krieg ich wirres Zeug das bei jedem Aufruf wechselt.
//Edit: Also IdHTTPServer hat nichts damit zu tun, es landet schon falsch im Stream wie folgende Zeile zeigt:
(AResponseInfo.ContentStream as TMemoryStream).SaveToFile('test.txt');