📄 interservermsg.pas
字号:
unit InterServerMsg;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmSrvMsg=class(TForm)
MsgServer: TServerSocket;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure MsgServerClientConnect(Sender : TObject);
procedure MsgServerClientDisconnect(Sender : TObject);
procedure MsgServerClientError(Sender : TObject);
procedure MsgServerClientRead(Sender : TObject);
procedure _PROC_004B4C14(Sender : TObject);
procedure _PROC_004B4DC0(Sender : TObject);
procedure _PROC_004B4E59(Sender : TObject);
procedure _PROC_004B4ED4(Sender : TObject);
procedure _PROC_004B4F70(Sender : TObject);
procedure _PROC_004B52A8(Sender : TObject);
procedure _PROC_004B5407(Sender : TObject);
procedure _PROC_004B547F(Sender : TObject);
procedure _PROC_004B548C(Sender : TObject);
procedure _PROC_004B54FC(Sender : TObject);
procedure _PROC_004B55F0(Sender : TObject);
procedure _PROC_004B5668(Sender : TObject);
procedure _PROC_004B5708(Sender : TObject);
procedure _PROC_004B5774(Sender : TObject);
procedure _PROC_004B5895(Sender : TObject);
procedure _PROC_004B594C(Sender : TObject);
procedure _PROC_004B5A24(Sender : TObject);
procedure _PROC_004B5AA8(Sender : TObject);
procedure _PROC_004B5B24(Sender : TObject);
procedure _PROC_004B5B40(Sender : TObject);
procedure _PROC_004B5B58(Sender : TObject);
procedure InterServerMsg.Finalization(Sender : TObject);
procedure InterServerMsg.Initialization(Sender : TObject);
procedure Proc_004B52A7(Sender : TObject);
procedure Proc_004B544F(Sender : TObject);
procedure Proc_004B54BF(Sender : TObject);
procedure Proc_004B552F(Sender : TObject);
procedure Proc_004B5623(Sender : TObject);
procedure Proc_004B569B(Sender : TObject);
procedure Proc_004B573B(Sender : TObject);
procedure Proc_004B57A7(Sender : TObject);
procedure Proc_004B58C7(Sender : TObject);
procedure Proc_004B597F(Sender : TObject);
procedure Proc_004B5A57(Sender : TObject);
procedure Proc_004B5ADB(Sender : TObject);
procedure Proc_004B5B57(Sender : TObject);
procedure Proc_004B5B73(Sender : TObject);
procedure Proc_004B4DF3(Sender : TObject);
procedure Proc_004B4F07(Sender : TObject);
procedure Proc_004B52DA(Sender : TObject);
procedure Proc_004B5482(Sender : TObject);
procedure Proc_004B54F2(Sender : TObject);
procedure Proc_004B5562(Sender : TObject);
procedure Proc_004B5656(Sender : TObject);
procedure Proc_004B56CE(Sender : TObject);
procedure Proc_004B576E(Sender : TObject);
procedure Proc_004B57DA(Sender : TObject);
procedure Proc_004B58FA(Sender : TObject);
procedure Proc_004B59B2(Sender : TObject);
procedure Proc_004B5A8A(Sender : TObject);
procedure Proc_004B5B0E(Sender : TObject);
procedure Proc_004B5B8A(Sender : TObject);
procedure Proc_004B5BA6(Sender : TObject);
procedure Proc_004B4FD6(Sender : TObject);
procedure Proc_004B4FA3(Sender : TObject);
procedure Proc_004B5471(Sender : TObject);
procedure Proc_004B5645(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmSrvMsg: TFrmSrvMsg;
{This file is generated by DeDe Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmSrvMsg.FormCreate(Sender : TObject);
begin
(*
004B4BB8 55 push ebp
004B4BB9 8BEC mov ebp, esp
004B4BBB 83C4F8 add esp, -$08
004B4BBE 8955F8 mov [ebp-$08], edx
004B4BC1 8945FC mov [ebp-$04], eax
004B4BC4 8B45FC mov eax, [ebp-$04]
004B4BC7 05DC020000 add eax, +$000002DC
004B4BCC 33C9 xor ecx, ecx
004B4BCE BA50000000 mov edx, $00000050
* Reference to: System.Proc_00402BF8
|
004B4BD3 E820E0F4FF call 00402BF8
004B4BD8 B201 mov dl, $01
* Reference to class TUserHuman
|
004B4BDA A1CCFF4C00 mov eax, dword ptr [$004CFFCC]
* Reference to: Unit_004CFE70.Proc_004E473C
|
004B4BDF E858FB0200 call 004E473C
004B4BE4 8B55FC mov edx, [ebp-$04]
* Reference to field TFrmSrvMsg.OFFS_02D8
|
004B4BE7 8982D8020000 mov [edx+$02D8], eax
004B4BED 59 pop ecx
004B4BEE 59 pop ecx
004B4BEF 5D pop ebp
004B4BF0 C3 ret
*)
end;
procedure TFrmSrvMsg.FormDestroy(Sender : TObject);
begin
(*
004B4BF4 55 push ebp
004B4BF5 8BEC mov ebp, esp
004B4BF7 83C4F8 add esp, -$08
004B4BFA 8955F8 mov [ebp-$08], edx
004B4BFD 8945FC mov [ebp-$04], eax
004B4C00 8B45FC mov eax, [ebp-$04]
* Reference to field TFrmSrvMsg.OFFS_02D8
|
004B4C03 8B80D8020000 mov eax, [eax+$02D8]
* Reference to: System.Proc_00402F6C
|
004B4C09 E85EE3F4FF call 00402F6C
004B4C0E 59 pop ecx
004B4C0F 59 pop ecx
004B4C10 5D pop ebp
004B4C11 C3 ret
*)
end;
procedure TFrmSrvMsg.MsgServerClientConnect(Sender : TObject);
begin
(*
004B4C54 55 push ebp
004B4C55 8BEC mov ebp, esp
004B4C57 83C4F0 add esp, -$10
004B4C5A 894DF8 mov [ebp-$08], ecx
004B4C5D 8955F0 mov [ebp-$10], edx
004B4C60 8945FC mov [ebp-$04], eax
004B4C63 33C0 xor eax, eax
004B4C65 8945F4 mov [ebp-$0C], eax
004B4C68 8B45F4 mov eax, [ebp-$0C]
004B4C6B 8B55FC mov edx, [ebp-$04]
004B4C6E 83BCC2DC02000000 cmp dword ptr [edx+eax*8+$02DC], +$00
004B4C76 752D jnz 004B4CA5
004B4C78 8B45F8 mov eax, [ebp-$08]
004B4C7B 8B55F4 mov edx, [ebp-$0C]
004B4C7E 8B4DFC mov ecx, [ebp-$04]
004B4C81 8984D1DC020000 mov [ecx+edx*8+$02DC], eax
004B4C88 8B45F4 mov eax, [ebp-$0C]
004B4C8B 8B55FC mov edx, [ebp-$04]
004B4C8E 8D84C2E0020000 lea eax, [edx+eax*8+$02E0]
* Reference to: System.Proc_00403D54
|
004B4C95 E8BAF0F4FF call 00403D54
004B4C9A 8B45F8 mov eax, [ebp-$08]
004B4C9D 8B55F4 mov edx, [ebp-$0C]
004B4CA0 895048 mov [eax+$48], edx
004B4CA3 EB09 jmp 004B4CAE
004B4CA5 FF45F4 inc dword ptr [ebp-$0C]
004B4CA8 837DF40A cmp dword ptr [ebp-$0C], +$0A
004B4CAC 75BA jnz 004B4C68
004B4CAE 8BE5 mov esp, ebp
004B4CB0 5D pop ebp
004B4CB1 C3 ret
*)
end;
procedure TFrmSrvMsg.MsgServerClientDisconnect(Sender : TObject);
begin
(*
004B4CB4 55 push ebp
004B4CB5 8BEC mov ebp, esp
004B4CB7 83C4EC add esp, -$14
004B4CBA 894DF8 mov [ebp-$08], ecx
004B4CBD 8955F0 mov [ebp-$10], edx
004B4CC0 8945FC mov [ebp-$04], eax
004B4CC3 33C0 xor eax, eax
004B4CC5 8945F4 mov [ebp-$0C], eax
004B4CC8 8B45F4 mov eax, [ebp-$0C]
004B4CCB 8B55FC mov edx, [ebp-$04]
004B4CCE 8B84C2DC020000 mov eax, [edx+eax*8+$02DC]
004B4CD5 3B45F8 cmp eax, [ebp-$08]
004B4CD8 7523 jnz 004B4CFD
004B4CDA 8B45F4 mov eax, [ebp-$0C]
004B4CDD 8B55FC mov edx, [ebp-$04]
004B4CE0 33C9 xor ecx, ecx
004B4CE2 898CC2DC020000 mov [edx+eax*8+$02DC], ecx
004B4CE9 8B45F4 mov eax, [ebp-$0C]
004B4CEC 8B55FC mov edx, [ebp-$04]
004B4CEF 8D84C2E0020000 lea eax, [edx+eax*8+$02E0]
* Reference to: System.Proc_00403D54
|
004B4CF6 E859F0F4FF call 00403D54
004B4CFB EB09 jmp 004B4D06
004B4CFD FF45F4 inc dword ptr [ebp-$0C]
004B4D00 837DF40A cmp dword ptr [ebp-$0C], +$0A
004B4D04 75C2 jnz 004B4CC8
004B4D06 8BE5 mov esp, ebp
004B4D08 5D pop ebp
004B4D09 C3 ret
*)
end;
procedure TFrmSrvMsg.MsgServerClientError(Sender : TObject);
begin
(*
004B4D0C 55 push ebp
004B4D0D 8BEC mov ebp, esp
004B4D0F 83C4F4 add esp, -$0C
004B4D12 894DF8 mov [ebp-$08], ecx
004B4D15 8955F4 mov [ebp-$0C], edx
004B4D18 8945FC mov [ebp-$04], eax
004B4D1B 8B4508 mov eax, [ebp+$08]
004B4D1E 33D2 xor edx, edx
004B4D20 8910 mov [eax], edx
004B4D22 8B45F8 mov eax, [ebp-$08]
* Reference to: ScktComp.Proc_00450090
|
004B4D25 E866B3F9FF call 00450090
004B4D2A 8BE5 mov esp, ebp
004B4D2C 5D pop ebp
004B4D2D C20800 ret $0008
*)
end;
procedure TFrmSrvMsg.MsgServerClientRead(Sender : TObject);
begin
(*
004B4D30 55 push ebp
004B4D31 8BEC mov ebp, esp
004B4D33 83C4E0 add esp, -$20
004B4D36 53 push ebx
004B4D37 33DB xor ebx, ebx
004B4D39 895DE0 mov [ebp-$20], ebx
004B4D3C 894DF8 mov [ebp-$08], ecx
004B4D3F 8955F0 mov [ebp-$10], edx
004B4D42 8945FC mov [ebp-$04], eax
004B4D45 33C0 xor eax, eax
004B4D47 55 push ebp
* Possible String Reference to: '檎梏⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -