Problemas con la lectura de correos

[Neftali [Germán.Estévez]]

Hola Caro.
Te puedo comentar del tema de las excepciones, si quieres que pruebe algo de la conexión me puedes enviar un proyecto de prueba, creo que tengo alguna cuenta de GMail por ahí, aunque no la uso normalmente, y lo pruebo gustoso.

En cuanto a las excepciones, lo único que yo cambiaría es que después de hacer el AddLog colocaría un Exit (o un raise), porque sino como ya has capturado la excepción, el programa intentará continuar. Y eso creo que no te interesa.

Es decir; Si falla la conexión en la línea:

Código Delphi [-]
  idPOP3.Connect;

Como ya capturas la excepción correctamente en:

Código Delphi [-]
 except
     On Error: Exception Do
      AddLog('No se ha podido conectar con el servidor POP. Error: ' + Error.message);
    end;

El programa intentará continuar con la siguiente línea; Es decir:

Código Delphi [-]
    //Obtenemos el numero de emails que tenemos
    TotalMails:=idpop3.CheckMessages;

Y supongo que como la conexión ya no se ha hecho bien, volverá a dar error.

Lo que yo haría es salir con un Exit, depues de capturar cada error y añadirlo al log. En este caso no creo que te interese propagar la excepción con raise.

Un saludo.

[ContraVeneno]

Yo además le agregaría el nombre de la clase del error:

Código Delphi [-]
AddLog('Ha ocurrido un error. Error: ' + Error.ClassName+' - 'Error.message);

Esto después te puede servir para no hacer lo mismo cada que pase algo. Algo como:

Código Delphi [-]
Try
 ...
Except
 On E:EDBEngineError do showmessage('erro de DB');
 On E:EDIvByZero do showmessage('divisón por cero');
 On E:EBombaNuclear do showmeesage('Cayó la bomba');
end;

De esta forma podrías tratar cada error de manera especial. Si falló la conexión te sales, si fue alguna otra cosa, podrías hacer otra cosa.

o como recomiendan en la ayuda de delphi:

Código Delphi [-]
try 
  ... 
except 
  on EZeroDivide do HandleZeroDivide; 
  on EOverflow do HandleOverflow; 
  on EMathError do HandleMathError; 
else 
  HandleAllOthers; 
end;

Además, de esta forma podrías poner todo tu código en un solo bloque Try..Except. No tendrías necesidad de poner try..except a cada instrucción.
Si todos los errores son de la misma clase, se deberían poder identificar por número con Error.ErrNum, con lo que también podrías darle un manejo distinto a cada uno.

[*Caro*]

No había visto tu mensaje contraveneno, muchas gracias por responder, aumentare lo del Error.ClassName por ahora, pero tomare en cuenta lo demas que me has explicado para despues.

Saluditos

[*Caro*]

Mil gracias por responder amiguito, estoy de acuerdo con el exit, entonces mi código quedaría así y la execpción que engloba las demas ya no sería necesarío verdad.

Código Delphi [-]
  Lectura := False;
  slCuerpo.Clear;
  //Try Esta ya no es necesario
    //Nos conectamos
    if IdPOP3.Connected then
     IdPOP3.Disconnect;
    Try
     idPOP3.Connect;
    except
     On Error: Exception Do begin
      AddLog('No se ha podido conectar con el servidor POP. Error: ' + Error.message);
      exit;
     begin
    end;
 
    //Obtenemos el numero de emails que tenemos
    TotalMails:=idpop3.CheckMessages;
 
    //Recuperamos todas la cabeceraa del mensaje nuevo
    if TotalMails>0 then  //solo leeremos un email a la vez
     begin
      Try
       idpop3.RetrieveHeader(1,idMessage);
       AddLog('Se ha recibido un email de '+De+' con asunto '+Tema);
      except
       On Error: Exception Do begin
        AddLog('No se ha podido leer el Header del correo. Error: ' + Error.message);
        exit;
       end;
      end;
      De := idMessage.From.Text;
      Tema := idMessage.Subject;
 
      //Recuperamos el contenido
      Try
       idpop3.Retrieve(1, idMessage);
      Except
       On Error: Exception Do begin
        AddLog('No se ha podido leer el correo. Error: ' + Error.message);
        exit;
       end;
      end;
 
      for i:=0 to idMessage.MessageParts.Count - 1 do
      begin
       if (idMessage.MessageParts.Items[i] is TIdText) then
        begin
         slCuerpo.AddStrings(TIdText(idMessage.MessageParts.Items[i]).Body);
         contenido := True;
        end
       else //Si hubiera archivos adjuntos
        if (idMessage.MessageParts.Items[i] is TIdAttachmentFile) then
          begin
            // Nombre del archivo adjunto
            FileAdjunto := TIdAttachmentFile(idMessage.MessageParts.Items[i]).FileName;
            if FileExists(ExtractFilePath(ParamStr(0))+FileAdjunto) then
              DeleteFile(ExtractFilePath(ParamStr(0))+FileAdjunto);
            // Guardamos el archivo adjunto y lo añadimos a la lista de adjuntos
            TIdAttachmentFile( idMessage.MessageParts.Items[i] ).SaveToFile(ExtractFilePath(ParamStr(0))+FileAdjunto );
            slAdjuntos.Add(FileAdjunto);
          end
      end;//for

      idMessage.Clear;
     end; //if
     Lectura := True;
  {except         //Esto ya no es necesario
   On Error: Exception Do
      AddLog('Ha ocurrido un error. Error: ' + Error.message);
  end;}

Saluditos