Ich habe einen TCPServer als HTTP server und möchte daten aus einem POST JSON Data

[himitsu]

Zitat von joehd:

Kann es sein das ich da die schleife zu früh beende du sagtest es kommt eine Leerzeile ?

Ja und nein.

Du brichst vorher schon ab, da wo der Header ended.

Zitat:

while RawData <> '' do

[joehd]

Zitat von himitsu:

Zitat von joehd:

Kann es sein das ich da die schleife zu früh beende du sagtest es kommt eine Leerzeile ?

Ja und nein.

Du brichst vorher schon ab, da wo der Header ended.

Zitat:

while RawData <> '' do

while Rawdata <> eof() ? ich brauche ja eine Ende markierung.
Stimmt aber ich hatte es nur weiter unten versucht weiter auszulesen das geht aber nicht da ich da ja schon abbreche

Die Größe der Empfangenen Bytes kann ich ermitteln
Statusbar1.SimpleText := inttostr(Clientsocket.BytesReceived); // = 490 Bytes
diese könnte ich dann ja auslesen oder ?

[joehd]

Zitat von himitsu:

Zitat von joehd:

Kann es sein das ich da die schleife zu früh beende du sagtest es kommt eine Leerzeile ?

Ja und nein.

Du brichst vorher schon ab, da wo der Header ended.

Zitat:

while RawData <> '' do

Daran liegt es leider nicht das da nichts mehr kommt .... DEr Puffer ist leer und vollständig gelesen. Ich denke es braucht ein response das der Post gesendet wird ...

[joehd]

Hallo also nachdem ich doch so nett gebeten wurde das mit INDY zu machen habe ich jetzt mal die idHTTPServer genutzt.
Alles von neuem. Ich habe mir einige Beispiele angeschaut aber schon beim empfangenen Option Command stellt sich die Frage wie gebe ich den Send zurück.

Aresponseinfo.ResponseText := 'HTTP/1.0 200 OK';

klappt nicht und ich habe schon einiges Probiert

Delphi-Quellcode:

procedure TForm1.IdHTTPServer1CommandOther(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
 // arequestinfo.URI angeforderte Seite
 // arequestinfo.Command komando welches gegeben wurde get Post ....
 // arequestinfo.Document Seiteninfoi nach der Domain
 // arequestinfo.Host
 // arequestinfo.From aufrufende Adresse

 memo1.Lines.Add('CommandGet: URI: ' + arequestinfo.URI  + ' | Command:  '+ arequestinfo.Command + ' | PostStream: ' + mystreamtostring(arequestinfo.PostStream)) ;
 memo1.Lines.Add('Document: ' + arequestinfo.Document + ' | Params: ' + arequestinfo.Params.Text  + ' | Host: ' + arequestinfo.Host + ' | From: ' + arequestinfo.From );
 memo1.Lines.Add(' Konnektion: ' + arequestinfo.Connection    );

if arequestinfo.Command = 'OPTIONS' then
Begin // Abfrage des WEB Servers was kannst du
  Aresponseinfo.ResponseText := 'HTTP/1.0 200 OK';
  memo1.Lines.Add('Options : ' +'HTTP/1.0 200 OK');
End;

end;

[HolgerX]

Hmm..

wieso nicht einfach :

ResponseInfo.ResponseNo = 200;

Der Responsetext ist für die Rückgabedaten...

[joehd]

Guter Tipp, das probiere ich doch gleich mal aus ....
ich bin gerade mal voll der Anfänger mit der Komponente.
Der Sender bricht auf jeden Fall derzeit ab, weil falsche Antwort Ich probiere dein Vorschlag ... DANKE

Ich versuche gerade mal den Port mit etwas zu tracen das ich sehe was da eigentlich passiert...

[Olli73]

Mach doch einfach Mal in Delphi Datei -> Neu -> Weitere -> Delphi-Projekte -> WebBroker -> Web Server Anwendung.

Dann kannst du im WebModule einfach "Actions" anlegen und dort die Daten verarbeiten...

Und bedenke, dass ein Webserver mehrere Anfragen gleichzeitig abarbeiten kann; deshalb arbeitet Indy an der Stelle multithreaded. Auf die Oberfläche oder globale Variablen zuzugreifen ist also nicht so dolle (im WebModule).

[joehd]

Danke für den Tipp da hatte ich auch schon probiert,
aber ich empfange nur komplette Datensätze aus einem Formular so hoffe ich Json und die werden dann abgelegt oder so komplett verarbeitet. Dann ist die Verbindung schon wieder vorbei.

[Olli73]

Sollte aber mit Obigem einfach umsetzbar sein.