Здравствуйте уважаемые.
Замучился я с одной задачкой.

Цель:
записать динамический массив в BLOB поле
таблицы FireBird'a

Мой код:


скрипт для создания таблицы


В результате выполнения имеем:

1. Ругaнь
-------------------------
Dynamic SQL Error
SQL error code -104
Unexpected end of command
-------------------------
2. Записи в табличку пишутся, НО
НЕ удаляются даже средстваим IBExpert

Отсюда вопросы:

1. Корректен ли код
2. Почему записи не удаляются
3. Как сделать считывание из BLOBa обратно в динамический массив.

Заранее спасибо.

To mv
А как правильно ?

To mv
Сейчас проверю

To mv
ошибка, замеченная вами, в моём случае не критична (пока),
но всё равно спасибо,
у меня почему то при выполнении оператора Post
вылазит ошибка, указанная выше

with IBTable do
begin
Active:=true;
insert;
(fieldbyname('VALUE') as TBlobField).LoadFromStream(ArrStream);
post ; Вот здесь ругается - SQL error = -104
Active:=false;
end;

to mv
Уже качаю IBX 7.08 для Delphi 7
Обновлю IBX и попробую воспользоваться вашим советом

Чего то у меня обновления не ставятся

Скачал http://www.ibase.ru/v6/ibx708del.zip

Запустил

Перезагрузился

Читаю
Place the additional package code in the source directory of your Bold install.
Open the Bold40D7IB.dpk package
and compile it. The updated dcu and package will be
placed in the correct relative directory.

и нигде не могу найти Bold40D7IB.dpk

БАлин, домой все ушли что-ли ...

Какой модуль нужно подключить к проекту
чтобы делфи не ругалась Undeclared identifier: 'TIBBlobStream'

Уже нашёл

Но опять неувязочка

//-------------------
var i, cnt:integer;
arrStream:TMemoryStreAm;
IBBlob: TIBBlobStream;
//-------------------


with IBTable do
begin
Active:=true;
insert;
IBBlob:= IBTable.CreateBlobStream(IBTable.FieldByName('value'), bmReadWrite); << тут ругается Incompatible types: 'TIBBlobStream' and 'TStream'
IBblob.CopyFrom(arrStream, arrStream.Size);
post;
Active:=false;
end;

To mv

Кстати о help

У вас нигде не завалялся файл ibx.hlp

А то у меня его нет не в установленной Delphi не в Distrib

Проверять уже сегодня некогда
Домой побежал
Завтра отпишусь

Вернёмся к нашим баранам ...

Как же мне всё таки узнать размер >>>Save_Buffer<<< :TBuffer;

//----------------------
Напоминаю, что
type TBuffer = packed record
values:array of array[0..1] of word;
DTime:TdateTime;
end;
//----------------------

P.S. Ошибку SQL=-104 поборол путём создания новой таблички,
видимо старая табличка в ходе зверских экспериментов над ней
сбойнула.

Ещё один глюк...

Записи из таблицы не удаляются ...

IBExpert пишет
-----------------------------
Invalid Tokien
Dynamic SQL Error
SQL error code = -104 опять
Unexpected end of command
-----------------------------

to vis
У меня нет текста запроса ...
Я просто в IBExpert открываю таблицу,
Перевожу в режим Data
выбираю запись
и нажимаю на кнопку Удалить запись (-)
Тут оно и начинает ругаться

Попробую вкраце описать текущее состояние

База создана с нуля ...
В ней всего две таблицы

Вот скрипты создания:
CREATE TABLE LV_TABLE (
FLD1 FLOAT NOT NULL,
FLD2 BLOB SUB_TYPE 0 SEGMENT SIZE 80
);
CREATE TABLE R130_SOP (
NUMREM INTEGER,
NUMALG INTEGER,
NUMIN INTEGER
);

Пишу в базу примерно следующим кодом:
//-------------------------
type TBuffer = array of array[0..1] of word;
Save_Buffer:TBuffer;
sz:word;
IBTable привязан к LV_TABLE
//-------------------------

lg:= 2*sizeOf(sz)*length(save_buffer);

if lg > 0 then
begin
with IBTable do
begin
open;
insert;
IBBlob := IBTable.CreateBlobStream(IBTable.FieldByName('FLD2'), bmWrite);
IBBlob.Write(save_buffer[0,0], lg );
IBTable.FieldByName('FLD1').asfloat:=now;
post;
Active:=false;
end;
end;


При попытке удалить записи при помощи IBExpert
сначала ругается
-------------------------------
Can not delete record !
There is at least one record with same fields values
-------------------------------
а при последующих попытках
-----------------------------
Invalid Tokien
Dynamic SQL Error
SQL error code = -104 опять
Unexpected end of command
-----------------------------

Почему не пойму ...

to Tonny

Возможно код некорректен, но
данные с помощью него записанные,
прекрасно читаются следующим кодом:
var i, cnt:integer;
arrStream:TMemoryStreAm;
lg:integer;
IBBlob: TStream;

begin
with IBTable do
begin
Active := true;
first;
IBBlob := IBTable.CreateBlobStream(IBTable.FieldByName('FLD2'), bmReadWrite);
lg := IBBlob.Size;
save_buffer:= nil;
setLength(save_buffer, lg div 4);

IBBlob.Position:=0;
IBBlob.Read(save_buffer[0,0],lg);

for i:=low(save_buffer) to high(save_buffer) do вывести на экран

ibblob.Free;
end;

Что, нет больше специалистов по Fb & Delphi ?!

Вобщем решил я проблему, если кому интересно, дайте знать,
напишу.