Скачать: CL | DM;

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

← →
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 я передавал без ошибок.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.011 c