在vb winsock 做的客户端中传送一个自定义结构到 delphi 做的服务器端winsock 里中的问题

错误类型：
能接收到 recInfo 中的 Integer 数据 intNo 值，却接收不到 strName: String[200];的值



我在用VB WinSocket 做Client 发送一个自定义结构 到delphi winsocket 做的server 端

自定义结构如下

vb client 端的结构
Private Type recInfo
intNo As Integer
strName(199) As Byte
End Type

vb端的Socket 发送语句

Dim recTemp As recInfo

、、、、//////////////////////////
recTemp.intNo = 15

Dim S As String
S = "Text"
CopyMemory ByVal VarPtr(recTemp.strName(1)), ByVal StrPtr(S), 200



Dim buf(Len(recTemp)) As Byte
CopyMemory buf(0), recTemp, Len(recTemp)


Winsock1.SendData buf(0)


////////////////////////////////////////

delphi server 端

Type recInfo = Record
intNo: Integer;
strName: String[200];
End;
var recTemp: recInfo;

delphi端socket的接收语句

FClientSocket.Receive(@recTemp, SizeOf(recTemp));