viewrcd.pas

传奇服务端代码 DBServerSQL.rar 通讯部分

unit viewrcd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, TabNotBk, Grids, ExtCtrls, Buttons,
  ComCtrls, HumDB, Grobal2;

type
  TFrmFDBViewer = class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    HumanGrid:    TStringGrid;
    BagItemGrid:  TStringGrid;
    UseMagicGrid: TStringGrid;
    SaveItemGrid: TStringGrid;
    procedure FormCreate(Sender: TObject);
    procedure BtnReadOnlyClick(Sender: TObject);
    procedure BtnApplyClick(Sender: TObject);
    procedure ResetPositionClick(Sender: TObject);




    procedure _PROC_0049B9E4(Sender: TObject);
    procedure _PROC_0049BB54(Sender: TObject);
    procedure _PROC_0049BB84(Sender: TObject);
  private
    procedure sub_49A0C0();
    procedure sub_49A9DC();
    procedure sub_49AA84();
    procedure sub_49AB10();
    procedure ShowBagItem(nIndex: integer; sName: string; Item: TUserItem);

    procedure ShowBagItems();
    procedure ShowUseMagic();
    procedure ShowSaveItem();
    procedure ShowHumanInfo();
    { Private declarations }
  public
    n2F8:      integer;
    s2FC:      string;
    ChrRecord: THumDataInfo;
    procedure ShowHumData();
    { Public declarations }
  end;

var
  FrmFDBViewer: TFrmFDBViewer;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation



{$R *.DFM}

procedure TFrmFDBViewer.FormCreate(Sender: TObject);
//0x0049A024
begin
  sub_49A0C0();
  sub_49A9DC();
  sub_49AA84();
  sub_49AB10();
end;

