Interbase. Работа с BLOB-полями

[Sewell]

Доброго времени суток! Вопрос по BLOB-полям(СУБД: Interbase)

Сохранить, то я сохранил в BLOB-поле текст из Memo:

 var
  S: TStream;
  D: TStringStream;
begin
     .
     .
     .
   fm_Main.IBDataSet1.Edit;
    S := fm_Main.IBDataSet1.CreateBlobStream(fm_Main.IBDataSet1.FieldByName('opisanie_osmotr'),bmWrite);
     try
      D := TStringStream.Create(AdvMemo1.Lines.Text);
      S.CopyFrom(D,D.Size);
     finally
      D.Free;
      S.Free;
      fm_Main.IBDataSet1.Post;
     end;

А как теперь сделать наоборот, чтобы из BLOB-поля текст отобразился в Memo, например при редактировании записи...

Пробовал сделать вот так, но не работает:

 var
  S: TStream;
  D: TStringStream;
  k: String;
begin
    fm_Main.IBDataSet1.Edit;
    S := fm_Main.IBDataSet1.CreateBlobStream(fm_Main.IBDataSet1.FieldByName('opisanie_osmotr'),bmRead);
     try
      D := TStringStream.Create(k);
      D.CopyFrom(S,S.Size);
      AdvMemo1.Lines.LoadFromStream(D);
     finally
      D.Free;
      S.Free;
     end;

Помогите, пожалуйста!

[Liones]

А можно мне получить кое-какие разъяснения? Я тоже пытаюсь записать данные из Memo в blob-поле. Мне не понятен вот этот кусок:

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

 
   fm_Main.IBDataSet1.Edit;
    S := fm_Main.IBDataSet1.CreateBlobStream(fm_Main.IBDataSet1.FieldByName('opisanie_osmotr'),bmWrite);
     try
      D := TStringStream.Create(AdvMemo1.Lines.Text);
      S.CopyFrom(D,D.Size);
     ....

т.е. открывается таблица для редактирования, создается поток и в него записывается текст из мемо,
потом этот поток копируется в поле. А как быть с остальными полями?
У меня вот такой код:

DM.IBQTemp.SQL.Add('insert into KARTOTEK (NAME_B,NETTO,BEL_U,GIR_U,UGL_U,BEL_S,GIR_S,UGL_S,KC_U,KC_S,TEHN,TREB,PRIM)');
    DM.IBQTemp.SQL.Add('values ('+#39+Blank.Edit1.Text+#39+','+#39+Blank.Label19.Caption+#39+
','+#39+Blank.Label15.Caption+#39+',');
    DM.IBQTemp.SQL.Add(#39+Blank.Label16.Caption+#39+','+#39+Blank.Label17.Caption+#39+
','+#39+Blank.Label1.Caption+#39+','+#39+Blank.Label12.Caption+#39+',');
    DM.IBQTemp.SQL.Add(#39+Blank.Label13.Caption+#39+','+#39+Blank.Label18.Caption+#39+
','+#39+Blank.Label14.Caption+#39+','+#39+Blank.Memo1.Text+#39+',');
    DM.IBQTemp.SQL.Add(#39+Blank.Memo2.Text+#39+','+#39+Blank.Edit2.Text+#39+');');

Не могу понять как мне записать поля TEHN и TREB. Помогите, пожалуйста.

[Прик]

Совсем незачем мудрить с BLOB. Тем более, если пишется из и читается в TMemo.
Применяйте обычный способ записи в BLOB (и чтения) точно так же как и в поле других типов - сервер разберется.
Как Liones показал. Только чего ему этот запрос не нравится, не понятно.

А Stream нужен (если вообще нужен) для записи и чтения бинарных данных. Да и здесь можно использовать переменные типа string.

---
Если не получается, есть способ через параметр

qr.ParamByName('SOMEFIELD').AsBlob := <строка>; //запись
S := qr.FieldByName('SOMEFIELD').AsString;  //чтение

BLOB должен быть с подтипом 1
BLOB подтипа 1 должен давать записывать как обычное поле (в запросах insert, update). Читаться как AsVariant.

[Liones]

Сообщение от Прик

Как Liones показал.

Ну так то я женкого полу

Сообщение от Прик

Только чего ему этот запрос не нравится, не понятно.

Мне то запрос нравится, компилятор ругается на несоотвествие типов. Говорит "не могу записать строку в blob"

[Прик]

Запросы типа:

qr.SQL.Text := 'INSERT INTO VAL_S (ID, IDFIELD, IDCARD, VALB) values ('+
                IntToStr(aId) +','+ IntToStr(aIdField)+ ','+ IntToStr(aIdCard)+ ','+
                QuotedStr(ValStr)+')';

компилируются и пишутся без ошибок (поле VALB - типа BLOB; ValStr - string, такой же тип как и Memo.Lines.Text).

Характеристика BLOB домена:
BLOB SUB_TYPE 1 SEGMENT SIZE 80 CHARACTER SET WIN1251

Delphi 7 - IBX - СУБД Firebird.

Чего в вашем запросе компилятору не по нраву?. Вроде составлен по науке. Во всяком случае, на первый взгляд криминала не видно.
---
Хотя в последний момент увидел.
Blank.Memo1.Text - это не текст, который мы видим в окне компонента.
Надо так: Blank.Memo1.Lines.Text.
Т.е. дело вовсе не в BLOB и не в запросе.

[Stilet]

Учитывая что тема - мертвец. Закрываю.