Einzelnen Beitrag anzeigen

sephraina

Registriert seit: 17. Feb 2015
36 Beiträge
 
Delphi XE7 Professional
 
#1

IdHTTP Server/Client Problem

  Alt 25. Jun 2015, 13:17
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
  Mit Zitat antworten Zitat