Blob ошибка записи

[MIGUR]

Добрый день товарищи !

БД на ФБ:

CREATE TABLE MSGW (
    ID       INTEGER NOT NULL,
    MSGTEXT  BLOB SUB_TYPE 1 SEGMENT SIZE 8192 CHARACTER SET WIN1251
);

Пробую переписать блоб поле

var
MS: TBlobStream;
begin
db1.IBDataSet4.Edit;
Memo1.Lines.SaveToStream(MS);
(db1.IBDataSet4.FieldByName('MSGTEXT') as TBLOBField).LoadFromStream(MS);
db1.IBDataSet4.Post;
Ms.Free;
end;

Выдаёт ошибку "Stream write error"

Такой способ записи:

db1.IBDataSet4.Edit;
db1.IBDataSet4.FieldByName('MSGTEXT').AsString := memo1.Lines.Text;
db1.IBDataSet4.Post;

Так же ругается: "feature is not supported"

Кто знает подскажите в чём ошибка, поиск результатов не дал

[Аватар]

Так попробуйте

Memo1.Lines.SaveToStream(MS);
MS.Position:=0;
(db1.IBDataSet4.FieldByName('MSGTEXT') as TBLOBField).LoadFromStream(MS);

[superedward]

ParamByName('MSGTEXT').AsBlob:=Memo.Text;

но у меня

MSGTEXT BLOB SUB_TYPE -1

[MIGUR]

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

Так попробуйте

Memo1.Lines.SaveToStream(MS);
MS.Position:=0;
(db1.IBDataSet4.FieldByName('MSGTEXT') as TBLOBField).LoadFromStream(MS);

Так же продолжает ругаться на stream write error

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

ParamByName('MSGTEXT').AsBlob:=Memo.Text;

но у меня

MSGTEXT BLOB SUB_TYPE -1

Через параметры аналогичная ситуация Feature is not supported
Не помогло и изменение SUB_TYPE на -1

[Yurk@]

procedure TForm1.Button1Click(Sender: TObject);
begin
  IBDataSet4.Open;
  IBDataSet4.Insert;
  IBDataSet4.FieldByName('id').AsInteger := Random(1000);
  TBlobField(IBDataSet4.FieldByName('MSGTEXT')).AsString := Memo1.Text;
  IBDataSet4.Post;
  IBDataSet4.Transaction.Commit;
end;

SelectSQL.Text

SELECT * 
FROM msgw

InsertSQL.Text

INSERT INTO msgw VALUES(:id, :msgtext)

это так, "на коленке" ... нужное подогнать под себя

[MIGUR]

Сообщение от Yurk@

procedure TForm1.Button1Click(Sender: TObject);
begin
  IBDataSet4.Open;
  IBDataSet4.Insert;
  IBDataSet4.FieldByName('id').AsInteger := Random(1000);
  TBlobField(IBDataSet4.FieldByName('MSGTEXT')).AsString := Memo1.Text;
  IBDataSet4.Post;
  IBDataSet4.Transaction.Commit;
end;

SelectSQL.Text

SELECT * 
FROM msgw

InsertSQL.Text

INSERT INTO msgw VALUES(:id, :msgtext)

это так, "на коленке" ... нужное подогнать под себя

Так же ошибка


Может дело в InterBase 7.1 ?

[Yurk@]

косяк где-то в другом месте, а не в коде.

БД на ФБ:

Может дело в InterBase 7.1

ты на сервере IB поднимаешь базу FB ???

[MIGUR]

Видимо в этом и косяк ?)

[ReportCube]

А не пробовали перед выполнением Memo1.Lines.SaveToStream(MS) создать этот самый MS?

[Аватар]

var MS: TMemoryStream;
begin
  MS:=TMemoryStream.Create;
  Memo1.Lines.SaveToStream(MS);
  MS.Position:=0;
  db1.IBDataSet4.Edit;
  TBLOBField(db1.IBDataSet4.FieldByName('MSGTEXT')).LoadFromStream(MS);
  db1.IBDataSet4.Post;
  Ms.Free;
end;