FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Save richedit to field
Posts: 1195
Joined: Mon Oct 17, 2005 05:41 AM
Save richedit to field
Posted: Sat Jul 27, 2019 09:54 AM
Hi,

I want to edit a text in richedit, and than save it to a database field.
Later I want to be able to edit again, but I cound wake it work.

I get the text with
Code (fw): Select all Collapse
vtext = oRich:SaveAsRTF


Than save it
Code (fw): Select all Collapse
repl tekstlengt with HB_CompressBuflen( Len( vtext ) )
repl tekst      with HB_Compress( vtext )

for users with SQL than I do a replace with "'0x"+STRTOHEX( tekst )


But when I want to read it back with HB_Compress() , the text is empty.

I use this method also for other things, and that is working.
How can I set the text back into the richedit?

I use oRich:LoadRTF( tekst ), but it's not working
Regards,

Marc



FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite
Posts: 1195
Joined: Mon Oct 17, 2005 05:41 AM
Re: Save richedit to field
Posted: Sat Jul 27, 2019 10:52 AM

I solved the problem.
I had to do a hextostr() when reading back the info

Regards,

Marc



FWH32+xHarbour | FWH64+Harbour | BCC | DBF | ADO+MySQL | ADO+MariaDB | ADO+SQLite

Continue the discussion