用 ServerSocket 作中转服务器 TCP 数据掉包了

2011-03-31 10:58:54 449 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

低代码Agent开发框架使用指南（二）—Coze平台核心功能概览本篇分享系统介绍了字节跳动推出的低代码智能体开发平台Coze。Coze以免费易用、多模型支持和便捷的跨平台发布为核心优势，显著降低了智能体开发门槛。文章详细解析了平台的六大核心功能：扩展能力边界的插件系统、增强认知的知识库、结构化数据管理的数据库、可视化图像处理的图像流、实现复杂逻辑编排的工作流，以及处理复杂任务的多智能体协作机制，全面展现了Coze平台的强大能力。阅读详情

一台公网服务器中转两台不同内网电脑的TCP文件传输，

公网服务器用：ServerSocket1 模式：stNonBlocking

内网电脑用ClientSocket1 模式也是：ctNonBlocking

部分源码：



//全局变量设置：

var

Sok2：TCustomWinSocket；

MyBuffer: array[0..99999] of byte; {设置接收缓冲区}



//公网服务器收到客户端连接的时候，建立socket套接字

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;

  Socket: TCustomWinSocket);

begin



Sok2:=Socket;



end;





//公网服务器接收的时候，立即进行转发

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);

var

  len, t: Integer;

begin



  t := Socket.ReceiveLength;

  len := Socket.ReceiveBuf(MyBuffer, t);

  Sok2.SendBuf(MyBuffer, len);  //出错的地方，转发不完整，掉包。 

  //注明：我把上面这句话放到线程里面处理，转发也同样不完整，掉包。

end;