关于DLL的一个问题(100分)

M

martinqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #1

现在在使用DLL进行方法的封装，出现了一个问题请高手指教
project1.dll中
function JustfyControl(AControl:TComponent):boolean;stdcall;
begin
if AControl is TButton then
Result:=true
else
Result:=false;
end;
在Project11中
button1Onclick事件中
for i:=0 to self.componentcount-1 do
if JustfyControl(self.component) then
showmessage('true')
else
showmessage('false');

每次返回的都是false，不知道是怎么回事！

 

M

martinqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #2

这个问题很难吗？我不知道！请高手赐教阿！

 

K

kk2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #3

单看你上面的代码，没看出什么问题来！

 

I

iamy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #4

在你的两个工程文件中
加入
uses
sharemem,
dll工程文件
和调用它的工程文件都要加
要放在第一个
同时需要
borlndmm.dll
支持

 

J

JamesBond_L

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #5

[][]

 

K

kk2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-02

• #6

//楼主的问题确实是不能返回真值，单修改为如下就可以解决
//问题，原因不明！

function JustfyControl(AControl:TComponent):boolean;stdcall;
begin
if AControl.ClassName = 'TButton' then
Result:=true
else
Result:=false;
end;

 

K

kk2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #7

楼主： 问题已经找到，就是关于运行时包的问题。在dll的工程选项“Packages"页选上"build runtime with packages"前面那个勾。同时调用的那个程序也是这样做就可以实现你的功能！(注意：里面必须包含"vcl"这个包)

 

M

martinqiu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-03

• #8

接受答案了.