climain.pas

传奇服务端代码 DBServerSQL.rar 通讯部分

unit CliMain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls, JSocket;

type
  TFrmAccServer = class(TForm)
    SServer:      TServerSocket;
    DecodeTimer:  TTimer;
    TimeOutTimer: TTimer;
    CheckTimeoutTimer: TTimer;
    procedure SServerClientConnect(Sender: TObject);
    procedure SServerClientDisconnect(Sender: TObject);
    procedure SServerClientError(Sender: TObject);
    procedure SServerClientRead(Sender: TObject);
    procedure DecodeTimerTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TimeOutTimerTimer(Sender: TObject);
    procedure CheckTimeoutTimerTimer(Sender: TObject);
    procedure _PROC_0049E28C(Sender: TObject);
    procedure _PROC_0049E6F5(Sender: TObject);
    procedure _PROC_0049E750(Sender: TObject);
    procedure _PROC_0049E8D0(Sender: TObject);
    procedure _PROC_0049E9AD(Sender: TObject);
    procedure _PROC_0049EAE1(Sender: TObject);
    procedure _PROC_0049EC5C(Sender: TObject);
    procedure _PROC_0049ED08(Sender: TObject);
    procedure _PROC_0049EE28(Sender: TObject);
    procedure _PROC_0049EFC9(Sender: TObject);
    procedure _PROC_0049F028(Sender: TObject);
    procedure _PROC_0049F088(Sender: TObject);
    procedure _PROC_0049F0E0(Sender: TObject);
    procedure _PROC_0049F140(Sender: TObject);
    procedure _PROC_0049F1A0(Sender: TObject);
    procedure _PROC_0049F1EC(Sender: TObject);
    procedure _PROC_0049F24C(Sender: TObject);
    procedure _PROC_0049F3A8(Sender: TObject);
    procedure _PROC_0049F3D8(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmAccServer: TFrmAccServer;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TFrmAccServer.SServerClientConnect(Sender: TObject);
begin
(*
0049E434   55                     push    ebp
0049E435   8BEC                   mov     ebp, esp
0049E437   83C4F0                 add     esp, -$10
0049E43A   894DF8                 mov     [ebp-$08], ecx
0049E43D   8955F0                 mov     [ebp-$10], edx
0049E440   8945FC                 mov     [ebp-$04], eax

* Reference to object TUserInfo
|
0049E443   8B151CDF4900           mov     edx, [$0049DF1C]
0049E449   B828000000             mov     eax, $00000028

* Reference to: system.@New;
|
0049E44E   E8CD63F6FF             call    00404820
0049E453   8945F4                 mov     [ebp-$0C], eax
0049E456   8B45F8                 mov     eax, [ebp-$08]

* Reference to FrmAccServer
|
0049E459   8B55F4                 mov     edx, [ebp-$0C]
0049E45C   8902                   mov     [edx], eax

* Reference to FrmAccServer
|
0049E45E   8B45F4                 mov     eax, [ebp-$0C]

* Reference to field FrmAccServer.OFFS_0004
|
0049E461   C6400400               mov     byte ptr [eax+$04], $00

* Reference to FrmAccServer
|
0049E465   8B45F4                 mov     eax, [ebp-$0C]
0049E468   83C010                 add     eax, +$10

* Reference to: system.@LStrClr(String;String);
|
0049E46B   E89057F6FF             call    00403C00

* Reference to FrmAccServer
|
0049E470   8B45F4                 mov     eax, [ebp-$0C]
0049E473   83C01C                 add     eax, +$1C

* Reference to: system.@LStrClr(String;String);
|
0049E476   E88557F6FF             call    00403C00

* Reference to FrmAccServer
|
0049E47B   8B45F4                 mov     eax, [ebp-$0C]
0049E47E   33D2                   xor     edx, edx

* Reference to field FrmAccServer.OFFS_0024
|
0049E480   895024                 mov     [eax+$24], edx

* Reference to: SysInit.Proc_00407A84
|
0049E483   E8FC95F6FF             call    00407A84

* Reference to FrmAccServer
|
0049E488   8B55F4                 mov     edx, [ebp-$0C]

* Reference to field FrmAccServer.OFFS_0018
|
0049E48B   894218                 mov     [edx+$18], eax

* Reference to FrmAccServer
|
0049E48E   8B55F4                 mov     edx, [ebp-$0C]

* Reference to FrmAccServer
|
0049E491   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TFrmAccServer.OFFS_02E0
|
0049E494   8B80E0020000           mov     eax, [eax+$02E0]

* Reference to: classes.TList.Add(TList;Pointer):Integer;
|
0049E49A   E89931F7FF             call    00411638
0049E49F   8BE5                   mov     esp, ebp
0049E4A1   5D                     pop     ebp
0049E4A2   C3                     ret

*)
end;

procedure TFrmAccServer.SServerClientDisconnect(Sender: TObject);
begin
(*
0049E4A4   55                     push    ebp
0049E4A5   8BEC                   mov     ebp, esp
0049E4A7   83C4E8                 add     esp, -$18
0049E4AA   894DF8                 mov     [ebp-$08], ecx
0049E4AD   8955E8                 mov     [ebp-$18], edx
0049E4B0   8945FC                 mov     [ebp-$04], eax

* Reference to FrmAccServer
|
0049E4B3   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TFrmAccServer.OFFS_02E0
|
0049E4B6   8B80E0020000           mov     eax, [eax+$02E0]
0049E4BC   8B4008                 mov     eax, [eax+$08]
0049E4BF   48                     dec     eax
0049E4C0   85C0                   test    eax, eax
0049E4C2   7C60                   jl      0049E524
0049E4C4   40                     inc     eax
0049E4C5   8945EC                 mov     [ebp-$14], eax
0049E4C8   C745F400000000         mov     dword ptr [ebp-$0C], $00000000
0049E4CF   8B55F4                 mov     edx, [ebp-$0C]

* Reference to FrmAccServer
|
0049E4D2   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TFrmAccServer.OFFS_02E0
|
0049E4D5   8B80E0020000           mov     eax, [eax+$02E0]

* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
0049E4DB   E80433F7FF             call    004117E4
0049E4E0   8B00                   mov     eax, [eax]
0049E4E2   3B45F8                 cmp     eax, [ebp-$08]
0049E4E5   7535                   jnz     0049E51C
0049E4E7   8B55F4                 mov     edx, [ebp-$0C]

* Reference to FrmAccServer
|
0049E4EA   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TFrmAccServer.OFFS_02E0
|
0049E4ED   8B80E0020000           mov     eax, [eax+$02E0]

* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
0049E4F3   E8EC32F7FF             call    004117E4
0049E4F8   8945F0                 mov     [ebp-$10], eax

* Reference to object TUserInfo
|
0049E4FB   8B151CDF4900           mov     edx, [$0049DF1C]
0049E501   8B45F0                 mov     eax, [ebp-$10]

* Reference to: system.@Dispose;
|
0049E504   E82B63F6FF             call    00404834
0049E509   8B55F4                 mov     edx, [ebp-$0C]

* Reference to FrmAccServer
|
0049E50C   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TFrmAccServer.OFFS_02E0
|
0049E50F   8B80E0020000           mov     eax, [eax+$02E0]

* Reference to: classes.TList.Delete(TList;Integer);
|
0049E515   E86A31F7FF             call    00411684
0049E51A   EB08                   jmp     0049E524
0049E51C   FF45F4                 inc     dword ptr [ebp-$0C]
0049E51F   FF4DEC                 dec     dword ptr [ebp-$14]
0049E522   75AB                   jnz     0049E4CF
0049E524   8BE5                   mov     esp, ebp
0049E526   5D                     pop     ebp
0049E527   C3                     ret

*)
end;

procedure TFrmAccServer.SServerClientError(Sender: TObject);
begin
(*
0049E528   55                     push    ebp
0049E529   8BEC                   mov     ebp, esp
0049E52B   83C4F4                 add     esp, -$0C
0049E52E   894DF8                 mov     [ebp-$08], ecx
0049E531   8955F4                 mov     [ebp-$0C], edx
0049E534   8945FC                 mov     [ebp-$04], eax
0049E537   8B4508                 mov     eax, [ebp+$08]
0049E53A   33D2                   xor     edx, edx
0049E53C   8910                   mov     [eax], edx
0049E53E   8B45F8                 mov     eax, [ebp-$08]

* Reference to: scktcomp.TCustomWinSocket.Close(TCustomWinSocket);
|
0049E541   E8C287FBFF             call    00456D08
0049E546   8BE5                   mov     esp, ebp
0049E548   5D                     pop     ebp
0049E549   C20800                 ret     $0008

*)
end;

procedure TFrmAccServer.SServerClientRead(Sender: TObject);
begin
(*
0049E54C   55                     push    ebp
0049E54D   8BEC                   mov     ebp, esp
0049E54F   83C4D4                 add     esp, -$2C
0049E552   53                     push    ebx
0049E553   33DB                   xor     ebx, ebx
0049E555   895DD4                 mov     [ebp-$2C], ebx
0049E558   895DD8                 mov     [ebp-$28], ebx
0049E55B   895DE8                 mov     [ebp-$18], ebx
0049E55E   895DE4                 mov     [ebp-$1C], ebx
0049E561   894DF8                 mov     [ebp-$08], ecx
0049E564   8955DC                 mov     [ebp-$24], edx
0049E567   8945FC                 mov     [ebp-$04], eax
0049E56A   33C0                   xor     eax, eax
0049E56C   55                     push    ebp

* Possible String Reference to: '锽O