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 :
Par avance merci!
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;
Partager