Discussion :

[Urbinou]

Bonjour à tous,

J'ai cette erreur lorsque je tente de lire le contenu d'une page web. J'utilise Delphi X Seattle sous Win7 pro 64 bits et la librairie Indy 10.6.2.5298.
J'ai bien sûr préalablement écumé google pour trouver une solution, en vain... Selon WireShark, il semblerait que mon programme s'obstine à utilise TLS v1...
J'ai bien téléchargé openssl à cette adresse https://indy.fulgan.com/SSL/openssl-...4_86-win64.zip, et enregistré les 2 dll dans le répertoire de l'application.

Via l'inspecteur d'objets, SslIOHandler.Version est à [sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2], et positionne automatiquement Method à sslvSSLv23. J'ai également tenté en ne sélectionnant que v1_2, sans plus de succès.

Ai-je loupé quelque chose ? (oui sans doute : D )

Je joins à toutes fins utiles un zip de mon petit projet test.

D'avance merci pour vos bonnes idées !

[ShaiLeTroll]

J'ai eu la même difficulté que toi sur Indy, je l'ai abandonné au profit de l'API Windows
J'ai tenté de forcer la version, rien à faire peut importe la combinaison de ExplicitTLS et un tas d'option
Comme on a en plus ajouté un Proxy, la méthode API utilise la conf Windows et ça évite les prises de tête

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

[Urbinou]

Super, ta solution fonctionne parfaitement, merci beaucoup

Mon souci est résolu, mais je ne mets pas le topic en "résolu" de suite, au cas où quelqu'un viendrait avec une solution orientée Indy.

[Paul TOTH]

c'est probablement les DLL OpenSSL qui ne sont pas à jour

[beletot]

Bonjour à tous,

Je me permets de rouvrir ce post plutôt que d'en recréer un autre.

Je suis sous delphi rio.
J'avais un code qui fonctionnait très bien. J'envoie un fichier json sur un site web avec un url en https. (certificat venant de https://letsencrypt.org/fr/)

Code :

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

1
2
3
4
5
6
HTTP := TIdHTTP.Create(nil);
curlSsl := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
HTTP.IOHandler := curlSsl; // needed for https
HTTP.Request.ContentType := 'application/x-www-form-urlencoded';
jsonString.Add('json=' + jsonArray.toString);
return := HTTP.Post(url, jsonString);

J'ai plaçé les deux dll dans le même dossier que le exe
libeay32.dll
ssleay32.dll

IdSSLOpenSSL.OpenSSLVersion -> OpenSSL 1.0.2u 20 Dec 2019
J'ai bien pris la version 32bits : openssl-1.0.2u-i386-win32

Et je reste avec le message : Error connecting with SSL. error:1409442E:SSL routines:ssl3_read_bytes:tlsv1 alert protocol version

Es-ce que cela veut dire que delphi veut utiliser tlsv1?

J'ai déjà passé quelques heures à lire de la doc mais sans succès.

Auriez-vous une autre piste que mettre à jour les dll ?

Bertrand

[beletot]

Hello,

A force de tester des choses, j'y suis arrivé.
J'ai retiré le composant graphique et uniquement via le code

Code :

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

1
2
3
curlSsl := TIdSSLIOHandlerSocketOpenSSL.Create(Self) ;
curlSsl.SSLOptions.Method := sslvTLSv1_2;
curlSsl.SSLOptions.SSLVersions := [sslvTLSv1_2];

C'est passé sans soucis.

Bonne journée

Bertrand