Discussion :

[JP CASSOU]

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 ?

[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 :

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
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)

[JP 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"

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 :

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
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)

[BeanzMaster]

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

[jurassic pork]

hello,
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