FireBird Delphi Проблемма с BLOB текстом

[Winsight]

По затее БЛОБ должен получать и выдавать текст в TMemo.

Таблица БД:

CREATE TABLE MES (
       ID_OBJ BIGINT NOT NULL,
       ID_FROM Integer NOT NULL,
       ID_TO Integer,
       MES_INDEX Integer NOT NULL,
       MES_TYPE Integer NOT NULL,
       MES_TEXT Blob SUB_TYPE 1 SEGMENT SIZE 40,
       MES_DATE Date DEFAULT 'NOW' NOT NULL
);

Пишу в блоб так:

var bs: tstream;
...
  dm.IBTransEdit.Active:=true; //транзакция
  dm.tr_edit_mes.Active:=true; //датасет
  dm.tr_edit_mes.Edit;
  dm.tr_edit_mes.FieldByName('MES_TEXT').Clear;
  bs:=dm.tr_edit_mes.CreateBlobStream(dm.tr_edit_mes.FieldByName('MES_TEXT'),tblobstreammode.bmWrite);
  oneform.mesText.Lines.SaveToStream(bs);
  bs.Free;
  dm.tr_edit_mes.Post;
  dm.IBTransEdit.Commit;
  dm.tr_edit_mes.Active:=false;
  dm.IBTransEdit.Active:=false;
...

Ошибок нет. Что-то туда легло. (bs.size>0)
Читаю так:

...
  zdl[i].blob:=tstringlist.Create;
  zdl[i].blob.Clear;
  bs := dm.DS_mess.CreateBlobStream(dm.DS_mess.FieldByName('MES_TEXT'),tblobstreammode.bmRead);
  zdl[i].blob.LoadFromStream(bs);
  bs.Free;
...

Итог:

Снимок.JPG

[Аватар]

Не мешало бы уточнить на какой строке кода ошибка
Телепартирую - позицию попробуй перед чтением из bs в 0 выставить

[Winsight]

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

Не мешало бы уточнить на какой строке кода ошибка

zdl[i].blob.LoadFromStream(bs);

Если в Базе MES_TEXT Null, то ошибок нет. Что в 0 выставить?

Пытался проверить содержимое, выводил в файл (через tfilestream). Получил в файле вместо текста строку вопросов.

[Аватар]

Position в bs

[Winsight]

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

позицию попробуй перед чтением из bs в 0 выставить

  bs := dm.DS_mess.CreateBlobStream(dm.DS_mess.FieldByName('MES_TEXT'),tblobstreammode.bmRead);
  bs.Position:=0;
  zdl[i].blob.LoadFromStream(bs);

не помогло

[Аватар]

bstream - чего это?

[Winsight]

bstream это bs... сократил уже здесь. Сейчас и в коде сократил, для синхронности...

[Аватар]

tblobstreammode.bmRead

Это не должно компилироваться. bmRead достаточно. Аналогично и tblobstreammode.bmWrite

А в файл что выгружается? Приложить можешь?

[Winsight]

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

А в файл что выгружается? Приложить можешь?

Содержимое mesText (TMemo):
1234abcd
вторая строка

  bs := dm.DS_mess.CreateBlobStream(dm.DS_mess.FieldByName('MES_TEXT'),bmRead);
  bs.Position:=0;
  filestrim:=tfilestream.Create('c:\text.txt',fmopenwrite);
  filestrim.CopyFrom(bs,bs.Size);
  //zdl[i].blob.LoadFromStream(bs);
  bs.Free;
  filestrim.Free;

Содержимое текстовика:
???????????

Размер текстовика и bs.size совпадают

[Аватар]

bs.Free; не стал бы делать. Help гласит:

The stream that this method returns belongs to the dataset. Do not free the stream: the dataset handles all allocation and freeing of streams that this method creates.

Содержимое текстовика

Ни о чем не говорит. Файликом приложить