Eliminar marcas de formato rtf

[Neftali [Germán.Estévez]]

Está claro que lo que está funcionando mal es la conversión que estás haciendo o tu versión de Office.
Yo he probado (te adjunto el proyecto) con un documento generado con el WordPad, otro generado con OpenOffice y otro generado con MS Word y los tres los abre sin problemas.

[esocrates]

Empezado por Neftali

Está claro que lo que está funcionando mal es la conversión que estás haciendo o tu versión de Office.
Yo he probado (te adjunto el proyecto) con un documento generado con el WordPad, otro generado con OpenOffice y otro generado con MS Word y los tres los abre sin problemas.

Te adjunto un archivo problema
Muchas gracia spor tu ayuda

[esocrates]

Empezado por esocrates

Te adjunto un archivo problema
Muchas gracia spor tu ayuda

El programa con el archivo problema
Delphi 7

[Neftali [Germán.Estévez]]

Vale!
Está claro que en este caso el problema es el tamaño.

El fichero tiene formato correcto, pero parece que es demasiado grande para el componente estandard de Delphi. He realizado la prueba eliminando unas cuantas páginas y se carga correctamente.

Habría que investigar a partir de ahí.

[esocrates]

Empezado por Neftali

Vale!
Está claro que en este caso el problema es el tamaño.

El fichero tiene formato correcto, pero parece que es demasiado grande para el componente estandard de Delphi. He realizado la prueba eliminando unas cuantas páginas y se carga correctamente.

Habría que investigar a partir de ahí.

Hola Neftali:
Ahora tengo claro el problema y su solución.
Muchas gracias por tu ayuda y tiempo
Hasta pronto
Enrique

[Neftali [Germán.Estévez]]

En ese caso (del error) parece que se solventa aumentando el límite por defecto para el componente.

Prueba añadiendo esta línea antes de la carga:

Código Delphi [-]
   Richedit1.perform(EM_EXLIMITTEXT,0,$0FFFFFFF); 
   RichEdit1.Lines.LoadFromFile('.\audio.rtf');

Deberás añadir la unit Richedit al USES.

Un saludo.

[esocrates]

Empezado por Neftali

En ese caso (del error) parece que se solventa aumentando el límite por defecto para el componente.

Prueba añadiendo esta línea antes de la carga:

Código Delphi [-]
   Richedit1.perform(EM_EXLIMITTEXT,0,$0FFFFFFF); 
   RichEdit1.Lines.LoadFromFile('.\audio.rtf');

Deberás añadir la unit Richedit al USES.

Un saludo.

¡¡Perfecto!! He cargado un archivo de 2 MB sin problemas y sin las marcas de rtf que no quería ver.
Ahora el problema está solucionado.
Quedo muy agradecido por tu ayuda y enseñanza Neftali
Saludos y hasta pronto