依星源码资源网,依星资源网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

【好消息,好消息,好消息】VIP会员可以发表文章赚积分啦 !
查看: 44|回复: 0

[游戏架设教程] DELPHI版传奇引擎学习菜鸟篇(applem2)-03

[复制链接] 主动推送

2076

主题

2083

帖子

3214

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
3214
发表于 2024-11-2 23:54:14 | 显示全部楼层 |阅读模式
DELPHI版传奇引擎学习菜鸟篇(applem2)-03
3.2 Gmain.pas单元
这是引擎控制台的主窗口,就是之前说的那个4500行代码的单元,对大神来说,这不算什么,对我看来说,光是理清里边的关系就很吃力.我知道也许从程序的架构角度去理解会好一些,但咱不懂那些,只好继续以一个菜鸟的方式按单元\按页面逐项查看,期待能获得一些营养.
接口部分也有近500行代码,虽然我是初学delphi,但也知道把所有的功能和定义都放到一个单元对以后维护带来很大不变,这份代码是谁写的我不清楚,但是至少不像比较标准的架构,除了重复的复制代码,就是一些嵌套的过程中的过程和函数函数,这恰是我所需要的,让我明白了如何去架构一个良好的可维护的程序,以及很容易让别人读懂的程序,突然我想到了程序设计中面条式的复杂结构,至少能让我知道怎么去避免写一些不容易看懂的代码.
主单元的界面如下:

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

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

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

DELPHI版传奇引擎学习菜鸟篇(applem2)-03
可以看出来这么多的界面集成到一个单元是多么的不容易,我觉得可以把界面封装到几个或几组dll里边,界面只实现与VCL状态有关的代码,应该好维护一点,500行声明有400行是界面的控件声明和过程声明,仔细过一遍发现很多过程实现都在窗体控件的方法里边,重用的可能性几乎为零.也许是早期代码的原因,但是有一点我不明白,delphi是很好的面向对象设计的IDE,怎么前辈们就没有想到或利用呢?开始怀疑这个源代码也许是高手写的初级版本,毕竟较成熟的版本很少拿来开源.
窗口自身的单元不用介绍,看界面就知道是干什么的,其定义的其他方法如下:
  1. private
  2.     m_boOpen: Boolean;      //开关标志
  3.      m_nStartStatus: Integer;//启动状态标志,在GShare.pas里边有类似声明
  4.      m_dwShowTick: LongWord;
  5.     m_dwRefTick: LongWord;
  6.     {定义时间变量,用于启动脚本和备份脚本}
  7.     m_btHour: Byte;
  8.     m_btMinute: Byte;
  9.     m_dwRunTime: LongWord;
  10.     m_dwRunTick: LongWord;
  11.     m_boGateStop: Boolean;
  12.     m_boGateStopTick: LongWord;
  13.     {上述几个适用于检测启动的服务的,异常或停止的通过设置状态重新启动}
  14.     {下边是定义的私有过程,其实可以放到另一个单元}
  15.     procedure RefGameConsole(); //加载配置信息到可视化界面
  16.      procedure GenGameConfig();  //写入游戏设置文件,以下几个都是
  17.      procedure GenDBServerConfig();
  18.     procedure GenLoginServerConfig();
  19.     procedure GenLogServerConfig();
  20.     procedure GenM2ServerConfig();
  21.     procedure GenLoginGateConfig();
  22.     procedure GenSelGateConfig();
  23.     procedure GenRunGateConfig;
  24.     procedure GenPlugTopConfig();
  25.     {启动\停止服务,这里是通过设置状态,然后通过定时器启动,启动方法在GShare里边}
  26.     procedure StartGame();
  27.     procedure StopGame();
  28.     {发送数据信息,还有一个MainOutMessage被我Ppublic了,为了调试用}
  29.     procedure MainOutDataListMessage(sMsg: string);
  30.     {发送进程消息,其实就是将服务的启动状态发送到引擎控制带主界面}
  31.     procedure ProcessDBServerMsg(wIdent: Word; sData: string);
  32.     procedure ProcessLoginSrvMsg(wIdent: Word; sData: string);
  33.     procedure ProcessLogServerMsg(wIdent: Word; sData: string);
  34.     procedure ProcessPlugTopMsg(wIdent: Word; sData: string);
  35.     procedure ProcessLoginGateMsg(wIdent: Word; sData: string);
  36.     procedure ProcessSelGateMsg(wIdent: Word; sData: string);
  37.     procedure ProcessRunGateMsg(wIdent: Word; sData: string);
  38.     function ProcessM2ServerMsg(wIdent: Word; sData: string): Integer;
  39.     {加载RunGate网关的设置,因为不是一个,所以猜测Mut应该是多个的意思}
  40.     procedure GetMutRunGateConfing(nIndex: Integer);
  41.     function StartService(): Boolean;//这个是启动游戏控制台
  42.     {以下两个类似GetMutRunGateConfing,都是循环读取网关状态}
  43.     procedure GenMutSelGateConfig(nIndex: Integer);
  44.     procedure GenMutLoginGateConfig(nIndex: Integer);
  45.     procedure LoadBackList();//加载备份列表
  46.     procedure RefBackListToView();//这个是将备份信息写到ListView里边
  47.     {这是通过Socket发送数据,带MD5校验}
  48.    function SendDataListData(wIdent: Word; sData: string): Boolean;
  49.    function RefDataListItem(): Boolean;//更新数据函数
  50.     procedure ClearDataListItem();//清除旧的数据列表
  51.     {下边几个是读取地图数据用的,暂时有点理解困难}
  52.    function NewDataListInfo(): pTDataListInfo;//初始化新数据列表
  53.     procedure DisposeDataListInfo(DataListInfo: pTDataListInfo);//释放数据列表
  54.     function GetNextData(): Boolean;
  55.     {取得地图数据信息}
  56.    function MapGetFileData(sFileName: string; boBackData: Boolean): Integer;
  57.     { Private declarations }
  58.   public
  59.     {处理消息用的两个过程}
  60.     procedure ProcessMessage(var Msg: TMsg; var Handled: Boolean);
  61.     procedure MyMessage(var MsgData: TWmCopyData); message WM_COPYDATA;
  62.     procedure MainOutMessage(sMsg: string);//这个原先在private里边
  63.     { Public declarations }
  64.   end;
