定义协议传送规则:
Const
MP_QUERY ='aaaaa';//标志将要发送文件名
MP_REFUSE ='bbbbb'; //标志服务器拒绝接收
MP_ACCEPT ='ccccc'; //标志服务器同意接收文件
MP_NEXTWILLBEDATA='ddddd';//标志将要传递数据
MP_DATA ='eeeee';//标志服务器端准备接收数据
MP_ABORT ='fffff'; //标志客户端取消了本次发送操作
MP_END='iiiii'; //标志已经发送完毕
MP_FILEPROPERTY='jjjjj';//标志发送的文件长度
MP_LOGIN='ggggg';//编号加用户登陆登陆
MP_FAIL='hhhhh'; //登陆失败
MP_SUCCESS='OOOOO';//登陆成功
iBYTEPERSEND=1024; //指定每次发送包的大小
调用时用:
client用这个
filena:='test.doc';
cs.Socket.SendText(MP_QUERY+welcome.usernumb.Text+'.doc');
服务端用这个:
Socket.SendText(MP_ACCEPT); //发送同意接收文件的信息
我记忆中有个 <实景聊天>的软件,全开代码,仔细看下,用了delphiX组件做图,SERVERSOCKET收到转发所有任何客户!
我写了打字软件，那控制中的套接和转发代码不便公开!
