?? svmain2.pas
字號:
unit svMain2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmMain=class(TForm)
GateSocket: TServerSocket;
Memo1: TMemo;
Timer1: TTimer;
RunTimer: TTimer;
DBSocket: TClientSocket;
ConnectTimer: TTimer;
StartTimer: TTimer;
Panel1: TPanel;
SaveVariableTimer: TTimer;
LbRunTime: TLabel;
TCloseTimer: TTimer;
LbUserCount: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
Label4: TLabel;
LogUDP: TNMUDP;
LbTimeCount: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure GateSocketClientConnect(Sender : TObject);
procedure GateSocketClientDisconnect(Sender : TObject);
procedure GateSocketClientError(Sender : TObject);
procedure GateSocketClientRead(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure Timer1Timer(Sender : TObject);
procedure RunTimerTimer(Sender : TObject);
procedure ConnectTimerTimer(Sender : TObject);
procedure DBSocketConnect(Sender : TObject);
procedure DBSocketDisconnect(Sender : TObject);
procedure DBSocketError(Sender : TObject);
procedure DBSocketRead(Sender : TObject);
procedure FormCloseQuery(Sender : TObject);
procedure StartTimerTimer(Sender : TObject);
procedure SaveVariableTimerTimer(Sender : TObject);
procedure TCloseTimerTimer(Sender : TObject);
procedure Panel1DblClick(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure _PROC_0049D435(Sender : TObject);
procedure _PROC_0049E863(Sender : TObject);
procedure _PROC_0049E8A3(Sender : TObject);
procedure _PROC_0049EBD9(Sender : TObject);
procedure _PROC_0049F0F4(Sender : TObject);
procedure _PROC_0049F1B5(Sender : TObject);
procedure _PROC_0049F1E4(Sender : TObject);
procedure _PROC_0049F214(Sender : TObject);
procedure _PROC_0049F461(Sender : TObject);
procedure _PROC_0049F4D0(Sender : TObject);
procedure _PROC_0049F5C5(Sender : TObject);
procedure _PROC_0049F624(Sender : TObject);
procedure _PROC_0049F6A8(Sender : TObject);
procedure _PROC_0049F72C(Sender : TObject);
procedure _PROC_0049F7B0(Sender : TObject);
procedure _PROC_0049FA91(Sender : TObject);
procedure _PROC_004A0463(Sender : TObject);
procedure _PROC_004A04E1(Sender : TObject);
procedure _PROC_004A0909(Sender : TObject);
procedure _PROC_004A15C1(Sender : TObject);
procedure _PROC_004A166C(Sender : TObject);
procedure _PROC_004A1710(Sender : TObject);
procedure _PROC_004A1DD4(Sender : TObject);
procedure _PROC_004A2283(Sender : TObject);
procedure _PROC_004A255D(Sender : TObject);
procedure svMain2.Initialization(Sender : TObject);
procedure svMain2.Finalization(Sender : TObject);
procedure Proc_0049F657(Sender : TObject);
procedure Proc_0049F68A(Sender : TObject);
procedure Proc_0049F795(Sender : TObject);
procedure Proc_0049F71A(Sender : TObject);
procedure Proc_0049F79E(Sender : TObject);
procedure Proc_0049F73B(Sender : TObject);
procedure Proc_0049F762(Sender : TObject);
procedure Proc_0049F6E7(Sender : TObject);
procedure Proc_0049F76B(Sender : TObject);
procedure Proc_0049F708(Sender : TObject);
procedure Proc_0049F711(Sender : TObject);
procedure Proc_004A1F6F(Sender : TObject);
procedure Proc_0049F7BF(Sender : TObject);
procedure Proc_0049F34F(Sender : TObject);
procedure Proc_0049F843(Sender : TObject);
procedure Proc_0049F894(Sender : TObject);
procedure Proc_0049F810(Sender : TObject);
procedure Proc_0049F89D(Sender : TObject);
procedure Proc_0049F819(Sender : TObject);
procedure Proc_0049F861(Sender : TObject);
procedure Proc_0049F882(Sender : TObject);
procedure Proc_0049F8A3(Sender : TObject);
procedure Proc_0049F954(Sender : TObject);
procedure Proc_0049F8D0(Sender : TObject);
procedure Proc_0049F90C(Sender : TObject);
procedure Proc_0049FA5C(Sender : TObject);
procedure Proc_0049F9D8(Sender : TObject);
procedure Proc_0049D3B8(Sender : TObject);
procedure Proc_0049F460(Sender : TObject);
procedure Proc_0049FA90(Sender : TObject);
procedure Proc_0049D434(Sender : TObject);
procedure Proc_004A08E3(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmMain: TFrmMain;
{This file is generated by DeDe Ver 3.50.04 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmMain.GateSocketClientConnect(Sender : TObject);
begin
(*
004A1D4C 55 push ebp
004A1D4D 8BEC mov ebp, esp
004A1D4F 83C4F4 add esp, -$0C
004A1D52 894DF8 mov [ebp-$08], ecx
004A1D55 8955F4 mov [ebp-$0C], edx
004A1D58 8945FC mov [ebp-$04], eax
004A1D5B 8B55F8 mov edx, [ebp-$08]
004A1D5E A1903B5000 mov eax, dword ptr [$00503B90]
* Reference to: Unit_004AAA60.Proc_004AAD18
|
004A1D63 E8B08F0000 call 004AAD18
004A1D68 8BE5 mov esp, ebp
004A1D6A 5D pop ebp
004A1D6B C3 ret
*)
end;
procedure TFrmMain.GateSocketClientDisconnect(Sender : TObject);
begin
(*
004A1D6C 55 push ebp
004A1D6D 8BEC mov ebp, esp
004A1D6F 83C4F4 add esp, -$0C
004A1D75 8955F4 mov [ebp-$0C], edx
004A1D78 8945FC mov [ebp-$04], eax
004A1D7B 8B55F8 mov edx, [ebp-$08]
004A1D7E A1903B5000 mov eax, dword ptr [$00503B90]
* Reference to: Unit_004AAA60.Proc_004AAFC0
|
004A1D83 E838920000 call 004AAFC0
004A1D88 8BE5 mov esp, ebp
004A1D8A 5D pop ebp
004A1D8B C3 ret
*)
end;
procedure TFrmMain.GateSocketClientError(Sender : TObject);
begin
(*
004A1D8C 55 push ebp
004A1D8D 8BEC mov ebp, esp
004A1D8F 83C4F4 add esp, -$0C
004A1D92 894DF8 mov [ebp-$08], ecx
004A1D95 8955F4 mov [ebp-$0C], edx
004A1D98 8945FC mov [ebp-$04], eax
004A1D9B 8B4D08 mov ecx, [ebp+$08]
004A1D9E 8B55F8 mov edx, [ebp-$08]
004A1DA1 A1903B5000 mov eax, dword ptr [$00503B90]
* Reference to: Unit_004AAA60.Proc_004AAFDC
|
004A1DA6 E831920000 call 004AAFDC
004A1DAB 8BE5 mov esp, ebp
004A1DAD 5D pop ebp
004A1DAE C20800 ret $0008
*)
end;
procedure TFrmMain.GateSocketClientRead(Sender : TObject);
begin
(*
004A1DB4 55 push ebp
004A1DB5 8BEC mov ebp, esp
004A1DB7 83C4F4 add esp, -$0C
004A1DBA 894DF8 mov [ebp-$08], ecx
004A1DBD 8955F4 mov [ebp-$0C], edx
004A1DC0 8945FC mov [ebp-$04], eax
004A1DC3 8B55F8 mov edx, [ebp-$08]
004A1DC6 A1903B5000 mov eax, dword ptr [$00503B90]
* Reference to: Unit_004AAA60.Proc_004AB008
|
004A1DCB E838920000 call 004AB008
004A1DD0 8BE5 mov esp, ebp
004A1DD2 5D pop ebp
004A1DD3 C3 ret
*)
end;
procedure TFrmMain.FormCreate(Sender : TObject);
begin
(*
0049D560 55 push ebp
0049D561 8BEC mov ebp, esp
0049D563 B958000000 mov ecx, $00000058
0049D568 6A00 push $00
0049D56A 6A00 push $00
0049D56C 49 dec ecx
0049D56D 75F9 jnz 0049D568
0049D56F 51 push ecx
0049D570 53 push ebx
0049D571 8955D8 mov [ebp-$28], edx
0049D574 8945FC mov [ebp-$04], eax
0049D577 33C0 xor eax, eax
0049D579 55 push ebp
* Possible String Reference to: '?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -