gshare.pas

传奇源代码的delphi版本

  g_boRunGate_GetStart            :Boolean = True;
  g_boRunGate1_GetStart           :Boolean = True;
  g_boRunGate2_GetStart           :Boolean = True;
  g_boRunGate3_GetStart           :Boolean = True;
  g_boRunGate4_GetStart           :Boolean = True;
  g_boRunGate5_GetStart           :Boolean = True;
  g_boRunGate6_GetStart           :Boolean = True;
  g_boRunGate7_GetStart           :Boolean = True;
  g_sRunGate_ConfigFile           :String = 'RunGate.ini';
  g_nRunGate_Count                :Integer = 3;
  g_sRunGate_ServerAddr           :String = '127.0.0.1';
  g_nRunGate_ServerPort           :Integer = 5000;
  g_sRunGate_GateAddr             :String = '0.0.0.0';
  g_nRunGate_GatePort             :Integer = 7200;
  g_sRunGate1_GateAddr            :String = '0.0.0.0';
  g_nRunGate1_GatePort            :Integer = 7300;
  g_sRunGate2_GateAddr            :String = '0.0.0.0';
  g_nRunGate2_GatePort            :Integer = 7400;
  g_sRunGate3_GateAddr            :String = '0.0.0.0';
  g_nRunGate3_GatePort            :Integer = 7500;
  g_sRunGate4_GateAddr            :String = '0.0.0.0';
  g_nRunGate4_GatePort            :Integer = 7600;
  g_sRunGate5_GateAddr            :String = '0.0.0.0';
  g_nRunGate5_GatePort            :Integer = 7700;
  g_sRunGate6_GateAddr            :String = '0.0.0.0';
  g_nRunGate6_GatePort            :Integer = 7800;
  g_sRunGate7_GateAddr            :String = '0.0.0.0';
  g_nRunGate7_GatePort            :Integer = 7900;
  g_sRunGate_Config_RegServerAddr   :String = '61.128.194.170';
  g_nRunGate_Config_RegServerPort   :Integer = 63200;



  DBServer       :TProgram;
  LoginServer    :TProgram;
  LogServer      :TProgram;
  M2Server       :TProgram;
  RunGate        :TProgram;
  RunGate1       :TProgram;
  RunGate2       :TProgram;
  RunGate3       :TProgram;
  RunGate4       :TProgram;
  RunGate5       :TProgram;
  RunGate6       :TProgram;
  RunGate7       :TProgram;
  
  SelGate        :TProgram;
  SelGate1       :TProgram;
  LoginGate      :TProgram;
  LoginGate1     :TProgram;

  g_dwStopTick   :LongWord;
  g_dwStopTimeOut :LongWord = 10000;
  g_boShowDebugTab:Boolean = False;
  g_dwM2CheckCodeAddr:LongWord;
  g_dwDBCheckCodeAddr:LongWord;
