DELPHI版传奇引擎学习菜鸟篇(applem2)-01

admin

DELPHI版传奇引擎学习菜鸟篇(applem2)-01

后续所有内容都是我自己学习DELPHI过程中对程序设计的一点浅显的了解,有的也许会引发前辈门笑喷,但是这恰是我学习的成长过程,也是我提高的途径.

DELPHI版传奇引擎学习菜鸟篇(applem2)-01

大部分名字都叫MirServer,基本结构包含八个文件夹和一个GAMECENTER.EXE文件和一个CONFIG.INI文件,以下按照启动顺序说明.

applem2的还有个排行榜的,我想大部分端应该集成在M2里边了吧.

2.源代码结构

服务端只有一个Server.exe程序,其他服务都集成到一个父窗口中,然后根据主程序设置决定需要启动那些服务,毕竟传奇架设的时候有些服务可能不在一个服务器上,虽然是菜鸟,但是咱也得考虑远一点,学习前辈们的一些先进理念,也是拓展了自己的学习思路.

先说说启动中心,不说别的,光是主窗口4000多行的代码就让我眼花缭乱了,这对我来说太难了,有的过程或函数快300行了,阅读比较困难,还是先从自己的角度去理解吧.

GAMECENTER工程架构如下(名字都是从自己理解的角度起的):

1. //本身包含的单元
   
2. ugamecenter.pas     // 主窗口单元
   
3. GShare.pas          // 全局常量单元
   
4. DataBackUp.pas      // 数据备份单元
   
5. //引用的单元
   
6. DBShare.pas         // 共享数据单元
   
7. HUtil32.pas         // 人物操作单元
   
8. MD5Unit.pas         // 数据校验单元
   
9. Common.pas          // 通用常量单元

复制代码

3.1 GShare.pas单元

单元之间的引用很复杂,也许是因为早起代码的原因吧,先说说GShare.pas单元,这个单元包含了服务器的配置常量,如文件夹名字\服务状态\配置文件等全局常量和服务的启动\停止函数以及消息处理过程,先记录一点自己能够理解的.

1. unit GShare;
   
2. 
   
3. interface
   
4. uses
   
5.   Windows, Messages, Classes, SysUtils, INIFiles, DataBackUp, ComCtrls;
   
6. 
   
7. const
   
8.   MAXRUNGATECOUNT = 8;  // 最大游戏网关数量
   
9.   {以下0-9是每个服务的消息编号常量}
   
10.   tDBServer = 0;
    
11.   tLoginSrv = 1;
    
12.   tLogServer = 2;
    
13.   tM2Server = 3;
    
14.   tLoginGate = 4;
    
15.   tSelGate = 6;
    
16.   tRunGate = 8;
    
17.   tPlugTop = 9;
    
18.   {不言而喻,这里是服务配置INI文件的节名称常量}
    
19.   BasicSectionName = 'GameConfig';
    
20.   DBServerSectionName = 'DBServer';
    
21.   LoginSrvSectionName = 'LoginSrv';
    
22.   M2ServerSectionName = 'M2Server';
    
23.   LogServerSectionName = 'LogServer';
    
24.   RunGateSectionName = 'RunGate';
    
25.   SelGateSectionName = 'SelGate';
    
26.   LoginGateSectionName = 'LoginGate';
    
27.   PlugTopSectionName='PlugTop';
    
28.   {IP设置,APPLEM2自带一机双IP设置}
    
29.   sAllIPaddr = '0.0.0.0';
    
30.   sLocalIPaddr = '127.0.0.1';
    
31.   sLocalIPaddr2 = '127.0.0.2';
    
32.   nLimitOnlineUser = 2000;    //服务器最高上线人数(源码自带注释)
    
33.   {以下是各个服务的配置路径和文件常量}
    
34.   SERVERCONFIGDIR = 'Config\';
    
35.   SERVERCONFIGFILE = 'Config.ini';
    
36.   SERVERGAMEDATADIR = 'GameData\';
    
37.   SERVERLOGDIR = 'Log\';
    
38. 
    
39.   DBSERVERSECTIONNAME2 = 'DBServer';
    
