web service不是双向的,比如a 是服务器, 只能是b主动发了,a才相应,a不会先发信息到b,你用socket、tcp、udp都可以前2者是一直保持连接的,后者则不是(根据你的需要选择,如果是单向的用web service也可以)
最最简单的Demo Server: 建个工程,拖个TServerSocket下来 设置Port=5555,Active=true 处理事件OnClientRead begin str := Socket.ReceiveText; if(str='Hello! I am client.')then Socket.SendText('Welcome! I am server'); end;Client: 建个工程,拖个TClientSocket下来 设置Port=5555,Address=Server的IP,Active=true 处理事件OnRead begin ShowMessage(Socket.ReceiveText); end;放个按钮,处理事件OnClick begin ClientSocket1.Socket.SendText('Hello! I am client.'); end; 好了,先在服务器上运行Server,然后在客户机上运行Client,Socket建立连结 点击按钮,Client向服务器Server发送字符串,Server回应,Client显示回应字符串
有的使
Server:
建个工程,拖个TServerSocket下来
设置Port=5555,Active=true
处理事件OnClientRead
begin
str := Socket.ReceiveText;
if(str='Hello! I am client.')then
Socket.SendText('Welcome! I am server');
end;Client:
建个工程,拖个TClientSocket下来
设置Port=5555,Address=Server的IP,Active=true
处理事件OnRead
begin
ShowMessage(Socket.ReceiveText);
end;放个按钮,处理事件OnClick
begin
ClientSocket1.Socket.SendText('Hello! I am client.');
end;
好了,先在服务器上运行Server,然后在客户机上运行Client,Socket建立连结
点击按钮,Client向服务器Server发送字符串,Server回应,Client显示回应字符串