Variable in Stream schreiben

[SnuffMaster23]

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:

Delphi-Quellcode:

(AResponseInfo.ContentStream as TMemoryStream).SaveToFile('test.txt');

[Muetze1]

Hättest du vor dem Erstellem des Threads mit der Suche beschäftigst, wüsstest du 2 Dinge:

1. Es gibt haufenweise Leute vor dir mit dem gleichen Problem
2. es gibt eine Lösung die alle mit Begründung bekamen

Der String ist ein Zeiger und daher schreibst du die Adresse der Stringdaten und folgenden RAM Inhalt in deinen Stream. Abhilfe schafft hier die Angabe des 1. Zeichens des Strings:

Delphi-Quellcode:

WriteBuffer(Buffr[1], Length(Buffr));

[SnuffMaster23]

Hm okay, werd das nächste Mal suchen.
Danke!