AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Datenübertragung via HTTP POST

Datenübertragung via HTTP POST

Ein Thema von lucy · begonnen am 18. Nov 2022 · letzter Beitrag vom 22. Nov 2022
Antwort Antwort
Seite 3 von 3     123
Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.762 Beiträge
 
Delphi 10.4 Sydney
 
#21

AW: Datenübertragung via HTTP POST

  Alt 22. Nov 2022, 08:52
ParamList.WriteString('"data":{"address": "'+Edit1.Text+'"}'); .. so könnte es passen.

Grüße
Klaus
Klaus
  Mit Zitat antworten Zitat
fisipjm

Registriert seit: 28. Okt 2013
255 Beiträge
 
#22

AW: Datenübertragung via HTTP POST

  Alt 22. Nov 2022, 14:22
Tu dir aber selbst einen gefallen und nutze die JSON Frameworks die es schon gibt. Es ist natürlich gut zu verstehen was läuft und wie etwas aufgebaut ist, aber im fertigen Code würde ich immer auf das gehen, was man danach besser versteht bzw. weitere Verbreitung hat. Dein Code würde mit der system.JSON unit umgesetzt so aussehen.

Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
  myJSONObj: TJSONObject;
  myDataObj: TJSONObject;
begin

  myJSONObj := TJSONObject.Create;
  try
    myJSONObj.AddPair('message', 'test message');
    myJSONObj.AddPair('type', 'ALARM');
    myJSONObj.AddPair('sender', '192.168.0.217');
    myJSONObj.AddPair('timestamp', '1424950740000');
    myJSONObj.AddPair('sender', '192.168.0.217');
    myDataObj := TJSONObject.Create;
      myDataObj.AddPair('address', Edit1.text);
      myJSONObj.AddPair('data', myDataObj);
      try
        IdHTTP1.Request.Accept := 'application/json';
        IdHTTP1.Request.ContentType := 'application/json';
        Memo1.Lines.text := IdHTTP1.Post('http://192.168.0.5/rest/external/http', myJSONObj.ToJSON);
      except
        on e: Exception do
          ShowMessage('Huch, was ist denn da passiert? - ' + e.Message);

      end

  finally
    myJSONObj.free;
  end;

end;

Geändert von fisipjm (22. Nov 2022 um 15:10 Uhr) Grund: Hinweis von DeddyH
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.554 Beiträge
 
Delphi 11 Alexandria
 
#23

AW: Datenübertragung via HTTP POST

  Alt 22. Nov 2022, 14:54
Sicher, dass es nicht knallt, wenn Du ein "Kind-JSONObjekt" selbst freigibst?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
fisipjm

Registriert seit: 28. Okt 2013
255 Beiträge
 
#24

AW: Datenübertragung via HTTP POST

  Alt 22. Nov 2022, 15:05
Sicher, dass es nicht knallt, wenn Du ein "Kind-JSONObjekt" selbst freigibst?
Absolut richtig, habs korrigiert. Danke!

Geändert von fisipjm (22. Nov 2022 um 15:10 Uhr)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz