Database and Richedit Component

[manhu]

Hi

I searched quite a lot for a Richedit Component where i can access the Database directly.
I found lzRichEdit, RichMemo and also KMemo but with no Database Access.
I now that i can load the Memofield with a Stream but since i use quite a lot of Memofield's i taught i would be more confined to do it "directly".
I did found a RichMemo "clone" from CodeTyphoon pl_RichMemo but it seams like it does not work.

Thanks for any Suggestions.
Manfred

[exdatis]

TDbMemo?

[rvk]

TDbMemo?

TDBMemo doesn't do richedit (rtf).

@manhu, do you need richedit or will just text (memo) do?

[manhu]

I should have richedit

[rvk]

I'm also very surprised there isn't a DB aware RichMemo component yet for Lazarus in the default installation.

You could try TDBRichMemo from here:
http://forum.lazarus.freepascal.org/index.php/topic,26810.msg167231.html#msg167231

I had no problem installing this together with the RichMemo package:
http://wiki.freepascal.org/RichMemo#Download

[manhu]

Hi rvk

tanks for your Idea. 
Did successfully install the TDBRichMemo but i do not get any content from the Memo filed in the DB. I i chose a normal Textfiled in the DB, then it is displayed.
Any Idea?

[rvk]

For me it worked perfectly (Laz1.5 but 1.4.2 should work too, Windows 10 with Firebird 2.1 database and TIBConnection/TSQLQuery).

What DB are you using and what DB-components?

And how did you create the RichEdit-text-field in your DB?
It shouldn't be TEXT but BLOB (or something similar for your DB-engine).
(and who and how was the field originally filled in?)

i.e.

Code: [Select]

CREATE TABLE TESTTABLE
(
  ID       BIGINT,
  TEKST    BLOB SUB_TYPE 0 SEGMENT SIZE 80
)


[manhu]

I use this Environment:
- MySQL
- RemObject DataAbstract
- The Field is a mediumtext Field
- The Field was Filled with a Delphi Programm with a CopyCat Komponent

In phpMyAdmin the Field looks normal.

[rvk]

In phpMyAdmin the Field looks normal.

What do you mean by "normal"?
Does it contain {\rtf1\ansi\ at the beginning?
Or does phpMyAdmin have a richedit component (which I would find very surprising)?

I not sure mediumtext may/can not contain RTF code for formatted text.

So I'm not sure what you are "seeing" in phpMyAdmin.

[manhu]

Sorry for being unclear

What do you mean by "normal"?
Does it contain {\rtf1\ansi\ at the beginning?

Of course i meant that. 

{\rtf1\ansi\ansicpg1252\deff0\deflang2055{\fonttbl{\f0\fnil\fcharset0 Tahoma;}}
\viewkind4\uc1\pard\f0\fs16 dfgdfg\par
}
�

In a DBEdit it also look that way.

[skalogryz]

It shouldn't be TEXT but BLOB (or something similar for your DB-engine).
(and who and how was the field originally filled in?)

Oddly enough, it seems like it. If the field is not BLOB it would not load rtf.
(the check for .IsBLOB in most of TDBRichMemo methods).

Adding TDBRichXXXX component to the default LCL components package requires a full-time maintainer

[rvk]

There are just 3 .IsBlob checks in dbrichmemo.pas.

So adding "true and " in front of the check will always result in being true.
Easy enough to check if it works after that.
But (in Delphi/Firebird) I've always used BLOB for RTF-data.

Code: [Select]

    if (true and DataLinkField.IsBlob) then begin
...
  if not FDBMemoLoaded and (FDataLink.Field<>nil)
  and (true and FDataLink.Field.IsBlob) then begin
...
  if FDBMemoLoaded and (FDataLink.Field<>nil)
  and (true and FDataLink.Field.IsBlob) then begin

Of course you could also completely remove the .IsBlob check but this way you can see what you've done 

[manhu]

Thank you for your advice.
Will try that on Monday.
Shalom Manfred

[Zoran]

rvk, you actually mean "true or", don't you?
Because, (true and DataLinkField.IsBlob) will return the same as DataLinkField.IsBlob.

[rvk]

rvk, you actually mean "true or", don't you?

Woops, yes (true), I do of course 

Code: [Select]

    if (true or DataLinkField.IsBlob) then begin
...
  if not FDBMemoLoaded and (FDataLink.Field<>nil)
  and (true or FDataLink.Field.IsBlob) then begin
...
  if FDBMemoLoaded and (FDataLink.Field<>nil)
  and (true or FDataLink.Field.IsBlob) then begin

Thanks (I must have been momentarily blind there  ).