每次CLIENT端的发送,对应的SERVER端会产生相应的RECV动作。如果你要达到你的要求,在发送时就要组装成一个包。你的数据包结构可以这样写:TSetIp1
TSetIp2
这两个象你原来的结构一样。
再定义个大的结构。把它俩包起来。TBuff = record
SetIp1:TSetIp1;
SetIp2:TSetIp2;
end;发送时,
var
buff:Tbuff;
begin
...
.SendBuf (buff,sizeof(buff));
...
end;接收时
var
recv:TBuff;
begin
...
.ReceiveBuf (recv,Sizeof(ReceiveLength));
...
end;这样就可以了。这也是网络协议的收发基础。希望有帮助。:)
TSetIp2
这两个象你原来的结构一样。
再定义个大的结构。把它俩包起来。TBuff = record
SetIp1:TSetIp1;
SetIp2:TSetIp2;
end;发送时,
var
buff:Tbuff;
begin
...
.SendBuf (buff,sizeof(buff));
...
end;接收时
var
recv:TBuff;
begin
...
.ReceiveBuf (recv,Sizeof(ReceiveLength));
...
end;这样就可以了。这也是网络协议的收发基础。希望有帮助。:)
解决方案 »
- 把 字符串 写入内存 我的代码前辈来帮看!
- 请教有关进度条显示的问题!
- 只有dcu文件,没有pas文件,注册后能否使用?
- 大家,来帮帮忙吧!!!
- 如何动态生成一个label 并且将它显示在当前form中呢?
- TTreeView如何实现 点击父节点和子节点时 切换界面,显示各自对应的参数呢?
- 我设计的一个MTS客户端,在别人的Win98机子注册,出现下面的提示,无法注册,这是什么意思?
- delphi record类型里不能有Stringlist吗?
- delphi5不能像asp那样把word文件保存入数据库吗?
- DELPHI中的打印问题
- 有没有人知道如何设计不同的窗体边框
- 在DBGRID为什么用UPDATESQL进行数据更新提示‘UPDATE FAILED’?
再次感谢cow()兄的指点.
还有 ReceiveBuf (recv,Sizeof(ReceiveLength));中为什么 要Sizeof(ReceiveLength)