idsrvclient.pas

传奇3delphi代码 请自己看吧 包括地图

unit IdSrvClient;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmIDSoc=class(TForm)
    IDSocket: TClientSocket;
    Timer1: TTimer;
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Timer1Timer(Sender : TObject);
    procedure IDSocketConnect(Sender : TObject);
    procedure IDSocketDisconnect(Sender : TObject);
    procedure IDSocketError(Sender : TObject);
    procedure IDSocketRead(Sender : TObject);
    procedure _PROC_0049C128(Sender : TObject);
    procedure _PROC_0049C290(Sender : TObject);
    procedure _PROC_0049C2E0(Sender : TObject);
    procedure _PROC_0049C3D5(Sender : TObject);
    procedure _PROC_0049C4C9(Sender : TObject);
    procedure _PROC_0049C711(Sender : TObject);
    procedure _PROC_0049C8BD(Sender : TObject);
    procedure _PROC_0049C9A1(Sender : TObject);
    procedure _PROC_0049CAB8(Sender : TObject);
    procedure _PROC_0049CBDC(Sender : TObject);
    procedure _PROC_0049CD85(Sender : TObject);
    procedure _PROC_0049CDDC(Sender : TObject);
    procedure _PROC_0049CEE5(Sender : TObject);
    procedure IdSrvClient.Initialization(Sender : TObject);
    procedure IdSrvClient.Finalization(Sender : TObject);
    procedure Proc_0049C710(Sender : TObject);
    procedure Proc_0049C8BC(Sender : TObject);
    procedure Proc_0049CD84(Sender : TObject);
    procedure Proc_0049C9A0(Sender : TObject);
    procedure Proc_0049C4C8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmIDSoc: TFrmIDSoc;

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

implementation

{$R *.DFM}

