第一:TIdTCPClient是何物?从下图可以看出,它是Delphi自带的Indy组件之一:
第二,明白了TIdTCPClient是何物,接下来应当明白它的用法:
首先编写客户端程序, 启动Delphi7新建一个程序,拖几个控件:Button/TIdTCPClient/listbox,在Button单击事件里写代码,功能是:
按下此按钮时,连接远方的服务器(显然,远方的服务器要事先处于Active状态),连接成功后,读取远方的信息,
当远方服务程序收到一个连接时,便会执行:procedure IdTCPServer1Execute(AThread: TIdPeerThread);,在此过程里
向客户发送信息。
客户代码如下:(里面的注释有误,//将服务端收到的数据添加到列表中
服务端代码如下:
结论:
上面的例子,完成了从服务端获取一条命令。本例子就算作入门Delphi 7 的第一个程序吧。
代码下载: