Discussion :

[CharleLéo]

Bonjour,

J'ai réalisé un bout de code qui utilise une API REST par l'intermédiaire d'un Http-client. L'utilisation de cette API nécessite auparavant une identification coté serveur (User,password,compagny). Ce code est écrit en FREE PASCAL, j'utilise l'EDI LAZARUS.
Pour cela, je renseigne auparavant le RequestBody (avec les identifiants de connections) de l'HTTP-CLIENT, je fais POST sur l'URL de connexion et j'ai en retour, le "token" d'autorisation. Avec ce token, je peux ramener un certain nombre de données avec des GET.

Tout cela fonctionne depuis mon PC, mais dés que je mets mon code exe sur le PC du boulot, j'ai en retour une exception :www.monurl:443 failed. J'ai placé les DLL openSSL dans le répertoire dans lequel se troubve mon exe.

Je suppose, qu'il s'agit d'un blocage dans mon entreprise ?

Étant débutant dans ce domaine, pouvez vous me donner une explication ? Comment puis supprimer cette exception ?

A+

[ShaiLeTroll]

Tu n'aurais pas le numéro de l'erreur ?
ton API Http-client te retourne une exception ?
Nous dire quelle est le nom de la lib nous aiderait !
Si tu as une exception selon sa nature, on pourrait savoir si cela bloque au niveau TCP/IP (lié au firewall par exemple) ou au niveau HTTP
Si tu n'a pas d'exception mais un simple code d'erreur, faut se référer à la documentation de ton API Http-client

Vu ton système de token, je suppose que c'est un webservice en Bearer Authentication ?!
J'ai intégré cela récemment en Delphi XE2 avec TIdHTTP de Indy

[CharleLéo]

Bonjour,

Je vais essayer d'être le plus clair possible.

La lib que j'utilise est fpHttpClient (LAZARUS).

Vu ton système de token, je suppose que c'est un webservice en Bearer Authentication ?!

Je ne sais pas ce qu'est un Bearer Authentification.

L'exception c'est le code qui la lève. Depuis mon PC perso (connecter en wifi sur ma LB), je n'ai pas d'erreur, c'est depuis le PC (connecter sur l'intranet de l'entreprise) du boulot que j'ai l'erreur :

"www.xxxxx.com:443 failed"

Si je tape dans la barre d'adresse l'url https://www.xxx.com:443, je tombe (toujours avec mon pc perso navigateur FIREFOX),sur la page d'identification de l'URL, idem depuis le PC du boulot (navigateur FIREFOX)

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
21
22
23
24
25
function TForm1.Connecter(user,password,compagny:string):string;
var
  HttpClient: TfPHttpClient;
  Reponse: string;
  jsonData:TJsonData;
begin
  HttpClient := TfPHttpClient.Create(nil);
  HttpClient.AddHeader('Accept','application/json');
  HttpClient.AddHeader('Content-Type ','application/json');
  HttpClient.RequestBody := TStringStream.Create('{"user": "'+user+'",'+
                                                  '"password": "'+password+'",'+
                                                  '"company": "'+compagny+'"}');
  try
    Reponse := HttpClient.Post('https://www.xxx.com/rest/v3/login');
  except
  on e:exception do
     begin
       ShowMessage('Exception :'+e.message);
       HttpClient.RequestBody.Free;
       HttpClient.free;
       exit;
     end;
   end;
   jsonData:=GETJSON(Reponse);Connecter:=TJSonObject(jsonData).FindPath('data.token').AsString;
end;

Merci de votre aide

[ShaiLeTroll]

L'exception c'est le code qui la lève

Tu en as bien une alors ?
cela affiche
'Exception : www.xxxxx.com:443 failed' ?
ou "www.xxxxx.com:443 failed" c'est le contenu de la variable "Reponse" ?

Si tu as bien une exception, regarde le ClassType de l'exception

EDIT : si c'est une EHTTPClient cela n'a aucun intérêt, pas de gestion de Code Erreur comme le ferait celle d'Indy EIdHTTPProtocolException / EIdReplyRFCError
Si tu as Lazarus au boulot, il ne te reste qu'a débuggueur le code source "fphttpclient.pas"

[CharleLéo]

J'ai relancé mon code avec LAZARUS au boulot, voilà ce que j’obtiens :

Le projet a levé une exception ESocketError avec le message : Connect to www.xxxxxxxx.com:443 failed

Je vais essayer de comprendre, mais bon....

A+

[ShaiLeTroll]

ESocketError c'est déjà plus intéressant même si la liste des erreurs est un peu courte dans la propriété Code: TSocketErrorType;
et vu le message c'est surement l'erreur seConnectFailed !
Malheureusement, difficile de t'aider plus !
Reste éventuellement un Proxy défini dans FIREFOX qui ferait que la connexion passe avec lui !
Essaye d'autre client que FIREFOX comme Telnet www.xxxxxxxx.com 443 par exemple, tu tape quelques lettres puis Entrée, tu verras si le serveur web renvoie quelque chose (au moins une erreur 400)
Est-ce que le ping www.xxxxxxxx.com fonctionne ?

[CharleLéo]

merci de ta réponse

j'ai effectué des ping sur l'url : ça ne passe pas. J'ai essayé sur www.google.com : idem.

Par contre quand je pingue le site de mon entreprise, là ça passe !!!

Une histoire de proxy ??

A+