各位大哥,我想做一个这样的程序请大家坚持.
在一个局域网中有多台机器,如何可以做到A点的机器给B点发一个字符串,B点接收以后在返给A点一个新的字符串.我没有做过通讯方面的程序.
在一个局域网中有多台机器,如何可以做到A点的机器给B点发一个字符串,B点接收以后在返给A点一个新的字符串.我没有做过通讯方面的程序.
解决方案 »
- cxGrid控件主从表,怎样让它上面出现+号展开
- 如何向文件的指定物理地址写入十六进制代码?
- 数字操作的一个小问题
- 我想让我的程序memo里可以输入韩文字"가"任何系统都可以正常浏览,应该怎么做??
- Delphi6的NMHTTP保存网页的问题??很急!
- 程序移植到另一台电脑上,出错打不开程序,该怎么办,我用的是ODBC数据连接
- 请问,如何更改文件里的某一串字符?
- 如何完成类似FlashGet的限速功能?
- 如何得到另一个窗体里一个组件的handle?
- 到哪里可以找到好用的打印组件?
- 我到底错在哪里?跪求高手指点!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
- 关于多个Edit中输入的数据后,进行加加减减操作的问题
有的使
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显示回应字符串