Webservice : OK dans un navigateur, KO avec Lazarus et TFPHTTPClient

Bjr à vous,

Je cherche à interroger un service Web pour récupérer ici une altitude

Le lien https://wxs.ign.fr/essentiels/alti/r....08&zonly=true fonctionne me retourne un résultat

Dans le code suivant, je tombe sur une erreur 403

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

procedure TdlgTestsUnitaires.Button1Click(Sender: TObject); var MyHTTPRequest: TFPHTTPClient; MyURL: String; Response: TStringList; begin MyURL := 'https://wxs.ign.fr/essentiels/alti/rest/elevation.json?lon=0.2367&lat=43.08&zonly=true'; Response := TStringList.Create; Response.Clear; MyHTTPRequest := TFPHTTPClient.Create(self); try MyHTTPRequest.get(MyURL, Response); ShowMessage(Response.Text); finally FreeAndNil(MyHTTPRequest); FreeAndNil(Response); end; end;

---

Une idée ?

hello,
403 c'est forbidden . Il faut ajouter des entêtes à la requête pour faire croire au serveur contacté que c'est un navigateur à l'autre bout.
Avec ce code j'ai une réponse :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button2Click(Sender: TObject);var MyHTTPRequest: TFPHTTPClient; MyURL: String; Response: TStringList; begin MyURL := 'https://wxs.ign.fr/essentiels/alti/rest/elevation.json?lon=0.2367&lat=43.08&zonly=true'; Response := TStringList.Create; Response.Clear; MyHTTPRequest := TFPHTTPClient.Create(self); MyHTTPRequest.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)'); MyHTTPRequest.AddHeader('Content-Type','application/json; charset=UTF-8'); MyHTTPRequest.AddHeader('Accept', 'application/json'); MyHTTPRequest.AllowRedirect := true; try MyHTTPRequest.get(MyURL, Response); ShowMessage(Response.Text); finally FreeAndNil(MyHTTPRequest); FreeAndNil(Response); end;

---

Ami calmant, J.P (pas CASSOU)

Erreur 'OpenSSL library'

Je télécharge les libs OpenSSL depuis https://indy.fulgan.com/SSL/Archive/ et je les mets dans le dossier de mon appli
--> erreur "'https://wxs.ign.fr/:443 failed"

Citation:

---

Envoyé par jurassic pork

hello,
403 c'est forbidden . Il faut ajouter des entêtes à la requête pour faire croire au serveur contacté que c'est un navigateur à l'autre bout.
Avec ce code j'ai une réponse :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure TForm1.Button2Click(Sender: TObject);var MyHTTPRequest: TFPHTTPClient; MyURL: String; Response: TStringList; begin MyURL := 'https://wxs.ign.fr/essentiels/alti/rest/elevation.json?lon=0.2367&lat=43.08&zonly=true'; Response := TStringList.Create; Response.Clear; MyHTTPRequest := TFPHTTPClient.Create(self); MyHTTPRequest.AddHeader('User-Agent','Mozilla/5.0 (compatible; fpweb)'); MyHTTPRequest.AddHeader('Content-Type','application/json; charset=UTF-8'); MyHTTPRequest.AddHeader('Accept', 'application/json'); MyHTTPRequest.AllowRedirect := true; try MyHTTPRequest.get(MyURL, Response); ShowMessage(Response.Text); finally FreeAndNil(MyHTTPRequest); FreeAndNil(Response); end;

---

Ami calmant, J.P (pas CASSOU)

---

Hello regardes du coté de ton pare-feu si les connections via le port 443 sont permises

hello,
:aie: J.P Cassou ne modifie pas un ancien message si il y a une nouvelle question , crée un nouveau message, sinon sauf si on relit la discussion , personne ne sera au courant qu'il y a une nouvelle question (c'est ce qui m'est arrivé). Pour ton nouveau problème : quelle est ta version de Lazarus et celle de fpc ?
Ami calmant, J.P