40.   DBSERVERDBDIR = 'DB\';
    
41.   DBSERVERALLOWADDR = 'AllowAddr.txt';
    
42.   DBSERVERGATEINFO = 'GateInfo.txt';
    
43. 
    
44.   LOGINSRVSECTIONNAME2 = 'LoginSrv';
    
45.   LOGINSRVCHRLOGNAME = SERVERLOGDIR + 'ChrLog\';
    
46.   LOGINSRVALLOWADDR = 'LoginSrv_AllowAddr.txt';
    
47.   LOGINSRVGETINFO = 'LoginSrv_GateInfo.txt';
    
48.   LOGINSRVUSERLIMIT = 'LoginSrv_UserLimit.txt';
    
49. 
    
50.   M2SERVERCONFIGFILE = '!Setup.txt';
    
51.   M2SERVERSECTIONNAME1 = 'Server';
    
52.   M2SERVERSECTIONNAME2 = 'Share';
    
53.   M2SERVERSEGuildBase = SERVERGAMEDATADIR + 'GuildBase\';
    
54.   M2SERVERSEGuildDir = M2SERVERSEGuildBase + 'Guilds\';
    
55.   M2SERVERSEGuildFile = M2SERVERSEGuildBase + 'GuildList.txt';
    
56.   M2SERVERSEConLogDir = SERVERLOGDIR + 'M2ConLog\';
    
57.   M2SERVERSECastleDir = SERVERGAMEDATADIR + 'Castle\';
    
58.   M2SERVERSECastleFile = SERVERGAMEDATADIR + 'Castle\List.txt';
    
59.   M2SERVERSELogDir = SERVERLOGDIR + 'M2Log\';
    
60.   M2SERVERSEEMailDir = SERVERLOGDIR + 'M2Log\';
    
61.   M2SERVERSEnvirDir = 'Envir\';
    
62.   M2SERVERSMapDir = 'Map\';
    
63.   M2SERVERSALLOWADDR = 'M2Server_AllowAddr.txt';
    
64.   M2SERVERSEmailDir = SERVERGAMEDATADIR + 'EMail\';
    
65. 
    
66.   LOGSERVERSECTIONNAME2 = 'LogDataServer';
    
67.   LOGSERVERBaseDir = SERVERGAMEDATADIR + 'GameLog\';
    
68.   RunGateSectionName2 = 'RunGate';
    
69.   SelGateSectionName2 = 'SelGate';
    
70.   LoginGateSectionName2 = 'LoginGate';
    
71.   PlugTopDIR=SERVERGAMEDATADIR +'\mir200\';
    
72. 
    
73. type
    
74.   {定义每个服务的应用程序状态结构指针}
    
75.   pTProgram = ^TProgram;
    
76.   TProgram = packed record
    
77.     boGetStart: Boolean; //DBServer启动标志 (源码自带注释)
    
78.     boReStart: Boolean; //程序异常停止，是否重新启动 (源码自带注释)
    
79.     btStartStatus: Byte;//0,1,2,3 未启动，正在启动，已启动,正在关闭 (源码自带注释)
    
80.     sProgramFile: string[50];
    
81.     sDirectory: string[100];
    
82.     ProcessInfo: TProcessInformation; //服务的进程信息(进程,线程,进程ID,线程ID)
    
83.     ProcessHandle: THandle;           //进程句柄
    
84.     MainFormHandle: THandle;          //主窗口句柄,后续改为每个服务对应的活动窗口句柄
    
85.     nMainFormX: Integer;  //服务端启动后窗口位置
    
86.     nMainFormY: Integer;
    
87.   end;
    
88.   {应该是加载地图文件的结构指针}
    
89.   pTDataListInfo = ^TDataListInfo;
    
90.   TDataListInfo = packed record
    
91.     sFileName: string[255];
    
92.     MapFileHandle: THandle;
    
93.     MapFileBuffer: PChar;
    
94.     DateTime: TDateTime;
    
95.     Data: PChar;
    
96.     DataSize: Integer;
    
97.     Item: TListItem;
    
98.   end;
    
99.   {检测服务运行状态}
    
100.   TCheckCode = packed record
     
