Indy 10 - Could not load SSL library
16/04/2021
0
Pessoal, já pesquisei no Forum, na Net e não consigo resolver o Problema
Estou usando o Delphi 2009 comk Indy 10.2.5.
Já baixei várias versões da DLL. a ultima foi openssl-1.0.2e-x64_86-win64_LinkLibs.
Porém toda vez que tento rodar, ocorre o erro de "Could not load SSL library".
Copiei as DLL para a pasta do projeto, para a system32, para a pasta do path de dll do Delphi.
O problema ocorre na linha: IdSMTP1.Connect();
Segue o codigo:
IdSocketSSL1.SSLOptions.Method := sslvTLSv1;
// IdSocketSSL1.SSLOptions.Mode := sslmClient;
IdSocketSSL1.SSLOptions.Mode := sslmUnassigned ;
with IdSMTP1 do
begin
AuthType := satDefault;
Host := 'smtp.gmail.com';
IOHandler := IdSocketSSL1;
Password := 'xxxx';
Port := 587;
Username := 'xxxxxxx@gmail.com';
UseTLS := utUseExplicitTLS;
end;
with IdMessage1 do begin
Body.Add('teste de Envio de Mensagem');
From.Address := 'xxxxxxo@gmail.com';
From.Name := 'meu nome';
Recipients.EMailAddresses := 'o email do cliente';
Subject := 'Aviso de Débito';
end;
try
IdSMTP1.Connect();
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
except
ShowMessage('Falha no envio!');
exit;
end;
Estou usando o Delphi 2009 comk Indy 10.2.5.
Já baixei várias versões da DLL. a ultima foi openssl-1.0.2e-x64_86-win64_LinkLibs.
Porém toda vez que tento rodar, ocorre o erro de "Could not load SSL library".
Copiei as DLL para a pasta do projeto, para a system32, para a pasta do path de dll do Delphi.
O problema ocorre na linha: IdSMTP1.Connect();
Segue o codigo:
IdSocketSSL1.SSLOptions.Method := sslvTLSv1;
// IdSocketSSL1.SSLOptions.Mode := sslmClient;
IdSocketSSL1.SSLOptions.Mode := sslmUnassigned ;
with IdSMTP1 do
begin
AuthType := satDefault;
Host := 'smtp.gmail.com';
IOHandler := IdSocketSSL1;
Password := 'xxxx';
Port := 587;
Username := 'xxxxxxx@gmail.com';
UseTLS := utUseExplicitTLS;
end;
with IdMessage1 do begin
Body.Add('teste de Envio de Mensagem');
From.Address := 'xxxxxxo@gmail.com';
From.Name := 'meu nome';
Recipients.EMailAddresses := 'o email do cliente';
Subject := 'Aviso de Débito';
end;
try
IdSMTP1.Connect();
IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
except
ShowMessage('Falha no envio!');
exit;
end;
Joaquim Quintella
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)