Здравствуйте, мне нужно хранить в базе exe файлы.

есть таблица
create table nametable (
id_tbl D_ID NOT NULL,
file_bin BLOB
);

Подскажите пожалуйста как вставить бинарный файл в базу firebird ? Возможно ли прочитать из базы exe-к и запустить его на исполнение ? Можно это сделать только через sql запрос или ibeblock ?

Вот, что получилось, но IbExpert виснет, когда размер файла >10 Мб . Как ibeblock или sql-ем прочитать exe-файл размера
50 - 100 Мб.

set names win1251;
set sql dialect 3;
SET TERM ^;
execute ibeblock
as
declare variable iVal BLOB;
begin
OdbcCon = ibec_CreateConnection(__ctODBC, 'DBNAME=localhost:c:\database.fdb; DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA;PWD=masterkey;Role=RDB$ADMIN;');
ibec_UseConnection(OdbcCon);
FileName = 'f:\programm.exe';
FH = ibec_fs_OpenFile(FileName, __fmOpenRead);
if (FH is null) then
Exit;

while (not ibec_fs_eof(FH)) do
begin
if (i<1) then
iVal = ibec_fs_ReadByte(FH);
else
iVal = iVal || ibec_fs_ReadByte(FH);
end
ibec_fs_CloseFile(FH);
insert into nametable(file_bin) values (:iVal);
ibec_CloseConnection(OdbcCon);
end^
SET TERM ;^

IBExpertSerega325,

ibec_LoadFromFile используй.

подставил эту функцию. ibec_LoadFromFile почему-то только один байт считывает.

set names win1251;
set sql dialect 3;
SET TERM ^;
execute ibeblock
as
declare variable iVal BLOB;
begin
OdbcCon = ibec_CreateConnection(__ctODBC, 'DBNAME=localhost:c:\database.fdb; DRIVER=Firebird/InterBase(r) driver; UID=SYSDBA;PWD=masterkey;Role=RDB$ADMIN;');
ibec_UseConnection(OdbcCon);
FileName = 'f:\programm.exe';

iVal = ibec_LoadFromFile(FileName);

insert into nametable(file_bin) values (:iVal);
commit;
ibec_CloseConnection(OdbcCon);
end^
SET TERM ;^