Использование DbRichEdit и БД Paradox FormattedMemo [D5, Paradox]
Alecsandr © (2002-07-05 17:07:00)
При использовании DbRichEdit и БД Paradox (Formatted Memo или
Binary) возникает следующая ошибка: текст в DbRichEdit урезается
или не сохраняется в БД.
Пробовал несколько раз - создавал несколько подобных
программных моделей, получилась только одна, однако в моей
программе постоянно возникает эта ошибка.
Спасибо!
Дмитрий Калугин (2002-07-05 17:36:00) [1]
Объем текста в этом компоненте ограничен 64Кб.
Вот поэтому он и урезается.
А чтобы его расширить используй АПИ
SendMessage(DbRichEdit1.Handle, EM_EXLIMITTEXT, 0,
Число_байт);
Мой пример из жизни...
procedure TMDIChild.LoadMemoFromDB;
const MaxTextLength=131072; //128 kb
var S: TBlobStream;
LengthText:LongInt;
PText:Pchar;
PData:Pointer;
begin
try
S := TBlobStream.Create(dmDB.tblTextText , bmRead);
LengthText:=S.Size;
if (LengthText>MaxTextLength) //!!! добавляю 30%
then SendMessage(reDoc.Handle, EM_EXLIMITTEXT, 0,
Trunc(LengthText * 1.3));
reDoc.Lines.LoadFromStream(S);
************************
finally
S.Free;
end;
end;
Наверх 
ЧАТ |
Орешник |
|
