IdHTTP Server/Client Problem

[sephraina]

Hallo,

Ich versuche gerade von meinem Client aus einen Post auf meinen Server zu machen, aber irgendwo stecke ich fest. Der Server hat zwar eine Verbindung zum Client (Get-Request funktioniert) aber meint Post will er nicht anzeigen.

Hier der Client-Code

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var s: TMemorystream;
    str: TStringstream;
    a: string;
    p: integer;
begin
      s := Tmemorystream.Create;
      str := TStringstream.Create (edit2.Text);
      showmessage(str.DataString); // wird angezeigt
      s.LoadFromStream(str);

      idhttp1.Post('http://127.0.0.1/' , s);

end;

Und hier mein Servercode:

Delphi-Quellcode:

procedure TFServer.IdHTTPServer1CommandOther(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
  var s: TMemorystream;
  str : TStringstream;
  begin
      Showmessage('POST: connected!');  //wird auch nicht angezeigt 
      s:= TMemorystream.Create;
      s.Position := 0;
      str.LoadFromStream(s);
      showmessage(str.DataString);
end;

Da der Server kein 'CommandPost' hat nahm ich das 'CommandOther'
Hmm, ich könnte mir vorstellen dass ich den Inhalt des Streams noch irgendwie holen muss (wie?) aber er müsst nur schon mal mein showmessage() anzeigen...

Hoffe jemand findet den Fehler.
Danke im Voraus!

Gruss Seph