Передача коннекта к БД из ехе в длл

← →
wonder_boy © (2003-07-17 14:57) [0]

Как грамотно передать коннект к базе данных из родительского приложения в длл. Например:
var db:tcsdatabase;

procedure init(dbase:tcsdatabase);
begin
db:=dbase;
end;

procedure showlist;
var qr:tcsquery;
begin
qr:=tcsquery.create(nil);
qr.databasename=db.databasename;
qr.sql.add("select * from cars");
qr.open; <-вот здесь получаю access violation
end;

← →
jack128 © (2003-07-17 15:15) [1]

ты передаешь объект из EXE в DLL, а это возможно только при компиляции с ран тайм пакетами

← →
АлексейК (2003-07-17 15:26) [2]

Попробуй так
procedure showlist(dbase:tcsdatabase; aHandle);
var qr:tcsquery;
begin
Application.Handle:=aHandel;//aHandle - Apllication.Handle приложения
qr:=tcsquery.create(Application);
qr.databasename=db.dbase;
qr.sql.add("select * from cars");
qr.open; <-вот здесь получаю access violation
end;
var db:tcsdatabase; и init удали

AdoConnection я передавал без ошибок.

Передача коннекта к БД из ехе в длл Найти похожие ветки