动态链接库中要访问数据库!我在数据模板中的代码如下:
var
CustomerData1: TCustomerData1;implementationuses
Activex;
{$R *.DFM}Initialization
CoInitialize(nil);Finalization
CoUninitialize;
end.动态链接库主窗口如下 procedure ShowDLLModalForm(aHandle: THandle); stdcall; //模式显示窗口implementationuses Unit3;
{$R *.DFM}
//模式显示窗口
procedure ShowDLLModalForm(aHandle: THandle);
begin
Application.Handle := aHandle; //传递应用程序句柄 with TForm1.Create(Application) do //创建窗体
begin
try
ShowModal; //模式显示窗体
finally
free;
end;
end;
end;
end.
//////以下为 导出函数library MyDLL;uses
Forms, Unit1 in 'Unit1.pas' {Form1},
Unit3 in 'Unit3.pas' {CustomerData1: TDataModule};{$R *.RES}
exports
ShowDLLModalForm;begin
//我不知道下面这个数据模板 的加载放在哪里好!如果我加入了它 就会出错 在退出整个程序时
// Application.CreateForm(TCustomerData1, CustomerData1);
end.//////我是静态调用 动态链接库的
procedure ShowDLLModalForm(aHandle: THandle); stdcall external 'MyDLL.dll';
var
CustomerData1: TCustomerData1;implementationuses
Activex;
{$R *.DFM}Initialization
CoInitialize(nil);Finalization
CoUninitialize;
end.动态链接库主窗口如下 procedure ShowDLLModalForm(aHandle: THandle); stdcall; //模式显示窗口implementationuses Unit3;
{$R *.DFM}
//模式显示窗口
procedure ShowDLLModalForm(aHandle: THandle);
begin
Application.Handle := aHandle; //传递应用程序句柄 with TForm1.Create(Application) do //创建窗体
begin
try
ShowModal; //模式显示窗体
finally
free;
end;
end;
end;
end.
//////以下为 导出函数library MyDLL;uses
Forms, Unit1 in 'Unit1.pas' {Form1},
Unit3 in 'Unit3.pas' {CustomerData1: TDataModule};{$R *.RES}
exports
ShowDLLModalForm;begin
//我不知道下面这个数据模板 的加载放在哪里好!如果我加入了它 就会出错 在退出整个程序时
// Application.CreateForm(TCustomerData1, CustomerData1);
end.//////我是静态调用 动态链接库的
procedure ShowDLLModalForm(aHandle: THandle); stdcall external 'MyDLL.dll';
解决方案 »
- 求助web service 对数据库的操作
- 崩溃了,Delphi对象模型中没有类字段,为什么当初不加上的啊???使用单元全局变量来模拟,我看着都恶心,破坏了语言优美性
- [求助]某控件中的某个事件,我写代码进去后,整个控件的下面流程不执行了?如果使他继续执行?
- 程序员身体容易出什么毛病?怎样避免?
- 能找到昆明的朋友吗???
- ◆◆◆◆转贴:《程序员的十种级别》◆◆◆◆
- DBComboBox1问题?谢谢。
- (100分) 求Delphi的GSM短信模块通讯的有关资料!
- 如何将一个字符串分成几段显示?
- 各位高手,请问怎样防止别人通过标题栏移动我的窗口
- 什么快捷方式可以直接从函数声明处跳到函数定义处?
- 请问如何得到dbgrid里被选中那一行的第三个值
还是没有看明白什么意思,我一般DATAMODULE是自动创建而已
也没有什么特出的处理
DLL的时候的确容易出现地址错误,有些在我的能力之内还真是解决不了,
上次我也是遇到一个地址错误,最后也是没有解决,无能为力啊,呵呵
我已经解决了这个问题!我把数据模板的生成放在了 导出函数ShowDLLModalForm;
中CustomerData1:=TCustomerData1.Create(CustomerData1);
一切OK!
不过我还是想不通为什么!
上面的创建就不行呢?
起始我是先做好工程 调试完毕后 才该为动态链接库的 主窗口的生成放在了 导出函数里面 其他都没有变的啊 !