引擎控制台集成了许多设置处理事件,庞大的单元结构容易让思路不是很清晰,加上引用文件的定义,或多或少会让维护带来不变,在学习的过程中,将它重写一遍,不用第三方控件,实现的思路大概如下:
将操作界面适当扩大,后续按照标签增加服务端的脚本设置功能,所有涉及文本操作和线程监控的都写到一个程序里边,初步的服务端界面已经基本完成,实现的功能:
1.设置服务启动选项,去掉checkbox,原来大概有30多个,改用CheckListBox.
2.服务器设置不用INI文件和文本文件,在此增加了一access数据库,将代码尽量减少,设置尽量灵活.
3.端口批量处理操作,一机多服的时候进行端口批量加减操作,都用数据库来处理,数据库用的时候读,不用的时候关掉.
unit gmain;//主单元,整个主单元不涉及功能实现部分
interface
uses
Classes, Controls, Forms, ComCtrls, CheckLst, StdCtrls, SysUtils;
type
TFormMain = class(TForm)
PageControl: TPageControl;
ts1: TTabSheet;
ts2: TTabSheet;
btnDefaule: TButton;
CheckListBoxServerControl: TCheckListBox;
GroupBoxGameDIRDBSet: