关于VB的指针操作,大家给点意见,我不知道错没!
tyfun 2003-11-26 09:52:04 意图:
pDeliverResp 是由VC编写的SMGPDeliver函数中的指针
指向“
sMsgID As String
nIsReport As Integer
nMsgFormat As Integer
sRecvTime As String
sSrcrmID As String
sDestTermID As String
nMsgLen As Integer
sMsgContent As String
”
问:我怎么传pDeliverResp 和怎么得到“”内的值?
Private Declare Function SMGPDeliver Lib "SmGwAPI.dll" (ByVal nTimeout As Integer, ByRef pDeliverResp As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Type RecieveSM
sMsgID As String
nIsReport As Integer
nMsgFormat As Integer
sRecvTime As String
sSrcrmID As String
sDestTermID As String
nMsgLen As Integer
sMsgContent As String
End Type
过程程序块
Dim DataBuf(315) As Byte
Dim myMsg As RecieveSM
CopyMemory myMsg, DataBuf(0), LenB(myMsg)
ret = SMGPDeliver(GetTimeOut, VarPtr(DataBuf(0)))
End 过程程序块