Gente, Deu certo!
Além o method no SSL, precisa no IdPOP.AuthType :=patUserPass;, caso contrario dá erro. Obrigad a todos! 2010/6/15 Robson Barros <[email protected]> > 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 < > [email protected]> 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 >>>>> > > > > [As partes desta mensagem que não continham texto foram removidas]
