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