procedure TFrmIDSoc.FormCreate(Sender : TObject);
begin
(*
0049BF60   55                     push    ebp
0049BF61   8BEC                   mov     ebp, esp
0049BF63   83C4E4                 add     esp, -$1C
0049BF66   53                     push    ebx
0049BF67   33C9                   xor     ecx, ecx
0049BF69   894DE4                 mov     [ebp-$1C], ecx
0049BF6C   894DE8                 mov     [ebp-$18], ecx
0049BF6F   894DF4                 mov     [ebp-$0C], ecx
0049BF72   8955F0                 mov     [ebp-$10], edx
0049BF75   8945FC                 mov     [ebp-$04], eax
0049BF78   33C0                   xor     eax, eax
0049BF7A   55                     push    ebp
0049BF7B   6888C04900             push    $0049C088

***** TRY
|
0049BF80   64FF30                 push    dword ptr fs:[eax]
0049BF83   648920                 mov     fs:[eax], esp
0049BF86   33D2                   xor     edx, edx
0049BF88   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TFrmIDSoc.IDSocket : TClientSocket
|
0049BF8B   8B80D0020000           mov     eax, [eax+$02D0]

* Reference to : TServerSocket._PROC_00451D8C()
|
0049BF91   E8F65DFBFF             call    00451D8C
0049BF96   8D45F4                 lea     eax, [ebp-$0C]

* Possible String Reference to: '.\!Setup.ini'
|
0049BF99   BA9CC04900             mov     edx, $0049C09C

* Reference to: System.Proc_00403DEC
|
0049BF9E   E8497EF6FF             call    00403DEC
0049BFA3   8B45F4                 mov     eax, [ebp-$0C]

* Reference to: Unit_004088DC.Proc_00409BF0
|
0049BFA6   E845DCF6FF             call    00409BF0
0049BFAB   84C0                   test    al, al
0049BFAD   746C                   jz      0049C01B
0049BFAF   8B4DF4                 mov     ecx, [ebp-$0C]
0049BFB2   B201                   mov     dl, $01

* Reference to class TIniFile
|
0049BFB4   A130354500             mov     eax, dword ptr [$00453530]

* Reference to: Unit_00453470.Proc_004535D8
|
0049BFB9   E81A76FBFF             call    004535D8
0049BFBE   8945F8                 mov     [ebp-$08], eax
0049BFC1   837DF800               cmp     dword ptr [ebp-$08], +$00
0049BFC5   744A                   jz      0049C011

* Possible String Reference to: '127.0.0.1'
|
0049BFC7   68B4C04900             push    $0049C0B4
0049BFCC   8D45E8                 lea     eax, [ebp-$18]
0049BFCF   50                     push    eax

* Possible String Reference to: 'IDSAddr'
|
0049BFD0   B9CCC04900             mov     ecx, $0049C0CC

* Possible String Reference to: 'Server'
|
0049BFD5   BADCC04900             mov     edx, $0049C0DC
0049BFDA   8B45F8                 mov     eax, [ebp-$08]
0049BFDD   8B18                   mov     ebx, [eax]
0049BFDF   FF13                   call    dword ptr [ebx]
0049BFE1   8B55E8                 mov     edx, [ebp-$18]
0049BFE4   8B45FC                 mov     eax, [ebp-$04]
0049BFE7   05E0020000             add     eax, +$000002E0

* Reference to: System.Proc_00403DA8
|
0049BFEC   E8B77DF6FF             call    00403DA8
0049BFF1   68E0150000             push    $000015E0

* Possible String Reference to: 'IDSPort'
|
0049BFF6   B9ECC04900             mov     ecx, $0049C0EC

* Possible String Reference to: 'Server'
|
0049BFFB   BADCC04900             mov     edx, $0049C0DC
0049C000   8B45F8                 mov     eax, [ebp-$08]
0049C003   8B18                   mov     ebx, [eax]

* Possible reference to virtual method TIniFile.OFFS_08
|
0049C005   FF5308                 call    dword ptr [ebx+$08]
0049C008   8B55FC                 mov     edx, [ebp-$04]

* Reference to field TFrmIDSoc.OFFS_02E4
|
0049C00B   8982E4020000           mov     [edx+$02E4], eax
0049C011   8B45F8                 mov     eax, [ebp-$08]

* Reference to: System.Proc_00402F6C
|
0049C014   E8536FF6FF             call    00402F6C
0049C019   EB18                   jmp     0049C033
0049C01B   8D45E4                 lea     eax, [ebp-$1C]

* Possible String Reference to: ' not found'
|
0049C01E   B9FCC04900             mov     ecx, $0049C0FC
0049C023   8B55F4                 mov     edx, [ebp-$0C]

* Reference to: System.Proc_00404020
|
0049C026   E8F57FF6FF             call    00404020
0049C02B   8B45E4                 mov     eax, [ebp-$1C]

* Reference to : TMessageForm._PROC_0044E6A0()
|
0049C02E   E86D26FBFF             call    0044E6A0
0049C033   B201                   mov     dl, $01

* Reference to class TList
|
0049C035   A140014100             mov     eax, dword ptr [$00410140]

* Reference to: System.Proc_00402F3C
|
0049C03A   E8FD6EF6FF             call    00402F3C
0049C03F   8B55FC                 mov     edx, [ebp-$04]

* Reference to field TFrmIDSoc.OFFS_02D8
|
0049C042   8982D8020000           mov     [edx+$02D8], eax
0049C048   B201                   mov     dl, $01

* Reference to class TStringList
|
0049C04A   A16C064100             mov     eax, dword ptr [$0041066C]

* Reference to: System.Proc_00402F3C
|
0049C04F   E8E86EF6FF             call    00402F3C
0049C054   8B55FC                 mov     edx, [ebp-$04]

* Reference to field TFrmIDSoc.OFFS_02DC
|
0049C057   8982DC020000           mov     [edx+$02DC], eax
0049C05D   8B45FC                 mov     eax, [ebp-$04]

* Reference to : TFrmIDSoc._PROC_0049C128()
|
0049C060   E8C3000000             call    0049C128
0049C065   33C0                   xor     eax, eax
0049C067   5A                     pop     edx
0049C068   59                     pop     ecx
0049C069   59                     pop     ecx
0049C06A   648910                 mov     fs:[eax], edx

****** FINALLY
|
0049C06D   688FC04900             push    $0049C08F
0049C072   8D45E4                 lea     eax, [ebp-$1C]
0049C075   BA02000000             mov     edx, $00000002

* Reference to: System.Proc_00403D78
|
0049C07A   E8F97CF6FF             call    00403D78
0049C07F   8D45F4                 lea     eax, [ebp-$0C]

* Reference to: System.Proc_00403D54
|
0049C082   E8CD7CF6FF             call    00403D54
0049C087   C3                     ret


* Reference to: System.Proc_0040368C
|
0049C088   E9FF75F6FF             jmp     0040368C
0049C08D   EBE3                   jmp     0049C072

****** END
|
0049C08F   5B                     pop     ebx
0049C090   8BE5                   mov     esp, ebp
0049C092   5D                     pop     ebp
0049C093   C3                     ret

*)
end;

procedure TFrmIDSoc.FormDestroy(Sender : TObject);