Socket通信应用实例.docxVIP

unit MainUnit;interfaceuses Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, DBGrids, ScktComp, ComCtrls, StdCtrls, ExtCtrls, ComFunUnit, IBDatabase, DB, IBCustomDataSet, IBQuery, IniFiles, Grids;const CMax = 50; //客户端最大连接数 CMsgStoreMax = 30;type client_record = record CHandle : Integer; //客户端套接字句柄 CSocket : TCustomWinSocket; //客户端套接字 CName : string; //客户端计算机名称 CAddress : string; //客户端计算机IP地址 CUsed : Boolean; //客户端联机标志 end; MsgBuf = record MsgSource : array[0..32] of Char; MsgDes