Delphi怎样在Dll中使用数据模块DataModule

一、DLL调试方法：

      (1)、[Project-->Add Existing Project...]将DLL和宿主程序（就是使用本DLL的程序）添加到一个工程组中，可以同时调试DLL和宿主程序。

      (2)、 [Run-->Parameters...    ]在Host Application中填入宿主程序的完整路径然后选择[    Project|Options.. ]选择Directories/Conditionals页面在Output directory中填入宿主程序所在目录（这是将编译的DLL程序输出到宿主程序所在目录下），然后就可以按运行(F9)来运行程序，在你需要观看的地方加入断点(F5)，如正常使用的操作主程序，调用你的函数/过程的时候就会在你的断点处停下，可单步执行。按Ctrl + F7可以加入变量观察。有一招在DLL的工程文件选项中ProjectOptionsLinkerEXE and DLL Options把Include TD32 debug Info和Include remote debug symbols勾上试试。

二、DLL中使用数据模块DataModule（或表单Form）

      在DLL工程中使用到数据模块或表单，必须注意：在DLL中表单或数据模块都不是自动创建的，需要自己手工创建！这也是好多新手容易犯的毛病。

      那么如何创建呢？下面是一个简单的例子（DLL的完整源码），必要的地方加以解释：

     library DB_Excel;

uses    SysUtils,    Classes,Forms, activex,    main in 'main.pas' {DataModule1: TDataModule};//DLL中使用到的数据模块

{$R *.res}

//这是一个EXCEL导入数据到Access中的函数。function ExcelToAccess(ExcelName,Sheet,AccessName,DB_Table:string):Boolean;stdcall;Var sSql : string;begin     try      CoInitialize(nil);    //注意必须要添加这句      DataModule1 := TDataModule1.create(application); //在这里创建DataModule1

      DataModule1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +         AccessName + ';Persist Security Info=False';      DataModule1.ADOConnection1.Connected := true;      DataModule1.adoquery1.Close;      DataModule1.adoquery1.SQL.Clear;        sSql :=          'INSERT INTO    '+DB_Table + ' SELECT *' +          ' FROM [excel 8.0;database=' + ExcelName + '].['+Sheet+'$]';      DataModule1.adoquery1.Parameters.Clear;      DataModule1.adoquery1.ParamCheck := false;      DataModule1.adoquery1.SQL.Text := sSql;      DataModule1.adoquery1.Execsql;      result := true;     except      result :=false;     end;      freeandnil(DataModule1); //使用完后要释放，不然会报错的！end;//输出接口exportsExcelToAccess;

beginend.

DLL中使用表单，应该与此类似，注意使用前要创建，使用完后要释放，这样应该就不会错了。