procedure TFrmFDBViewer.BtnReadOnlyClick(Sender: TObject);
begin
(*
0049B7C8   55                     push    ebp
0049B7C9   8BEC                   mov     ebp, esp
0049B7CB   83C4F8                 add     esp, -$08
0049B7CE   8955F8                 mov     [ebp-$08], edx
0049B7D1   8945FC                 mov     [ebp-$04], eax

* Reference to FrmFDBViewer
|
0049B7D4   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.BtnReadOnly : TSpeedButton
|
0049B7D7   8B80EC020000           mov     eax, [eax+$02EC]

* Reference to field TSpeedButton.Down : Boolean
|
0049B7DD   80B83001000000         cmp     byte ptr [eax+$0130], $00
0049B7E4   0F840E010000           jz      0049B8F8

* Reference to TPasswordDlg instance
|
0049B7EA   A1B4C24A00             mov     eax, dword ptr [$004AC2B4]
0049B7EF   8B00                   mov     eax, [eax]

* Reference to: passwd.Proc_00499CB8
|
0049B7F1   E8C2E4FFFF             call    00499CB8
0049B7F6   84C0                   test    al, al
0049B7F8   0F84E5000000           jz      0049B8E3

* Reference to FrmFDBViewer
|
0049B7FE   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.HumanGrid : TStringGrid
|
0049B801   8B80D4020000           mov     eax, [eax+$02D4]

* Reference to field TStringGrid.Options : TGridOptions
|
0049B807   668B9030020000         mov     dx, word ptr [eax+$0230]
0049B80E   660B15E4B94900         or      dx, word ptr [$0049B9E4]

* Reference to FrmFDBViewer
|
0049B815   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.HumanGrid : TStringGrid
|
0049B818   8B80D4020000           mov     eax, [eax+$02D4]

* Reference to: grids.TCustomGrid.SetOptions(TCustomGrid;TGridOptions);
|
0049B81E   E84598FFFF             call    00495068

* Reference to FrmFDBViewer
|
0049B823   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.BagItemGrid : TStringGrid
|
0049B826   8B80D8020000           mov     eax, [eax+$02D8]

* Reference to field TStringGrid.Options : TGridOptions
|
0049B82C   668B9030020000         mov     dx, word ptr [eax+$0230]
0049B833   660B15E4B94900         or      dx, word ptr [$0049B9E4]

* Reference to FrmFDBViewer
|
0049B83A   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.BagItemGrid : TStringGrid
|
0049B83D   8B80D8020000           mov     eax, [eax+$02D8]

* Reference to: grids.TCustomGrid.SetOptions(TCustomGrid;TGridOptions);
|
0049B843   E82098FFFF             call    00495068

* Reference to FrmFDBViewer
|
0049B848   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.UseMagicGrid : TStringGrid
|
0049B84B   8B80DC020000           mov     eax, [eax+$02DC]

* Reference to field TStringGrid.Options : TGridOptions
|
0049B851   668B9030020000         mov     dx, word ptr [eax+$0230]
0049B858   660B15E4B94900         or      dx, word ptr [$0049B9E4]

* Reference to FrmFDBViewer
|
0049B85F   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.UseMagicGrid : TStringGrid
|
0049B862   8B80DC020000           mov     eax, [eax+$02DC]

* Reference to: grids.TCustomGrid.SetOptions(TCustomGrid;TGridOptions);
|
0049B868   E8FB97FFFF             call    00495068

* Reference to FrmFDBViewer
|
0049B86D   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.SaveItemGrid : TStringGrid
|
0049B870   8B80E0020000           mov     eax, [eax+$02E0]

* Reference to field TStringGrid.Options : TGridOptions
|
0049B876   668B9030020000         mov     dx, word ptr [eax+$0230]
0049B87D   660B15E4B94900         or      dx, word ptr [$0049B9E4]

* Reference to FrmFDBViewer
|
0049B884   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.SaveItemGrid : TStringGrid
|
0049B887   8B80E0020000           mov     eax, [eax+$02E0]

* Reference to: grids.TCustomGrid.SetOptions(TCustomGrid;TGridOptions);
|
0049B88D   E8D697FFFF             call    00495068
0049B892   BA80800000             mov     edx, $00008080

* Reference to FrmFDBViewer
|
0049B897   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.HumanGrid : TStringGrid
|
0049B89A   8B80D4020000           mov     eax, [eax+$02D4]

* Reference to: controls.TControl.SetColor(TControl;TColor);
|
0049B8A0   E84766F9FF             call    00431EEC
0049B8A5   BA80800000             mov     edx, $00008080

* Reference to FrmFDBViewer
|
0049B8AA   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.BagItemGrid : TStringGrid
|
0049B8AD   8B80D8020000           mov     eax, [eax+$02D8]

* Reference to: controls.TControl.SetColor(TControl;TColor);
|
0049B8B3   E83466F9FF             call    00431EEC
0049B8B8   BA80800000             mov     edx, $00008080

* Reference to FrmFDBViewer
|
0049B8BD   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.UseMagicGrid : TStringGrid
|
0049B8C0   8B80DC020000           mov     eax, [eax+$02DC]

* Reference to: controls.TControl.SetColor(TControl;TColor);
|
0049B8C6   E82166F9FF             call    00431EEC
0049B8CB   BA80800000             mov     edx, $00008080

* Reference to FrmFDBViewer
|
0049B8D0   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.SaveItemGrid : TStringGrid
|
0049B8D3   8B80E0020000           mov     eax, [eax+$02E0]

* Reference to: controls.TControl.SetColor(TControl;TColor);
|
0049B8D9   E80E66F9FF             call    00431EEC
0049B8DE   E9FD000000             jmp     0049B9E0
0049B8E3   33D2                   xor     edx, edx

* Reference to FrmFDBViewer
|
0049B8E5   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.BtnReadOnly : TSpeedButton
|
0049B8E8   8B80EC020000           mov     eax, [eax+$02EC]

* Reference to: buttons.TSpeedButton.SetDown(TSpeedButton;Boolean);
|
0049B8EE   E8A9D9FEFF             call    0048929C
0049B8F3   E9E8000000             jmp     0049B9E0

* Reference to FrmFDBViewer
|
0049B8F8   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.HumanGrid : TStringGrid
|
0049B8FB   8B80D4020000           mov     eax, [eax+$02D4]
0049B901   668B15E4B94900         mov     dx, word ptr [$0049B9E4]
0049B908   F7D2                   not     edx 
0049B90A   66239030020000         and     dx, word ptr [eax+$0230]

* Reference to FrmFDBViewer
|
0049B911   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.HumanGrid : TStringGrid
|
0049B914   8B80D4020000           mov     eax, [eax+$02D4]

* Reference to: grids.TCustomGrid.SetOptions(TCustomGrid;TGridOptions);
|
0049B91A   E84997FFFF             call    00495068

* Reference to FrmFDBViewer
|
0049B91F   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.BagItemGrid : TStringGrid
|
0049B922   8B80D8020000           mov     eax, [eax+$02D8]
0049B928   668B15E4B94900         mov     dx, word ptr [$0049B9E4]
0049B92F   F7D2                   not     edx 
0049B931   66239030020000         and     dx, word ptr [eax+$0230]

* Reference to FrmFDBViewer
|
0049B938   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.BagItemGrid : TStringGrid
|
0049B93B   8B80D8020000           mov     eax, [eax+$02D8]

* Reference to: grids.TCustomGrid.SetOptions(TCustomGrid;TGridOptions);
|
0049B941   E82297FFFF             call    00495068

* Reference to FrmFDBViewer
|
0049B946   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmFDBViewer.UseMagicGrid : TStringGrid
|