JSON String per HTTP Post an API senden

[Back2Code]

Hallo zusammen,

ich würde gerne einen einzelnen langen JSON String per HTTP Post an eine API senden.

Code:

{"os":"Windows7", "architecture":"64", "date":"20.06.2013", "version": "3.22", "name":"TestVM-PC"}

So würde dann der String aussehen wenn ich alles ermittelt hätte. Und diesen möchte ich mit einem HTTP Post an eine PHP Api senden. /index.php/add_customer

Windows, architecture, date, version & name werden dann jeweils von meinen Variablen gefüllt.

Da ich auf Komponenten ala Indy & Co verzichten möchte würde ich das Ganze am liebsten mit der Windows API lösen.
EDIT: Hab jetzt die synapse Lib genommen.

Delphi-Quellcode:

var sSendString: String;
sSendString := '{"os":"Windows7", "architecture":"64", "date":"20.06.2013", "version": "3.22", "name":"TestVM-PC"}';

Hab jetzt die synapse Lib genommen. Meine Frage ist jetzt wo genau ich in der unteren procedure meinen sSendString einbinden müsste, damit die API ihn annimmt.

Delphi-Quellcode:

procedure HTTPPost;
var URL: string;
    Params: string;
    Response: TMemoryStream;

begin
  Response := TMemoryStream.Create;

  try
    URL := 'http://posttestserver.com/post.php?dump&html';

    Params := 'parameter1=' + EncodeURLElement('data1') + '&' +
              'parameter2=' + EncodeURLElement('data2');

    if HttpPostURL(URL, Params, Response) then
      Response.SaveToFile('c:\response.txt');

  finally
    Response.Free;
  end;
end;

SO Link :
http://stackoverflow.com/questions/1...th-synapse-lib

[Sir Rufo]

Crosspost http://stackoverflow.com/questions/1...th-synapse-lib
(beim nächsten Mal bitte selber angeben)

[Back2Code]

Ich poste Fragen, die ich nicht selber durch die SuFu herrausfinde immer auf Stackoverflow zusätzlich um die Chancen auf eine Antwort zu erhöhen. Sollte doch kein Problem sein oder?

[DeddyH]

Nö, solange die Postings untereinander verlinkt sind.

[Back2Code]

Ok, wusste ich jetzt nicht. Werds in Zukunft immer reinschreiben. Ist editiert.