procedure TFrmMain.Timer1Timer(Sender: TObject);
var
I: Integer;
nRow: LongWord;
GateInfo: pTGateInfo;
nCode: Byte;
tTimeCount: Currency;
Msg: string;
pmc: PROCESS_MEMORY_COUNTERS_EX;
begin
if boTimer1TimerBusy then Exit;
boTimer1TimerBusy:= True;
nCode:= 0;
try
g_boLogIt := FileExists('../开关/LogIt.txt');
g_boMonNoMove := FileExists('../开关/MonNoMove.txt');
g_boNoDmg := FileExists('../开关/NoDmg.txt');
g_boAllGM := FileExists('../开关/AllGM.txt');
g_boLogTime := True;//FileExists('../开关/消耗时间日志.txt');
g_boKeepMapItem := FileExists('../开关/掉落不消失.txt');
SendGameCenterMsg(SG_FORMHANDLE, IntToStr(Self.Handle));
try
if Assigned(g_GateSocket) and (g_GateSocket.Active = False) then begin
g_GateSocket.Active := True; //打开网关端口
MainOutMessage(Format('{日志} 游戏网关端口(%s:%d)打开成功', [g_GateSocket.Address, g_GateSocket.Port]));
end;
except
on E: Exception do begin
MainOutMessage(Format('{异常} 游戏网关端口(%s:%d)打开失败', [g_GateSocket.Address, g_GateSocket.Port]));
end;
end;
Try
ShowMainLogMsg();
nCode:= 17;
nRow := ((GetNowTickCount() - g_dwStartTick).val) div 1000;
LbRunTime.Caption := '[引擎:' + IntToStr(nRow div 3600) + ':' + IntToStr((nRow div 60) mod 60) + ':' + IntToStr(nRow mod 60) + '秒]'{ + sCaption};
LbUserCount.Caption := '[刷怪:' + IntToStr(UserEngine.MonsterCount) + ']';
MemStatus.Caption := '[在线人数:' +
IntToStr(UserEngine.OnlinePlayObject) + '/挂机人数' +
IntToStr(UserEngine.AutoAddExpPlayCount) + '/加载总数' +
IntToStr(UserEngine.LoadPlayCount) + '/释放总数' +
IntToStr(UserEngine.m_PlayObjectFreeList.Count) + ']';
nCode:= 18;
if GetProcessMemoryInfo(GetCurrentProcess(), @pmc, SizeOf(pmc)) then
begin
end;
Label1.Caption := Format('处理:%d/%d 传输:%d/%d 角色:%d/%d 内存:%f MB',
[g_nRunTimeMin, g_nRunTimeMax, g_nSockCountMin, g_nSockCountMax, g_nUsrTimeMin, g_nUsrTimeMax,(pmc.WorkingSetSize / (1024 * 1024))]);
uses
Windows, Messages, SysUtils, Graphics, Controls, Forms, Dialogs, Buttons,
StdCtrls, IniFiles, GSShare, Grobal, Grobal2, SDK, HUtil32, RunSock, Envir, ItmUnit,
Magic, NoticeM, Guild, Event, Castle, FrnEngn, UsrEngn, Mudutil, Menus, ComCtrls, Grids,
Common, Classes, JSocket, ExtCtrls, Winapi.PsApi,
IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdUDPBase, IdUDPClient, IdGlobal,
VMProtectSDK, System.Generics.Collections;