Smtp Indy
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...
|
Pues vas por buen camino...
OnWorkBegin: Cita:
Cita:
Cita:
;) |
Este es el código de un mailer anónimo que estube haciendo hace tiempo, cuando me pregunté cómo funcionarían estos:
Código:
SMTP1.UserID := PalabraAleatoria (6); |
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. ;) |
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
|
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 |
Si la ruta del archivo adjunto está en un edit, puedes usar el siguiente truco de trucomanía:
Código:
procedure TForm1.Button1Click(Sender: TObject); |
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. ;) |
La franja horaria es GMT +2. Ahora son las 02:29:35. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi