gateshare.pas

乐都SQL版传奇全套代码,绝对可编译

//DB 都没搞懂 我要了也没用  王清 QQ286251099 2008.3.23 
unit GateShare;

interface
uses
  Windows, Messages, Classes, SysUtils, WinSock, SyncObjs;

type
  TBlockIPMethod = (mDisconnect, mBlock, mBlockList);
  TSockaddr = record
    nIPaddr: Integer;
    nCount: Integer;
    dwIPCountTick1: LongWord;
    nIPCount1: Integer;
    dwIPCountTick2: LongWord;
    nIPCount2: Integer;
    dwDenyTick: LongWord;
    nIPDenyCount: Integer;
  end;
  pTSockaddr = ^TSockaddr;

procedure LoadBlockIPFile();
procedure SendGameCenterMsg(wIdent: Word; sSendMsg: string);
procedure SaveBlockIPList();
var
  CS_MainLog        : TCriticalSection;
  CS_FilterMsg      : TCriticalSection;
  MainLogMsgList    : TStringList;
  BlockIPList       : TList;
  TempBlockIPList   : TList;
  CurrIPaddrList    : TList;
  nIPCountLimit1    : Integer = 20;
  nIPCountLimit2    : Integer = 40;
  nShowLogLevel     : Integer = 3;

  StringList456A14  : TStringList;

    GateClass           :String ='SelGate';
    GateName            :String  = '人物网关';

  TitleName         : string = '乐都在线';
  ServerPort        : Integer = 5100;
  ServerAddr        : string = '127.0.0.1';
  GatePort          : Integer = 7100;
  GateAddr          : string = '0.0.0.0';

  boGateReady       : Boolean = False;
  boShowMessage     : Boolean;
  boStarted         : Boolean = False;
  boClose           : Boolean = False;
  boServiceStart    : Boolean = False;
  dwKeepAliveTick   : LongWord;
  boKeepAliveTimcOut: Boolean = False;
  nSendMsgCount     : Integer;
  n456A2C           : Integer;
  n456A30           : Integer;
  boSendHoldTimeOut : Boolean;
  dwSendHoldTick    : LongWord;
  boDecodeLock      : Boolean;

  nMaxConnOfIPaddr  : Integer = 10;
  BlockMethod       : TBlockIPMethod = mDisconnect;
  dwKeepConnectTimeOut: LongWord = 60 * 1000;
  g_boDynamicIPDisMode: Boolean = False;  //用于动态IP，分机放置登录网关用，打开此模式后，网关将会把连接登录服务器的IP地址，当为服务器IP，发给登录服务器，客户端将直接使用此IP连接角色网关

  g_dwGameCenterHandle: THandle;
  g_sNowStartGate   : string = '正在启动前置服务器...';
  g_sNowStartOK     : string = '启动前置服务器完成...';

implementation

uses Grobal2;


procedure LoadBlockIPFile();
var
  I                 : Integer;
  sFileName         : string;
  LoadList          : TStringList;
  sIPaddr           : string;
  nIPaddr           : Integer;
  IPaddr            : pTSockaddr;
begin
  sFileName := '.\BlockIPList.txt';
  if FileExists(sFileName) then
  begin
    LoadList := TStringList.Create;
    LoadList.LoadFromFile(sFileName);
    for I := 0 to LoadList.Count - 1 do
    begin
      sIPaddr := Trim(LoadList.Strings[0]);
      if sIPaddr = '' then
        Continue;
      nIPaddr := inet_addr(PChar(sIPaddr));
      if nIPaddr = INADDR_NONE then
        Continue;
      New(IPaddr);
      FillChar(IPaddr^, SizeOf(TSockaddr), 0);
      IPaddr.nIPaddr := nIPaddr;
      BlockIPList.Add(IPaddr);
    end;
    LoadList.Free;
  end;
end;

procedure SaveBlockIPList();
var
  I                 : Integer;
  SaveList          : TStringList;
begin
  SaveList := TStringList.Create;
  for I := 0 to BlockIPList.Count - 1 do
  begin
    SaveList.Add(StrPas(inet_ntoa(TInAddr(pTSockaddr(BlockIPList.Items[I]).nIPaddr))));
  end;
  SaveList.SaveToFile('.\BlockIPList.txt');
  SaveList.Free;
end;

procedure SendGameCenterMsg(wIdent: Word; sSendMsg: string);
var
  SendData          : TCopyDataStruct;
  nParam            : Integer;
begin

end;

initialization
  begin
    CS_MainLog := TCriticalSection.Create;
    CS_FilterMsg := TCriticalSection.Create;

    StringList456A14 := TStringList.Create;
    MainLogMsgList := TStringList.Create;


  end;

finalization
  begin
    StringList456A14.Free;
    MainLogMsgList.Free;
    CS_MainLog.Free;
    CS_FilterMsg.Free;

  end;
end.