Posted on 2009-10-07 22:40
xyz 阅读(2791)
评论(0) 编辑 收藏 引用 所属分类:
Delphi
1.设置TWSocketServer的port作为监听端口.
2.对于来自客户端的连接,必须先对TWSocketClient进行继承。
TTcpSrvClient = class(TWSocketClient)
public
//自定义的属性
end;
3.设置TWSocketServer的部分属性
.Port:=inttostr(usePort); //动态指定,来自www.cnitblog.com/xkz
.Banner:=''; //清除客户端连接后的自动信息
.BannerTooBusy:='';
.ClientClass:= TTcpSrvClient; //指定继承后的类，当客户端连入时,自动创建及释放
4.在TWSocketServerClientConnect(Sender: TObject; Client: TWSocketClient;
Error: Word)事件中,设置客户端有数据发送时触发的事件
TTcpSrvClient(Client).OnDataAvailable := onReceive;//onReceive是自定义的过程procedure onReceive(Sender: TObject; ErrCode: Word);
//指定其他的事件或者设置属性
5.在onReceive中,读取客户端的数据
sLen:=TTcpSrvClient(sender).RcvdCount;
if sLen=0 then exit;
sData:=TTcpSrvClient(sender).ReceiveStr;