Traduction code JQuery en Lazarus : connection POST à un site
Bonjour à tous,
J'ai un script HTML / javascript (jquery) qui fonctionne très bien, voici la fonction en question (elle fonctionne) :
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| function connect() {
var formData = '{"user": "username","password": "xxxxxx"}' ;
$.ajax({
type: "POST",
url: "http://monsiteweb.com/blablabla",
data: formData,
success: function(txt){ alert( 'REPONSE OK : ' + JSON.stringify(txt)) ;},
error: function(txt){ alert( 'ERR : ' +JSON.stringify(txt));},
dataType: "json",
contentType : "application/json",
});
} |
Ce script passe des données au format json, et récupère un json .
Je voudrait maintenant reproduire la même chose dans mon programme Lazarus.
J'ai essayé avec TFPHTTPClient, mais sans succès. Est-ce que quelqu'un a une idée pour traduire le code ci dessus ?
Je précise que je n'ai pas la main sur le site web en question, mais je sais que le code jquery ci-dessus fonctionne .
Voici le genre de choses que j'ai essayé, sans succès :
Code:
1 2 3 4 5 6
| http := TFPHTTPClient.Create(self);
http.AllowRedirect := False;
http.AddHeader('dataType', 'json');
http.AddHeader('Content-Type', 'application/json');
memo1.Text := http.FormPost('http://monsiteweb.com/blablabla', '{"user": "username","password": "xxxxxx"}' );
http.Free; |
Par avance merci!