📄 idsrvclient.pas
字号:
begin
(*
0049C108 55 push ebp
0049C109 8BEC mov ebp, esp
0049C10B 83C4F8 add esp, -$08
0049C10E 8955F8 mov [ebp-$08], edx
0049C111 8945FC mov [ebp-$04], eax
0049C114 8B45FC mov eax, [ebp-$04]
* Reference to field TFrmIDSoc.OFFS_02D8
|
0049C117 8B80D8020000 mov eax, [eax+$02D8]
* Reference to: System.Proc_00402F6C
|
0049C11D E84A6EF6FF call 00402F6C
0049C122 59 pop ecx
0049C123 59 pop ecx
0049C124 5D pop ebp
0049C125 C3 ret
*)
end;
procedure TFrmIDSoc.Timer1Timer(Sender : TObject);
begin
(*
0049C168 55 push ebp
0049C169 8BEC mov ebp, esp
0049C16B 83C4F8 add esp, -$08
0049C16E 8955F8 mov [ebp-$08], edx
0049C171 8945FC mov [ebp-$04], eax
0049C174 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmIDSoc.IDSocket : TClientSocket
|
0049C177 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TClientSocket.OFFS_002C
|
0049C17D 83782C00 cmp dword ptr [eax+$2C], +$00
0049C181 741F jz 0049C1A2
0049C183 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmIDSoc.IDSocket : TClientSocket
|
0049C186 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TClientSocket.OFFS_0024
|
0049C18C 80782400 cmp byte ptr [eax+$24], $00
0049C190 7510 jnz 0049C1A2
0049C192 B201 mov dl, $01
0049C194 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmIDSoc.IDSocket : TClientSocket
|
0049C197 8B80D0020000 mov eax, [eax+$02D0]
* Reference to : TServerSocket._PROC_00451D3C()
|
0049C19D E89A5BFBFF call 00451D3C
0049C1A2 59 pop ecx
0049C1A3 59 pop ecx
0049C1A4 5D pop ebp
0049C1A5 C3 ret
*)
end;
procedure TFrmIDSoc.IDSocketConnect(Sender : TObject);
begin
(*
0049C1A8 55 push ebp
0049C1A9 8BEC mov ebp, esp
0049C1AB 83C4F4 add esp, -$0C
0049C1AE 894DF4 mov [ebp-$0C], ecx
0049C1B1 8955F8 mov [ebp-$08], edx
0049C1B4 8945FC mov [ebp-$04], eax
0049C1B7 8BE5 mov esp, ebp
0049C1B9 5D pop ebp
0049C1BA C3 ret
*)
end;
procedure TFrmIDSoc.IDSocketDisconnect(Sender : TObject);
begin
(*
0049C1BC 55 push ebp
0049C1BD 8BEC mov ebp, esp
0049C1BF 83C4F4 add esp, -$0C
0049C1C2 894DF4 mov [ebp-$0C], ecx
0049C1C5 8955F8 mov [ebp-$08], edx
0049C1C8 8945FC mov [ebp-$04], eax
0049C1CB 8BE5 mov esp, ebp
0049C1CD 5D pop ebp
0049C1CE C3 ret
*)
end;
procedure TFrmIDSoc.IDSocketError(Sender : TObject);
begin
(*
0049C1D0 55 push ebp
0049C1D1 8BEC mov ebp, esp
0049C1D3 83C4F4 add esp, -$0C
0049C1D6 894DF8 mov [ebp-$08], ecx
0049C1D9 8955F4 mov [ebp-$0C], edx
0049C1DC 8945FC mov [ebp-$04], eax
0049C1DF 8B4508 mov eax, [ebp+$08]
0049C1E2 33D2 xor edx, edx
0049C1E4 8910 mov [eax], edx
0049C1E6 8B45F8 mov eax, [ebp-$08]
* Reference to: ScktComp.Proc_00450090
|
0049C1E9 E8A23EFBFF call 00450090
0049C1EE 8BE5 mov esp, ebp
0049C1F0 5D pop ebp
0049C1F1 C20800 ret $0008
*)
end;
procedure TFrmIDSoc.IDSocketRead(Sender : TObject);
begin
(*
0049C1F4 55 push ebp
0049C1F5 8BEC mov ebp, esp
0049C1F7 83C4F0 add esp, -$10
0049C1FA 53 push ebx
0049C1FB 33DB xor ebx, ebx
0049C1FD 895DF0 mov [ebp-$10], ebx
0049C200 894DF8 mov [ebp-$08], ecx
0049C203 8955F4 mov [ebp-$0C], edx
0049C206 8945FC mov [ebp-$04], eax
0049C209 33C0 xor eax, eax
0049C20B 55 push ebp
0049C20C 6883C24900 push $0049C283
***** TRY
|
0049C211 64FF30 push dword ptr fs:[eax]
0049C214 648920 mov fs:[eax], esp
0049C217 33C0 xor eax, eax
0049C219 55 push ebp
0049C21A 6866C24900 push $0049C266
***** TRY
|
0049C21F 64FF30 push dword ptr fs:[eax]
0049C222 648920 mov fs:[eax], esp
* Reference to pointer to GlobalVar_00503C64
|
0049C225 A1542F5000 mov eax, dword ptr [$00502F54]
0049C22A 8B00 mov eax, [eax]
* Reference to: Unit_0044E9C0.Proc_0044ED0C
|
0049C22C E8DB2AFBFF call 0044ED0C
0049C231 8D55F0 lea edx, [ebp-$10]
0049C234 8B45F8 mov eax, [ebp-$08]
* Reference to : TServerSocket._PROC_00450DAC()
|
0049C237 E8704BFBFF call 00450DAC
0049C23C 8B55F0 mov edx, [ebp-$10]
0049C23F 8B45FC mov eax, [ebp-$04]
0049C242 05E8020000 add eax, +$000002E8
* Reference to: System.Proc_00403FDC
|
0049C247 E8907DF6FF call 00403FDC
0049C24C 33C0 xor eax, eax
0049C24E 5A pop edx
0049C24F 59 pop ecx
0049C250 59 pop ecx
0049C251 648910 mov fs:[eax], edx
****** FINALLY
|
0049C254 686DC24900 push $0049C26D
* Reference to pointer to GlobalVar_00503C64
|
0049C259 A1542F5000 mov eax, dword ptr [$00502F54]
0049C25E 8B00 mov eax, [eax]
* Reference to: Unit_0044E9C0.Proc_0044ED14
|
0049C260 E8AF2AFBFF call 0044ED14
0049C265 C3 ret
* Reference to: System.Proc_0040368C
|
0049C266 E92174F6FF jmp 0040368C
0049C26B EBEC jmp 0049C259
****** END
|
0049C26D 33C0 xor eax, eax
0049C26F 5A pop edx
0049C270 59 pop ecx
0049C271 59 pop ecx
0049C272 648910 mov fs:[eax], edx
****** FINALLY
|
0049C275 688AC24900 push $0049C28A
0049C27A 8D45F0 lea eax, [ebp-$10]
* Reference to: System.Proc_00403D54
|
0049C27D E8D27AF6FF call 00403D54
0049C282 C3 ret
* Reference to: System.Proc_0040368C
|
0049C283 E90474F6FF jmp 0040368C
0049C288 EBF0 jmp 0049C27A
****** END
|
0049C28A 5B pop ebx
0049C28B 8BE5 mov esp, ebp
0049C28D 5D pop ebp
0049C28E C3 ret
*)
end;
procedure TFrmIDSoc._PROC_0049C128(Sender : TObject);
begin
(*
0049C128 55 push ebp
0049C129 8BEC mov ebp, esp
0049C12B 83C4F4 add esp, -$0C
0049C12E 33D2 xor edx, edx
0049C130 8955F4 mov [ebp-$0C], edx
0049C133 8945FC mov [ebp-$04], eax
0049C136 33C0 xor eax, eax
0049C138 55 push ebp
* Possible String Reference to: '⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -