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
