如下的VB代码如何转成pb？

[fuxiaoyang13]

Type BELLINFO
mValid(MAX_BELLCOUNT_DAY - 1) As Byte
mHour(MAX_BELLCOUNT_DAY - 1) As Byte
mMinute(MAX_BELLCOUNT_DAY - 1) As Byte
End Type '24byte
Dim mlngBellInfo(DataLen / 4 - 1) As Long
Dim mBellCount As Long
Dim mBellInfo As BELLINFO

vRet = frmMain.FP_CLOCK1.GetBellTime(mMachineNumber, mBellCount, mlngBellInfo(0))
If vRet = True Then
CopyMemory mBellInfo, mlngBellInfo(0), DataLen
ShowValue
lblMessage.Caption = "Success!"
Else
frmMain.FP_CLOCK1.GetLastError vErrorCode
lblMessage.Caption = ErrorPrint(vErrorCode)
End If

Private Sub ShowValue()
Dim i As Long

For i = 0 To MAX_BELLCOUNT_DAY - 1
txtHour(i).Text = mBellInfo.mHour(i)
txtMinute(i).Text = mBellInfo.mMinute(i)
If mBellInfo.mValid(i) > 1 Then mBellInfo.mValid(i) = 0
chkValid(i).Value = mBellInfo.mValid(i)
Next i
txtBellCount.Text = mBellCount
End Sub

[WorldMobile]

可以参考以下链接 http://bbs.csdn.net/topics/360161225

[fuxiaoyang13]

我的情况跟http://bbs.csdn.net/topics/360161225 是一样，设备都是一样的

[pcwe2002]

定义一个24字节的blob, ref传进去，

[WorldMobile]

引用 2 楼 fuxiaoyang13 的回复:

我的情况跟http://bbs.csdn.net/topics/360161225 是一样，设备都是一样的

用C或者Delphi再封装一个动态库，然后用PB来调用

[fuxiaoyang13]

blob数组我也试过，也没成功

[WorldMobile]

引用 6 楼 fuxiaoyang13 的回复:

只能这样啊，pb里没办法想了？

不行，PB不支持指针的

[fuxiaoyang13]

只能这样啊，pb里没办法想了？

[fuxiaoyang13]

咋没人顶了？

[liuchaobin]

http://download.csdn.net/detail/liuchaobin/7472453 我在我电脑测试可行的？这个小玩意只是pb一个通过ole方式将一组电子表合并到一个电子表中或将一个电子表根据字段条件拆分成不同的电子表及拼音查询导入电子表的一次尝试。您那边测试时是什么状况的呢？谢谢 另请教pb ole excel 排序的语法，谢谢

[fuxiaoyang13]

没人顶了？

[A啦Dbit]

实在不行就 VB写个ocx 供 pb调用