FiveTech Software tech support forums

oFolder:aDialogs[3]:bInit := {|| oMemo:LoadFromRTFFile( "table.rtf" ) }

@ 10, 3 RICHEDIT5 oMemo OF oFolder:aDialogs[3] PIXEL SIZE 200, 200 READONLY


why do I see the source file and not the rtf file in the richedit5 box?

... generar un fichero rtf siguiendo el ejemplo testtrich.prg

hago esto:

oRich = TRichEdit():Redefine( 4001, { || " " }, oDlg )
oRich:LoadFromRTFFile( cGetFile( "RTF file (*.rtf) | *.rtf" ) )
oRich:SaveToRTFFile( cGetFile( "RTF file (*.rtf) | *.rtf",;
"Please write a filename", "test ...

Lucas,

Por favor haz la siguiente prueba en Harbour y xHarbour con el RTF que te falla:

local cRTF := MemoRead( "tu_rtf.rtf" )

MemoWrit( "harbour.rtf", cRTF )

y para xharbour:

MemoWrit( "xharbour.rtf", cRTF )

y ahora compara a nivel binario (puedes usar UEStudio, o un editor similar) ambos ...

Hola Antonio,

¿Has podido averiguar algo?.

Gracias.

Antonio,

Muchas gracias por tu atención, incluso en fines de semana.

Una vez más, quiero agradecer el excelente soporte de Fivetech. Ojalá las demás compañías del mundo xBase fueran así.

¿Y sabes qué han podido tocar?. Continuamente en Harbour están obsesionados con la pureza del lenguaje C y no ...

Lucas,

Ese método usa MemoRead() de Harbour/xHarbour y puede ser que ahi esté la diferencia

Antonio,

Efectivamente, el bug no está en el código, sino en el archivo rtf.

Prueba a abrir por favor este archivo .rtf:
http://ul.to/rpefaltg

Con Harbour no se abre, con xHarbour sí.

Me estaba volviendo loco con el código.

Lucas,

Tu ejemplo funciona aqui correctamente, probado en Windows 8. Que versión de Harbour usas ? Que versión de Windows ?

Antonio,

El de samples funciona OK.

El mio no funciona. Funcionaba con 11.09. Y funciona con xHarbour y FWHX 12.06.

El único cambio que veo es el redefine.

No lo entiendo.

Te paso el link a ver qué sucede:
http://ul.to/hmb02ph2

El .rc es el mismo que el de samples.


Muchas gracias.

Lucas,

Por favor prueba FWH\samples\TestRich.prg y verifica si te funciona correctamente.

Luego compara el código del ejemplo con tu código. Algo debes haber cambiado.

Antonio,

¿Y por qué mi código, que antes funcionaba, ahora no?.

Por cierto, sí que funciona con xHarbour y FWH 12.06.

Lucas,

Este es el ejemplo FWH\samples\TestRich.prg, construido con FWH 12.06 y Harbour, y pulsando el botón Load RTF y cargando un fichero RTF. Funciona correctamente:

Antonio,

El Bug sigue estando en FW 12.06.

Le doy a load y no carga nada.

Es importante.

Muchas gracias.

Muchas gracias.

Yo tengo la 12.03 ahora mismo instalada.

Esperaré a la 12.06 que Antonio me dijo que está al caer y os cuento a ver.

Sólo por que tengas una prueba más:

Probado en FWH 11.05 y FWH 12.04 y funciona perfectamente.