您的位置：程序门 -> delphi -> 网络通信/分布式开发

数据转发怎么写？

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

数据转发怎么写？

发表于：2008-01-17 02:39:48 楼主

procedure tform1.button1click（sender: tobject);
begin
button1.enabled :=false;
s.host :='127.0.0.1';
s.port :=25511;
s.active :=true;

c.host :='124.238.254.113';
c.port :=80;

end;

procedure tform1.sclientconnect（sender: tobject; socket: tcustomwinsocket);
begin
c.active :=true;
end;

procedure tform1.cread（sender: tobject; socket: tcustomwinsocket);
begin

s.socket.connections[s.socket.activeconnections-1].sendtext（socket.receivetext);
end;

procedure tform1.cdisconnect（sender: tobject; socket: tcustomwinsocket);
begin
s.socket.close ;
end;

procedure tform1.sclientdisconnect（sender: tobject;
socket: tcustomwinsocket);
begin
c.socket.close ;
end;

procedure tform1.sclientread（sender: tobject; socket: tcustomwinsocket);

begin

c.socket.sendtext（socket.receivetext);
end;

end.

以上是我写的代码好像可以转发但是网页进度条到一半就不动了郁闷
希望那位大哥帮忙改进下。。使数据转发后能正常游览网页

发表于：2008-01-17 09:07:061楼得分:0

转发建议使用indy的portmapper.

发表于：2008-01-17 12:43:512楼得分:0

mark!

发表于：2008-01-17 13:12:233楼得分:0

发表于：2008-01-17 13:24:224楼得分:0

浏览器连接到s的可能不止一个连接，s必须能够正确处理并发的若干个连接。所以楼主的代码是肯定有问题的。

下一篇：请教： indy发邮件的难题，乱码！！
上一篇： excel 不能完全退出

其他资讯