FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
#2
|
|||
|
|||
Has probado con esta otra:
QRExprMemo_email.lines.loadfromfile(docword1.text); ánimos
__________________
Ánimos. |
#3
|
|||
|
|||
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 |
|
|
|