implementation
procedure  LoadConfig();
begin
  g_dwStopTimeOut:=g_IniConf.ReadInteger('GameConf','dwStopTimeOut',g_dwStopTimeOut);
  g_boShowDebugTab:=g_Iniconf.ReadBool('GameConf','ShowDebugTab',g_boShowDebugTab);
  g_sGameDirectory:=g_IniConf.ReadString('GameConf','GameDirectory',g_sGameDirectory);
  g_sHeroDBName:=g_IniConf.ReadString('GameConf','HeroDBName',g_sHeroDBName);
  g_sGameName:=g_IniConf.ReadString('GameConf','GameName',g_sGameName);
  g_sExtIPaddr:=g_IniConf.ReadString('GameConf','ExtIPaddr',g_sExtIPaddr);
  g_boDynamicIPMode:=g_IniConf.ReadBool('GameConf','DynamicIPMode',g_boDynamicIPMode);
  g_sDBServer_Config_RegKey:=g_IniConf.ReadString('DBServer','RegKey',g_sDBServer_Config_RegKey);
  g_sDBServer_Config_RegServerAddr:=g_IniConf.ReadString('DBServer','RegServerAddr',g_sDBServer_Config_RegServerAddr);
  g_nDBServer_Config_RegServerPort:=g_IniConf.ReadInteger('DBServer','RegServerPort',g_nDBServer_Config_RegServerPort);
  g_nDBServer_MainFormX:=g_IniConf.ReadInteger('DBServer','MainFormX',g_nDBServer_MainFormX);
  g_nDBServer_MainFormY:=g_IniConf.ReadInteger('DBServer','MainFormY',g_nDBServer_MainFormY);
  g_nDBServer_Config_GatePort:=g_IniConf.ReadInteger('DBServer','GatePort',g_nDBServer_Config_GatePort);
  g_nDBServer_Config_ServerPort:=g_IniConf.ReadInteger('DBServer','ServerPort',g_nDBServer_Config_ServerPort);
  g_boDBServer_GetStart:=g_IniConf.ReadBool('DBServer','GetStart',g_boDBServer_GetStart);
  g_boDBServer_AutoBackup:=g_IniConf.ReadBool('DBServer','AutoBackup',g_boDBServer_AutoBackup);
  g_boDBServer_BackupClearData:=g_IniConf.ReadBool('DBServer','BackupClearData',g_boDBServer_BackupClearData);
  g_dwDBServer_BackupTime:=g_IniConf.ReadInteger('DBServer','BackupTime',g_dwDBServer_BackupTime);
  g_sDBServer_DBName:=g_IniConf.ReadString('DBServer','DBName',g_sDBServer_DBName);
  g_boDBServer_ShowItemName:=g_IniConf.ReadBool('DBServer','ShowItemName',g_boDBServer_ShowItemName);

  g_sM2Server_RegKey:=g_IniConf.ReadString('M2Server','RegKey',g_sM2Server_RegKey);
  g_sM2Server_Config_RegServerAddr:=g_IniConf.ReadString('M2Server','RegServerAddr',g_sM2Server_Config_RegServerAddr);
  g_nM2Server_Config_RegServerPort:=g_IniConf.ReadInteger('M2Server','RegServerPort',g_nM2Server_Config_RegServerPort);
  g_nM2Server_MainFormX:=g_IniConf.ReadInteger('M2Server','MainFormX',g_nM2Server_MainFormX);
  g_nM2Server_MainFormY:=g_IniConf.ReadInteger('M2Server','MainFormY',g_nM2Server_MainFormY);
  g_nM2Server_TestLevel:=g_IniConf.ReadInteger('M2Server','TestLevel',g_nM2Server_TestLevel);
  g_nM2Server_TestGold:=g_IniConf.ReadInteger('M2Server','TestGold',g_nM2Server_TestGold);

  g_nM2Server_GatePort:=g_IniConf.ReadInteger('M2Server','GatePort',g_nM2Server_GatePort);
  g_nM2Server_MsgSrvPort:=g_IniConf.ReadInteger('M2Server','MsgSrvPort',g_nM2Server_MsgSrvPort);
  g_boM2Server_GetStart:=g_IniConf.ReadBool('M2Server','GetStart',g_boM2Server_GetStart);

  g_sRunGate_RegKey:=g_IniConf.ReadString('RunGate','RegKey',g_sRunGate_RegKey);
  g_sRunGate_Config_RegServerAddr:=g_IniConf.ReadString('RunGate','RegServerAddr',g_sRunGate_Config_RegServerAddr);
  g_nRunGate_Config_RegServerPort:=g_IniConf.ReadInteger('RunGate','RegServerPort',g_nRunGate_Config_RegServerPort);

  g_nLoginGate_MainFormX:=g_IniConf.ReadInteger('LoginGate','MainFormX',g_nLoginGate_MainFormX);
  g_nLoginGate_MainFormY:=g_IniConf.ReadInteger('LoginGate','MainFormY',g_nLoginGate_MainFormY);
  g_boLoginGate_GetStart:=g_IniConf.ReadBool('LoginGate','GetStart',g_boLoginGate_GetStart);
  g_nLoginGate_GatePort:=g_IniConf.ReadInteger('LoginGate','GatePort',g_nLoginGate_GatePort);

  g_nSelGate_MainFormX:=g_IniConf.ReadInteger('SelGate','MainFormX',g_nSelGate_MainFormX);
  g_nSelGate_MainFormY:=g_IniConf.ReadInteger('SelGate','MainFormY',g_nSelGate_MainFormY);
  g_nSelGate_GatePort:=g_IniConf.ReadInteger('SelGate','GatePort',g_nSelGate_GatePort);
  g_nSelGate_GatePort1:=g_IniConf.ReadInteger('SelGate','GatePort1',g_nSelGate_GatePort1);
  g_boSelGate_GetStart:=g_IniConf.ReadBool('SelGate','GetStart',g_boSelGate_GetStart);

  g_nRunGate_Count:=g_IniConf.ReadInteger('RunGate','Count',g_nRunGate_Count);
  g_nRunGate_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort1',g_nRunGate_GatePort);
  g_nRunGate1_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort2',g_nRunGate1_GatePort);
  g_nRunGate2_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort3',g_nRunGate2_GatePort);
  g_nRunGate3_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort4',g_nRunGate3_GatePort);
  g_nRunGate4_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort5',g_nRunGate4_GatePort);
  g_nRunGate5_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort6',g_nRunGate5_GatePort);
  g_nRunGate6_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort7',g_nRunGate6_GatePort);
  g_nRunGate7_GatePort:=g_IniConf.ReadInteger('RunGate','GatePort8',g_nRunGate7_GatePort);

  g_boRunGate1_GetStart:=g_nRunGate_Count >= 2;
  g_boRunGate2_GetStart:=g_nRunGate_Count >= 3;
  g_boRunGate3_GetStart:=g_nRunGate_Count >= 4;
  g_boRunGate4_GetStart:=g_nRunGate_Count >= 5;
  g_boRunGate5_GetStart:=g_nRunGate_Count >= 6;
  g_boRunGate6_GetStart:=g_nRunGate_Count >= 7;
  g_boRunGate7_GetStart:=g_nRunGate_Count >= 8;
  if g_boRunGate4_GetStart then begin
    g_sDBServer_Config_GateAddr:=g_sAllIPaddr;
  end else begin
    g_sDBServer_Config_GateAddr:=g_sLocalIPaddr;
  end;

  g_nLoginServer_MainFormX:=g_IniConf.ReadInteger('LoginServer','MainFormX',g_nLoginServer_MainFormX);
  g_nLoginServer_MainFormY:=g_IniConf.ReadInteger('LoginServer','MainFormY',g_nLoginServer_MainFormY);

  g_sLoginServer_GateAddr:=g_IniConf.ReadString('LoginServer','GateAddr',g_sLoginServer_GateAddr);
  g_nLoginServer_GatePort:=g_IniConf.ReadInteger('LoginServer','GatePort',g_nLoginServer_GatePort);
  g_sLoginServer_ServerAddr:=g_IniConf.ReadString('LoginServer','ServerAddr',g_sLoginServer_ServerAddr);
  g_nLoginServer_ServerPort:=g_IniConf.ReadInteger('LoginServer','ServerPort',g_nLoginServer_ServerPort);
  g_sLoginServer_MonAddr:=g_IniConf.ReadString('LoginServer','MonAddr',g_sLoginServer_MonAddr);
  g_nLoginServer_MonPort:=g_IniConf.ReadInteger('LoginServer','MonPort',g_nLoginServer_MonPort);
  
  g_boLoginServer_GetStart:=g_IniConf.ReadBool('LoginServer','GetStart',g_boLoginServer_GetStart);
  g_boLoginServer_EnableGetbackPassword:=g_IniConf.ReadBool('LoginServer','EnableGetbackPassword',g_boLoginServer_EnableGetbackPassword);
  g_boLoginServer_EnableMakingID:=g_IniConf.ReadBool('LoginServer','EnableMakingID',g_boLoginServer_EnableMakingID);
  g_boLoginServer_TestServer:=g_IniConf.ReadBool('LoginServer','TestServer',g_boLoginServer_TestServer);
  g_boLoginServer_AutoClear:=g_IniConf.ReadBool('LoginServer','AutoClear',g_boLoginServer_AutoClear);
  g_dwLoginServer_AutoClearTime:=g_IniConf.ReadInteger('LoginServer','AutoClearTime',g_dwLoginServer_AutoClearTime);
  g_nLoginServer_ReadyServers:=g_IniConf.ReadInteger('LoginServer','ReadyServers',g_nLoginServer_ReadyServers);

  
  g_nLogServer_MainFormX:=g_IniConf.ReadInteger('LogServer','MainFormX',g_nLogServer_MainFormX);
  g_nLogServer_MainFormY:=g_IniConf.ReadInteger('LogServer','MainFormY',g_nLogServer_MainFormY);
  g_boLogServer_GetStart:=g_IniConf.ReadBool('LogServer','GetStart',g_boLogServer_GetStart);
  g_nLogServer_Port:=g_IniConf.ReadInteger('LogServer','Port',g_nLogServer_Port);
