humdb.pas

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

unit HumDB;

interface
uses
  Windows, Classes, SysUtils, Forms, MudUtil, Grobal2;
resourcestring
  sDBHeaderDesc                         = '乐都游戏数据库文件 2005/04/20';
  sDBIdxHeaderDesc                      = '乐都游戏数据库索引文件 2005/04/20';

type
  TDBHeader = record
    sDesc: string[$23];                                     //0x00
    n24: Integer;                                           //0x24
    n28: Integer;                                           //0x28
    n2C: Integer;                                           //0x2C
    n30: Integer;                                           //0x30
    n34: Integer;                                           //0x34
    n38: Integer;                                           //0x38
    n3C: Integer;                                           //0x3C
    n40: Integer;                                           //0x40
    n44: Integer;                                           //0x44
    n48: Integer;                                           //0x48
    n4C: Integer;                                           //0x4C
    n50: Integer;                                           //0x50
    n54: Integer;                                           //0x54
    n58: Integer;                                           //0x58
    nLastIndex: Integer;                                    //0x5C
    dLastDate: TDateTime;                                   //0x60
    nHumCount: Integer;                                     //0x68
    n6C: Integer;                                           //0x6C
    n70: Integer;                                           //0x70
    dUpdateDate: TDateTime;                                 //0x74
  end;
  pTDBHeader = ^TDBHeader;
  TIdxHeader = record
    sDesc: string[40];                                      //0x00
    n2C: Integer;                                           //0x2C
    n30: Integer;                                           //0x30
    n34: Integer;                                           //0x34
    n38: Integer;                                           //0x38
    n3C: Integer;                                           //0x3C
    n40: Integer;                                           //0x40
    n44: Integer;                                           //0x44
    n48: Integer;                                           //0x48
    n4C: Integer;                                           //0x4C
    n50: Integer;                                           //0x50
    n54: Integer;                                           //0x54
    n58: Integer;                                           //0x58
    n5C: Integer;                                           //0x5C
    n60: Integer;                                           //0x60
    nQuickCount: Integer;                                   //0x64
    nHumCount: Integer;                                     //0x68
    nDeleteCount: Integer;                                  //0x6C
    nLastIndex: Integer;                                    //0x70
    dUpdateDate: TDateTime;                                 //0x74
  end;

  pTHumInfo = ^THumInfo;
  TIdxRecord = record
    sChrName: string[15];
    nIndex: Integer;
  end;
  pTIdxRecord = ^TIdxRecord;


  TFileHumDB = class
    n4: Integer;                                            //0x04
    m_nFileHandle: Integer;                                 //0x08
    n0C: Integer;                                           //0x0C
    m_OnChange: TNotifyEvent;

    m_boChanged: Boolean;                                   //0x18
    m_Header: TDBHeader;                                    //0x1C
    m_QuickList: TQuickList;                                //0x98
    m_QuickIDList: TQuickIDList;                            //0x9C
    m_DeletedList: TList; //0xA0 已被删除的记录号
    m_sDBFileName: string;                                  //0xA4
  private
    procedure LoadQuickList;
    procedure Lock;
    procedure UnLock;
    function UpdateRecord(nIndex: Integer; HumRecord: THumInfo; boNew: Boolean):
      Boolean;
    function DeleteRecord(nIndex: Integer): Boolean;
    function GetRecord(n08: Integer; var HumDBRecord: THumInfo): Boolean;
  public
    constructor Create(sFileName: string);
    destructor Destroy; override;

    function Open(): Boolean;
    function OpenEx(): Boolean;
    procedure Close();
    function Index(sName: string): Integer;
    function Get(n08: Integer; var HumDBRecord: THumInfo): Integer;
    function GetBy(n08: Integer; var HumDBRecord: THumInfo): Boolean;
    function FindByName(sChrName: string; ChrList: TStringList): Integer;
    function FindByAccount(sAccount: string; var ChrList: TStringList): Integer;
    function ChrCountOfAccount(sAccount: string): Integer;
    function AllChrCountOfAccount(sAccount: string): Integer;
    function Add(HumRecord: THumInfo): Boolean;
    function Delete(sName: string): Boolean;
    function Update(nIndex: Integer; var HumDBRecord: THumInfo): Boolean;
    function UpdateBy(nIndex: Integer; var HumDBRecord: THumInfo): Boolean;

  end;
  TFileDB = class
    n4: Integer;                                            //0x4
    m_nFileHandle: Integer;                                 //0x08
    nC: Integer;
    m_OnChange: TNotifyEvent;                               //0x10
    m_boChanged: Boolean;                                   //0x18
    m_nLastIndex: Integer;                                  //0x1C
    m_dUpdateTime: TDateTime;                               //0x20
    m_Header: TDBHeader;                                    //0x28
    m_QuickList: TQuickList;                                //0xA4
    m_DeletedList: TList; //0xA8 已被删除的记录号
    m_sDBFileName: string;                                  //0xAC
    m_sIdxFileName: string;                                 //0xB0
  private
    procedure LoadQuickList;
    function LoadDBIndex(): Boolean;
    procedure SaveIndex();
    function GetRecord(nIndex: Integer; var HumanRCD: THumDataInfo): Boolean;
    function UpdateRecord(nIndex: Integer; var HumanRCD: THumDataInfo; boNew:
      Boolean): Boolean;
    function DeleteRecord(nIndex: Integer): Boolean;
  public
    constructor Create(sFileName: string);
    destructor Destroy; override;
    procedure Lock;
    procedure UnLock;
    function Open(): Boolean;
    function OpenEx(): Boolean;
    procedure Close();
    function Index(sName: string): Integer;
    function Get(nIndex: Integer; var HumanRCD: THumDataInfo): Integer;
    function Update(nIndex: Integer; var HumanRCD: THumDataInfo): Boolean;
    function Add(var HumanRCD: THumDataInfo): Boolean;
    function Find(sChrName: string; List: TStrings): Integer;
    procedure Rebuild();
    function Count(): Integer;
    function Delete(sChrName: string): Boolean; overload;
    function Delete(nIndex: Integer): Boolean; overload;
  end;
