Discussion :

[Sylvain255]

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

[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

[Sylvain255]

ok merci

[ShaiLeTroll]

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

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

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

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.

[Sylvain255]

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

Code :

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

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 :

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

uses urlmon

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

[Sylvain255]

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