很好了,如果你把SendText解析一下就完了比如
SendText('/Open Com')
SendText('/Close Com');
SendText('/Send Com');
对服务器端的RecieveText进行翻译就可以了
比如s: =ReciveText;
if s='/Open COM') then
//执行过打开端口
if s='/Close Com') then
//关闭端口
if s='Send Com' then
//服务器开始Socket.sendtext就完了。