Bonjour à tous,
J'ai un script HTML / javascript (jquery) qui fonctionne très bien, voici la fonction en question (elle fonctionne) :
Code Javascript : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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!