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

[joehd]

Eigentlich habe ich ja schon dinge in Indy gemacht ...
Gibt es sorry wenn ich so frage ein Beispiel für POST JSON mit der Indy Server componente...
Ich habe schon so viel durchgesucht ...

Ich stelle mir das so vor Verbindung herstellen, Stream anbinden und daten erhalten ... Daten Parsen .... aber ich hänge voll ...

Danke schon mal

[himitsu]

Den Input liest du ja bereits (HTTP-Header) ... danach kommt eine Leerzeile und dann die Daten (von deinem POST)


Nicht nur, dass dir eine HTTP-Komponente vieles abnimmt (Header parsen/lesen und beim Senden auch generieren)
auch für HTTP/2 und HTTP/3, also z.B. HTTPS oder zukünftig QUIC müsstest du dann nichts selber bauen, weil sowas dann ja von Anderen eingebaut würde.
PS: Mit HTTP/3 überlegt man sich von TCP auf UDP umzustellen. (ja, die ersten Webseiten und Browser können es schon ... testweise)
https://www.stackscale.com/blog/http3/


Die HTTP-Komponente gibt dir einmal eine Header-Liste und auch die entsprechenden Streams vom Content (Input) und Response (zum Senden).

[joehd]

Danke für die Hinweise ich sollte es dann sicher noch umstellen aber jetzt brauche ich eine schnelle Lösung für das Problem. Ich dachte die TMS Webcore kann FTP oder einfaches SMTP um die daten aus dem Webserver zu versenden aber nein. Ich muss HTTP Post machen und da habe ich nicht mit gerechnet. Und ich habe mich mit REST und HTTP Zeugs und so noch nicht wirklich beschäftigt.

Zum Auslesen des Header ich denke auch das ich alles auslese aber da sind keine Daten, die müssten dann ja im TMEMO stehen
Aber leider finde ich in dem Header die Daten nicht.
Aber eigentlich lese ich doch alles aus.

Kann es sein das die Sende Komponente noch was benötigt?
Die Komponente ist die WebhttpRequest von TMS Web Core

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

Delphi-Quellcode:

********if RequestHeader.Strings[i] = ''*then
**********begin
************Sleep(100);
************Continue;
**********end;

Delphi-Quellcode:

sendstring := 'Data: ||' + PNName.Text +'||'+  pVName.Text + '||'+ pGebdat.Text+'||' +Bemerkung.text + '||'+ freitext.text;

 form1.WebHttpRequest1.URL := 'http://127.0.0.1:8080/Kontakt/index.html';
 form1.WebHttpRequest1.Command := httpPOST;
 form1.WebHttpRequest1.PostData := sendstring;
 form1.WebHttpRequest1.Execute();

[joehd]

Ich glaube mein

Delphi-Quellcode:

    RawData := ClientSocket.Receiveln; // Liest nur bis zum Zeilenede aus ggf nicht alles 
    Rawdata := Clientsocket.ReceiveFrom() // das gibt es noch aber da ist mir nicht klar wie ich die Werte alle bekomme

  function TIpSocket.ReceiveFrom(var buf; bufsize: Integer; ToAddr: TSockAddr; var len: Integer; flags: Integer): Integer;

buf ist klar (String/char Buffer ) aber Bufsize müsste ich doch vom Server bekommen ?  toaddr ist das meine Lokale ? .....

[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...

[mytbo]

Zitat von joehd:

Und ich habe mich mit REST und HTTP Zeugs und so noch nicht wirklich beschäftigt.

Im Forum gibt es Artikel zur Einführung in Interface-based und methodenbasierte Services. Sie enthalten lauffähige Beispiele. Der methodenbasierte Service SaveFile aus dem Beispiel wird mit TMS WebCore wie folgt aufgerufen:

Delphi-Quellcode:

const
  REQUEST_PATH = 'SaveFile?fileName=%s';
begin
  HTTPRequest.URL := Format(BASE_URL + REQUEST_PATH, [pmcFileName]);
  HTTPRequest.Command := httpPUT;
  HTTPRequest.PostData := ...;
  HTTPRequest.Execute(
    procedure(pmResponse: String; pmRequest: TJSXMLHttpRequest)
    begin
      if pmRequest.Status = 200 then
        ShowMessage(Format('File %s was saved.', [pmcFileName]))
      else
        ShowMessage('Error: File was not saved.');
    end);
end;

Bis bald...
Thomas