用于TCP连接的Delphi透明代理

Dav*_*lor 5 sockets delphi proxy tcp

有人知道用Delphi编写的TCP套接字代理应用程序的任何例子吗?我正在构建一个小型代理应用程序,它需要侦听给定TCP端口上的套接字连接,读取通过连接发送的XML数据包,通过TCP将请求提供给从可用后端服务器池中选择的服务器,并提供生成的响应返回到原始TCP连接.

我对TCP和套接字级编程非常熟悉,但更愿意找到示例代码作为起点.如果有可用的东西,它将节省大量的时间和精力,因为我不需要重新发明轮子.我记得在2003/2004年看到一个用Delphi编写的小型TCP代理,但似乎已经忘记了链接.

ska*_*adt 7

您在寻找袜子代理实现吗?如果没有,那么只需从服务器(http很可能是一个好的开始)开始,并在其中构建处理入站XML数据包并进行适当调用的能力.像Synapse框架这样的东西会使它成为一个相当简单的项目.如果您抓住Synapse,请从SVN获取最新版本.它支持所有最新版本的Delphi.

有一个用于突触的httpproxy演示,如果您想要实现更传统的东西,这可能会有所帮助.一个很好的启动http服务器示例也可用.