routeedit.pas

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

unit RouteEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmRouteEdit=class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    EditSelGate: TEdit;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    EditGateIPaddr1: TEdit;
    EditGateIPaddr2: TEdit;
    Label3: TLabel;
    EditGatePort1: TEdit;
    EditGatePort2: TEdit;
    Label4: TLabel;
    EditGateIPaddr3: TEdit;
    EditGatePort3: TEdit;
    Label5: TLabel;
    EditGateIPaddr4: TEdit;
    EditGatePort4: TEdit;
    Label6: TLabel;
    EditGateIPaddr5: TEdit;
    EditGatePort5: TEdit;
    Label7: TLabel;
    EditGateIPaddr6: TEdit;
    EditGatePort6: TEdit;
    Label8: TLabel;
    EditGateIPaddr7: TEdit;
    EditGatePort7: TEdit;
    Label9: TLabel;
    EditGateIPaddr8: TEdit;
    EditGatePort8: TEdit;
    ButtonOK: TButton;
    ButtonCancel: TButton;
    Label10: TLabel;
    EditServerIdx: TEdit;
    procedure ButtonOKClick(Sender : TObject);
    procedure _PROC_004D7ECC(Sender : TObject);
    procedure _PROC_004D8144(Sender : TObject);
    procedure _PROC_004D87F0(Sender : TObject);
    procedure _PROC_004D8858(Sender : TObject);
    procedure _PROC_004D8860(Sender : TObject);
    procedure _PROC_004D88E6(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmRouteEdit: TfrmRouteEdit;

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

implementation

{$R *.DFM}

procedure TfrmRouteEdit.ButtonOKClick(Sender : TObject);
begin
(*
004D810C   53                     push    ebx
004D810D   8BD8                   mov     ebx, eax
004D810F   3B9368030000           cmp     edx, [ebx+$0368]
004D8115   751B                   jnz     004D8132
004D8117   8BC3                   mov     eax, ebx

* Reference to : TfrmRouteEdit._PROC_004D8144()
|
004D8119   E826000000             call    004D8144
004D811E   84C0                   test    al, al
004D8120   741F                   jz      004D8141
004D8122   C6837803000001         mov     byte ptr [ebx+$0378], $01
004D8129   8BC3                   mov     eax, ebx

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D812B   E83057FAFF             call    0047D860
004D8130   5B                     pop     ebx
004D8131   C3                     ret

004D8132   3B936C030000           cmp     edx, [ebx+$036C]
004D8138   7507                   jnz     004D8141
004D813A   8BC3                   mov     eax, ebx

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004D813C   E81F57FAFF             call    0047D860
004D8141   5B                     pop     ebx
004D8142   C3                     ret

*)
end;

procedure TfrmRouteEdit._PROC_004D7ECC(Sender : TObject);
begin
(*
004D7ECC   55                     push    ebp
004D7ECD   8BEC                   mov     ebp, esp
004D7ECF   B909000000             mov     ecx, $00000009
004D7ED4   6A00                   push    $00
004D7ED6   6A00                   push    $00
004D7ED8   49                     dec     ecx
004D7ED9   75F9                   jnz     004D7ED4
004D7EDB   53                     push    ebx
004D7EDC   8BD8                   mov     ebx, eax
004D7EDE   33C0                   xor     eax, eax
004D7EE0   55                     push    ebp
004D7EE1   68FF804D00             push    $004D80FF

***** TRY
|
004D7EE6   64FF30                 push    dword ptr fs:[eax]
004D7EE9   648920                 mov     fs:[eax], esp
004D7EEC   8D55FC                 lea     edx, [ebp-$04]
004D7EEF   8B837C030000           mov     eax, [ebx+$037C]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7EF5   E80A31F3FF             call    0040B004
004D7EFA   8B55FC                 mov     edx, [ebp-$04]
004D7EFD   8B8374030000           mov     eax, [ebx+$0374]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7F03   E86492F8FF             call    0046116C
004D7F08   8D45F8                 lea     eax, [ebp-$08]
004D7F0B   8D9384030000           lea     edx, [ebx+$0384]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D7F11   E846CDF2FF             call    00404C5C
004D7F16   8B55F8                 mov     edx, [ebp-$08]
004D7F19   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7F1F   E84892F8FF             call    0046116C
004D7F24   8D45F4                 lea     eax, [ebp-$0C]
004D7F27   8D9394030000           lea     edx, [ebx+$0394]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D7F2D   E82ACDF2FF             call    00404C5C
004D7F32   8B55F4                 mov     edx, [ebp-$0C]
004D7F35   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7F3B   E82C92F8FF             call    0046116C
004D7F40   8D55F0                 lea     edx, [ebp-$10]
004D7F43   8B8314040000           mov     eax, [ebx+$0414]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7F49   E8B630F3FF             call    0040B004
004D7F4E   8B55F0                 mov     edx, [ebp-$10]
004D7F51   8B8318030000           mov     eax, [ebx+$0318]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7F57   E81092F8FF             call    0046116C
004D7F5C   8D45EC                 lea     eax, [ebp-$14]
004D7F5F   8D93A4030000           lea     edx, [ebx+$03A4]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D7F65   E8F2CCF2FF             call    00404C5C
004D7F6A   8B55EC                 mov     edx, [ebp-$14]
004D7F6D   8B8310030000           mov     eax, [ebx+$0310]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7F73   E8F491F8FF             call    0046116C
004D7F78   8D55E8                 lea     edx, [ebp-$18]
004D7F7B   8B8318040000           mov     eax, [ebx+$0418]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7F81   E87E30F3FF             call    0040B004
004D7F86   8B55E8                 mov     edx, [ebp-$18]
004D7F89   8B831C030000           mov     eax, [ebx+$031C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7F8F   E8D891F8FF             call    0046116C
004D7F94   8D45E4                 lea     eax, [ebp-$1C]
004D7F97   8D93B4030000           lea     edx, [ebx+$03B4]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D7F9D   E8BACCF2FF             call    00404C5C
004D7FA2   8B55E4                 mov     edx, [ebp-$1C]
004D7FA5   8B8324030000           mov     eax, [ebx+$0324]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7FAB   E8BC91F8FF             call    0046116C
004D7FB0   8D55E0                 lea     edx, [ebp-$20]
004D7FB3   8B831C040000           mov     eax, [ebx+$041C]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7FB9   E84630F3FF             call    0040B004
004D7FBE   8B55E0                 mov     edx, [ebp-$20]
004D7FC1   8B8328030000           mov     eax, [ebx+$0328]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7FC7   E8A091F8FF             call    0046116C
004D7FCC   8D45DC                 lea     eax, [ebp-$24]
004D7FCF   8D93C4030000           lea     edx, [ebx+$03C4]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D7FD5   E882CCF2FF             call    00404C5C
004D7FDA   8B55DC                 mov     edx, [ebp-$24]
004D7FDD   8B8330030000           mov     eax, [ebx+$0330]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7FE3   E88491F8FF             call    0046116C
004D7FE8   8D55D8                 lea     edx, [ebp-$28]
004D7FEB   8B8320040000           mov     eax, [ebx+$0420]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D7FF1   E80E30F3FF             call    0040B004
004D7FF6   8B55D8                 mov     edx, [ebp-$28]
004D7FF9   8B8334030000           mov     eax, [ebx+$0334]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D7FFF   E86891F8FF             call    0046116C
004D8004   8D45D4                 lea     eax, [ebp-$2C]
004D8007   8D93D4030000           lea     edx, [ebx+$03D4]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D800D   E84ACCF2FF             call    00404C5C
004D8012   8B55D4                 mov     edx, [ebp-$2C]
004D8015   8B833C030000           mov     eax, [ebx+$033C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D801B   E84C91F8FF             call    0046116C
004D8020   8D55D0                 lea     edx, [ebp-$30]
004D8023   8B8324040000           mov     eax, [ebx+$0424]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D8029   E8D62FF3FF             call    0040B004
004D802E   8B55D0                 mov     edx, [ebp-$30]
004D8031   8B8340030000           mov     eax, [ebx+$0340]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D8037   E83091F8FF             call    0046116C
004D803C   8D45CC                 lea     eax, [ebp-$34]
004D803F   8D93E4030000           lea     edx, [ebx+$03E4]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D8045   E812CCF2FF             call    00404C5C
004D804A   8B55CC                 mov     edx, [ebp-$34]
004D804D   8B8348030000           mov     eax, [ebx+$0348]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D8053   E81491F8FF             call    0046116C
004D8058   8D55C8                 lea     edx, [ebp-$38]
004D805B   8B8328040000           mov     eax, [ebx+$0428]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D8061   E89E2FF3FF             call    0040B004
004D8066   8B55C8                 mov     edx, [ebp-$38]
004D8069   8B834C030000           mov     eax, [ebx+$034C]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D806F   E8F890F8FF             call    0046116C
004D8074   8D45C4                 lea     eax, [ebp-$3C]
004D8077   8D93F4030000           lea     edx, [ebx+$03F4]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D807D   E8DACBF2FF             call    00404C5C
004D8082   8B55C4                 mov     edx, [ebp-$3C]
004D8085   8B8354030000           mov     eax, [ebx+$0354]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D808B   E8DC90F8FF             call    0046116C
004D8090   8D55C0                 lea     edx, [ebp-$40]
004D8093   8B832C040000           mov     eax, [ebx+$042C]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D8099   E8662FF3FF             call    0040B004
004D809E   8B55C0                 mov     edx, [ebp-$40]
004D80A1   8B8358030000           mov     eax, [ebx+$0358]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D80A7   E8C090F8FF             call    0046116C
004D80AC   8D45BC                 lea     eax, [ebp-$44]
004D80AF   8D9304040000           lea     edx, [ebx+$0404]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
004D80B5   E8A2CBF2FF             call    00404C5C
004D80BA   8B55BC                 mov     edx, [ebp-$44]
004D80BD   8B8360030000           mov     eax, [ebx+$0360]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D80C3   E8A490F8FF             call    0046116C
004D80C8   8D55B8                 lea     edx, [ebp-$48]
004D80CB   8B8330040000           mov     eax, [ebx+$0430]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D80D1   E82E2FF3FF             call    0040B004
004D80D6   8B55B8                 mov     edx, [ebp-$48]
004D80D9   8B8364030000           mov     eax, [ebx+$0364]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
004D80DF   E88890F8FF             call    0046116C
004D80E4   33C0                   xor     eax, eax
004D80E6   5A                     pop     edx
004D80E7   59                     pop     ecx
004D80E8   59                     pop     ecx
004D80E9   648910                 mov     fs:[eax], edx

****** FINALLY
|
004D80EC   6806814D00             push    $004D8106
004D80F1   8D45B8                 lea     eax, [ebp-$48]
004D80F4   BA12000000             mov     edx, $00000012

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004D80F9   E81EC9F2FF             call    00404A1C
004D80FE   C3                     ret


* Reference to: System.@HandleFinally;
|
004D80FF   E94CC2F2FF             jmp     00404350
004D8104   EBEB                   jmp     004D80F1

****** END
|
004D8106   5B                     pop     ebx
004D8107   8BE5                   mov     esp, ebp
004D8109   5D                     pop     ebp
004D810A   C3                     ret

*)
end;

procedure TfrmRouteEdit._PROC_004D8144(Sender : TObject);
begin
(*
004D8144   55                     push    ebp
004D8145   8BEC                   mov     ebp, esp
004D8147   B92C000000             mov     ecx, $0000002C
004D814C   6A00                   push    $00
004D814E   6A00                   push    $00
004D8150   49                     dec     ecx
004D8151   75F9                   jnz     004D814C
004D8153   51                     push    ecx
004D8154   53                     push    ebx
004D8155   56                     push    esi
004D8156   57                     push    edi
004D8157   8BF8                   mov     edi, eax
004D8159   33C0                   xor     eax, eax
004D815B   55                     push    ebp

* Possible String Reference to: '閚或