gateset.pas

BLUE源码 BLUE源码 BLUE源码

|
004703FE   E9BD42F9FF             jmp     004046C0
00470403   EBDE                   jmp     004703E3

****** END
|
00470405   5F                     pop     edi
00470406   5E                     pop     esi
00470407   5B                     pop     ebx
00470408   8BE5                   mov     esp, ebp
0047040A   5D                     pop     ebp
0047040B   C3                     ret

*)
end;

procedure TFrmGateSetting.BtnOkClick(Sender : TObject);
begin
(*
00470418   55                     push    ebp
00470419   8BEC                   mov     ebp, esp
0047041B   B906000000             mov     ecx, $00000006
00470420   6A00                   push    $00
00470422   6A00                   push    $00
00470424   49                     dec     ecx
00470425   75F9                   jnz     00470420
00470427   53                     push    ebx
00470428   56                     push    esi
00470429   57                     push    edi
0047042A   8945FC                 mov     [ebp-$04], eax
0047042D   33C0                   xor     eax, eax
0047042F   55                     push    ebp
00470430   6878064700             push    $00470678

***** TRY
|
00470435   64FF30                 push    dword ptr fs:[eax]
00470438   648920                 mov     fs:[eax], esp
0047043B   A1800F4900             mov     eax, dword ptr [$00490F80]
00470440   8945E8                 mov     [ebp-$18], eax
00470443   8B45FC                 mov     eax, [ebp-$04]
00470446   8B80A4030000           mov     eax, [eax+$03A4]
0047044C   8B10                   mov     edx, [eax]
0047044E   FF92CC000000           call    dword ptr [edx+$00CC]
00470454   8BF0                   mov     esi, eax
00470456   85F6                   test    esi, esi
00470458   0F8CDA010000           jl      00470638
0047045E   33DB                   xor     ebx, ebx
00470460   8D55E4                 lea     edx, [ebp-$1C]
00470463   8B45FC                 mov     eax, [ebp-$04]
00470466   8B8498C0030000         mov     eax, [eax+ebx*4+$03C0]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0047046D   E8F694FDFF             call    00449968
00470472   8B45E4                 mov     eax, [ebp-$1C]
00470475   8D55EC                 lea     edx, [ebp-$14]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00470478   E88FA3F9FF             call    0040A80C
0047047D   837DEC00               cmp     dword ptr [ebp-$14], +$00
00470481   7418                   jz      0047049B
00470483   6A00                   push    $00
00470485   8D45F0                 lea     eax, [ebp-$10]
00470488   50                     push    eax
00470489   C645E03A               mov     byte ptr [ebp-$20], $3A
0047048D   8D4DE0                 lea     ecx, [ebp-$20]
00470490   8D55F4                 lea     edx, [ebp-$0C]
00470493   8B45EC                 mov     eax, [ebp-$14]

|
00470496   E8E1F0FFFF             call    0046F57C
0047049B   837DF400               cmp     dword ptr [ebp-$0C], +$00
0047049F   740E                   jz      004704AF
004704A1   33D2                   xor     edx, edx
004704A3   8B45F0                 mov     eax, [ebp-$10]

|
004704A6   E875F0FFFF             call    0046F520
004704AB   85C0                   test    eax, eax
004704AD   750A                   jnz     004704B9

* Reference to: Classes.TStream.WriteComponentRes(TStream;AnsiString;TComponent);
|           or: DB.TDataSet.InsertRecord(TDataSet;arrayofTVarRec;arrayofTVarRec;0..-1);
|           or: Graphics.GetDIBSizes(HBITMAP;Windows.DWORD;Windows.DWORD;Windows.DWORD;Windows.DWORD);
|           or: InGlobal.AnsiMemoryPos(AnsiString;PChar;Integer):Integer;
|           or: Outline.TCustomOutline.Insert(TCustomOutline;Longint;AnsiString):Longint;
|           or: Outline.TCustomOutline.Add(TCustomOutline;Longint;AnsiString):Longint;
|
004704AF   E8BCE8F9FF             call    0040ED70
004704B4   E97F010000             jmp     00470638
004704B9   43                     inc     ebx
004704BA   83FB0A                 cmp     ebx, +$0A
004704BD   7CA1                   jl      00470460
004704BF   8D4DF8                 lea     ecx, [ebp-$08]
004704C2   8B45FC                 mov     eax, [ebp-$04]
004704C5   8B80A4030000           mov     eax, [eax+$03A4]
004704CB   8B803C020000           mov     eax, [eax+$023C]
004704D1   8BD6                   mov     edx, esi
004704D3   8B18                   mov     ebx, [eax]
004704D5   FF530C                 call    dword ptr [ebx+$0C]
004704D8   83CEFF                 or      esi, -$01
004704DB   33DB                   xor     ebx, ebx
004704DD   6BC323                 imul    eax, ebx, $23
004704E0   8B55E8                 mov     edx, [ebp-$18]
004704E3   8B848273020000         mov     eax, [edx+eax*4+$0273]
004704EA   8B55F8                 mov     edx, [ebp-$08]

* Reference to: System.@LStrCmp;
|
004704ED   E8824CF9FF             call    00405174
004704F2   7504                   jnz     004704F8
004704F4   8BF3                   mov     esi, ebx
004704F6   EB06                   jmp     004704FE
004704F8   43                     inc     ebx
004704F9   83FB3B                 cmp     ebx, +$3B
004704FC   7CDF                   jl      004704DD
004704FE   85F6                   test    esi, esi
00470500   0F8C32010000           jl      00470638
00470506   8D55DC                 lea     edx, [ebp-$24]
00470509   8B45FC                 mov     eax, [ebp-$04]
0047050C   8B809C030000           mov     eax, [eax+$039C]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00470512   E85194FDFF             call    00449968
00470517   8B55DC                 mov     edx, [ebp-$24]
0047051A   6BDE23                 imul    ebx, esi, $23
0047051D   8B45E8                 mov     eax, [ebp-$18]
00470520   8D849877020000         lea     eax, [eax+ebx*4+$0277]

* Reference to: System.@LStrAsg(void;void;void;void);
|
00470527   E89048F9FF             call    00404DBC
0047052C   8D55D8                 lea     edx, [ebp-$28]
0047052F   8B45FC                 mov     eax, [ebp-$04]
00470532   8B8090030000           mov     eax, [eax+$0390]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00470538   E82B94FDFF             call    00449968
0047053D   8B55D8                 mov     edx, [ebp-$28]
00470540   8B45E8                 mov     eax, [ebp-$18]
00470543   8D84987B020000         lea     eax, [eax+ebx*4+$027B]

* Reference to: System.@LStrAsg(void;void;void;void);
|
0047054A   E86D48F9FF             call    00404DBC
0047054F   33DB                   xor     ebx, ebx
00470551   6A00                   push    $00
00470553   8D45F0                 lea     eax, [ebp-$10]
00470556   50                     push    eax
00470557   8D55D0                 lea     edx, [ebp-$30]
0047055A   8B45FC                 mov     eax, [ebp-$04]
0047055D   8B8498C0030000         mov     eax, [eax+ebx*4+$03C0]

* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00470564   E8FF93FDFF             call    00449968
00470569   8B45D0                 mov     eax, [ebp-$30]
0047056C   8D55D4                 lea     edx, [ebp-$2C]

* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0047056F   E898A2F9FF             call    0040A80C
00470574   8B45D4                 mov     eax, [ebp-$2C]
00470577   C645E03A               mov     byte ptr [ebp-$20], $3A
0047057B   8D4DE0                 lea     ecx, [ebp-$20]
0047057E   8D55F4                 lea     edx, [ebp-$0C]

|
00470581   E8F6EFFFFF             call    0046F57C
00470586   837DF400               cmp     dword ptr [ebp-$0C], +$00
0047058A   7459                   jz      004705E5
0047058C   6BFE23                 imul    edi, esi, $23
0047058F   8B45E8                 mov     eax, [ebp-$18]
00470592   8D04B8                 lea     eax, [eax+edi*4]
00470595   8D145B                 lea     edx, [ebx+ebx*2]
00470598   8D849083020000         lea     eax, [eax+edx*4+$0283]
0047059F   8B55F4                 mov     edx, [ebp-$0C]

* Reference to: System.@LStrAsg(void;void;void;void);
|
004705A2   E81548F9FF             call    00404DBC
004705A7   33D2                   xor     edx, edx
004705A9   8B45F0                 mov     eax, [ebp-$10]

|
004705AC   E86FEFFFFF             call    0046F520
004705B1   8B55E8                 mov     edx, [ebp-$18]
004705B4   8D14BA                 lea     edx, [edx+edi*4]
004705B7   8D0C5B                 lea     ecx, [ebx+ebx*2]
004705BA   89848A87020000         mov     [edx+ecx*4+$0287], eax
004705C1   8B45FC                 mov     eax, [ebp-$04]
004705C4   8B8498E8030000         mov     eax, [eax+ebx*4+$03E8]
004705CB   8B10                   mov     edx, [eax]
004705CD   FF92C8000000           call    dword ptr [edx+$00C8]
004705D3   8B55E8                 mov     edx, [ebp-$18]
004705D6   8D14BA                 lea     edx, [edx+edi*4]
004705D9   8D0C5B                 lea     ecx, [ebx+ebx*2]
004705DC   88848A8B020000         mov     [edx+ecx*4+$028B], al
004705E3   EB41                   jmp     00470626
004705E5   6BC623                 imul    eax, esi, $23
004705E8   8B55E8                 mov     edx, [ebp-$18]
004705EB   8D0482                 lea     eax, [edx+eax*4]
004705EE   8D145B                 lea     edx, [ebx+ebx*2]
004705F1   8D849083020000         lea     eax, [eax+edx*4+$0283]

* Reference to: System.@LStrClr(void;void);
|
004705F8   E86B47F9FF             call    00404D68
004705FD   6BC623                 imul    eax, esi, $23
00470600   8B55E8                 mov     edx, [ebp-$18]
00470603   8D0482                 lea     eax, [edx+eax*4]
00470606   8D145B                 lea     edx, [ebx+ebx*2]
00470609   33C9                   xor     ecx, ecx
0047060B   898C9087020000         mov     [eax+edx*4+$0287], ecx
00470612   6BC623                 imul    eax, esi, $23
00470615   8B55E8                 mov     edx, [ebp-$18]
00470618   8D0482                 lea     eax, [edx+eax*4]
0047061B   8D145B                 lea     edx, [ebx+ebx*2]
0047061E   C684908B02000000       mov     byte ptr [eax+edx*4+$028B], $00
00470626   43                     inc     ebx
00470627   83FB0A                 cmp     ebx, +$0A
0047062A   0F8C21FFFFFF           jl      00470551
00470630   8B45E8                 mov     eax, [ebp-$18]

|
00470633   E804E6FFFF             call    0046EC3C
00470638   33C0                   xor     eax, eax
0047063A   5A                     pop     edx
0047063B   59                     pop     ecx
0047063C   59                     pop     ecx
0047063D   648910                 mov     fs:[eax], edx

****** FINALLY
|
00470640   687F064700             push    $0047067F
00470645   8D45D0                 lea     eax, [ebp-$30]

* Reference to: System.@LStrClr(void;void);
|
00470648   E81B47F9FF             call    00404D68
0047064D   8D45D4                 lea     eax, [ebp-$2C]

* Reference to: System.@LStrClr(void;void);
|
00470650   E81347F9FF             call    00404D68
00470655   8D45D8                 lea     eax, [ebp-$28]
00470658   BA02000000             mov     edx, $00000002

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0047065D   E82A47F9FF             call    00404D8C
00470662   8D45E4                 lea     eax, [ebp-$1C]

* Reference to: System.@LStrClr(void;void);
|
00470665   E8FE46F9FF             call    00404D68
0047066A   8D45EC                 lea     eax, [ebp-$14]
0047066D   BA04000000             mov     edx, $00000004

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00470672   E81547F9FF             call    00404D8C
00470677   C3                     ret


* Reference to: System.@HandleFinally;
|
00470678   E94340F9FF             jmp     004046C0
0047067D   EBC6                   jmp     00470645

****** END
|
0047067F   5F                     pop     edi
00470680   5E                     pop     esi
00470681   5B                     pop     ebx
00470682   8BE5                   mov     esp, ebp
00470684   5D                     pop     ebp
00470685   C3                     ret

*)
end;

procedure TFrmGateSetting.BtnChangeTitleClick(Sender : TObject);
begin
(*
00470688   55                     push    ebp
00470689   8BEC                   mov     ebp, esp
0047068B   33C9                   xor     ecx, ecx
0047068D   51                     push    ecx
0047068E   51                     push    ecx
0047068F   51                     push    ecx
00470690   51                     push    ecx
00470691   53                     push    ebx
00470692   56                     push    esi
00470693   57                     push    edi
00470694   8BD8                   mov     ebx, eax
00470696   33C0                   xor     eax, eax
00470698   55                     push    ebp

* Possible String Reference to: '閠?