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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?