Olá,
Tive o mesmo problema (o programa funcionava e de um dia para o outro
pifou!!! sem nenhuma alteração no código) e resolvi alterando o valor do
SSLOptions.Method para sslvSSLv3 (SSLOptions.Method := sslvSSLv3).
Não sei se vai funcionar contigo, mas fica a dica.
Abcs,
Robson Barros
Em 15 de junho de 2010 11:27, Antonio Leandro Furstenberger Favero <
lean...@fave.ro> escreveu:
>
>
> 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 <%27%40gmail.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]
------------------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
delphi-br-ow...@yahoogrupos.com.br
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
delphi-br-unsubscr...@yahoogrupos.com.br
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
