📄 dbsmain.pas
字号:
004DDB24 B201 mov dl, $01
004DDB26 8B80FC020000 mov eax, [eax+$02FC]
* Reference to: ExtCtrls.TTimer.SetEnabled(TTimer;Boolean);
| or: IBDatabase.TIBTimer.SetEnabled(TIBTimer;Boolean);
| or: Menus.TMenu.SetOwnerDraw(TMenu;Boolean);
|
004DDB2C E883BDF5FF call 004398B4
004DDB31 C3 ret
*)
end;
procedure TFrmDBSrv.StartTimerTimer(Sender : TObject);
begin
(*
004DDB34 55 push ebp
004DDB35 8BEC mov ebp, esp
004DDB37 B908000000 mov ecx, $00000008
004DDB3C 6A00 push $00
004DDB3E 6A00 push $00
004DDB40 49 dec ecx
004DDB41 75F9 jnz 004DDB3C
004DDB43 53 push ebx
004DDB44 56 push esi
004DDB45 57 push edi
004DDB46 8BF8 mov edi, eax
004DDB48 33C0 xor eax, eax
004DDB4A 55 push ebp
004DDB4B 6843DE4D00 push $004DDE43
***** TRY
|
004DDB50 64FF30 push dword ptr fs:[eax]
004DDB53 648920 mov fs:[eax], esp
004DDB56 EB04 jmp 004DDB5C
004DDB58 45 inc ebp
004DDB59 50 push eax
004DDB5A 45 inc ebp
004DDB5B 258D55F8A1 and eax, $A1F8558D
004DDB60 7C81 jl 004DDAE3
004DDB62 4E dec esi
004DDB63 00E8 add al, ch
004DDB65 3F aas
004DDB66 90 nop
004DDB67 F2 repne
004DDB68 FFFF DB $FF, $FF //
004DDB6A 75F8 jnz 004DDB64
004DDB6C 685CDE4D00 push $004DDE5C
004DDB71 8D55F4 lea edx, [ebp-$0C]
004DDB74 A1007C4E00 mov eax, dword ptr [$004E7C00]
|
004DDB79 E82A90F2FF call 00406BA8
004DDB7E FF75F4 push dword ptr [ebp-$0C]
004DDB81 685CDE4D00 push $004DDE5C
004DDB86 8D55F0 lea edx, [ebp-$10]
004DDB89 A1DC7D4E00 mov eax, dword ptr [$004E7DDC]
|
004DDB8E E81590F2FF call 00406BA8
004DDB93 FF75F0 push dword ptr [ebp-$10]
004DDB96 685CDE4D00 push $004DDE5C
004DDB9B 8D55EC lea edx, [ebp-$14]
004DDB9E A18C7D4E00 mov eax, dword ptr [$004E7D8C]
|
004DDBA3 E80090F2FF call 00406BA8
004DDBA8 FF75EC push dword ptr [ebp-$14]
004DDBAB 685CDE4D00 push $004DDE5C
004DDBB0 8D55E8 lea edx, [ebp-$18]
004DDBB3 A1307D4E00 mov eax, dword ptr [$004E7D30]
|
004DDBB8 E8EB8FF2FF call 00406BA8
004DDBBD FF75E8 push dword ptr [ebp-$18]
004DDBC0 8D45FC lea eax, [ebp-$04]
004DDBC3 BA09000000 mov edx, $00000009
* Reference to: System.@LStrCatN;
|
004DDBC8 E8AB71F2FF call 00404D78
004DDBCD EB04 jmp 004DDBD3
004DDBCF 45 inc ebp
004DDBD0 50 push eax
004DDBD1 45 inc ebp
004DDBD2 258D55E4A1 and eax, $A1E4558D
004DDBD7 147E adc al, $7E
004DDBD9 4E dec esi
004DDBDA 00E8 add al, ch
004DDBDC C88F enter , $8F
004DDBDE F2 repne
004DDBDF FF8B45E48B55 dec dword ptr [ebx+$558BE445]
004DDBE5 FC cld
|
004DDBE6 E8E5310000 call 004E0DD0
004DDBEB 84C0 test al, al
004DDBED 7411 jz 004DDC00
004DDBEF EB04 jmp 004DDBF5
004DDBF1 45 inc ebp
004DDBF2 50 push eax
004DDBF3 45 inc ebp
004DDBF4 25E9210200 and eax, $000221E9
004DDBF9 00EB add bl, ch
004DDBFB 0445 add al, +$45
004DDBFD 50 push eax
004DDBFE 45 inc ebp
004DDBFF 25EB044550 and eax, $504504EB
004DDC04 45 inc ebp
004DDC05 258D45FCBA and eax, $BAFC458D
004DDC0A 5C pop esp
004DDC0B DE4D00 fimul word ptr [ebp+$00]
* Reference to: System.@LStrLAsg(void;void;void;void);
|
004DDC0E E87D6EF2FF call 00404A90
004DDC13 EB04 jmp 004DDC19
004DDC15 45 inc ebp
004DDC16 50 push eax
004DDC17 45 inc ebp
004DDC18 258D55DCA1 and eax, $A1DC558D
004DDC1D C880 enter , $80
004DDC1F 4E dec esi
004DDC20 008B00E8F439 add [ebx+$39F4E800], cl
004DDC26 FA cli
004DDC27 FF8B45DC8D55 dec dword ptr [ebx+$558DDC45]
004DDC2D E0E8 loopn -$18
004DDC2F DDDB fstp st(3)
004DDC31 F2 repne
004DDC32 FF8B45E08B55 dec dword ptr [ebx+$558BE045]
004DDC38 FC cld
|
004DDC39 E892310000 call 004E0DD0
004DDC3E 84C0 test al, al
004DDC40 7411 jz 004DDC53
004DDC42 EB04 jmp 004DDC48
004DDC44 45 inc ebp
004DDC45 50 push eax
004DDC46 45 inc ebp
004DDC47 25E9CE0100 and eax, $0001CEE9
004DDC4C 00EB add bl, ch
004DDC4E 0445 add al, +$45
004DDC50 50 push eax
004DDC51 45 inc ebp
004DDC52 2533D28B87 and eax, $878BD233
004DDC57 FC cld
004DDC58 0200 add al, byte ptr [eax]
004DDC5A 00E8 add al, ch
004DDC5C 54 push esp
004DDC5D BCF5FFE82F mov esp, $2FE8FFF5
004DDC62 96 xchg eax, esi
004DDC63 F2 repne
004DDC64 FF8B156C7E4E dec dword ptr [ebx+$4E7E6C15]
004DDC6A 008902E82296 add [ecx+$9622E802], cl
004DDC70 F2 repne
004DDC71 FF8B15447C4E dec dword ptr [ebx+$4E7C4415]
004DDC77 008902E81596 add [ecx+$9615E802], cl
004DDC7D F2 repne
004DDC7E FF8B15147B4E dec dword ptr [ebx+$4E7B1415]
004DDC84 008902A11481 add [ecx+$8114A102], cl
004DDC8A 4E dec esi
004DDC8B 00C6 add dh, al
004DDC8D 0001 add [ecx], al
004DDC8F B201 mov dl, $01
004DDC91 A1D4164D00 mov eax, dword ptr [$004D16D4]
|
004DDC96 E8213BFFFF call 004D17BC
004DDC9B 8B15F87C4E00 mov edx, [$004E7CF8]
004DDCA1 8902 mov [edx], eax
004DDCA3 8B15BC7B4E00 mov edx, [$004E7BBC]
004DDCA9 8B12 mov edx, [edx]
004DDCAB A1F87C4E00 mov eax, dword ptr [$004E7CF8]
004DDCB0 8B00 mov eax, [eax]
004DDCB2 8B4004 mov eax, [eax+$04]
* Reference to: DBTables.TDBDataSet.SetDatabaseName(TDBDataSet;AnsiString);
|
004DDCB5 E87E1CFFFF call 004CF938
004DDCBA A1F87C4E00 mov eax, dword ptr [$004E7CF8]
004DDCBF 8B00 mov eax, [eax]
|
004DDCC1 E8BE41FFFF call 004D1E84
004DDCC6 8BD8 mov ebx, eax
004DDCC8 85DB test ebx, ebx
004DDCCA 7C24 jl 004DDCF0
004DDCCC 8D45D8 lea eax, [ebp-$28]
004DDCCF 50 push eax
004DDCD0 895DD0 mov [ebp-$30], ebx
004DDCD3 C645D400 mov byte ptr [ebp-$2C], $00
004DDCD7 8D55D0 lea edx, [ebp-$30]
004DDCDA 33C9 xor ecx, ecx
* Possible String Reference to: '加载魔法数据库完成(%d)...'
|
004DDCDC B868DE4D00 mov eax, $004DDE68
|
004DDCE1 E8A6E3F2FF call 0040C08C
004DDCE6 8B45D8 mov eax, [ebp-$28]
|
004DDCE9 E8822D0000 call 004E0A70
004DDCEE EB18 jmp 004DDD08
004DDCF0 6A10 push $10
* Possible String Reference to: '错误信息'
|
004DDCF2 B984DE4D00 mov ecx, $004DDE84
* Possible String Reference to: '魔法数据库发生错误！'
|
004DDCF7 BA90DE4D00 mov edx, $004DDE90
004DDCFC A1C8804E00 mov eax, dword ptr [$004E80C8]
004DDD01 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
004DDD03 E8E433FAFF call 004810EC
004DDD08 A1F87C4E00 mov eax, dword ptr [$004E7CF8]
004DDD0D 8B00 mov eax, [eax]
|
004DDD0F E8283BFFFF call 004D183C
004DDD14 8BD8 mov ebx, eax
004DDD16 85DB test ebx, ebx
004DDD18 7C24 jl 004DDD3E
004DDD1A 8D45CC lea eax, [ebp-$34]
004DDD1D 50 push eax
004DDD1E 895DD0 mov [ebp-$30], ebx
004DDD21 C645D400 mov byte ptr [ebp-$2C], $00
004DDD25 8D55D0 lea edx, [ebp-$30]
004DDD28 33C9 xor ecx, ecx
* Possible String Reference to: '加载物品数据库完成(%d)...'
|
004DDD2A B8B0DE4D00 mov eax, $004DDEB0
|
004DDD2F E858E3F2FF call 0040C08C
004DDD34 8B45CC mov eax, [ebp-$34]
|
004DDD37 E8342D0000 call 004E0A70
004DDD3C EB18 jmp 004DDD56
004DDD3E 6A10 push $10
* Possible String Reference to: '错误信息'
|
004DDD40 B984DE4D00 mov ecx, $004DDE84
* Possible String Reference to: '物品数据库发生错误！'
|
004DDD45 BACCDE4D00 mov edx, $004DDECC
004DDD4A A1C8804E00 mov eax, dword ptr [$004E80C8]
004DDD4F 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
004DDD51 E89633FAFF call 004810EC
004DDD56 8B1500834E00 mov edx, [$004E8300]
004DDD5C 8B12 mov edx, [edx]
004DDD5E 8D45C8 lea eax, [ebp-$38]
* Possible String Reference to: 'Hum.DB'
|
004DDD61 B9ECDE4D00 mov ecx, $004DDEEC
* Reference to: System.@LStrCat3;
|
004DDD66 E8996FF2FF call 00404D04
004DDD6B 8B4DC8 mov ecx, [ebp-$38]
004DDD6E B201 mov dl, $01
004DDD70 A110124E00 mov eax, dword ptr [$004E1210]
* Reference to: DBClient.EDBClient.Create(EDBClient;boolean;AnsiString;DBResult);
| or: SvcMgr.TServiceStartThread.Create(TServiceStartThread;boolean;TServiceTableEntryArray);
|
004DDD75 E872350000 call 004E12EC
004DDD7A 8B15C07C4E00 mov edx, [$004E7CC0]
004DDD80 8902 mov [edx], eax
004DDD82 8B15E07B4E00 mov edx, [$004E7BE0]
004DDD88 8B12 mov edx, [edx]
004DDD8A 8D45C4 lea eax, [ebp-$3C]
* Possible String Reference to: 'Mir.DB'
|
004DDD8D B9FCDE4D00 mov ecx, $004DDEFC
* Reference to: System.@LStrCat3;
|
004DDD92 E86D6FF2FF call 00404D04
004DDD97 8B4DC4 mov ecx, [ebp-$3C]
004DDD9A B201 mov dl, $01
004DDD9C A17C124E00 mov eax, dword ptr [$004E127C]
|
004DDDA1 E8AE420000 call 004E2054
004DDDA6 8B1570824E00 mov edx, [$004E8270]
004DDDAC 8902 mov [edx], eax
004DDDAE A114814E00 mov eax, dword ptr [$004E8114]
004DDDB3 C60000 mov byte ptr [eax], $00
004DDDB6 A14C834E00 mov eax, dword ptr [$004E834C]
004DDDBB C60001 mov byte ptr [eax], $01
004DDDBE 33D2 xor edx, edx
004DDDC0 8B870C030000 mov eax, [edi+$030C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004DDDC6 E8A133F8FF call 0046116C
004DDDCB A170804E00 mov eax, dword ptr [$004E8070]
004DDDD0 8B00 mov eax, [eax]
|
004DDDD2 E8E9A5FBFF call 004983C0
* Possible String Reference to: '数据库服务器已启动完成...'
|
004DDDD7 B80CDF4D00 mov eax, $004DDF0C
|
004DDDDC E88F2C0000 call 004E0A70
* Possible String Reference to: '数据库服务器启动已完成...'
|
004DDDE1 BA30DF4D00 mov edx, $004DDF30
004DDDE6 66B8EA03 mov ax, $03EA
|
004DDDEA E8C92D0000 call 004E0BB8
004DDDEF 8D55C0 lea edx, [ebp-$40]
004DDDF2 A1CC7F4E00 mov eax, dword ptr [$004E7FCC]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004DDDF7 E808D2F2FF call 0040B004
004DDDFC 8B55C0 mov edx, [ebp-$40]
004DDDFF 66B8EE03 mov ax, $03EE
|
004DDE03 E8B02D0000 call 004E0BB8
004DDE08 8BC7 mov eax, edi
004DDE0A 66BEAAFF mov si, $FFAA
* Reference to: System.@CallDynaInst;
|
004DDE0E E89D5FF2FF call 00403DB0
004DDE13 33C0 xor eax, eax
004DDE15 8987C8030000 mov [edi+$03C8], eax
004DDE1B 33C0 xor eax, eax
004DDE1D 5A pop edx
004DDE1E 59 pop ecx
004DDE1F 59 pop ecx
004DDE20 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -