| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

wonder_boy ©   (2003-07-17 14:57:00) 

Как грамотно передать коннект к базе данных из родительского приложения в длл. Например:
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;

---

АлексейК   (2003-07-17 15:26:00) [1]

Попробуй так
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 я передавал без ошибок.

---

jack128   (2003-07-17 15:15:00) [2]

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

---

Наверх