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

Как же мне всё таки узнать размер >>>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 ?!

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