var
  HumChrDB                              : TFileHumDB;
  HumDataDB                             : TFileDB;
implementation

uses DBShare, HUtil32;

{ TFileHumDB }

constructor TFileHumDB.Create(sFileName: string);           //0x0048B73C
begin
  m_sDBFileName := sFileName;
  m_QuickList := TQuickList.Create;
  m_QuickIDList := TQuickIDList.Create;
  m_DeletedList := TList.Create;
  n4ADAFC := 0;
  n4ADB04 := 0;
  boHumDBReady := False;
  LoadQuickList();
end;

destructor TFileHumDB.Destroy;
begin
  m_QuickList.Free;
  m_QuickIDList.Free;
  inherited;
end;

procedure TFileHumDB.Lock();                                //0x0048B870
begin
  EnterCriticalSection(HumDB_CS);
end;

procedure TFileHumDB.UnLock();                              //0x0048B888
begin
  LeaveCriticalSection(HumDB_CS);
end;

procedure TFileHumDB.LoadQuickList();
//0x48BA64
var
  nRecordIndex                          : Integer;
  nIndex                                : Integer;
  AccountList                           : TStringList;
  ChrNameList                           : TStringList;
  DBHeader                              : TDBHeader;
  DBRecord                              : THumInfo;
begin
  n4 := 0;
  m_QuickList.Clear;
  m_QuickIDList.Clear;
  m_DeletedList.Clear;
  nRecordIndex := 0;
  n4ADAFC := 0;
  n4ADB00 := 0;
  n4ADB04 := 0;
  AccountList := TStringList.Create;
  ChrNameList := TStringList.Create;
  try
    if Open then
    begin
      FileSeek(m_nFileHandle, 0, 0);
      if FileRead(m_nFileHandle, DBHeader, SizeOf(TDBHeader)) = SizeOf(TDBHeader)
        then
      begin
        n4ADB04 := DBHeader.nHumCount;
        for nIndex := 0 to DBHeader.nHumCount - 1 do
        begin
          Inc(n4ADAFC);
          if FileRead(m_nFileHandle, DBRecord, SizeOf(THumInfo)) <>
            SizeOf(THumInfo) then
          begin
            break;
          end;
          if not DBRecord.Header.boDeleted then
          begin
            m_QuickList.AddObject(DBRecord.Header.sName, TObject(nRecordIndex));
            AccountList.AddObject(DBRecord.sAccount, TObject(nIndex)); //?
            ChrNameList.AddObject(DBRecord.sChrName, TObject(nRecordIndex));
            Inc(n4ADB00);
          end
          else
          begin                                             //0x0048BC04
            m_DeletedList.Add(TObject(nIndex));
          end;
          Inc(nRecordIndex);
          Application.ProcessMessages;
          if Application.Terminated then
          begin
            Close;
            exit;
          end;
        end;
      end;                                                  //0x0048BC52
    end;
  finally
    Close();
  end;
  for nIndex := 0 to AccountList.Count - 1 do
  begin
    m_QuickIDList.AddRecord(AccountList.Strings[nIndex],
      ChrNameList.Strings[nIndex],
      //Integer(ChrNameList.Objects[nIndex]),
      Integer(AccountList.Objects[nIndex]));
    if (nIndex mod 100) = 0 then
      Application.ProcessMessages;
  end;
  //0x0048BCF4
  AccountList.Free;
  ChrNameList.Free;
  m_QuickList.SortString(0, m_QuickList.Count - 1);
  boHumDBReady := True;
