isc_dsql_fetch в dll
Добавлено: 12 дек 2006, 18:55
наступил на странные грабли - незнаю с какой стороны подступиться...
минимизировал насколько смог:
такой себе тестик:
минимизировал насколько смог:
такой себе тестик:
пишем програмку с соответствующей ф-цией...function CreateManager: IInterface;
var
db1: fb.db;
s1, s2, s3: string;
begin
load(); // динамическая загрузка fbembed.dll
db1 := fb.db.create('E:\xxxxxxx\xxxxxxx.wdb');
s1 := 'test1';
s2 := 'test2';
if fbu.select(db1, 'select a3 from t1 where a1 = ? and a2 = ?',
[s1, s2], [ref(s3)]) then
Writeln(fbu.blob2data(db1, s3));
end;
program storage;
.............
begin
CreateManager;
end.
так вот проблема заключается в том, что если я это вызываю из либы, то isc_dsql_fetch мне возвращает 100. пытался игнорировать - понятное дело мусор получаю в резалте. с прогой - все нормально, 0 и данные честные. есть идеи куда копать? (fbembed.dll)теперь либу:
library storage;
.............
end.