
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.233.221.90] |
![]() |
|
Сообщ.
#1
,
|
|
|
Есть основная программа,в которой выполняются различные StoredProc,и DLL , в которой также используются StoredProc.Соответственно в каждом модуле есть компонент DataBase.Вопрос:каким образом сделать так чтобы StoredProc в главной программе и DLL выполнялись в одной конекции.
|
Сообщ.
#2
,
|
|
|
попробуйте передать их exe'шника в dll свойство DataBase.Session и присвоить его StoredProc.Session...StoredProc.Databasename при этом не задается..
|
Сообщ.
#3
,
|
|
|
делай так. в ДЛЛ сделай процедуру в DM или там где лежат все твои StoredProc и всё такое, процедуру типа (это у меня в DM)
procedure CreateDM(AliasName : PChar); begin DM := TDM.Create(Application); DM.Base.AliasName := AliasName; end; Теперь когда ты вызываешь из ЕХЕ ДЛЛ'ельную процедру тогда в саму процедуру вставь входной параметр типа ( AliasName ) или вот тебе пример (процедура в DLL'ке) procedure ShowSaldoParam(AliasName : PChar;DBHandle : HDBIDB;Handle : THandle); begin Application.Handle := Handle; CreateDM(AliasName); with TFormSaldoParam.Create(Application) do begin try DM.Base.Handle := DBHandle; ShowModal; finally if DM <> nil then FreeDM; Free; end; end; end; ( это в мэйн ЕХЕ'шнике вызов процедуры ) ShowClientDoc(PChar(DM.Base.AliasName),DM.Base.Handle,Application.Handle); |