massock.pas

大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.

unit MasSock;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmMasSoc=class(TForm)
    MSocket: TServerSocket;
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure MSocketClientConnect(Sender : TObject);
    procedure MSocketClientDisconnect(Sender : TObject);
    procedure MSocketClientError(Sender : TObject);
    procedure MSocketClientRead(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmMasSoc: TFrmMasSoc;

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

implementation

{$R *.DFM}

procedure TFrmMasSoc.FormCreate(Sender : TObject);
begin
(*
0048AC90   55                     push    ebp
0048AC91   8BEC                   mov     ebp, esp
0048AC93   83C4F8                 add     esp, -$08
0048AC96   53                     push    ebx
0048AC97   33C9                   xor     ecx, ecx
0048AC99   894DF8                 mov     [ebp-$08], ecx
0048AC9C   8BD8                   mov     ebx, eax
0048AC9E   33C0                   xor     eax, eax
0048ACA0   55                     push    ebp

* Possible String Reference to: '閼欦