Smtp Indy

[X-JABS]

hola a todos, tengo una duda con el componente idSMTP de las indy que viene en Delphi6, el problema mas que nada es con un progressbar.. por que deseo que el usuario tenga a la vista graficamente el envio del mail con los archivos adjuntos.. ya probe los enventos onWORK, y OnBeginWork, pero no doy aun con nada, les agredesco desde ahora la información que me proporcionen .. nos vemos...

[jachguate]

Pues vas por buen camino...

OnWorkBegin:

Empezado por Indy Help

OnWorkBegin is an event of type TWorkBeginEvent as implemented in TIdComponent. OnWorkBegin is used in conjunction with BeginWork to notify Indy components and classes when buffered read or write operations are initiated. OnWorkBegin is generally used to control the update of progress indicators or GUI components.

AWorkMode indicates the operation performed and the notification sent to OnWorkBegin. AWorkMode can contain one of the following values:

wmRead - The component is reading data from the peer.
wmWrite - The component is sending data to the peer.


AWorkCountMax indicates the maximum number of bytes expected for the operation sent to OnWorkBegin, or 0 when the number of bytes not known.

OnWork:

Empezado por Indy Help

OnWork is the event handler for the event TWorkEvent. OnWork is used in conjunction with DoWork to notify Indy components and classes when buffered read or write operations are invoked. OnWork is generally used to control the update of progress indicators or GUI components.

AWorkMode indicates the operation performed and the notification sent to OnWork. AWorkMode can be contain one of the following values:

wmRead - The component is reading data from the peer.
wmWrite - The component is sending data to the peer.


AWorkCount indicates the number of bytes affected by the operation sent to OnWork

OnWorkEnd:

Empezado por Indy Help

OnWorkEnd is an event of type TWorkEndEvent as implemented in TIdComponent. OnWorkEnd is used in conjunction with EndWork to notify Indy components and classes when buffered read or write operations are concluded.

AWorkMode indicates the operation performed and the notification sent to OnWork. AWorkMode can contain one of the following values:

wmRead - The component is reading data from the peer.
wmWrite - The component is sending data to the peer.


AWorkCount contains the number of bytes affected by the operation.

Hasta luego.

[DarkByte]

Este es el código de un mailer anónimo que estube haciendo hace tiempo, cuando me pregunté cómo funcionarían estos:

         SMTP1.UserID := PalabraAleatoria (6);
         Estado1.Caption := 'Conectando...';
            try SMTP1.Connect Except
                ShowMessage ('Error al conectar con el servidor SMTP');
            end;
         Estado1.Caption := 'Enviando datos...';
         Progreso1.Position := 30;
         SMTP1.PostMessage.FromAddress := PalabraAleatoria (7)+'@'+ PalabraAleatoria (5)+'.'+PalabraAleatoria (3);
         SMTP1.PostMessage.FromName := PalabraAleatoria (8);
         SMTP1.PostMessage.ToAddress.Text := ePara.Text;
         SMTP1.PostMessage.Body.Text := eMensaje.Text;
         SMTP1.PostMessage.Subject := eAsunto.Text;
         Estado1.Caption := 'Enviando correo...';
         Progreso1.Position := 70;
         SMTP1.SendMail;
         Progreso1.Position := 100;
         Estado1.Caption := 'Desconectando...';
         SMTP1.Disconnect;

Como siempre, confío en mis compañeros de clubdelphi para que me corrijan

[jachguate]

Evidentemente este trozo de código no tiene nada que ver con la pregunta original, pues simplemente "asume" los porcentajes de avance del proceso de enviar un email... sin archivos adjuntos...

Hasta luego.

[DarkByte]

Okz, lo siento. En caso de los archivos adjuntos puedes poner otra barra de progreso en la que Max := total de bytes del adjunto y Position := los bytes que lleva

[X-JABS]

Hola Foro, pues he investigado lo siguiente pero con el componente de FTP:

procedure TMainForm.IdFTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCountMax: Integer);
begin
if AWorkCountMax > 0 then
ProgressBar1.Max := AWorkCountMax
else
ProgressBar1.Max := BytesToTransfer;
End;

procedure TMainForm.IdFTP1Work(Sender: TObject; AWorkMode: TWorkMode;
const AWorkCount: Integer);
Begin
ProgressBar1.Position := AWorkCount;
End;

Cuando la Variable BytesToTransfer anteriormente lo toma de

BytesToTransfer := IdFTP1.Size(Name);

Cuando ese dato en SMTP, no se de donde tomarlo ya que no tiene la misma propiedad

[DarkByte]

Si la ruta del archivo adjunto está en un edit, puedes usar el siguiente truco de trucomanía:

procedure TForm1.Button1Click(Sender: TObject);
  function cuantosbytes(archivo: string): string;
  var 
    FHandle: integer;
  begin 
    FHandle := FileOpen(archivo, 0);
    try
      Result := floattostr(getfilesize(FHandle,nil));
    finally
      FileClose(FHandle);
    end; 
  end; 
var
bytestotales:integer;
begin 
  bytestotales:=strtoint(cuantosbytes(eDireccionAdjunto.text));
end;

Siendo eDireccionAdjunto el Edit donde está escrita la dirección. No se si el código funiconará (lo he hecho sobre la marcha), pero si no funciona, vete al truco 515 de trucomanía

[jachguate]

Hay que tener en cuenta que el tamaño del mail a enviar no es solamente el tamaño del archivo adjunto, que si es binario estará codificado con algún algoritmo, y que además contendrá cabeceras, body, etc.

Creo que al final, podes simplemente sumar las longitudes de las siguientes propiedades del objeto idMessage que estas enviando (conste que no lo he probado, y el valor seguramente será un aproximado...)

From.Address
Recipients
CCList
BccList
Headers,
Body, (si tiene varias líneas, tenes que sumar los bytes que representa la secuencia crlf)
Los attachments, ya codificados (mas unos 60 bytes por attachment de boundaries)
Unos 30 bytes de comandos de control

En fin... creo que al usuario debiera bastarle con ver un mensaje que diga... x bytes escritos, pero si queres darte a la tarea de hacerlo, podes darte una mejor idea trazando el método Send del TidSMTP.

Hasta luego.