如何用TServerSocket和TClientSocket控件发送和接收一个记录型的数据。(50分)

  • 主题发起人 主题发起人 YuZi
  • 开始时间 开始时间
Y

YuZi

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用TServerSocket和TClientSocket控件发送和接收一个记录型的数据。
比如下面的类似结构:
Type
TUserInfo= packed Record
UserID : DWord;
DataSize : DWORD;  
Data : Array of Byte; //数据大小不确定,但发送时由DateSize指明
end;
请问有什么比较好的方法?发送和接收分别怎样实现?
发送时用SendStream()方法和SendText()方法哪个好些快些?

附:不才我从小就是个世界之最 -- 最笨的一个。
  所以麻烦大侠在回答时给出具体的实现代码。小的感激不尽!
 
SendBuf(UserInfo,SizeOf(UserInfo)
 
to HunterTeam : SizeOf(UserInfo) 始终是12,Data中数据没有发送出去呀。
 
sendbuf(userinfo,sizeof(userinfo)*datasize)
 
结构里就是12个字节,Data只是一个指针。SendStream()方法和SendText()的速度是一样的
。一般发结构你要自己编码。
 
哪位能给个分别用sendbuf(),SendStream()和SendText() 发送和接收 记录型数据的例子。
余某感激不尽!
 
问题是很弱智,但真得没人愿意帮忙吗?
 
多人接受答案了。
 

Similar threads

D
回复
0
查看
909
DelphiTeacher的专栏
D
D
回复
0
查看
865
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部