end;

procedure TFileHumDB.Close;                                 //0x0048BA24
begin
  FileClose(m_nFileHandle);
  if m_boChanged and Assigned(m_OnChange) then
  begin
    m_OnChange(Self);
  end;
  UnLock();
end;

function TFileHumDB.Open: Boolean;                          //0x0048B928
begin
  Lock();
  n4 := 0;
  m_boChanged := False;
  if FileExists(m_sDBFileName) then
  begin
    m_nFileHandle := FileOpen(m_sDBFileName, fmOpenReadWrite or
      fmShareDenyNone);
    if m_nFileHandle > 0 then
      FileRead(m_nFileHandle, m_Header, SizeOf(TDBHeader));
  end
  else
  begin                                                     //0x0048B999
    m_nFileHandle := FileCreate(m_sDBFileName);
    if m_nFileHandle > 0 then
    begin
      m_Header.sDesc := sDBHeaderDesc;
      m_Header.nHumCount := 0;
      m_Header.n6C := 0;
      FileWrite(m_nFileHandle, m_Header, SizeOf(TDBHeader));
    end;
  end;
  if m_nFileHandle > 0 then
    Result := True
  else
    Result := False;
end;

function TFileHumDB.OpenEx: Boolean;                        //0x0048B8A0
var
  DBHeader                              : TDBHeader;
begin
  Lock();
  m_boChanged := False;
  m_nFileHandle := FileOpen(m_sDBFileName, fmOpenReadWrite or fmShareDenyNone);
  if m_nFileHandle > 0 then
  begin
    Result := True;
    if FileRead(m_nFileHandle, DBHeader, SizeOf(TDBHeader)) = SizeOf(TDBHeader)
      then
      m_Header := DBHeader;
    n4 := 0;
  end
  else
    Result := False;
end;

function TFileHumDB.Index(sName: string): Integer;          //0x0048C384
begin
  Result := m_QuickList.GetIndex(sName);
end;

function TFileHumDB.Get(n08: Integer;
  var HumDBRecord: THumInfo): Integer;                      //0x0048C0CC
var
  nIndex                                : Integer;
begin
  nIndex := Integer(m_QuickList.Objects[n08]);
  if GetRecord(nIndex, HumDBRecord) then
    Result := nIndex
  else
    Result := -1;
end;

function TFileHumDB.GetRecord(n08: Integer;
  var HumDBRecord: THumInfo): Boolean;
//0x0048BEEC
begin
  if FileSeek(m_nFileHandle, SizeOf(THumInfo) * n08 + SizeOf(TDBHeader), 0) <> -1
    then
  begin
    FileRead(m_nFileHandle, HumDBRecord, SizeOf(THumInfo));
    FileSeek(m_nFileHandle, -SizeOf(THumInfo) * n08 + SizeOf(TDBHeader), 1);
    n4 := n08;
    Result := True;
  end
  else
    Result := False;
end;

function TFileHumDB.FindByName(sChrName: string;
  ChrList: TStringList): Integer;                           //0x0048C3E0
var
  i                                     : Integer;
begin
  for i := 0 to m_QuickList.Count - 1 do
  begin
    if CompareLStr(m_QuickList.Strings[i], sChrName, Length(sChrName)) then
    begin
      ChrList.AddObject(m_QuickList.Strings[i], m_QuickList.Objects[i]);
    end;
  end;
  Result := ChrList.Count;
end;

function TFileHumDB.GetBy(n08: Integer;
  var HumDBRecord: THumInfo): Boolean;                      //0x0048C118
begin
  if n08 >= 0 then
    Result := GetRecord(n08, HumDBRecord)
  else