generalconfig.pas

BLUE源码 BLUE源码 BLUE源码

unit GeneralConfig;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmGeneralConfig=class(TForm)
    GroupBoxNet: TGroupBox;
    LabelGateIPaddr: TLabel;
    EditGateIPaddr: TEdit;
    EditGatePort: TEdit;
    LabelGatePort: TLabel;
    EditServerPort: TEdit;
    LabelServerPort: TLabel;
    LabelServerIPaddr: TLabel;
    EditServerIPaddr: TEdit;
    GroupBoxInfo: TGroupBox;
    Label1: TLabel;
    EditTitle: TEdit;
    TrackBarLogLevel: TTrackBar;
    LabelShowLogLevel: TLabel;
    LabelShowBite: TLabel;
    ComboBoxShowBite: TComboBox;
    ButtonOK: TButton;
    Label7: TLabel;
    procedure ButtonOKClick(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmGeneralConfig: TfrmGeneralConfig;

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

implementation

{$R *.DFM}

procedure TfrmGeneralConfig.ButtonOKClick(Sender : TObject);
begin
(*
0046FA28   55                     push    ebp
0046FA29   8BEC                   mov     ebp, esp
0046FA2B   B906000000             mov     ecx, $00000006
0046FA30   6A00                   push    $00
0046FA32   6A00                   push    $00
0046FA34   49                     dec     ecx
0046FA35   75F9                   jnz     0046FA30
0046FA37   51                     push    ecx
0046FA38   53                     push    ebx
0046FA39   56                     push    esi
0046FA3A   57                     push    edi
0046FA3B   8BD8                   mov     ebx, eax
0046FA3D   8B3554314C00           mov     esi, [$004C3154]
0046FA43   33C0                   xor     eax, eax
0046FA45   55                     push    ebp
0046FA46   6875FD4600             push    $0046FD75

***** TRY
|
0046FA4B   64FF30                 push    dword ptr fs:[eax]
0046FA4E   648920                 mov     fs:[eax], esp
0046FA51   8D55E4                 lea     edx, [ebp-$1C]
0046FA54   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0046FA5A   E84579FDFF             call    004473A4
0046FA5F   8B45E4                 mov     eax, [ebp-$1C]
0046FA62   8D55FC                 lea     edx, [ebp-$04]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0046FA65   E87AA7F9FF             call    0040A1E4
0046FA6A   8D55DC                 lea     edx, [ebp-$24]
0046FA6D   8B8304030000           mov     eax, [ebx+$0304]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0046FA73   E82C79FDFF             call    004473A4
0046FA78   8B45DC                 mov     eax, [ebp-$24]
0046FA7B   8D55E0                 lea     edx, [ebp-$20]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0046FA7E   E861A7F9FF             call    0040A1E4
0046FA83   8B45E0                 mov     eax, [ebp-$20]
0046FA86   83CAFF                 or      edx, -$01

|
0046FA89   E8D2F6FFFF             call    0046F160
0046FA8E   8BF8                   mov     edi, eax
0046FA90   8D55D8                 lea     edx, [ebp-$28]
0046FA93   8B8318030000           mov     eax, [ebx+$0318]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0046FA99   E80679FDFF             call    004473A4
0046FA9E   8B45D8                 mov     eax, [ebp-$28]
0046FAA1   8D55F8                 lea     edx, [ebp-$08]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0046FAA4   E83BA7F9FF             call    0040A1E4
0046FAA9   8D55D0                 lea     edx, [ebp-$30]
0046FAAC   8B830C030000           mov     eax, [ebx+$030C]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0046FAB2   E8ED78FDFF             call    004473A4
0046FAB7   8B45D0                 mov     eax, [ebp-$30]
0046FABA   8D55D4                 lea     edx, [ebp-$2C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0046FABD   E822A7F9FF             call    0040A1E4
0046FAC2   8B45D4                 mov     eax, [ebp-$2C]
0046FAC5   83CAFF                 or      edx, -$01

|
0046FAC8   E893F6FFFF             call    0046F160
0046FACD   8945F0                 mov     [ebp-$10], eax
0046FAD0   8D55CC                 lea     edx, [ebp-$34]
0046FAD3   8B8324030000           mov     eax, [ebx+$0324]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0046FAD9   E8C678FDFF             call    004473A4
0046FADE   8B45CC                 mov     eax, [ebp-$34]
0046FAE1   8D55F4                 lea     edx, [ebp-$0C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0046FAE4   E8FBA6F9FF             call    0040A1E4
0046FAE9   8B8334030000           mov     eax, [ebx+$0334]
0046FAEF   8B10                   mov     edx, [eax]
0046FAF1   FF92CC000000           call    dword ptr [edx+$00CC]
0046FAF7   8945EC                 mov     [ebp-$14], eax
0046FAFA   8B8328030000           mov     eax, [ebx+$0328]
0046FB00   8B8028020000           mov     eax, [eax+$0228]
0046FB06   8945E8                 mov     [ebp-$18], eax
0046FB09   8B45FC                 mov     eax, [ebp-$04]

|
0046FB0C   E87BF4FFFF             call    0046EF8C
0046FB11   84C0                   test    al, al
0046FB13   752B                   jnz     0046FB40
0046FB15   6A10                   push    $10

* Possible String Reference to: '错误信息'
|
0046FB17   B984FD4600             mov     ecx, $0046FD84

* Possible String Reference to: '网关地址设置错误！'
|
0046FB1C   BA90FD4600             mov     edx, $0046FD90
0046FB21   A1D8304C00             mov     eax, dword ptr [$004C30D8]
0046FB26   8B00                   mov     eax, [eax]

* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
0046FB28   E85378FFFF             call    00467380
0046FB2D   8B8300030000           mov     eax, [ebx+$0300]
0046FB33   8B10                   mov     edx, [eax]
0046FB35   FF92C4000000           call    dword ptr [edx+$00C4]
0046FB3B   E9E8010000             jmp     0046FD28
0046FB40   85FF                   test    edi, edi
0046FB42   7C08                   jl      0046FB4C
0046FB44   81FFFFFF0000           cmp     edi, $0000FFFF
0046FB4A   7E2B                   jle     0046FB77
0046FB4C   6A10                   push    $10

* Possible String Reference to: '错误信息'
|
0046FB4E   B984FD4600             mov     ecx, $0046FD84

* Possible String Reference to: '网关端口设置错误！'
|
0046FB53   BAA4FD4600             mov     edx, $0046FDA4
0046FB58   A1D8304C00             mov     eax, dword ptr [$004C30D8]
0046FB5D   8B00                   mov     eax, [eax]

* Reference to: Forms.TApplication.MessageBox(TApplication;PChar;PChar;Longint):Integer;
|
0046FB5F   E81C78FFFF             call    00467380
0046FB64   8B8304030000           mov     eax, [ebx+$0304]
0046FB6A   8B10                   mov     edx, [eax]
0046FB6C   FF92C4000000           call    dword ptr [edx+$00C4]
0046FB72   E9B1010000             jmp     0046FD28
0046FB77   8B45F8                 mov     eax, [ebp-$08]

|