end;
function RunProgram(var ProgramInfo:TProgram;sHandle:String;dwWaitTime:LongWord):LongWord;
var
  StartupInfo:TStartupInfo;
  sCommandLine:String;
  sCurDirectory:String;
begin
  Result:=0;
  FillChar(StartupInfo,SizeOf(TStartupInfo),#0);
  {
  StartupInfo.cb:=SizeOf(TStartupInfo);
  StartupInfo.lpReserved:=nil;
  StartupInfo.lpDesktop:=nil;
  StartupInfo.lpTitle:=nil;
  StartupInfo.dwFillAttribute:=0;
  StartupInfo.cbReserved2:=0;
  StartupInfo.lpReserved2:=nil;
  }
  GetStartupInfo(StartupInfo);
  sCommandLine:=format('%s%s %s %d %d',[ProgramInfo.sDirectory,ProgramInfo.sProgramFile,sHandle,ProgramInfo.nMainFormX,ProgramInfo.nMainFormY]);
  sCurDirectory:=ProgramInfo.sDirectory;
  if not CreateProcess(nil,                //lpApplicationName,
                  PChar(sCommandLine),     //lpCommandLine,
                  nil,                     //lpProcessAttributes,
                  nil,                     //lpThreadAttributes,
                  True,                   //bInheritHandles,
                  0,                       //dwCreationFlags,
                  nil,                     //lpEnvironment,
                  PChar(sCurDirectory),    //lpCurrentDirectory,
                  StartupInfo,             //lpStartupInfo,
                  ProgramInfo.ProcessInfo) then begin //lpProcessInformation

    Result:=GetLastError();
  end;
  Sleep(dwWaitTime);
end;
function StopProgram(var ProgramInfo:TProgram;dwWaitTime:LongWord):Integer;
var
  dwExitCode:LongWord;
begin
  Result:=0;
  if TerminateProcess(ProgramInfo.ProcessHandle,dwExitCode) then begin
    Result:=GetLastError();
  end;
  Sleep(dwWaitTime);
end;
procedure SendProgramMsg(DesForm:THandle;wIdent:Word;sSendMsg:String);
var
  SendData:TCopyDataStruct;
  nParam:Integer;
begin
  nParam:=MakeLong(0,wIdent);
  SendData.cbData:=Length (sSendMsg) + 1;
  GetMem(SendData.lpData,SendData.cbData);
  StrCopy (SendData.lpData, PChar(sSendMsg));
  SendMessage(DesForm,WM_COPYDATA,nParam,Cardinal(@SendData));
  FreeMem(SendData.lpData);
end;
initialization
begin
  g_IniConf:=TIniFile.Create(g_sConfFile);
end;
finalization
begin
  g_IniConf.Free;
end;
end.