利用指针完成字符串复制函数,vector 指针

工作需要。 我需要用VB写接口程序。 其中将浮点型转换为Byte数组，用于API。 先记录下来。 今后C#中可能会使用相同的功能。

privatedeclaresubcopymemorylib ' kernel32 ' alias ' rtlmovememory ' (byvaldestinationaslong，ByVal Source As Long，byvallength

私有功能浮动字节(价值分配字节) )。

Dimreturnbyte(4) As Byte

Dim sPtr As Long，bPtr As Long

sptr=varptr(value )

bptr=varptr (返回字节(1) )

复制内存sPtr，sPtr，4

FloatToBytes=returnByte

EndFunction Byte变换浮点函数privatefunctionbytestofloat (bytes ) (As Byte ) As Single

Dim returnValue As Single

Dim sPtr As Long，bPtr As Long

sptr=varptr (返回值)

bptr=varptr(bytes(1) ) )

复制内存sptr，ByVal bPtr，4

BytesToFloat=returnValue

最终函数

转载于：https://www.cn blogs.com/xingfu star/archive/2007/09/10/888417.html