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