Ver Mensaje Individual
  #1  
Antiguo 11-01-2010
mjjj mjjj is offline
Miembro
 
Registrado: mar 2007
Posts: 652
Reputación: 18
mjjj Va por buen camino
Timeout de TIdsmtp

Hola gente del foro, una preguntita.

Tengo una aplicación que envía correo, esta funciona bien, pero en ciertas oportunidas se queda pegada.

Quisiera poder configurar el timeout del envío de un correo, cosa que al cabo de cierto tiempo lo detecte y pueda realizar alguna acción.

Les dejo el codigo que utilizo.

Código Delphi [-]
    with smtpSendMail do begin
      Host := Trim(editSMTPServer.Text);
      port := 123;
      username := 'reporte';
      password := '1234';
      ConnectTimeout := 30000;
      Connect;
      try
        Send(mesgMessage);
      finally Disconnect; end;
    end;

Revisando el componente encontre la propiedad ConnectTimeout (codigo en rojo), le he asignado 30000 mseg.

El problema es que a pesar de esto, no he podido detectarlo y se queda pegada la aplicación.

Espero me puedan ayudar a resolver esto.

Saludos
Responder Con Cita