利用Delphi编写Socket通信程序.docVIP

在工作中遇到对局域网中各工作站与服务器Z间进行Socket通信的问题。现在将木人总结 出来的TServerSocket和TClientSocket两个组件的基木用法写出来，希望与您分亨。 Clientsocket组件为客户端组件。它是通信的请求方，也就是说，它是主动地与服务器 端建立连接。 ServerSocket组件为服务器端组件。它是通信的响应方，也就是说，它的动作是监听以 及被动接受客户端的连接请求，并对请求进行回复。 ServerSocket组件可以同时接受一个或多个ClientSocket组件的连接请求,并与每个 ClicntSockct组件建立单独的连接，进行单独的通信。因此，一个服务器端可以为多个客八 端服务。 设计思路 木例包括一个服务器端程序和一个客八端程序。客八端程序可以放到多个计算机上运行, 同时与服务器端进行连接通信。 本例的重点，一是演示客户端与服务器端如何通信；二是当有多个客户端同时连接到服 务器端时，服务器端如何识别侮个客户端，并对请求给出相应的冋复。为了保证一个客户端 断开连接时不影响英它客八端与服务器端的通信，同时保证服务器端能够止确回复客八端的 请求，在本例中声明了一个记录类型： type cl ient_record=record CHandle: integer; 〃客户端套接字句柄 CSocketzTCustomWinSocket; 〃客户端套接字 CName:string; 〃存户端计算机名称 CAddresszstring; 〃客八端计算机IP地址 CUsed: boolean; 〃客户端联机标志 end; 利川这个记录类型数据保存客户端的信息，同时保存当前客户端的连接状态。其中， CHandle保存客户端套接字句柄，以便准确定位每个与服务器端保持连接的界户端；Csocket 保存客八端套接字，通过它可以对客八端进彳J?回复。Cused记录当前客八端是否与服务器端 保持连接。 卜血对组件ServerSocket和ClientSocket的属性设置简单说明。 ServerSocket 的属性: ?Port,是通信的端口，必须设置。在木例中设置为1025； ? ServerTypt,服务器端读写信息类型，设置为stNonBlocking表示界步读写信息，本例 中采用这种方式。 ? ThreadCacheSize,客户端的最人连接数，就是服务器端最多允许多少客户端同时连接。 本例采用默认值10。 其它属性采用默认设置即可。 ClientSocket 的属性： ?Port,是通信的端口，必须与服务器端的设置相同。在本例中设置为1025； -ClientType,客八端读写信息类型，应该与服务器端的设置和同，为stNonBlocking 示异步读写信息。 -Host,客八端要连接的服务器的IP地址。必须设宜，当然也可以在代码中动态设置。 其它属性采用默认设置即口J。 程序源代码： ?服务器端源码(uServerMain.pas)： unit uServerMain; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ScktComp, ToolWin, ComCtrls, ExtCtrls, StdCtrls, Buttons; const CMax=10; 〃客户端最大连接数 type clien t_reco rd=record CHandle: integer; 〃客户端套接字句柄 CSocketzTCustomWinSocket; 〃客户端套接字 CNamezstring; 〃客户端计算机名称 CAddresszstring; 〃客户端计算机IP地址 CUsed: boolean; 〃客户端联机标志 end; type TfrmServerMain = class(TForm) ServerSocket: TServerSocket; ControlBarl: TControlBar; ToolBarl: TToolBar; tbConnect: TToolButton; tbClose: TToolButton; tbDisconnected: TToolButton; Editl: TEdit; Memol: TMemo; StatusBar: TStatusBar; procedure tbConnectClick(Sender: TObject); procedure tbDisconnectedClick(Sender: TObject); procedure ServerSocketClientRead(Sender: TObject;Socke