Eliminar marcas de formato rtf

[Casimiro Notevi]

Pues entonces, sólo puedo citar las palabras de Neftalí:

Empezado por Neftali

Algo tienes mal, porque yo lo cargo de esa manera y me lo carga perfectamente en ejecución.

¿Puedes poner el fichero que lo probemos?

[esocrates]

Empezado por Casimiro Notevi

Pues entonces, sólo puedo citar las palabras de Neftalí:




¿Puedes poner el fichero que lo probemos?

Hasta ahora consigo cargar archivos rtf escritos en cualquier editor menos un archivo que fue escrito en Microsoft Word 2003 guardado como doc y luego convertido desde Word a rtf que se carga pero muestra los caracteres de rtf que muestro en el primer post.
No puedo adjuntar el archivo porque pesa 0.75 MB
Un saludo y gracias

[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.