Smtp Indy

[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.