Привет всем.
(Возможно) есть проблема с сохранением форматированного текста в текстовый блоб
поле объявлено так
RICH_TEXT BLOB SUB_TYPE 1 SEGMENT SIZE 4096
Текст в блоб записывается так
pFIBQuery1.SQL.Text := 'UPDATE rich_text_table SET rich_text =
STRING2BLOB(:rich_text) WHERE rtt_id = :rtt_id ';
pFIBQuery1.ParamByName('rich_text').AsWideString := TntRichEdit1.Lines.Text;
функция STRING2BLOB стандартная из FBUDF
DECLARE EXTERNAL FUNCTION STRING2BLOB
VARCHAR(300) BY DESCRIPTOR,
BLOB
RETURNS PARAMETER 2
ENTRY_POINT 'string2blob' MODULE_NAME 'fbudf';
считывается текст из блоба так
TntRichEdi1.Lines.Text := pFIBDataSet1.FieldByName('RICH_TEXT').Value;
результат в TntRichEdit после чтения оказывается без форматирования
вызов TntRichEdi1.Lines.SaveToFile сохраняет текст с форматированием
вызов TntRichEdi1.Lines.LoadFromFile открывает текст с форматированием
Не подскажите ли, в чём может быть проблема.
--
Best regards,
Sergiy S. Tkachenko
www.4thfebruary.tk