复制代码
实现的部分东西比较多,也比较乱,按顺序一个一个学习,RefGameConsole是重新加载所有配置,为引擎启动做准备.
  1. procedure TfrmMain.RefGameConsole;
  2. begin
  3.   m_boOpen := False;
  4.   CheckBoxM2Server.Checked := g_Config.M2Server.GetStart;
  5.   CheckBoxDBServer.Checked := g_Config.DBServer.GetStart;
  6.   CheckBoxLoginServer.Checked := g_Config.LoginSrv.GetStart;
  7.   CheckBoxLogServer.Checked := g_Config.LogServer.GetStart;
  8.   CheckBoxLoginGate.Checked := g_Config.LoginGate.GetStart;
  9.   CheckBoxSelGate.Checked := g_Config.SelGate.GetStart1;
  10.   CheckBoxSelGate1.Checked := g_Config.SelGate.GetStart2;
  11.   CheckBoxRunGate.Checked := g_Config.RunGate.GetStart[0];
  12.   CheckBoxRunGate1.Checked := g_Config.RunGate.GetStart[1];
  13.   CheckBoxRunGate2.Checked := g_Config.RunGate.GetStart[2];
  14.   CheckBoxRunGate3.Checked := g_Config.RunGate.GetStart[3];
  15.   CheckBoxRunGate4.Checked := g_Config.RunGate.GetStart[4];
  16.   CheckBoxRunGate5.Checked := g_Config.RunGate.GetStart[5];
  17.   CheckBoxRunGate6.Checked := g_Config.RunGate.GetStart[6];
  18.   CheckBoxRunGate7.Checked := g_Config.RunGate.GetStart[7];
  19.   
  20.   EditGameDir.Text := g_sGameDirectory;
  21.   EditHeroDB.Text := g_sHeroDBName;
  22.   EditGameName.Text := g_sGameName;
  23.   EditGameExtIPaddr.Text := g_sExtIPaddr;
  24.   EditGameExtIPAddr2.Text := g_sExtIPAddr2;
  25.   CheckBoxIP2.Checked := g_boIP2;
  26.   CheckBoxCloseWuXin.Checked := g_boCloseWuXin;

  27.   EditDBServer_MainFormX.Value := g_Config.DBServer.MainFormX;
  28.   EditDBServer_MainFormY.Value := g_Config.DBServer.MainFormY;
  29.   EditDBServerGatePort.Text := IntToStr(g_Config.DBServer.GatePort);
  30.   EditDBServerServerPort.Text := IntToStr(g_Config.DBServer.ServerPort);
  31.   CheckBoxDBServerGetStart.Checked := g_Config.DBServer.GetStart;

  32.   EditLoginServer_MainFormX.Value := g_Config.LoginSrv.MainFormX;
  33.   EditLoginServer_MainFormY.Value := g_Config.LoginSrv.MainFormY;
  34.   EditLoginServerGatePort.Text := IntToStr(g_Config.LoginSrv.GatePort);
  35.   EditLoginServerServerPort.Text := IntToStr(g_Config.LoginSrv.ServerPort);
  36.   EditLoginServerMonPort.Text := IntToStr(g_Config.LoginSrv.MonPort);
  37.   CheckBoxboLoginServer_GetStart.Checked := g_Config.LoginSrv.GetStart;

  38.   EditM2Server_MainFormX.Value := g_Config.M2Server.MainFormX;
  39.   EditM2Server_MainFormY.Value := g_Config.M2Server.MainFormY;
  40.   EditM2ServerGatePort.Text := IntToStr(g_Config.M2Server.GatePort);
  41.   EditM2ServerMsgSrvPort.Text := IntToStr(g_Config.M2Server.MsgSrvPort);
  42.   CheckBoxM2ServerGetStart.Checked := g_Config.M2Server.GetStart;

  43.   EditLogServer_MainFormX.Value := g_Config.LogServer.MainFormX;
  44.   EditLogServer_MainFormY.Value := g_Config.LogServer.MainFormY;
  45.   EditLogServerPort.Text := IntToStr(g_Config.LogServer.Port);
  46.   CheckBoxLogServerGetStart.Checked := g_Config.LogServer.GetStart;

  47.   CheckBoxboRunGate_GetStart1.Checked := g_Config.RunGate.GetStart[0];
  48.   CheckBoxboRunGate_GetStart2.Checked := g_Config.RunGate.GetStart[1];
  49.   CheckBoxboRunGate_GetStart3.Checked := g_Config.RunGate.GetStart[2];
  50.   CheckBoxboRunGate_GetStart4.Checked := g_Config.RunGate.GetStart[3];
  51.   CheckBoxboRunGate_GetStart5.Checked := g_Config.RunGate.GetStart[4];
  52.   CheckBoxboRunGate_GetStart6.Checked := g_Config.RunGate.GetStart[5];
  53.   CheckBoxboRunGate_GetStart7.Checked := g_Config.RunGate.GetStart[6];
  54.   CheckBoxboRunGate_GetStart8.Checked := g_Config.RunGate.GetStart[7];
  55.   EditRunGate_MainFormX.Value := g_Config.RunGate.MainFormX;
  56.   EditRunGate_MainFormY.Value := g_Config.RunGate.MainFormY;
  57.   EditRunGate_GatePort1.Text := IntToStr(g_Config.RunGate.GatePort[0]);
  58.   EditRunGate_GatePort2.Text := IntToStr(g_Config.RunGate.GatePort[1]);
  59.   EditRunGate_GatePort3.Text := IntToStr(g_Config.RunGate.GatePort[2]);
  60.   EditRunGate_GatePort4.Text := IntToStr(g_Config.RunGate.GatePort[3]);
  61.   EditRunGate_GatePort5.Text := IntToStr(g_Config.RunGate.GatePort[4]);
  62.   EditRunGate_GatePort6.Text := IntToStr(g_Config.RunGate.GatePort[5]);
  63.   EditRunGate_GatePort7.Text := IntToStr(g_Config.RunGate.GatePort[6]);
  64.   EditRunGate_GatePort8.Text := IntToStr(g_Config.RunGate.GatePort[7]);

  65.   EditSelGate_MainFormX.Value := g_Config.SelGate.MainFormX;
  66.   EditSelGate_MainFormY.Value := g_Config.SelGate.MainFormY;
  67.   CheckBoxboSelGate_GetStart.Checked := g_Config.SelGate.GetStart1;
  68.   CheckBoxboSelGate_GetStart2.Checked := g_Config.SelGate.GetStart2;
  69.   EditSelGate_GatePort.Text := IntToStr(g_Config.SelGate.GatePort[0]);
  70.   EditSelGate_GatePort1.Text := IntToStr(g_Config.SelGate.GatePort[1]);

  71.   EditLoginGate_MainFormX.Value := g_Config.LoginGate.MainFormX;
  72.   EditLoginGate_MainFormY.Value := g_Config.LoginGate.MainFormY;
  73.   CheckBoxboLoginGate_GetStart.Checked := g_Config.LoginGate.GetStart;
  74.   EditLoginGate_GatePort.Text := IntToStr(g_Config.LoginGate.GatePort);

  75.   CheckBoxPlugTopGetStart.Checked :=g_Config.PlugTop.GetStart;
  76.   CheckBoxPlugTop.Checked:=g_Config.PlugTop.GetStart;
  77.   EditPlugTop_MainFormX.Value:=g_Config.PlugTop.MainFormX;
  78.   EditPlugTop_MainFormY.Value:=g_Config.PlugTop.MainFormY;
  79.   m_boOpen := True;
  80. end;
复制代码
看着上边好多类似的取值方式,让我想到了继承,可惜之前定义的都是结构,不然可以优化多,这个函数倒不用多做说明,太通俗易懂了.
下边几个过程是将设置写入服务配置文件,都是类似的,也不用多想就可以看懂,一共9个,第一个是调用其他8个的过程,就是主界面上保存设置按钮的事件.
  1. procedure TfrmMain.GenGameConfig;
  2. begin
  3.   GenDBServerConfig();
  4.   GenLoginServerConfig();
  5.   GenM2ServerConfig();
  6.   GenLogServerConfig();
  7.   GenRunGateConfig();
  8.   GenSelGateConfig();
  9.   GenLoginGateConfig();
  10.   GenPlugTopConfig();
  11. end;

  12. procedure TfrmMain.GenDBServerConfig;
  13. var
  14.   sIniFile: string;
  15.   SaveList: TStringList;
  16.   I: Integer;
  17. begin
  18.   IfNoDirThenCreate(g_sGameDirectory + 'DBServer\');
  19.   IfNoDirThenCreate(g_sGameDirectory + 'DBServer\DB\');

  20.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2,'ServerName',g_sGameName);
  21.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'ServerAddr', sLocalIPaddr);
  22.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'ServerPort', g_Config.DBServer.ServerPort);
  23.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'GateAddr', sAllIPaddr);
  24.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'GatePort', g_Config.DBServer.GatePort);
  25.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'IDSAddr', sLocalIPaddr);
  26.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'IDSPort', g_Config.LoginSrv.ServerPort);
  27.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'DBName', g_sHeroDBName);
  28.   WriteIniValue('Dbsrc.ini',DBSERVERSECTIONNAME2, 'DBDir', '.\DB\');

  29.   SaveList := TStringList.Create;
  30.   SaveList.Add(sLocalIPaddr);
  31.   if g_boIP2 then SaveList.Add(sLocalIPaddr2);
  32.   SaveList.SaveToFile(sIniFile + '!addrtable.txt');

  33.   SaveList.Clear;
  34.   sIniFile := sLocalIPaddr;
  35.   for I := Low(g_Config.RunGate.GetStart) to High(g_Config.RunGate.GetStart) do
  36.   begin
  37.     if g_Config.RunGate.GetStart[I] then
  38.       sIniFile := sIniFile + Format(' %s %d', [g_sExtIPaddr, g_Config.RunGate.GatePort[I]]);
  39.   end;
  40.   SaveList.Add(sIniFile);
  41.   if g_boIP2 then
  42.   begin
  43.     sIniFile := sLocalIPaddr2;
  44.     for I := Low(g_Config.RunGate.GetStart) to High(g_Config.RunGate.GetStart) do
  45.     begin
  46.       if g_Config.RunGate.GetStart[I] then
  47.         sIniFile := sIniFile + Format(' %s %d', [g_sExtIPaddr2, g_Config.RunGate.GatePort[I]]);
  48.     end;
  49.     SaveList.Add(sIniFile);
  50.   end;
  51.   SaveList.SaveToFile(g_sGameDirectory + 'DBServer\!serverinfo.txt');
  52.   SaveList.Free;

  53.   if not FileExists(g_sGameDirectory + 'DBServer\FUserName.txt') then
  54.   begin
  55.     SaveList := TStringList.Create;
  56.     SaveList.Add(';创建人物过滤字符,一行一个过滤');
  57.     SaveList.SaveToFile(g_sGameDirectory + 'DBServer\FUserName.txt');
  58.     SaveList.Free;
  59.   end;
  60. end;
复制代码
启动和停止服务的过程也不是太复杂,不过我看着怎么就那么"复杂",等待都过完一遍后要从头重新写一遍.
  1. procedure TfrmMain.StartGame;
  2. var
  3.   I: Integer;
  4. begin
  5.   m_dwRunTick := GetTickCount;  //返回系统启动经历的毫秒数
  6.   FillChar(DBServer, SizeOf(TProgram), #0); //用指定的值填充连续的字节为进程启动做准备
  7.   //读取服务启动前的初始化状态,以下类似
  8.   DBServer.boGetStart := g_Config.DBServer.GetStart;
  9.   DBServer.boReStart := True;
  10.   DBServer.sDirectory := g_sGameDirectory + 'DBServer\';
  11.   DBServer.sProgramFile := g_Config.DBServer.ProgramFile;
  12.   DBServer.nMainFormX := g_Config.DBServer.MainFormX;
  13.   DBServer.nMainFormY := g_Config.DBServer.MainFormY;

  14.   FillChar(LoginServer, SizeOf(TProgram), #0);
  15.   LoginServer.boGetStart := g_Config.LoginSrv.GetStart;
  16.   LoginServer.boReStart := True;
  17.   LoginServer.sDirectory := g_sGameDirectory + 'LoginSrv\';
  18.   LoginServer.sProgramFile := g_Config.LoginSrv.ProgramFile;
  19.   LoginServer.nMainFormX := g_Config.LoginSrv.MainFormX;
  20.   LoginServer.nMainFormY := g_Config.LoginSrv.MainFormY;

  21.   FillChar(LogServer, SizeOf(TProgram), #0);
  22.   LogServer.boGetStart := g_Config.LogServer.GetStart;
  23.   LogServer.boReStart := True;
  24.   LogServer.sDirectory := g_sGameDirectory + 'LogServer\';
  25.   LogServer.sProgramFile := g_Config.LogServer.ProgramFile;
  26.   LogServer.nMainFormX := g_Config.LogServer.MainFormX;
  27.   LogServer.nMainFormY := g_Config.LogServer.MainFormY;

  28.   FillChar(M2Server, SizeOf(TProgram), #0);
  29.   M2Server.boGetStart := g_Config.M2Server.GetStart;
  30.   M2Server.boReStart := True;
  31.   M2Server.sDirectory := g_sGameDirectory + 'Mir200\';
  32.   M2Server.sProgramFile := g_Config.M2Server.ProgramFile;
  33.   M2Server.nMainFormX := g_Config.M2Server.MainFormX;
  34.   M2Server.nMainFormY := g_Config.M2Server.MainFormY;
  35.   //RunGate可以启动8个进程,所以用循环读取
  36.   FillChar(RunGate, SizeOf(RunGate), #0);
  37.   for I := Low(RunGate) to High(RunGate) do
  38.   begin
  39.     RunGate[I].btStartStatus := 0;
  40.     RunGate[I].boGetStart := g_Config.RunGate.GetStart[I];
  41.     RunGate[I].boReStart := True;
  42.     RunGate[I].sDirectory := g_sGameDirectory + 'RunGate\';
  43.     RunGate[I].sProgramFile := g_Config.RunGate.ProgramFile;
  44.     if ((I + 1) mod 2) = 0 then
  45.       RunGate[I].nMainFormX := g_Config.RunGate.MainFormX + 276
  46.     else
  47.       RunGate[I].nMainFormX := g_Config.RunGate.MainFormX;
  48.     if I in [2, 3, 6, 7] then
  49.       RunGate[I].nMainFormY := g_Config.RunGate.MainFormY + 187
  50.     else
  51.       RunGate[I].nMainFormY := g_Config.RunGate.MainFormY; //187
  52.   end;

  53.   FillChar(SelGate, SizeOf(TProgram), #0);
  54.   SelGate.boGetStart := g_Config.SelGate.GetStart1;
  55.   SelGate.boReStart := True;
  56.   SelGate.sDirectory := g_sGameDirectory + 'SelGate\';
  57.   SelGate.sProgramFile := g_Config.SelGate.ProgramFile;
  58.   SelGate.nMainFormX := g_Config.SelGate.MainFormX;
  59.   SelGate.nMainFormY := g_Config.SelGate.MainFormY;

  60.   FillChar(SelGate1, SizeOf(TProgram), #0);
  61.   SelGate1.boGetStart := g_Config.SelGate.GetStart2;
  62.   SelGate1.boReStart := True;
  63.   SelGate1.sDirectory := g_sGameDirectory + 'SelGate\';
  64.   SelGate1.sProgramFile := g_Config.SelGate.ProgramFile;
  65.   SelGate1.nMainFormX := g_Config.SelGate.MainFormX;
  66.   SelGate1.nMainFormY := g_Config.SelGate.MainFormY;

  67.   FillChar(LoginGate, SizeOf(TProgram), #0);
  68.   LoginGate.boGetStart := g_Config.LoginGate.GetStart;
  69.   LoginGate.boReStart := True;
  70.   LoginGate.sDirectory := g_sGameDirectory + 'LoginGate\';
  71.   LoginGate.sProgramFile := g_Config.LoginGate.ProgramFile;
  72.   LoginGate.nMainFormX := g_Config.LoginGate.MainFormX;
  73.   LoginGate.nMainFormY := g_Config.LoginGate.MainFormY;

  74.   FillChar(LoginGate2, SizeOf(TProgram), #0);
  75.   LoginGate2.boGetStart := g_Config.LoginGate.GetStart and g_boIP2;
  76.   LoginGate2.boReStart := True;
  77.   LoginGate2.sDirectory := g_sGameDirectory + 'LoginGate\';
  78.   LoginGate2.sProgramFile := g_Config.LoginGate.ProgramFile;
  79.   LoginGate2.nMainFormX := g_Config.LoginGate.MainFormX;
  80.   LoginGate2.nMainFormY := g_Config.LoginGate.MainFormY;

  81.   FillChar(PlugTop, SizeOf(TProgram), #0);
  82.   PlugTop.boGetStart := g_Config.PlugTop.GetStart;
  83.   PlugTop.boReStart := True;
  84.   PlugTop.sDirectory := g_sGameDirectory + 'Mir200\';
  85.   PlugTop.sProgramFile := g_Config.PlugTop.ProgramFile;
  86.   PlugTop.nMainFormX := g_Config.PlugTop.MainFormX;
  87.   PlugTop.nMainFormY := g_Config.PlugTop.MainFormY;

  88.   CheckDBServer.Checked := DBServer.boGetStart;
  89.   CheckLoginSrv.Checked := LoginServer.boGetStart;
  90.   CheckM2Server.Checked := M2Server.boGetStart;
  91.   CheckLogServer.Checked := LogServer.boGetStart;
  92.   CheckPlugTop.Checked := PlugTop.boGetStart;
  93.   CheckLoginGate.Checked := LoginGate.boGetStart;
  94.   CheckSelGate1.Checked := SelGate.boGetStart;
  95.   CheckSelGate2.Checked := SelGate1.boGetStart;
  96.   CheckRunGate1.Checked := RunGate[0].boGetStart;
  97.   CheckRunGate2.Checked := RunGate[1].boGetStart;
  98.   CheckRunGate3.Checked := RunGate[2].boGetStart;
  99.   CheckRunGate4.Checked := RunGate[3].boGetStart;
  100.   CheckRunGate5.Checked := RunGate[4].boGetStart;
  101.   CheckRunGate6.Checked := RunGate[5].boGetStart;
  102.   CheckRunGate7.Checked := RunGate[6].boGetStart;
  103.   CheckRunGate8.Checked := RunGate[7].boGetStart;

  104.   ButtonStartGame.Caption := g_sButtonStopStartGame;
  105.   m_nStartStatus := 1;
  106.   TimerStartGame.Enabled := True;//调用启动计时器按顺序启动所有服务
  107. end;

  108. procedure TfrmMain.StopGame;
  109. begin
  110.   ButtonStartGame.Caption := g_sButtonStopStopGame;
  111.   MainOutMessage('正在开始停止服务器...');
  112.   TimerCheckRun.Enabled := False; //停止服务监测
  113.   TimerStopGame.Enabled := True;  //调用停止计时器按启动的相反顺序停止服务
  114.   m_boGateStop := False;
  115.   m_nStartStatus := 3;
  116. end;
复制代码
接下来的学习就涉及到了服务启动配置文件和启动设置问题,用到的win API较多,尤其是进程的通讯和消息处理,一个函数需要反复调试多遍我才能理解出一点东西,其中的穿插调用也很频繁,自己先将之前的复习一遍,为后边的学习做准备.

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

相关帖子

扫码关注微信公众号,及时获取最新资源信息!下载附件优惠VIP会员5折;永久VIP免费
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

免责声明:
1、本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为,请在24小时之内自行删除!
2、本站所有内容均由互联网收集整理、网友上传,并且以计算机技术研究交流为目的,仅供大家参考、学习,请勿任何商业目的与商业用途。
3、若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
4、论坛的所有内容都不保证其准确性,完整性,有效性,由于源码具有复制性,一经售出,概不退换。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
5、用户使用本网站必须遵守适用的法律法规,对于用户违法使用本站非法运营而引起的一切责任,由用户自行承担
6、本站所有资源来自互联网转载,版权归原著所有,用户访问和使用本站的条件是必须接受本站“免责声明”,如果不遵守,请勿访问或使用本网站
7、本站使用者因为违反本声明的规定而触犯中华人民共和国法律的,一切后果自己负责,本站不承担任何责任。
8、凡以任何方式登陆本网站或直接、间接使用本网站资料者,视为自愿接受本网站声明的约束。
9、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则:为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬。若有学员需要商用本站资源,请务必联系版权方购买正版授权!
10、本网站如无意中侵犯了某个企业或个人的知识产权,请来信【站长信箱312337667@qq.com】告之,本站将立即删除。
郑重声明:
本站所有资源仅供用户本地电脑学习源代码的内含设计思想和原理,禁止任何其他用途!
本站所有资源、教程来自互联网转载,仅供学习交流,不得商业运营资源,不确保资源完整性,图片和资源仅供参考,不提供任何技术服务。
本站资源仅供本地编辑研究学习参考,禁止未经资源商正版授权参与任何商业行为,违法行为!如需商业请购买各资源商正版授权
本站仅收集资源,提供用户自学研究使用,本站不存在私自接受协助用户架设游戏或资源,非法运营资源行为。
 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

微信扫一扫,私享最新原创实用干货

QQ|免责声明|小黑屋|依星资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2024-11-23 23:09

Powered by Net188.com X3.4

邮箱:312337667@qq.com 客服QQ:312337667(工作时间:9:00~21:00)

快速回复 返回顶部 返回列表