如何把一结构体拷贝到一块连续的内存空间

nanhui 2003-03-01 10:02:00

如何把一结构体拷贝到一块连续的内存空间?
我定义如下结构
Private Type CLIENT_SENDDATA
strType As String * 30
strname As String * 21
End Type
Dim data as CLIENT_SENDDATA
我想把data用WINSOCK.SENDDATA发送出去,需把data拷贝
到一块连续的内存空间.请问要怎么做?
谢谢!
...全文
125 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
fbmsf 2003-03-02
  • 打赏
  • 举报
回复
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Dim data as CLIENT_SENDDATA
dim str1 as string
call CopyMemory ,Str1,data, len(data)
用户 昵称 2003-03-01
  • 打赏
  • 举报
回复
Option Explicit
Private Type aa
x As Long
y As Long
End Type
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub Command1_Click()
Dim b(0 To 7) As Byte
Dim a(0 To 0) As aa
a(0).x = 65 'A
a(0).y = 66 'B
CopyMemory b(0), a(0), 8
Dim i As Integer
For i = 0 To 7
Debug.Print b(i)
Next i
End Sub
用户 昵称 2003-03-01
  • 打赏
  • 举报
回复
try varprt

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