Discussion :

[retwas]

Bonjour,

J'essaye de récupérer le contenu d'une page web (le flux json d'une api rest) et je galère.

Avant tout :

• l'adresse du site est en https (Jira, site d'entreprise)
• le sso est mis en place, à la première connexion il faut choisir son entité avant d'accéder au site

J'ai essayé tout simplement avec un TIdHTTP (après avoir récupéré sur le site indy.fulgan les dll ssl)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TFMain.Button1Click(Sender: TObject);
var
  lHTTP: TIdHTTP;
  res: string;
begin
  lHTTP := TIdHTTP.Create;
  try
    res := lHTTP.Get(edApi.Text);
    Memo1.Lines.Add(res);
  finally
    lHTTP.Free;
  end;
end;

Résultat : Erreur HTTP 1.1 400

J'ai essayé avec un Cookie mais même erreur ..

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
26
27
28
29
30
31
procedure TFMain.Button3Click(Sender: TObject);
var
   HTTP : TIDHTTP;
   Cookie : TidCookieManager;
   res: string;
begin
   try
      HTTP := TIDHTTP.Create(nil);
      Cookie := TidCookieManager.Create(nil);
 
      HTTP.Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1';
      HTTP.Request.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
      HTTP.Request.AcceptLanguage := 'en-us;q=0.7,en;q=0.3';
      HTTP.Request.AcceptCharSet := 'windows-1251,utf-8;q=0.7,*;q=0.7';
      HTTP.Request.Pragma := 'no-cache';
      HTTP.Request.CacheControl := 'no-cache';
      HTTP.Request.RawHeaders.Add('X-Requested-With: XMLHttpRequest');
      HTTP.AllowCookies := True;
      HTTP.HandleRedirects := True;
      HTTP.ProtocolVersion := pv1_1;
      HTTP.Request.Connection := 'Keep-Alive';
      HTTP.CookieManager  := Cookie;
 
      res := http.Get(edApi.Text);
      Memo1.Lines.Clear;
      Memo1.Lines.Add(res);
   finally
      FreeAndNil(Cookie);
      FreeAndNil(HTTP);
   end;
end;

Un outil d'extraction écrit en JAVA existe déjà par contre il faut ouvrir un premier coup le site avec Google Chrome car ensuite il utilise le fichier .cookies.db

Même si je dois faire la même chose sur le miens c'est pas top mais c'est pas grave si cela fonctionne

Avez-vous une idée ?

Merci

[SergioMaster]

Bonjour,

ce qui m'interpelle c'est :

(le flux json d'une api rest)

tout dépend de la version de Delphi, mais avec Rio ou Tokyo, seules versions avec lequel j'ai fait ce genre de chose utiliser les composants RESTClient
si tu as une de ces versions alors RestDebuger est à ta disposition (outils/débogueur rest) . Tu testes l'adresse, tu y ajoutes au besoin l'identification et même la racine de tes données.
Une option de copie (bouton copier les composants) te permet ensuite de récupérer les composants nécessaires que tu as juste à copier dans un datamodule

un ajout d'une table mémoire Firedac et le tour est joué (un jeu d'enfant)

[retwas]

Ah oui

Je suis en 10.2 je test et je te tiens au courant

Merci !