非常简单。看来你是个新手,我给你说方法。 最最简单的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显示回应字符串 如果你还搞不明白,可以加我的群讨论或直接索要源码。
最最简单的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显示回应字符串
如果你还搞不明白,可以加我的群讨论或直接索要源码。