Facturas electrónicas [España]

[elguille]

Código Delphi [-]
var
  miarr:arrayofanexofile;
  miarr1:anexofile;

  if edit1.Text<>'' then
  begin
    MIARR1:=anexofile.create;
    miarr1.mime:='application/pdf';
    MIARR1.nombre:=utf8encode(extractfilename(EDIT1.Text));
    MIARR1.anexo:=Encode64(tfile.ReadAllText(edit1.Text),tetUTF8);
    SetLength(miarr, Length(miarr)+1);
    miarr[0]:=miarr1;
    SenderEnviarFactura.anexos  := miarr;
  end;

A falta de hacer una prueba real este es el codigo correcto para añadir un pdf de imagen de la factura.