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

[BadenPower]

Zitat von sephraina:

Da der Server kein 'CommandPost' hat nahm ich das 'CommandOther'

'OnCommandGet' wird ausgelöst bei GET, POST und HEADER.

[sephraina]

Danke, das erklärt einiges.
Aber wie mache ich jetzt den Unterschied zwischen Get und Post?
-Ich schicke ja den Stream mit http.post()?
Ist das im 'Acontext: tidcontext' ?? irgendwie so?
if Acontext = 'Get' then showmessage('get') else if Acontext = 'post' then showmessage('post'); aber das sind ja andere Typen...

[BadenPower]

Zitat von sephraina:

Danke, das erklärt einiges.
Aber wie mache ich jetzt den Unterschied zwischen Get und Post?

ARequestInfo.Command gibt Dir diese Möglichkeit.

In der Event-Funktion hast Du als Parameter die Variable "ARequestInfo: TIdHTTPRequestInfo".

TIdHTTPRequestInfo hat wiederum die Property "Command" welche Dir einen String liefert.

Dieser String lautet dann "GET", "POST", oder "HEAD", je nachdem was Du ausgeführt hast.

[sephraina]

Danke, Problem gelöst

Habe jetzt mein

Delphi-Quellcode:

procedure TFServer.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

mit der Abfrage ergänzt:

Delphi-Quellcode:

if ARequestInfo.Command ='GET'  then
    begin //irgendwas
    end;
else if ARequestInfo.Command ='POST'  then
    begin //irgendwas
    end;

[joehd]

Hallo wie genau hast du die dann den Stream geholt ? Ich bin auch gerade an sowas drann...

[himitsu]

Schau mal in das rein, was dort Request und Response im Namen hat. (Post vorher)

[joehd]

Ich habe vorher mit einer TCP Komponente gearbeitet das ging bis lang aber jetzt habe ich mich überzeugen lassen umzudenken Da war es einfach da gab es ein send jetzt gibt es Tausend Möglichkeiten.
wenn das läuft werde ich auf jeden Fall hier ein Beispiel reinsetzen ... Das der nächste nicht wieder alles suchen muss ... Ich dachte die idHTTp gibt die Standardantworten selbst

Ich muss ja wohl auf jedes Request reagieren, mit der richtigen Response.