用Indy组件开发Socket应用程序

线程与Indy客户程序

　　Indy客户端组件并未使用线程。但是在一些高级的客户程序中，程序员可以在自定义的线程中使用Indy客户端组件，以使用户界面更加友好。

　　简单的Indy应用示例

　　下面将创建一个简单的TCP客户程序和一个简单的TCP服务器来演示Indy的基本使用方法。客户程序使用TCP协议同服务器连接，并向服务器发送用户所输入数据。服务器支持两条命令：DATA和QUIT。在DATA命令后跟随要发送的数据，并用空格将命令字DATA和数据分隔开。

　　表单布局

　　建立一个项目组，添加一个客户程序项目和一个服务器项目。客户程序和服务器程序的表单布局如同2和图3所示。客户程序表单上放置了TIdTCPClient组件，服务器程序表单上放置了TIdTCPServer组件。为防止客户程序“冻结”，还在其表单上放置TIdAntiFreeze组件。


图2 简单的TCP客户程序表单


图3 简单的TCP服务器程序表单

　　客户程序和服务器程序的表单上都放置有TListBox组件，用来显示通信记录。

　　客户程序代码

　　客户程序片断如代码列表1所示。

　　代码列表1

procedure TFormMain.BtnConnectClick(Sender: TObject); begin IdTCPClient.Host := EdtHost.Text; IdTCPClient.Port := StrToInt(EdtPort.Text); LbLog.Items.Add('正在连接 ' + EdtHost.Text + '...'); with IdTCPClient do begin try Connect(5000); try LbLog.Items.Add(ReadLn()); BtnConnect.Enabled := False; BtnSend.Enabled := True; BtnDisconnect.Enabled := True; except LbLog.Items.Add('远程主机无响应！'); IdTCPClient.Disconnect(); end;//end try except LbLog.Items.Add('无法建立到' + EdtHost.Text + '的连接！'); end;//end try end;//end with end; procedure TFormMain.BtnSendClick(Sender: TObject); begin LbLog.Items.Add('DATA ' + EdtData.Text); with IdTCPClient do begin try WriteLn('DATA ' + EdtData.Text); LbLog.Items.Add(ReadLn()) except LbLog.Items.Add('发送数据失败！'); IdTCPClient.Disconnect(); LbLog.Items.Add('同主机 ' + EdtHost.Text + ' 的连接已断开！'); BtnConnect.Enabled := True; BtnSend.Enabled := False; BtnDisconnect.Enabled := False; end;//end try end;//end with end; procedure TFormMain.BtnDisconnectClick(Sender: TObject); var Received: string; begin LbLog.Items.Add('QUIT'); try IdTCPClient.WriteLn('QUIT'); finally IdTCPClient.Disconnect(); LbLog.Items.Add('同主机 ' + EdtHost.Text + ' 的连接已断开！'); BtnConnect.Enabled := True; BtnSend.Enabled := False; BtnDisconnect.Enabled := False; end;//end try end;

　　在“连接”按钮事件响应过程中，首先根据用户输入设置IdTCPClient的主机和端口，并调用IdTCPClient的Connect方法向服务器发出连接请求。然后调用ReadLn方法读取服务器应答数据。

　　在“发送”按钮事件响应过程中，调用WriteLn方法写DATA命令，向服务器发送数据。

　　在“断开”按钮事件响应过程中，向服务器发送QUIT命令，并调用Disconnect方法断开连接。

　　程序中还包含有通信信息记录和异常处理的代码。