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.

markieren

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.

zusammenfalten · markieren

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

JSON String per HTTP Post an API senden

JSON String per HTTP Post an API senden

Forumregeln