lichunlin1 2015-05-08 05:39 采纳率: 0%
浏览 1994

vb调用DLL转成DELPHI出错?

1.原来VB的程序,经执行可以通过
VB
数据类型定义
'Profile infomation
Public Type LJIF_PROFILE_INFO
fXStart As Single
fXPitch As Single
End Type
定义
Public Declare Function LJIF_GetProfileData Lib "LJIF.dll" (ByVal ProfileTarget As Long, ByRef pProfileInfo As LJIF_PROFILE_INFO, ByRef pProfile As Single, ByVal nCount As Long) As Long
条用
rc = LJIF_GetProfileData(LJIF_HEAD_INDEX(GetProfileParam1.ListIndex), ProfileInfo, pBuffer(0), GetProfileParam2)
'Get Profile Data
2.改成DELPHI后,就这个函数提示参数错误
DELPHI
定义
Type
pLJIF_PROFILE_INFO=^LJIF_PROFILE_INFO;
LJIF_PROFILE_INFO=record
fXStart : Single;
fXPitch : Single;
End ;
/Get Profile Data
Function LJIF_GetProfileData ( ProfileTarget:LongInt; var pProfileInfo: LJIF_PROFILE_INFO;var pProfile:array of Single; nCount :LongInt): LongInt;external 'LJIF.dll';
调用:
rc := LJIF_GetProfileData(0, ProfileInfo, pBuffer, GetProfileParam2.Value) ;
始终报参数错误?
求大侠指点!

  • 写回答

3条回答 默认 最新

  • danielinbiti 2015-05-08 07:58
    关注
     VB中 ByRef pProfile As Single这是按地址传一个single
     但看你delphi中定义
     var pProfile:array of Single  这定义的是一个数组
    
    评论

报告相同问题?

悬赏问题

  • ¥15 求差集那个函数有问题,有无佬可以解决
  • ¥15 【提问】基于Invest的水源涵养
  • ¥20 微信网友居然可以通过vx号找到我绑的手机号
  • ¥15 寻一个支付宝扫码远程授权登录的软件助手app
  • ¥15 解riccati方程组
  • ¥15 display:none;样式在嵌套结构中的已设置了display样式的元素上不起作用?
  • ¥15 使用rabbitMQ 消息队列作为url源进行多线程爬取时,总有几个url没有处理的问题。
  • ¥15 Ubuntu在安装序列比对软件STAR时出现报错如何解决
  • ¥50 树莓派安卓APK系统签名
  • ¥65 汇编语言除法溢出问题