опубликован 25-10-2000 16:38 MSK
делай так. в ДЛЛ сделай процедуру в 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);