📄 ftpserverunit.pas
字号:
005ACEB4 8D85E8FDFFFF lea eax, [ebp+$FFFFFDE8]
* Reference to: System.@LStrClr(void;void);
|
005ACEBA E86D7BE5FF call 00404A2C
005ACEBF 8D85ECFDFFFF lea eax, [ebp+$FFFFFDEC]
005ACEC5 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
005ACECA E8817BE5FF call 00404A50
005ACECF 8D85F8FDFFFF lea eax, [ebp+$FFFFFDF8]
005ACED5 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
005ACEDA E8717BE5FF call 00404A50
005ACEDF C3 ret
* Reference to: System.@HandleFinally;
|
005ACEE0 E9AB74E5FF jmp 00404390
005ACEE5 EBCD jmp 005ACEB4
****** END
|
005ACEE7 5F pop edi
005ACEE8 5E pop esi
005ACEE9 5B pop ebx
005ACEEA 8BE5 mov esp, ebp
005ACEEC 5D pop ebp
005ACEED C20C00 ret $000C
*)
end;
procedure TFTPServerForm.CheckBox6Click(Sender : TObject);
begin
(*
005ACEF0 55 push ebp
005ACEF1 8BEC mov ebp, esp
005ACEF3 53 push ebx
005ACEF4 56 push esi
005ACEF5 57 push edi
005ACEF6 8BD8 mov ebx, eax
* Reference to control TFTPServerForm.CheckBox6 : TspSkinCheckRadioBox
|
005ACEF8 8B832C030000 mov eax, [ebx+$032C]
* Reference to field TspSkinCheckRadioBox.OFFS_02F0
|
005ACEFE 80B8F002000000 cmp byte ptr [eax+$02F0], $00
005ACF05 746C jz 005ACF73
* Reference to control TFTPServerForm.UserEdit : TspSkinEdit
|
005ACF07 8B8308030000 mov eax, [ebx+$0308]
005ACF0D 33D2 xor edx, edx
005ACF0F 8B08 mov ecx, [eax]
* Possible reference to virtual method TspSkinEdit.OFFS_64
|
005ACF11 FF5164 call dword ptr [ecx+$64]
* Reference to control TFTPServerForm.PassEdit : TspSkinPasswordEdit
|
005ACF14 8B8344030000 mov eax, [ebx+$0344]
005ACF1A 33D2 xor edx, edx
005ACF1C 8B08 mov ecx, [eax]
* Possible reference to virtual method TspSkinPasswordEdit.OFFS_64
|
005ACF1E FF5164 call dword ptr [ecx+$64]
* Reference to control TFTPServerForm.AutoSaveFTPInf : TspSkinCheckRadioBox
|
005ACF21 8B833C030000 mov eax, [ebx+$033C]
* Reference to field TspSkinCheckRadioBox.OFFS_02F0
|
005ACF27 80B8F002000000 cmp byte ptr [eax+$02F0], $00
005ACF2E 0F84A5000000 jz 005ACFD9
005ACF34 33C0 xor eax, eax
005ACF36 55 push ebp
005ACF37 6867CF5A00 push $005ACF67
***** TRY
|
005ACF3C 64FF30 push dword ptr fs:[eax]
005ACF3F 648920 mov fs:[eax], esp
005ACF42 68E8CF5A00 push $005ACFE8
* Reference to pointer to GlobalVar_005DF888
|
005ACF47 A1D4BA5D00 mov eax, dword ptr [$005DBAD4]
005ACF4C 8B00 mov eax, [eax]
* Possible String Reference to: 'Anonymous'
|
005ACF4E B9F4CF5A00 mov ecx, $005ACFF4
* Possible String Reference to: 'FTPServer'
|
005ACF53 BA08D05A00 mov edx, $005AD008
005ACF58 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_005DF888.OFFS_04
|
005ACF5A FF5304 call dword ptr [ebx+$04]
005ACF5D 33C0 xor eax, eax
005ACF5F 5A pop edx
005ACF60 59 pop ecx
005ACF61 59 pop ecx
005ACF62 648910 mov fs:[eax], edx
005ACF65 EB72 jmp 005ACFD9
* Reference to: System.@HandleAnyException;
|
005ACF67 E97071E5FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
005ACF6C E8D374E5FF call 00404444
005ACF71 EB66 jmp 005ACFD9
* Reference to control Label1 : TspSkinStdLabel
|
005ACF73 8B8308030000 mov eax, [ebx+$0308]
005ACF79 B201 mov dl, $01
005ACF7B 8B08 mov ecx, [eax]
* Possible reference to virtual method TspSkinStdLabel.OFFS_64
|
005ACF7D FF5164 call dword ptr [ecx+$64]
* Reference to control Label2 : TspSkinStdLabel
|
005ACF80 8B8344030000 mov eax, [ebx+$0344]
005ACF86 B201 mov dl, $01
005ACF88 8B08 mov ecx, [eax]
* Possible reference to virtual method TspSkinStdLabel.OFFS_64
|
005ACF8A FF5164 call dword ptr [ecx+$64]
* Reference to control ServerText : N.A.
|
005ACF8D 8B833C030000 mov eax, [ebx+$033C]
* Reference to field N.A..OFFS_02F0
|
005ACF93 80B8F002000000 cmp byte ptr [eax+$02F0], $00
005ACF9A 743D jz 005ACFD9
005ACF9C 33C0 xor eax, eax
005ACF9E 55 push ebp
005ACF9F 68CFCF5A00 push $005ACFCF
***** TRY
|
005ACFA4 64FF30 push dword ptr fs:[eax]
005ACFA7 648920 mov fs:[eax], esp
005ACFAA 681CD05A00 push $005AD01C
* Reference to pointer to GlobalVar_005DF888
|
005ACFAF A1D4BA5D00 mov eax, dword ptr [$005DBAD4]
005ACFB4 8B00 mov eax, [eax]
* Possible String Reference to: 'Anonymous'
|
005ACFB6 B9F4CF5A00 mov ecx, $005ACFF4
* Possible String Reference to: 'FTPServer'
|
005ACFBB BA08D05A00 mov edx, $005AD008
005ACFC0 8B18 mov ebx, [eax]
* Possible reference to virtual method TGlobalVar_005DF888.OFFS_04
|
005ACFC2 FF5304 call dword ptr [ebx+$04]
005ACFC5 33C0 xor eax, eax
005ACFC7 5A pop edx
005ACFC8 59 pop ecx
005ACFC9 59 pop ecx
005ACFCA 648910 mov fs:[eax], edx
005ACFCD EB0A jmp 005ACFD9
* Reference to: System.@HandleAnyException;
|
005ACFCF E90871E5FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
005ACFD4 E86B74E5FF call 00404444
****** END
|
005ACFD9 5F pop edi
005ACFDA 5E pop esi
005ACFDB 5B pop ebx
005ACFDC 5D pop ebp
005ACFDD C3 ret
*)
end;
procedure TFTPServerForm.StartButtonClick(Sender : TObject);
begin
(*
005AD020 55 push ebp
005AD021 8BEC mov ebp, esp
005AD023 33C9 xor ecx, ecx
005AD025 51 push ecx
005AD026 51 push ecx
005AD027 51 push ecx
005AD028 51 push ecx
005AD029 53 push ebx
005AD02A 56 push esi
005AD02B 57 push edi
005AD02C 8BD8 mov ebx, eax
005AD02E 33C0 xor eax, eax
005AD030 55 push ebp
* Possible String Reference to: '镕r⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -