dll调用问题(100)

  • 主题发起人 主题发起人 jxh_ty
  • 开始时间 开始时间
J

jxh_ty

Unregistered / Unconfirmed
GUEST, unregistred user!
使用华大usbkey,写个简单程序调用其提供的dll,可以正常连接,同样的语句用actieform控件方式来调用,就不能连接了,怎么回事?function HSConnectDev(szDevName: PChar;
phCard: pointer): DWORD;
stdcall;
external 'HD_GPAPI.dll';procedure TActiveFormX.Button1Click(Sender: TObject);var hHandle:Pointer;begin
Edit1.Text:=IntToStr(HSConnectDev('USB1', @hHandle));end;
正常返回值是0,结果总返回102。这个语句放在普通程序中没问题!
 
hHandle:Pointer;
本来就是 pointer 没必要@hHandle
 
不管有没有@,在activeform控件中返回的结果是一样的。
 
不要用function HSConnectDev(szDevName: PChar;
phCard: pointer): DWORD;
stdcall;
external 'HD_GPAPI.dll';而要用LoadMoudle的方式,至于LoadMoudle,可以在本论坛上找,很多的!
 
没查到什么关于LoadMoudle的帖子呀?
 
能给个LoadModule加载dll的例子吗?
 
后退
顶部