realbasic-nug.de
[Top] [All Lists]

Re: styledText in RealSQLDatenbank

To: REALbasic NUG German <realbasic-nug dot de at lists dot realsoftware dot com>
Subject: Re: styledText in RealSQLDatenbank
From: Stefan Sicurella <sicurella at onlymac dot de>
Date: Thu, 18 Oct 2007 11:48:45 +0200
Delivered-to: listarchive at realsoftware dot com
Delivered-to: realbasic-nug dot de at lists dot realsoftware dot com
References: <1i61i5g dot 4oi1kt154wm6cM%support at monkeybreadsoftware dot de> <CFBE3566-3C5D-48E6-8F32-6D30CBA3366B at onlymac dot de> <076d01c810a4$f6731fc0$0164a8c0 at LaptopTB> <40839FE9-C674-45DE-9714-6ACD3343E4DD at onlymac dot de> <1IiHoo-1kkqG00 at fwd28 dot aul dot t-online dot de>
vielen Dank, das geht auch hier

nur wollte ich es lieber als RTF machen wegen Cross-Plattform. Aber ich teste es gleich mal unter Win, wenn es da geht , also wenn alle styles erhalten bleiben, brauche ich rtf nicht.

Das Problem mit rtf war, dass ich es nicht mehr in das styled Editfield zurück bekommen hatte sondern alles nur als eine Textzeile

Gruß

Stefan
......Hab jetzt den Thread nicht ganz verfolgt, aber ich lege die Textstysledaten in der DB folgendermaßen ab, und es geht.

textstyle Feld in der DB als binary anlegen

dim a, b as string
a =  EncodeBase64(self.TextFeld.text,0)
b =  EncodeBase64(self.TextFeld.TextStyleData,0)

Diese Daten in die DB ...

Bei Rausholen dann wieder DecodeBase64, in ein DataControl z.B. so:

a=DecodeBase64(DataControl1.Recordset.IdxField(8).StringValue
b=DecodeBase64(DataControl1.Recordset.idxfield(9).StringValue
TextFeld.SetTextAndStyle a,b

Vielleicht kannst Du was damit anfangen.....

Gruß
Achim













<Prev in Thread] Current Thread [Next in Thread>