adodb.pas

传奇3delphi代码 请自己看吧 包括地图

unit ADODB;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TADOQuery=class(TForm)
    procedure ADODB.Initialization(Sender : TObject);
    procedure ADODB.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  ADOQuery: TADOQuery;

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

implementation

{$R *.DFM}

procedure TADOQuery.ADODB.Initialization(Sender : TObject);
begin
(*
00484184   55                     push    ebp
00484185   8BEC                   mov     ebp, esp
00484187   33C0                   xor     eax, eax
00484189   55                     push    ebp
0048418A   68CD414800             push    $004841CD

***** TRY
|
0048418F   64FF30                 push    dword ptr fs:[eax]
00484192   648920                 mov     fs:[eax], esp
00484195   832DE83A500001         sub     dword ptr [$00503AE8], +$01
0048419C   7321                   jnb     004841BF
0048419E   B828414800             mov     eax, $00484128

* Reference to: System.Proc_00403AF8
|
004841A3   E850F9F7FF             call    00403AF8
004841A8   B8EC3A5000             mov     eax, $00503AEC

* Reference to: System.Proc_00406BA8
|
004841AD   E8F629F8FF             call    00406BA8
004841B2   50                     push    eax
004841B3   6A01                   push    $01

* Reference to: ole32.CoGetMalloc()
|
004841B5   E83AAFF8FF             call    0040F0F4

* Reference to: Unit_0045C284.Proc_0045C5B4
|
004841BA   E8F583FDFF             call    0045C5B4
004841BF   33C0                   xor     eax, eax
004841C1   5A                     pop     edx
004841C2   59                     pop     ecx
004841C3   59                     pop     ecx
004841C4   648910                 mov     fs:[eax], edx

****** FINALLY
|
004841C7   68D4414800             push    $004841D4
004841CC   C3                     ret


* Reference to: System.Proc_0040368C
|
004841CD   E9BAF4F7FF             jmp     0040368C
004841D2   EBF8                   jmp     004841CC

****** END
|
004841D4   5D                     pop     ebp
004841D5   C3                     ret

*)
end;

procedure TADOQuery.ADODB.Finalization(Sender : TObject);
begin
(*
00484134   55                     push    ebp
00484135   8BEC                   mov     ebp, esp
00484137   33C0                   xor     eax, eax
00484139   55                     push    ebp
0048413A   6879414800             push    $00484179

***** TRY
|
0048413F   64FF30                 push    dword ptr fs:[eax]
00484142   648920                 mov     fs:[eax], esp
00484145   FF05E83A5000           inc     dword ptr [$00503AE8]
0048414B   751E                   jnz     0048416B
0048414D   B8EC3A5000             mov     eax, $00503AEC

* Reference to: System.Proc_00406BA8
|
00484152   E8512AF8FF             call    00406BA8
00484157   B864125000             mov     eax, $00501264

* Reference to: System.Proc_004043AC
|
0048415C   E84B02F8FF             call    004043AC
00484161   B8EC3A5000             mov     eax, $00503AEC

* Reference to: System.Proc_00406BA8
|
00484166   E83D2AF8FF             call    00406BA8
0048416B   33C0                   xor     eax, eax
0048416D   5A                     pop     edx
0048416E   59                     pop     ecx
0048416F   59                     pop     ecx
00484170   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: ']脣繳嬱3繳h虯H'
|
00484173   6880414800             push    $00484180
00484178   C3                     ret


* Reference to: System.Proc_0040368C
|
00484179   E90EF5F7FF             jmp     0040368C
0048417E   EBF8                   jmp     00484178

****** END
|
00484180   5D                     pop     ebp
00484181   C3                     ret

*)
end;

end.