调用DLL问题,已经没辙了,请大家帮忙 ( 积分: 80 )

skyroom007 · 2007-03-03

写了一个主程序,调用各个功能模块,一个EXE调用多个DLL 采用BDE连接,主FORM建立一个永久性的DATABASE连接, 采用数据库别名的方式,每个DLL中的TQUERY都连接这个别名 主FORM的程序如下   private     { Private declarations }     FDLLProcList :TDLLProcList;   public     { Public declarations }     lpData

NotifyIconData;     unm:shortstring;     //员工代码     bmm:shortstring;     //部门代码     gsm:shortstring;     //公司代码     qx:shortstring;     procedure ShowDLL(str:string);   end; var   MainForm: TMainForm; implementation {$R *.dfm} procedure TMainForm.FormCreate(Sender: TObject); begin  FDLLProcList:=TDLLProcList.Create;  LoginForm:=TFormLogin.Create(self); end; procedure TMainForm.FormDestroy(Sender: TObject); begin FDLLProcList.Free; end; procedure TMainForm.ShowDLL(str:string); var PP:myproc; begin  if FDLLProcList.LoadModule(str,'Load') then  begin     FDLLProcList.RunModule(str,'Load')(Application,Sessions,nil,unm,bmm,gsm,qx);  end else      begin      Application.MessageBox(Pchar('应用模块 : '+str+' 不存在!'), Pchar(Caption),  MB_OK+MB_ICONEXCLAMATION+MB_DEFBUTTON1+MB_APPLMODAL);      end; end; procedure TMainForm.N11Click(Sender: TObject); begin MainForm.ShowDLL('dqdpr'); end; end. TDLLProcList 为一个公用单元 UNITDLL  代码如下 unit UnitDLL; interface uses Classes,  Windows, Messages, SysUtils, Graphics, Controls, Forms, Dialogs,DBTables, StdCtrls,Menus;  Type    MyProc=procedure (myHandle:Tapplication;Session1:TsessionList;MenuI:TMenuItem;unm,bmm,gsm,qx:ShortString);    TDLLProcList=class(TStringList)    private    FDLLList :TList;    FProcList :TList;       FIndex :Integer;    FProc :MyProc;    public    constructor Create ;    destructor Destroy ; override;    function RunModule(ModuleName,ProcName :String): MyProc;    function GetModule: MyProc;    function LoadModule(ModuleName,ProcName :String):boolean;    end; implementation    Type    PHandle =^THandle;    PMyProc =^MyProc;    constructor TDLLProcList.Create;    begin    FDLLList:=TList.Create;    FProcList:=TList.Create;    inherited Create;    end; destructor TDLLProcList.Destroy;    var i:integer;    mhandle

Handle ;    ppMyProc

MyProc;   begin   inherited Destroy;   for i:=0 to FProcList.Count-1 do begin   ppMyProc:=FProcList.items;   FreeMem(ppMyProc);  end;   for i:=0 to FDLLList.Count-1 do begin    mhandle:=FDLLList.items;    freelibrary(mhandle^);  freeMem(mhandle);  end;  FDLLList.Free;  FProcList.Free;  end; function TDLLProcList.RunModule(ModuleName,ProcName :String): MyProc;    begin    result:=nil;    if LoadModule(ModuleName,ProcName) then begin    GetModule;     result :=FProc;    end;   end; function TDLLProcList.LoadModule(ModuleName,ProcName :String):boolean;    var i:integer;     mhandleHandle ;     ppMyProcMyProc;     mMyProc :MyProc;     mdllname,mp:String;     mTHandle:THandle;  begin  result:=false;   i:=IndexOf(ModuleName+':'+ProcName);   if i>-1 then begin     FIndex := i;   Result:=True;   end else begin   mdllname:=Copy(ModuleName,1,length(ModuleName))+'.dll';   mTHandle:=LoadLibrary(pchar(mdllname));   mp:= Copy(procname,1,length(ProcName));   if mThandle<>0 then begin    @mMyProc:=GetProcAddress(mTHandle,pchar(mp));    if @mMyProc<> nil then  begin      New(ppMyProc);      ppMyProc^:=mMyProc; FProcList.Add(ppMyProc);      New(mHandle);      mHandle^:=mTHandle; FIndex:=FDllList.Add(mHandle);      Add(ModuleName+':'+ProcName);    Result:=True;    end else Exception.Create('以下调用函数不存在 '+ModuleName+':'+ProcName);   end else Exception.Create('以下模块不存在 '+ModuleName+':'+ProcName);  end; end; function TDLLProcList.GetModule:MyProc; var   ppMyProcMyProc;  begin   ppMyProc := FProcList.Items[FIndex];   FProc:=ppMyProc^;   Result :=ppMyProc^;  end; end. 调用的DLL的程序如下 library dqdpr; { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   SysUtils,   Classes,   DQpas in 'DQpas.pas' {CKDQ}; {$R *.res} exports  Load name 'Load'; begin end. DLL有一个FORM 有Tquery控件连接BDE别名 代码如下 unit DQpas; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   Db, DBTables, ImgList, ComCtrls, StdCtrls, ExtCtrls,Menus, DBCtrls,   Grids, DBGrids, Buttons, DBSBtn; type   TCKDQ = class(TForm)     DBGrid1: TDBGrid;     qry_main: TQuery;     DataSource1: TDataSource;   private     { Private declarations }   public     { Public declarations }         MenuItem:TMenuItem;   end; procedure Load(App:TApplication;Sessions1:TSessionList;MenuI:TmenuItem;unm1,bmm1,gsm1,qx1:shortstring);export; var   CKDQ: TCKDQ;      unm:shortstring; implementation {$R *.dfm} procedure Load(App:TApplication;Sessions1:TSessionList;MenuI:TmenuItem;unm1,bmm1,gsm1,qx1:shortstring);export; begin  unm:=unm1;  Application:=App;  Sessions:=Sessions1;  with TCKDQ.Create(Application) do begin   MenuItem:=MenuI;  show;  end; end; end. 问题是 如果Tquery空间中没有写任何语句 主程序能调用成功如果写了语句就无法调用了出现如下报错 Exception EdatabaseError in module dqdpr.dll at 000715FD 请教如何解决? 谢谢

zqw0117 · 2007-03-03

DLL生成的时候,Delphi自动写的这段英文兄弟没看? { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } 已经告诉你注意事项了,请按照这段英文操作就可以了. 英文大意是,关于dll中内存管理器的问题,如果你的dll中函数的参数或者返回值的类型(如果类型是类对象的话,包含类对象中的属性)是string类型的话,请在dll和exe的dpr文件的uses语句第一行引用ShareMem.引用ShareMem后,程序分发的时候需要分发Borlndmm.dll这个dll文件.如果你想避免这样 ,请不要在dll的函数的参数和返回值中返回string类型(包括任何有string类型的类对象),而是改用PChar或者ShortString来代替.

skyroom007 · 2007-03-03

怎么改呢?不好意思 我也是没怎么接触过DLL编程.

zqw0117 · 2007-03-03

library dqdpr; { Important note about DLL memory management: ShareMem must be the   first unit in your library's USES clause AND your project's (select   Project-View Source) USES clause if your DLL exports any procedures or   functions that pass strings as parameters or function results. This   applies to all strings passed to and from your DLL--even those that   are nested in records and classes. ShareMem is the interface unit to   the BORLNDMM.DLL shared memory manager, which must be deployed along   with your DLL. To avoid using BORLNDMM.DLL, pass string information   using PChar or ShortString parameters. } uses   [red]ShareMem[/red],   SysUtils,   Classes,   DQpas in 'DQpas.pas' {CKDQ}; 打开你的dll的dpr文件(如上)增加红色的那部分.然后打开你的exe的dpr文件,同样增加这个部分.然后重新编译dll和exe(注意,必须全部重新编译一边)就ok了

skyroom007 · 2007-03-03

加了 然后跟踪了一下 在 procedure TMainForm.ShowDLL(str:string); var PP:myproc; begin  if FDLLP rocList.LoadModule(str,'Load') then  begin     FDLLProcList.RunModule(str,'Load')(Application,Sessions,nil,unm,bmm,gsm,qx);  end else      begin      Application.MessageBox(Pchar('应用模块 : '+str+' 不存在!'), Pchar(Caption),  MB_OK+MB_ICONEXCLAMATION+MB_DEFBUTTON1+MB_APPLMODAL);      end; end; 报错内容为 Project AKSoftApp.exe raised exception class EDataBaseError with message'Duplicate database name 'AKTMIS'' .Process stopped use step or run to continue //AKTMIS为数据库别名 继续执行报如下错误 //Execption Edbast Exception EdatabaseError in module dqdpr.dll at 00071761

happycyp · 2007-03-03

dll不要与主程序共享一个数据库连接，它是一个单独的模块。 要有自己的连接。

kinneng · 2007-03-03

dll共享主程序的数据连结没有任何问题，只不过在装入dll或者dll的初始化部分，一定要 将相关控件传给它，这样dll的窗体使用起来跟同一个exe内的窗体差不多。

skyroom007 · 2007-03-07

多人接受答案了。

调用DLL问题,已经没辙了,请大家帮忙 ( 积分: 80 )

skyroom007

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

skyroom007

Unregistered / Unconfirmed

zqw0117

Unregistered / Unconfirmed

skyroom007

Unregistered / Unconfirmed

happycyp

Unregistered / Unconfirmed

kinneng

Unregistered / Unconfirmed

skyroom007

Unregistered / Unconfirmed

Similar threads