Boa noite Antonio
tenta trocar
SSLOptions.Method := sslvSSLv2;
por
SSLOptions.Method := sslvSSLv23;
tive um problema parecido com isso um tempo atras e resolveu
espero ter ajudado
----- Original Message -----
From: Antonio Leandro Furstenberger Favero
To: delphi-br
Sent: Tuesday, June 15, 2010 11:27 AM
Subject: [delphi-br] Delphi parou de funcionar com Gmail
Olá Pessoal,
Souberam que alguma mudança no Gmail? Simplesmente uma função que funcionava
parou de funcionar.
Usava a OpenSSL 0.9.8a atualizei ontem para a 1.0 32 bits.
Testamos em Windows XP e Windows 7, 32 e 64bits.
Segue o fonte básico:
procedure TForm1.Button1Click(Sender: TObject);
var
POP: TidPop3;
MailMessage: TidMessage;
SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
POP := TIdPOP3.Create(nil);
MailMessage := TIdMessage.Create(nil);
SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSLHandler := IdSSLIOHandlerSocketOpenSSL1;
with SSLHandler do
begin
Destination := 'pop.gmail.com:995';
Host := 'pop.gmail.com';
Port := 995 ;
SSLOptions.Method := sslvSSLv2;
SSLOptions.Mode := sslmUnassigned;
SSLOptions.VerifyMode := [];
SSLOptions.VerifyDepth := 0;
end;
with POP do
begin
AuthType :=patAPOP;
AutoLogin := True;
Host := 'pop.gmail.com';
Username := '@gmail.com';
POP.IOHandler := SSLHandler;
UseTLS := utUseImplicitTLS;
Password := '****';
Port := 995;
end;
try
POP.Connect();
except on E: Exception do
raise Exception.Create('Error Message'+ e.Message);
end;
end;
Obrigado
Leandro Favero
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
