Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.10.2021, 17:49   #1
АлексейТ
Пользователь
 
Регистрация: 21.10.2013
Сообщений: 11
Печаль Отображение текстового поля BLOB в TRichedit

Здравствуйте! Почему, при просмотре содержимого поля "BLOB" в "Delphi 7 Lite" символы отображаются как положено, а в "Delphi 10.4" выходят посторонние символы?
Код просмотра содержимого поля "BLOB":
Код:
Richedit.Text:=DM.IBDataSetCOUNT_ADRES.Value;
Перед добавлением текст предварительно изменяю.
Код добавления содержимого поля "BLOB":
Код:
var
 Stream: TStream; //поток для BLOB
begin
  //добавляем данные
   IBDataSet.Insert;
 
  //поток для BLOB
   Stream:=TMemoryStream.Create;
 
        try
          //адрес потребителя
          //сохраняем в этом потоке соержимое поля "RichEdit1" методом "SaveToStream"
           RichEdit1.Lines.SaveToStream(Stream);
         {устанавливаем текущую позицию потока в 0,}
           Stream.Position:=0;
         {чтобы помещать в BLOB весь текст с самого начала,
          и перемещаем текст с помощью метода "LoadFromStream" из потока в столбец BLOB}
           TBlobField(IBDataSet.FieldByName('COUNT_ADRES')).LoadFromStream(Stream);
        finally
          //освобождаем память потока
           Stream.Free;
        end;
 
  //сохраняем изменения
   IBDataSet.post;
end;
В Delphi 10.4 снизу установлен "ANSI", а в базе данных "Firebird" - WIN1251.
АлексейТ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
blob поля в бд paradox wulf_01 БД в Delphi 7 31.10.2011 00:10
Blob-поля в Firebird Liones БД в Delphi 1 23.11.2010 11:45
обновление blob поля artemavd БД в Delphi 2 31.07.2009 04:09
Чтения из BLOB - поля Den3D БД в Delphi 2 05.05.2009 15:17