Delphi高手求救!
无响应 2006-10-26 10:00:20 各位大哥大姐,你们好,小弟又遇到麻烦了,求救!
现有VB程序,转化为Delphi,如下:
vb中用到的两个动态连接库:
Public Declare Function CAN_Recv Lib "k8110.dll" (ByVal iIndex As Long, ByRef ibyte As Any, ByVal rtimeout As Long) As Boolean
Declare Function CAN_Enable_Interrupt Lib "k8110.dll" (ByVal iIndex As Long, ByVal kind As Long, ByVal pf As Long) As Boolean
要转换的语句:
Call CAN_Enable_Interrupt(0, 2, AddressOf aaa)
Sub aaa()
Dim j As Long
Dim i As Byte
Dim rxdlc As Byte
If (CAN_Recv(mindex, canbuff(0), 20)) Then
.
.
.
End Sub
问题出现在AddressOf 这个运算上。