Перевести текст из sRichedit в БД.

[grom333]

Всем привет. Уже долго ломаю голову, как перевести текст из Srichedit (Компонент Альфа контрол) например в двоичный код и сохранить в БД. Рисунок делал так, и обратно из базы в имэйдж загонял, все без проблем было.
Прошу, пожалуйста покажите код, как строку загнать в базу данных, и обратно из базы вытащить в Srichedit.

===
Забыл указать, использую ADO. БД Access

[Аватар]

Один из вариантов на примере RichEdit

{В базу}
TMemoField(Query1.FieldByName('MyMemoField')).Assign(RichEdit.Lines);
{Из базы}
s: TMemoryStream;
...
s:=TMemoryStream.Create;
TMemoField(Query1.FieldByName('MyMemoField')).SaveToStream(s);
RichEdit.Lines.LoadFromStream(s);
s.Free;

ADD
Возможно перед LoadFromStream прийдется вставить s.Position:=0;

[grom333]

Сообщение от Аватар

Один из вариантов на примере RichEdit

{В базу}
TMemoField(Query1.FieldByName('MyMemoField')).Assign(RichEdit.Lines);
{Из базы}
s: TMemorySteam;
...
s:=TMemorySteam.Create;
TMemoField(Query1.FieldByName('MyMemoField')).SaveToStream(s);
RichEdit.Lines.LoadFromStream(s);
s.Free;

Да, там разобрался, спасибо. Но что-то реакции нет. Запись по видимому происходит, потому что базу открываю там запись такого вида

TXT2
"{\rtf1\fbidis\ansi\ansicpg1251\deff0\deflang1049\deflangfe1049\deftab708{\fonttbl{\f0\froman\fprq2\fcharset204{\*\fname Times New Roman;}Times New Roman CYR;}}
\viewkind4\uc1\pard\ltrpar\lang1033\f0\fs24 Fcujuyufyuyrudtyutdy \super e\sub h\nosupersub 
\par Tdyutyutryutryu
\par Tyutyutyutyu
\par Tyutyutyutyutyu
\par Rstydrty
\par Rty
\par Rty
\par Rt
\par Yr
\par Ty
\par rt
\par }
"

Но выводить не хочет, почему-то.
P.S. Плюс позже, уже Вам ставил, не позволяет более.

[Аватар]

Вставте перед LoadFromStream s.Position:=0;
При чтении из стреам читается с текущей позиции, и если метод записи в стреам после себя в ноль позицию не переводит, то возможны такие глюки

[grom333]

Наверное, все зря... Я же только из-за формул это делал... Не хочет их поддерживать

[Аватар]

Используйте RxRichEdit или RichView. Они умеют это делать

[alexiz]

Сообщение от grom333

Да, там разобрался, спасибо. Но что-то реакции нет. Запись по видимому происходит, потому что базу открываю там запись такого вида..

Все правильно. В БД уходит текст в RTF виде. Если Вам нужен простой текст, переключите Plaintext у Richedita.

[Аватар]

Все правильно. В БД уходит текст в RTF виде. Если Вам нужен простой текст, переключите Plaintext у Richedita

При чем здесь это. ТС хочет формулы отображать, подготовленные в Word-е. Ему rtf как раз и нужен. Только используенмый компонент не может с формулами работать

[alexiz]

Сообщение от Аватар

При чем здесь это..

Сорри, не разобрался.