📄 dbsmain.pas
字号:
* Reference to: Grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
004DD71E E8D5FDFAFF call 0048D4F8
004DD723 8D95BCFEFFFF lea edx, [ebp+$FFFFFEBC]
* Possible String Reference to: 'h朜'
|
004DD729 B8B8D44D00 mov eax, $004DD4B8
|
004DD72E E87594F2FF call 00406BA8
004DD733 8B85BCFEFFFF mov eax, [ebp+$FFFFFEBC]
004DD739 50 push eax
004DD73A 33C9 xor ecx, ecx
004DD73C 33D2 xor edx, edx
004DD73E 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004DD744 E82B1FFBFF call 0048F674
004DD749 8D95B8FEFFFF lea edx, [ebp+$FFFFFEB8]
* Possible String Reference to: 'h朜'
|
004DD74F B8C0D44D00 mov eax, $004DD4C0
|
004DD754 E84F94F2FF call 00406BA8
004DD759 8B85B8FEFFFF mov eax, [ebp+$FFFFFEB8]
004DD75F 50 push eax
004DD760 33C9 xor ecx, ecx
004DD762 BA01000000 mov edx, $00000001
004DD767 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004DD76D E8021FFBFF call 0048F674
004DD772 8D95B4FEFFFF lea edx, [ebp+$FFFFFEB4]
* Possible String Reference to: 'h朜'
|
004DD778 B8C8D44D00 mov eax, $004DD4C8
|
004DD77D E82694F2FF call 00406BA8
004DD782 8B85B4FEFFFF mov eax, [ebp+$FFFFFEB4]
004DD788 50 push eax
004DD789 33C9 xor ecx, ecx
004DD78B BA02000000 mov edx, $00000002
004DD790 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004DD796 E8D91EFBFF call 0048F674
004DD79B A1C8804E00 mov eax, dword ptr [$004E80C8]
004DD7A0 8B00 mov eax, [eax]
004DD7A2 8998D4000000 mov [eax+$00D4], ebx
004DD7A8 C780D000000074F34D00 mov dword ptr [eax+$00D0], $004DF374
004DD7B2 A114814E00 mov eax, dword ptr [$004E8114]
004DD7B7 C60001 mov byte ptr [eax], $01
004DD7BA 33D2 xor edx, edx
004DD7BC 8B830C030000 mov eax, [ebx+$030C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004DD7C2 E8A539F8FF call 0046116C
* Possible String Reference to: '-/-'
|
004DD7C7 BA68D94D00 mov edx, $004DD968
004DD7CC 8B8310030000 mov eax, [ebx+$0310]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004DD7D2 E89539F8FF call 0046116C
004DD7D7 A1C07C4E00 mov eax, dword ptr [$004E7CC0]
004DD7DC 33D2 xor edx, edx
004DD7DE 8910 mov [eax], edx
004DD7E0 A170824E00 mov eax, dword ptr [$004E8270]
004DD7E5 33D2 xor edx, edx
004DD7E7 8910 mov [eax], edx
|
004DD7E9 E892290000 call 004E0180
004DD7EE 8B158C814E00 mov edx, [$004E818C]
004DD7F4 8A12 mov dl, byte ptr [edx]
004DD7F6 8B8334030000 mov eax, [ebx+$0334]
004DD7FC 8B08 mov ecx, [eax]
004DD7FE FF91CC000000 call dword ptr [ecx+$00CC]
004DD804 B201 mov dl, $01
004DD806 A154C54100 mov eax, dword ptr [$0041C554]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
004DD80B E86863F2FF call 00403B78
004DD810 8983BC030000 mov [ebx+$03BC], eax
* Possible String Reference to: 'FDB: '
|
004DD816 6874D94D00 push $004DD974
004DD81B A1E07B4E00 mov eax, dword ptr [$004E7BE0]
004DD820 FF30 push dword ptr [eax]
* Possible String Reference to: 'Mir.DB '
|
004DD822 6884D94D00 push $004DD984
* Possible String Reference to: 'Backup: '
|
004DD827 6894D94D00 push $004DD994
004DD82C A194824E00 mov eax, dword ptr [$004E8294]
004DD831 FF30 push dword ptr [eax]
004DD833 8D85B0FEFFFF lea eax, [ebp+$FFFFFEB0]
004DD839 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
004DD83E E83575F2FF call 00404D78
004DD843 8B95B0FEFFFF mov edx, [ebp+$FFFFFEB0]
004DD849 8B8378030000 mov eax, [ebx+$0378]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004DD84F E81839F8FF call 0046116C
004DD854 8B15B47E4E00 mov edx, [$004E7EB4]
004DD85A 8B12 mov edx, [edx]
004DD85C 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: ScktComp.TAbstractSocket.SetAddress(TAbstractSocket;AnsiString);
|
004DD862 E8BD63FBFF call 00493C24
004DD867 8B15EC7E4E00 mov edx, [$004E7EEC]
004DD86D 8B12 mov edx, [edx]
004DD86F 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: ScktComp.TAbstractSocket.SetPort(TAbstractSocket;Integer);
|
004DD875 E8AA64FBFF call 00493D24
004DD87A B201 mov dl, $01
004DD87C 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: ScktComp.TAbstractSocket.SetActive(TAbstractSocket;Boolean);
|
004DD882 E84D63FBFF call 00493BD4
004DD887 A1087D4E00 mov eax, dword ptr [$004E7D08]
004DD88C 33D2 xor edx, edx
004DD88E 8910 mov [eax], edx
004DD890 A1487C4E00 mov eax, dword ptr [$004E7C48]
004DD895 33D2 xor edx, edx
004DD897 8910 mov [eax], edx
004DD899 A15C7B4E00 mov eax, dword ptr [$004E7B5C]
004DD89E 33D2 xor edx, edx
004DD8A0 8910 mov [eax], edx
004DD8A2 A184804E00 mov eax, dword ptr [$004E8084]
004DD8A7 33D2 xor edx, edx
004DD8A9 8910 mov [eax], edx
004DD8AB A16C824E00 mov eax, dword ptr [$004E826C]
004DD8B0 33D2 xor edx, edx
004DD8B2 8910 mov [eax], edx
004DD8B4 33C0 xor eax, eax
004DD8B6 8983B4030000 mov [ebx+$03B4], eax
004DD8BC A1387D4E00 mov eax, dword ptr [$004E7D38]
004DD8C1 33D2 xor edx, edx
004DD8C3 8910 mov [eax], edx
004DD8C5 A17C804E00 mov eax, dword ptr [$004E807C]
004DD8CA 33D2 xor edx, edx
004DD8CC 8910 mov [eax], edx
004DD8CE A1EC814E00 mov eax, dword ptr [$004E81EC]
004DD8D3 33D2 xor edx, edx
004DD8D5 8910 mov [eax], edx
004DD8D7 A1887F4E00 mov eax, dword ptr [$004E7F88]
004DD8DC 33D2 xor edx, edx
004DD8DE 8910 mov [eax], edx
004DD8E0 A1D47E4E00 mov eax, dword ptr [$004E7ED4]
004DD8E5 33D2 xor edx, edx
004DD8E7 8910 mov [eax], edx
004DD8E9 A100804E00 mov eax, dword ptr [$004E8000]
004DD8EE 33D2 xor edx, edx
004DD8F0 8910 mov [eax], edx
004DD8F2 A12C7F4E00 mov eax, dword ptr [$004E7F2C]
004DD8F7 33D2 xor edx, edx
004DD8F9 8910 mov [eax], edx
*)
end;
procedure TFrmDBSrv.FormDestroy(Sender : TObject);
begin
(*
004DD9A0 53 push ebx
004DD9A1 56 push esi
004DD9A2 57 push edi
004DD9A3 55 push ebp
004DD9A4 51 push ecx
004DD9A5 8BF8 mov edi, eax
004DD9A7 8B2DC87C4E00 mov ebp, [$004E7CC8]
004DD9AD A170824E00 mov eax, dword ptr [$004E8270]
004DD9B2 833800 cmp dword ptr [eax], +$00
004DD9B5 740C jz 004DD9C3
004DD9B7 A170824E00 mov eax, dword ptr [$004E8270]
004DD9BC 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004DD9BE E8E561F2FF call 00403BA8
004DD9C3 A1C07C4E00 mov eax, dword ptr [$004E7CC0]
004DD9C8 833800 cmp dword ptr [eax], +$00
004DD9CB 740C jz 004DD9D9
004DD9CD A1C07C4E00 mov eax, dword ptr [$004E7CC0]
004DD9D2 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004DD9D4 E8CF61F2FF call 00403BA8
004DD9D9 8B87BC030000 mov eax, [edi+$03BC]
004DD9DF 8B5808 mov ebx, [eax+$08]
004DD9E2 4B dec ebx
004DD9E3 85DB test ebx, ebx
004DD9E5 7C25 jl 004DDA0C
004DD9E7 43 inc ebx
004DD9E8 33F6 xor esi, esi
004DD9EA 8B87BC030000 mov eax, [edi+$03BC]
004DD9F0 8BD6 mov edx, esi
* Reference to: Classes.TList.Get(TList;Integer):Pointer;
|
004DD9F2 E8B114F4FF call 0041EEA8
004DD9F7 890424 mov [esp], eax
004DD9FA 8B1540434900 mov edx, [$00494340]
004DDA00 8B0424 mov eax, [esp]
* Reference to: System.@Dispose(Pointer;Pointer);
|
004DDA03 E8DC7DF2FF call 004057E4
004DDA08 46 inc esi
004DDA09 4B dec ebx
004DDA0A 75DE jnz 004DD9EA
004DDA0C 8B87BC030000 mov eax, [edi+$03BC]
* Reference to: System.TObject.Free(TObject);
|
004DDA12 E89161F2FF call 00403BA8
004DDA17 8B87C4030000 mov eax, [edi+$03C4]
* Reference to: System.TObject.Free(TObject);
|
004DDA1D E88661F2FF call 00403BA8
004DDA22 8B4500 mov eax, [ebp+$00]
004DDA25 8B5808 mov ebx, [eax+$08]
004DDA28 4B dec ebx
004DDA29 85DB test ebx, ebx
004DDA2B 7C1B jl 004DDA48
004DDA2D 43 inc ebx
004DDA2E 33F6 xor esi, esi
004DDA30 8B4500 mov eax, [ebp+$00]
004DDA33 8BD6 mov edx, esi
* Reference to: Classes.TList.Get(TList;Integer):Pointer;
|
004DDA35 E86E14F4FF call 0041EEA8
004DDA3A BA44040000 mov edx, $00000444
* Reference to: System.@FreeMem(Pointer):Integer;
|
004DDA3F E8E053F2FF call 00402E24
004DDA44 46 inc esi
004DDA45 4B dec ebx
004DDA46 75E8 jnz 004DDA30
004DDA48 8B4500 mov eax, [ebp+$00]
* Reference to: System.TObject.Free(TObject);
|
004DDA4B E85861F2FF call 00403BA8
004DDA50 A1147F4E00 mov eax, dword ptr [$004E7F14]
004DDA55 8B00 mov eax, [eax]
004DDA57 8B5808 mov ebx, [eax+$08]
004DDA5A 4B dec ebx
004DDA5B 85DB test ebx, ebx
004DDA5D 7C1F jl 004DDA7E
004DDA5F 43 inc ebx
004DDA60 33F6 xor esi, esi
004DDA62 A1147F4E00 mov eax, dword ptr [$004E7F14]
004DDA67 8B00 mov eax, [eax]
004DDA69 8BD6 mov edx, esi
* Reference to: Classes.TList.Get(TList;Integer):Pointer;
|
004DDA6B E83814F4FF call 0041EEA8
004DDA70 BA4C000000 mov edx, $0000004C
* Reference to: System.@FreeMem(Pointer):Integer;
|
004DDA75 E8AA53F2FF call 00402E24
004DDA7A 46 inc esi
004DDA7B 4B dec ebx
004DDA7C 75E4 jnz 004DDA62
004DDA7E A1147F4E00 mov eax, dword ptr [$004E7F14]
004DDA83 8B00 mov eax, [eax]
* Reference to: System.TObject.Free(TObject);
|
004DDA85 E81E61F2FF call 00403BA8
004DDA8A 5A pop edx
004DDA8B 5D pop ebp
004DDA8C 5F pop edi
004DDA8D 5E pop esi
004DDA8E 5B pop ebx
004DDA8F C3 ret
*)
end;
procedure TFrmDBSrv.FormCloseQuery(Sender : TObject);
begin
(*
004DDA90 53 push ebx
004DDA91 56 push esi
004DDA92 8BF1 mov esi, ecx
004DDA94 8BD8 mov ebx, eax
004DDA96 80BBC003000000 cmp byte ptr [ebx+$03C0], $00
004DDA9D 753C jnz 004DDADB
004DDA9F 6A24 push $24
* Possible String Reference to: '确认信息'
|
004DDAA1 B9E0DA4D00 mov ecx, $004DDAE0
* Possible String Reference to: '是否确定退出数据库服务器 ?'
|
004DDAA6 BAECDA4D00 mov edx, $004DDAEC
004DDAAB A1C8804E00 mov eax, dword ptr [$004E80C8]
004DDAB0 8B00 mov eax, [eax]
* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
004DDAB2 E83536FAFF call 004810EC
004DDAB7 83F806 cmp eax, +$06
004DDABA 751C jnz 004DDAD8
004DDABC C60601 mov byte ptr [esi], $01
004DDABF 33D2 xor edx, edx
004DDAC1 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to: ScktComp.TAbstractSocket.SetActive(TAbstractSocket;Boolean);
|
004DDAC7 E80861FBFF call 00493BD4
* Possible String Reference to: '正在关闭服务器...'
|
004DDACC B810DB4D00 mov eax, $004DDB10
|
004DDAD1 E89A2F0000 call 004E0A70
004DDAD6 EB03 jmp 004DDADB
004DDAD8 C60600 mov byte ptr [esi], $00
004DDADB 5E pop esi
004DDADC 5B pop ebx
004DDADD C3 ret
*)
end;
procedure TFrmDBSrv.FormShow(Sender : TObject);
begin
(*
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -