8 respuestas en este tema

[genriquez]

Hola amigos.

 

He estado tratando de hacer algo que parece sencillo,  requiero leer los correos nuevos de una cuenta de gmail y extraer de esos correos cierta información.   esto ya lo hice hace algún tiempo con indy 9 y me funcionó bien,  ahora con las nuevas versiones de Delphi no encuentro cual puede ser el error. 

 

Si alguien puede ayudarme a solucionar el error o tiene alguna forma mejor de hacer la conexión con google para leer los correos se los agradecería.

 

El Error que presenta es : SSL3_GET_RECORD:worng version number.

 

Este es el código que he tenido desde hace mucho tiempo,  Gracias.

delphi

procedure GetGmailBodyTextParts(const UserName, Password: string; BodyTexts: TStrings);
var
  S: string;
  MsgIndex: Integer;
  MsgObject: TIdMessage;
  PartIndex: Integer;
  IMAPClient: TIdIMAP4;
  OpenSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  BodyTexts.Clear;
  IMAPClient := TIdIMAP4.Create(nil);
  try
    OpenSSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    try
      OpenSSLHandler.SSLOptions.Method := sslvSSLv3;
      OpenSSLHandler.SSLOptions.SSLVersions := [sslvSSLv3];
      OpenSSLHandler.SSLOptions.VerifyDepth := 0;
      OpenSSLHandler.SSLOptions.VerifyMode := [];
 
      //OpenSSLHandler.SSLOptions.Mode:=sslmUnassigned;
      //OpenSSLHandler.ConnectTimeout:=3500; //
      //OpenSSLHandler.PassThrough:=true;
 
      IMAPClient.IOHandler := OpenSSLHandler;
      IMAPClient.Host := 'imap.gmail.com';
      IMAPClient.Port := 993;
      IMAPClient.UseTLS := utUseImplicitTLS;
      IMAPClient.Username := UserName;
      IMAPClient.Password := Password;
 
      //OpenSSLHandler.Open; //
      //OpenSSLHandler.StartSSL;
 
 
      IMAPClient.Connect;
      try
        if IMAPClient.SelectMailBox('INBOX') then
        begin
          BodyTexts.BeginUpdate;
          try
            for MsgIndex := 1 to IMAPClient.MailBox.TotalMsgs do
            begin
              MsgObject := TIdMessage.Create(nil);
              try
                S := '';
                IMAPClient.Retrieve(MsgIndex, MsgObject);
                MsgObject.MessageParts.CountParts;
                if MsgObject.MessageParts.TextPartCount > 0 then
                begin
                  for PartIndex := 0 to MsgObject.MessageParts.Count - 1 do
                    if MsgObject.MessageParts[PartIndex] is TIdText then
                      S := S + TIdText(MsgObject.MessageParts[PartIndex]).Body.Text;
                  BodyTexts.Add(S);
                end
                else
                  BodyTexts.Add(MsgObject.Body.Text);
              finally
                MsgObject.Free;
              end;
            end;
          finally
            BodyTexts.EndUpdate;
          end;
        end;
      finally
        IMAPClient.Disconnect;
      end;
    finally
      OpenSSLHandler.Free;
    end;
  finally
    IMAPClient.Free;
  end;
end;

[enecumene]

Debería de funcionarte, ¿Has probado utilizando TLS1.2 con ECDSA?, creo que GMall se ha estado moviendo por ese lado, toma en cuenta deshabilitar la compresión.

 

Saludos.

[genriquez]

gracias por tu respuesta,  investigaré por el lado de TLS1.2 con ECDSA,  les agradecería si tienen alguna rutina que les funcione.  

 

Saludos.

[egostar]

Hola amigo Gustavo

 

Me sucedió algo similar que solucioné configurando el correo en el Tab Reenvío y correoPOP/IMAP de mi cuenta de Gmail.

 

En mi caso sólo uso IMAP como lo muestro en la imagen adjunta.

 

Saludos

Archivos adjuntos

•  GMail_Config.png   137,8KB   4 descargas

[genriquez]

Hola amigo Gustavo

 

Me sucedió algo similar que solucioné configurando el correo en el Tab Reenvío y correoPOP/IMAP de mi cuenta de Gmail.

 

En mi caso sólo uso IMAP como lo muestro en la imagen adjunta.

 

Saludos

 

Ya revisé la configuración de mi cuenta y está igual que la tuya.  con el IMAP activado.  

[egostar]

Ya revisé la configuración de mi cuenta y está igual que la tuya.  con el IMAP activado.  

 

Caray!!!

 

Hace algunas semanas hice un programa que recibe los correos desde una cuenta de GMail y funcionó correctamente, lamentablemente lo tengo en mi casa, por la tarde/noche que llegue veo que hice para que funcionara.

 

Saludos

[egostar]

Hola
 
Pues ya revisé cual es el problema y veo un par de diferencias.
 
Éste es el código que yo uso.

 

delphi

POP.Host := 'imap.gmail.com';
POP.Port := 995; //Diferencia
POP.Username := 'usuario';
POP.Password := 'contraseña';
 
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.Port := POP.Port;
SSL.SSLOptions.Method := sslvSSLv23; //Diferencia
 
POP.IOHandler := SSL;
POP.UseTLS := utUseImplicitTLS;
POP.Connect;

Saludos

 

Edito: Está desarrollado con Delphi XE2.

[Gaston]

Hace unos años Gmail implementó una opción que por default está desactivada, que es la opción de activar aplicaciones menos seguras. Si esta opción no está activada será imposible acceder al correo.

 

 

 

Para dar con la opción: https://www.google.c.../lesssecureapps

 

Saludos.

 

[genriquez]

Hola
 
Pues ya revisé cual es el problema y veo un par de diferencias.
 
Éste es el código que yo uso.

 

delphi

POP.Host := 'imap.gmail.com';
POP.Port := 995; //Diferencia
POP.Username := 'usuario';
POP.Password := 'contraseña';
 
SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
SSL.Port := POP.Port;
SSL.SSLOptions.Method := sslvSSLv23; //Diferencia
 
POP.IOHandler := SSL;
POP.UseTLS := utUseImplicitTLS;
POP.Connect;

Saludos

 

Edito: Está desarrollado con Delphi XE2.

 

 

Gracias Ego y Gastón, efectivamente con POP3 es más sencillo y funcionó bien, pero como dice Gastón, fué necesario activar lo de aplicaciones menos seguras.   con IMAP aún activando la opción de google de menos segura no funciona todavía.  pero para efectos prácticos POP3 es suficiente,  me queda la duda de como hacerlo con IMAP.  pero ya será en otra oportunidad, ya que el software hay que entregarlo y no puedo gastar más tiempo en pruebas.

 

Saludos y muchas gracias por sus respuestas.