intermsgclient.pas

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

unit InterMsgClient;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmMsgClient=class(TForm)
    MsgClient: TFrmMsgClient;
    procedure MsgClientConnect(Sender : TObject);
    procedure MsgClientDisconnect(Sender : TObject);
    procedure MsgClientError(Sender : TObject);
    procedure MsgClientRead(Sender : TObject);
    procedure _PROC_004B44D8(Sender : TObject);
    procedure _PROC_004B4585(Sender : TObject);
    procedure InterMsgClient.Initialization(Sender : TObject);
    procedure InterMsgClient.Finalization(Sender : TObject);
    procedure Proc_004B45B7(Sender : TObject);
    procedure Proc_004B48C4(Sender : TObject);
    procedure Proc_004B43CC(Sender : TObject);
    procedure Proc_004B4584(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmMsgClient: TFrmMsgClient;

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

implementation

{$R *.DFM}

procedure TFrmMsgClient.MsgClientConnect(Sender : TObject);
begin
(*
004B4420   55                     push    ebp
004B4421   8BEC                   mov     ebp, esp
004B4423   83C4F4                 add     esp, -$0C
004B4426   894DF4                 mov     [ebp-$0C], ecx
004B4429   8955F8                 mov     [ebp-$08], edx
004B442C   8945FC                 mov     [ebp-$04], eax
004B442F   8B45FC                 mov     eax, [ebp-$04]
004B4432   05D8020000             add     eax, +$000002D8

* Reference to: System.Proc_00403D54
|
004B4437   E818F9F4FF             call    00403D54
004B443C   8BE5                   mov     esp, ebp
004B443E   5D                     pop     ebp
004B443F   C3                     ret

*)
end;

procedure TFrmMsgClient.MsgClientDisconnect(Sender : TObject);
begin
(*
004B4440   55                     push    ebp
004B4441   8BEC                   mov     ebp, esp
004B4443   83C4F4                 add     esp, -$0C
004B4446   894DF4                 mov     [ebp-$0C], ecx
004B4449   8955F8                 mov     [ebp-$08], edx
004B444C   8945FC                 mov     [ebp-$04], eax
004B444F   8BE5                   mov     esp, ebp
004B4451   5D                     pop     ebp
004B4452   C3                     ret

*)
end;

procedure TFrmMsgClient.MsgClientError(Sender : TObject);
begin
(*
004B4454   55                     push    ebp
004B4455   8BEC                   mov     ebp, esp
004B4457   83C4F4                 add     esp, -$0C
004B445A   894DF8                 mov     [ebp-$08], ecx
004B445D   8955F4                 mov     [ebp-$0C], edx
004B4460   8945FC                 mov     [ebp-$04], eax
004B4463   8B4508                 mov     eax, [ebp+$08]
004B4466   33D2                   xor     edx, edx
004B4468   8910                   mov     [eax], edx
004B446A   8B45F8                 mov     eax, [ebp-$08]

* Reference to: ScktComp.Proc_00450090
|
004B446D   E81EBCF9FF             call    00450090
004B4472   8BE5                   mov     esp, ebp
004B4474   5D                     pop     ebp
004B4475   C20800                 ret     $0008

*)
end;

procedure TFrmMsgClient.MsgClientRead(Sender : TObject);
begin
(*
004B4478   55                     push    ebp
004B4479   8BEC                   mov     ebp, esp
004B447B   83C4F0                 add     esp, -$10
004B447E   53                     push    ebx
004B447F   33DB                   xor     ebx, ebx
004B4481   895DF0                 mov     [ebp-$10], ebx
004B4484   894DF8                 mov     [ebp-$08], ecx
004B4487   8955F4                 mov     [ebp-$0C], edx
004B448A   8945FC                 mov     [ebp-$04], eax
004B448D   33C0                   xor     eax, eax
004B448F   55                     push    ebp

* Possible String Reference to: '榛耵