如何用TClientSocket和TServerSocket实现自定义数据结构的收发？

[star_of_light]

比如，如何收发记录数据；记录格式如下：
USR=Record
id:String;
name:String;
PWD:String;
end;

[dongmenbianxue]

这种做法不太好吧,如果发生粘包现像,就不好处理了~

[vargent77]

一般可以的，没问题，
挺好用：好像sendbuffer(结构指针，长度，长度)
不过这个长度要注意，如果你用的是char，往往用length 得出的结果不准！呵呵，可能是我菜才有这样的问题

[flfljh]

当然行啊

[happyboy]

记录中不能用string类型,string只是一个指针
TMyRecord=record
MyName : array[0..20]of Char;
end;

var
buf : TMyRecord
begin
Socket.SendBuffer(buf,sizeof(TMyRecord));
end;
这样就行了.

[quansui]

或
TMyRecord=record
id : integer;
Name : string[20];
end;

[chaiqingfeng]

结构体中的类型改成char型的，用sendbuffer发送,接收方定义相同的结构体或使用一个大的数组接收

[insert2003]

D7里怎么没有SendBuffer？？？

[topgun2]

看来你没有做过,底层.
这样的情况,关键是还要定义一个包头结构,定义消息的长度....
先收包头,然后....

[insert2003]

TMyRecord1=record
MyName1 : string[10];
end;

TMyRecord2=record
MyName2 : array[0..20]of Char;
end;

TMyRecord=record
head :TMyrecord1;
name :TMyrecord2;
end;


var
buf : TMyRecord
begin
Socket.SendBuf(buf,sizeof(TMyRecord));
end;