[delphi-br] Delphi parou de funcionar com Gmail

Tue, 15 Jun 2010 08:03:08 -0700 

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]

Responder a