Récupérer le JSON d'un lien Web

Version imprimable

07/06/2022, 16h45
Sylvain255

Récupérer le JSON d'un lien Web

Bonjour j'ai un lien web d'un JSON en ligne et je souhaiterais le récupérer pour le traiter en Delphi.
Seulement j'ai vu que dans ma version de Delphi (la 10.3) le composant TWebBrowser n'existe plus (est-ce à cause de la fin d'IE ?)
Merci de m'aider
Bien cordialement
07/06/2022, 17h59
pprem

Hello

Le TWebBrowser ne servirait qu'à faire l'affichage du fichier depuis son URL.

Si tu veux rapatrier le contenu utilise soit les composants TRESTxxx, soit directement un THTTPClient.get()

exemple sur https://github.com/DeveloppeurPascal...ypes/Unit1.pas
07/06/2022, 18h48
Sylvain255

ok merci

On peut se passer de composant, les API Windows le permettent nativement, on profite du HTTPS à jour de Windows d'ailleurs (contrairement à Indy)

Code:

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
32
33
34
35
36
37
38
39
40
41
procedure GetInternetFile(const AServerName: string; const AURL: string; AStream: TStream);
const
  BufferSize = 1024;
  accept: packed array[0..1] of LPWSTR = (PChar('text/*'), nil); // PCTSTR rgpszAcceptTypes[] = {_T(“text/*”), NULL};
var
  hSession, hHTTP, hReq : HINTERNET;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  sAppName: string;
begin
  AStream.Size := 0;
  sAppName := ExtractFileName(Application.ExeName);
 
  hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    // pour HTTPS : INTERNET_DEFAULT_HTTPS_PORT
    hHTTP := InternetConnect(hSession, PChar(AServerName), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 1);
    try
      hReq := HttpOpenRequest(hHTTP, PChar('GET'), PChar(AURL), nil, nil, @accept, 0, 1);
      try
        if HttpSendRequest(hReq, nil, 0, nil, 0) then
        begin
          BufferLen := 0;
          repeat
            if InternetReadFile(hReq, @Buffer, BufferSize, BufferLen) then
              AStream.WriteBuffer(Buffer, BufferLen);
 
          until BufferLen = 0;
        end
        else
          raise Exception.Create('HttpOpenRequest failed. ' + SysErrorMessage(GetLastError));
      finally
        InternetCloseHandle(hReq);
      end;
    finally
      InternetCloseHandle(hHTTP);
    end;
  finally
    InternetCloseHandle(hSession);
  end;
end;

exemple si un site des cours des métaux

Code:

1
2
3
4
    if IndyMode then
      idhttpt.Get('https://www.cookson-clal.com/cours/cours.jsp?table=fins&datearch='+DateStr,Mystreamt)
    else
      GetInternetFile('www.cookson-clal.com', '/cours/cours.jsp?table=fins&datearch='+FormatDateTime('dd/mm/yyyy', MaDate), Mystreamt);

Ensuite est-ce un JSON en ligne ou un service REST, ce n'est pas forcément la même méthode d'accès, il peut y avoir un Token type OAuth2.0 pour un WebService REST, et l'utilisation du CRUD où chaque verbe HTTP a un sens fonctionnel.

en cherchant sur Internet j'ai trouvé plus simple :

Code:

1
2
3
4
5
6
7
8
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
  try
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except
    Result := False;
  end;
end;

s'utilise avec

Code:

uses urlmon

08/06/2022, 11h32
pprem

C'est vrai que j'aurais pu t'envoyer sur https://github.com/DeveloppeurPascal...u_download.pas qui fait le job et a l'avantage d'être multiplateformes, contrairement à une solution qui utilise des commandes de l'API de Windows et ne fonctionnera donc que sous Windows

A noter qu'il y a un nouveau type de stream à partir de la 11.1 Alexandria de Delphi qui fait le téléchargement de fichiers depuis une URL.
08/06/2022, 13h20
Sylvain255

merci mais Windows me suffit, j'ai réussi