Erreur : (EIdOSSLCouldNotLoadSSLLibrary)

Signaler
Messages postés
39
Date d'inscription
jeudi 14 février 2019
Statut
Membre
Dernière intervention
5 avril 2021
-
Bonjour à tous;

J'ai essayé de refaire le tuto au lien suivant:
https://theroadtodelphi.com/2010/08/11/using-google-maps-static-maps-without-twebbrowser/

Mais, j'ai un un problème de chargement de Dll.
llibeay32.dll & ssleay.dll , les deux fichiers se trouvent dans le répertoire de l'exe.

Voici mon code avec l'erreur sélectionnée:
procedure TForm1.GetMapImage;
const
Url='https://www.google.fr/maps/place/New+York,+%C3%89tat+de+New+York,+%C3%89tats-Unis/@40.5623119,-74.2395854,32317m/data=!3m1!1e3!4m5!3m4!1s0x89c24fa5d33f083b:0xc80b8f06e177fe62!8m2!3d40.7127753!4d-74.0059728?hl=fr';

var
  StreamData : TMemoryStream;
  JPEGImage  : TJPEGImage;
  Handle : Thandle;
begin
  EditURL.Text:= Url;
  StreamData := TMemoryStream.Create;
  JPEGImage  := TJPEGImage.Create;
  IdSSLIOHandlerSocketOpenSSL1:= TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvTLSv1;
  Handle:= LoadLibrary('libeay32.dll');
  try
    try
     idhttp1.Get(EditURL.Text, StreamData);
 **    StreamData.Seek(0,soFromBeginning); // <= l'erreur sélectionnée est ici
     ImageMap.Top := 0;
     ImageMap.Left := 0;
     JPEGImage.LoadFromStream(StreamData);
     ImageMap.Picture.Assign(JPEGImage);

    Except On E : Exception Do
     MessageDlg('Exception: '+E.Message,mtError, [mbOK], 0);
    End;
  finally
    StreamData.free;
    JPEGImage.Free;
  end;
end;


J'ai essayé aussi, cette solution:

{$R *.dfm}
{$R llibeay32.dll}
{$R ssleay.dll}

Mais j'ai une erreur d'incompatibilité lors de la compilation.

J'ai essayé plusieurs téléchargement de dll, mais sans succès.

Quelqu'un pourrait-il m'aider ??,
En vous remerciant d'avance,

Cordialement