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
uj5u.com熱心網友回復：
可以參考以下鏈接http://bbs.csdn.net/topics/360161225
uj5u.com熱心網友回復：
我的情況跟http://bbs.csdn.net/topics/360161225 是一樣，設備都是一樣的uj5u.com熱心網友回復：
定義一個24位元組的blob, ref傳進去，uj5u.com熱心網友回復：
blob陣列我也試過，也沒成功uj5u.com熱心網友回復：
用C或者Delphi再封裝一個動態庫，然后用PB來呼叫
uj5u.com熱心網友回復：
只能這樣啊，pb里沒辦法想了？uj5u.com熱心網友回復：
不行，PB不支持指標的
uj5u.com熱心網友回復：
咋沒人頂了？uj5u.com熱心網友回復：
http://download.csdn.net/detail/liuchaobin/7472453我在我電腦測驗可行的？這個小玩意只是pb一個通過ole方式將一組電子表合并到一個電子表中或將一個電子表根據欄位條件拆分成不同的電子表及拼音查詢匯入電子表的一次嘗試。您那邊測驗時是什么狀況的呢？謝謝
另請教pb ole excel 排序的語法，謝謝
uj5u.com熱心網友回復：
沒人頂了？
uj5u.com熱心網友回復：
實在不行就 VB寫個ocx 供 pb呼叫轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/43262.html
標籤：API 調用