Foros Club Delphi - Pasar contenido fichero a un campo memo

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Pasar contenido fichero a un campo memo (https://www.clubdelphi.com/foros/showthread.php?t=19283)

Pasar contenido fichero a un campo memo

Trabajando con Delphi6 y QuickReport 3, podrías decirme como hago para pasar el contenido de un fichero del correo electrónico guardado en un directorio con la extensión *.msg a un campo memo.

La ruta del fichero a leer, está guardado en un campo llamado docword1.text por ejemplo: docword1.text = d:\copia_correos\prueba_correo.msg

Lo que quiero es ver el contenido del fichero prueba_corre.msg y no el nombre del fichero, que es lo que me sale con está instrucción.

Gracias a todos de antemano, y un saludo

Jose Manuel García

Código:

   

Si utilizo esten ejemplo, leo el nombre del fichero, y yo quiero leer el contenido del fichero :



procedure TQR_Carpeta.QRBand1BeforePrint(Sender: TQRCustomBand;

  var PrintBand: Boolean);

begin



  QRExprMemo_email.lines.add(docword1.text);



end;

Has probado con esta otra:

QRExprMemo_email.lines.loadfromfile(docword1.text);

ánimos

he hecho la prueba y no me funciona ya que traduce el fichero por signos ilegibles, tal vez por tratarse de un fichero con extensión *.msg

Lo he arreglado, pasando el fichero a una variable, y desde allí al campo memo, es casi lo mismo que tu me dices, pero con un paso más.

Código:

 fichero_a_leer:='';

 fichero_a_leer:= loadfile(docword1.text);

 QRExprMemo_email.lines.add(fichero_a_leer);

Bueno, seguire intentando mejorar el proceso.

Un saludo, y gracias por responder.
Jose Manuel