Delphi怎样在Dll中使用数据模块DataModule
来源:互联网 发布:淘宝回收手机可靠吗 编辑:程序博客网 时间:2024/04/28 02:49
一、DLL调试方法: (1)、[Project-->Add Existing Project...]将DLL和宿主程序(就是使用本DLL的程序)添加到一个工程组中,可以同时调试DLL和宿主程序。 (2)、 [Run-->Parameters... ]在Host Application中填入宿主程序的完整路径然后选择 二、DLL中使用数据模块DataModule(或表单Form) 在DLL工程中使用到数据模块或表单,必须注意:在DLL中表单或数据模块都不是自动创建的,需要自己手工创建!这也是好多新手容易犯的毛病。 那么如何创建呢?下面是一个简单的例子(DLL的完整源码),必要的地方加以解释: library DB_Excel; uses {$R *.res} //这是一个EXCEL导入数据到Access中的函数。 DataModule1.ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + begin DLL中使用表单,应该与此类似,注意使用前要创建,使用完后要释放,这样应该就不会错了。
[ Project|Options.. ]选择Directories/Conditionals页面在Output directory中填入宿主程序所在目录(这是将编译的DLL程序输出到宿主程序所在目录下),然后就可以按运行(F9)来运行程序,在你需要观看的地方加入断点(F5),如正常使用的操作主程序,调用你的函数/过程的时候就会在你的断点处停下,可单步执行。按Ctrl + F7可以加入变量观察。有一招在DLL的工程文件选项中
ProjectOptionsLinkerEXE and DLL Options
把Include TD32 debug Info和Include remote debug symbols勾上试试。
SysUtils,
Classes,Forms, activex,
main in 'main.pas' {DataModule1: TDataModule};//DLL中使用到的数据模块
function ExcelToAccess(ExcelName,Sheet,AccessName,DB_Table:string):Boolean;stdcall;
Var sSql : string;
begin
try
CoInitialize(nil); //注意必须要添加这句
DataModule1 := TDataModule1.create(application); //在这里创建DataModule1
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;
//输出接口
exports
ExcelToAccess;
end.
- Delphi怎样在Dll中使用数据模块DataModule
- 浅谈在Delphi中Dll调试方法以及怎样在Dll中使用数据模块DataModule(或表单Form)
- 有关于DLL中Datamodule的使用
- 在Delphi中使用DLL
- 在DELPHI应用程序中使用DLL
- 在DELPHI应用程序中使用DLL
- 在Delphi应用程序中使用DLL
- Delphi DataModule使用方法
- 在Delphi中调用DLL
- 在Delphi中使用TStream读写数据
- 怎样在C++Builder中创建使用DLL
- 怎样在BCB中使用VC的dll
- 怎样在C++ Builder中创建使用DLL
- 怎样在C++Builder中创建使用DLL
- 怎样在C++Builder中创建使用DLL
- Delphi 在DLL中使用DevExpress控件时出错解决办法
- 在Delphi中怎样调用立象(Argox)条码打印机动态库PPLA/PPLB(DLL)
- delphi中dll的使用
- 求助,紧急求助
- 本地apache解析多域名,多主机
- HDU 2773 White Water Rafting(计算几何)
- OSI 7层参考模型
- 好久不见
- Delphi怎样在Dll中使用数据模块DataModule
- vi命令备注
- PowerPro汉化技巧和心得
- 一个简单的按钮
- 点操作符和箭头操作符
- 向乔布斯学习 --- 创新与专注
- Enlightenment 是啥
- 在線電視
- 工厂方法模式(Factory Method)