关于VB的指针操作，大家给点意见，我不知道错没！

2003-11-26 09:52:04 105 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在VB6中使用指针：字节的计算版权声明：可以任意转载，转载时请务必以超链接形式标明如下文章原始出处和作者信息及本声明作者：xixi出处：http://blog.csdn.net/slowgrace/archive/2009/04/26/4124347.aspx本文主要来自此帖的讨论，感谢unsigned、Soyokaze、Chen8013、Tiger_Zhao、m60a1、myjian、PctGL等朋友的指阅读详情

意图：
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 过程程序块

...全文