Cita:
Empezado por 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. |
muchas gracias por la info, el que primero lo pruebe que lo confirme.
Saludos