typeinc.pas

来自「一个使用UDP开发的消息广播服务与客户端程序」· PAS 代码 · 共 32 行

unit TypeInc;
interface
// 数据库中的基本信息
type THmsg=(GetSrvList,GetServInfo,ChnSelfInfo,GetSelfInfo,
            GetOthSrvInfo,GetSelfAllInfo,SendMsg);
type
  TM_DBINFO = record
    Server:Integer;
    RegSrv:Integer;
    Online:Integer;
    RegOline:Integer;
end;
//请求消息
type
  TM_ServLogin=record
    Msg:THmsg;
    ServID:string[8];
    SendID:String[8];
    ServPass:string;
end;
type
    TM_SrvLst=record
    ID_Info:integer;
    Name:string[50];
    onLine:string[1];
    Reg:string[1];
end;

implementation

end.