VB 6.0 利用CopyMemory实现 指针功能

工作需要，要用VB写一个接口程序，其中要把浮点型转成Byte数组，用到了一个API，先记录下来，以后C#中可能会用到同样的功能。

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)

浮点转换Byte函数

Private Function FloatToBytes(value As Single) As Byte()

Dim returnByte(4) As Byte

Dim sPtr As Long, bPtr As Long

sPtr = VarPtr(value)

bPtr = VarPtr(returnByte(1))

CopyMemory bPtr, sPtr, 4

FloatToBytes = returnByte

End Function

Byte转换浮点函数

Private Function BytesToFloat(bytes() As Byte) As Single

Dim returnValue As Single

Dim sPtr As Long, bPtr As Long

sPtr = VarPtr(returnValue)

bPtr = VarPtr(bytes(1))

CopyMemory sPtr, ByVal bPtr, 4

BytesToFloat = returnValue

End Function