动态库调试问题(50分)

  • 主题发起人 主题发起人 babieboy
  • 开始时间 开始时间
B

babieboy

Unregistered / Unconfirmed
GUEST, unregistred user!
大家好
我现在用的是windows2000server Delphi6 ,发现动态库调试不了,我的Run_Parameters
设置应该没错,在别人的机器上可以调试(windows professional),我想问是不是和操作系统有关阿?[:(][:(]
 
应该没有问题,报错还是什么
 
我刚刚发现问题,时Ado问题,我在主窗体上放了AdoConnection,设置其Connectstring属性,
在程序里open时,报”少加载了一个DLL”,因为在别人的机器上也是好的,我想是不是和我的delphi有关系阿
 
在使用ado组件前。在dll中

uses activeX;

在使用ADO组件前调用CoInitialize(nil);
使用完后一定调用CoUninitialize;

 
补贴源码
uses
SysUtils,
forms,
activex,
Classes,
Dm in 'Dm.pas' {DmDll: TDataModule},
UnitMiddle in 'UnitMiddle.pas' {FormMiddle},
UnitTree in 'UnitTree.pas' {FormTree};

{$R *.RES}
function Middle:string;stdcall;
begin
try
CoInitialize(nil);
DmDll:=TDmDll.Create(application);
FormMiddle:=TFormMiddle.Create(application);
FormMiddle.ShowModal ;
finally
DmDll.free ;
FormMiddle.free ;
CoUnInitialize;
end;
end;



exports Middle;
begin
end.
 
后退
顶部