101.     dwThread0: LongWord;
     
102.     sThread0: string;
     
103.   end;
     
104.   {下边的一堆CONFIG是对应的每个服务状态的结构}
     
105.   TDBServerConfig = packed record
     
106.     MainFormX: Integer;
     
107.     MainFormY: Integer;
     
108.     GatePort: Integer;
     
109.     ServerPort: Integer;
     
110.     GetStart: Boolean;
     
111.     ProgramFile: string[50];
     
112.   end;
     
113. 
     
114.   TLoginSrvConfig = packed record
     
115.     MainFormX: Integer;
     
116.     MainFormY: Integer;
     
117.     GatePort: Integer;
     
118.     ServerPort: Integer;
     
119.     MonPort: Integer;
     
120.     GetStart: Boolean;
     
121.     ProgramFile: string[50];
     
122.   end;
     
123. 
     
124.   TM2ServerConfig = packed record
     
125.     MainFormX: Integer;
     
126.     MainFormY: Integer;
     
127.     GatePort: Integer;
     
128.     MsgSrvPort: Integer;
     
129.     GetStart: Boolean;
     
130.     ProgramFile: string[50];
     
131.   end;
     
132. 
     
133.   TLogServerConfig = packed record
     
134.     MainFormX: Integer;
     
135.     MainFormY: Integer;
     
136.     Port: Integer;
     
137.     GetStart: Boolean;
     
138.     ProgramFile: string[50];
     
139.   end;
     
140. 
     
141.     TPlugTopConfig = packed record
     
142.     MainFormX: Integer;
     
143.     MainFormY: Integer;
     
144.     Port: Integer;
     
145.     GetStart: Boolean;
     
146.     ProgramFile: string[50];
     
147.   end;
     
148. 
     
149.   TRunGateConfig = packed record
     
150.     MainFormX: Integer;
     
151.     MainFormY: Integer;
     
152.     GetStart: array[0..MAXRUNGATECOUNT - 1] of Boolean;
     
153.     GatePort: array[0..MAXRUNGATECOUNT - 1] of Integer;
     
154.     ProgramFile: string[50];
     
155.   end;
     
156. 
     
157.   TSelGateConfig = packed record
     
158.     MainFormX: Integer;
     
159.     MainFormY: Integer;
     
160.     GatePort: array[0..1] of Integer;
     
161.     GetStart1: Boolean;
     
162.     GetStart2: Boolean;
     
163.     ProgramFile: string[50];
     
164.   end;
     
165. 
     
166.   TLoginGateConfig = packed record
     
167.     MainFormX: Integer;
     
168.     MainFormY: Integer;
     
169.     GatePort: Integer;
     
170.     GetStart: Boolean;
     
171.     ProgramFile: string[50];
     
172.   end;
     
173.   {将所有的服务状态声明为一个结构指针}
     
174.   pTConfig = ^TConfig;
     
175.   TConfig = packed record
     
176.     DBServer: TDBServerConfig;
     
177.     LoginSrv: TLoginSrvConfig;
     
178.     M2Server: TM2ServerConfig;
     
179.     LogServer: TLogServerConfig;
     
180.     RunGate: TRunGateConfig;
     
181.     SelGate: TSelGateConfig;
     
182.     LoginGate: TLoginGateConfig;
     
183.     PlugTop: TPlugTopConfig;
     
184.   end;
     
185. 
     
186.   procedure LoadConfig();  //加载启动设置
     
187.   procedure SaveConfig();  //保存启动设置
     
188.   {下边2个是启动和停止每个服务的函数}
     
189.   function RunProgram(var ProgramInfo: TProgram; sHandle: string; dwWaitTime: LongWord): LongWord;
     
190.   function StopProgram(var ProgramInfo: TProgram; dwWaitTime: LongWord): Integer;
     
191.   {发送每个服务当前状态的消息处理过程}
     
192.   procedure SendProgramMsg(DesForm: THandle; wIdent: Word; sSendMsg: string);

复制代码

先将学习过的温习一下,然后再将服务器的状态处理连贯做一下记录.

关注过程,不知不觉就发现了结果原来如此...