program ms;

uses

    Forms,

    server in 'server.pas' {Form1};

{$R *.RES}

begin

    Application.Initialize;

    Application.CreateForm(TForm1, Form1);

    Application.Run;

end.

object Form1: TForm1

    Left = 394

    Top = 188

    BorderIcons = [biSystemMenu]

    BorderStyle = bsSingle

    Caption = 'Inferno Web Server'

    ClientHeight = 93

    ClientWidth = 279

    Color = clBtnFace

    Font.Charset = DEFAULT_CHARSET

    Font.Color = clWindowText

    Font.Height = -11

    Font.Name = 'MS Sans Serif'

    Font.Style = []

    OldCreateOrder = False

    PixelsPerInch = 96

    TextHeight = 13

    object Label1: TLabel

      Left = 72

      Top = 8

      Width = 137

      Height = 20

      Caption = #1057#1077#1088#1074#1077#1088' '#1074#1099#1082#1083#1102#1095#1077#1085

      Font.Charset = DEFAULT_CHARSET

      Font.Color = clRed

      Font.Height = -16

      Font.Name = 'MS Sans Serif'

      Font.Style = []

      ParentFont = False

    end

    object Label2: TLabel

      Left = 112

      Top = 32

      Width = 28

      Height = 13

      Caption = #1055#1086#1088#1090':'

      Visible = False

    end

    object Label3: TLabel

      Left = 72

      Top = 48

      Width = 65

      Height = 13

      Caption = #1044#1080#1088#1077#1082#1090#1086#1088#1080#1103':'

      Visible = False

    end

    object Button1: TButton

      Left = 24

      Top = 72

      Width = 113

      Height = 17

      Caption = #1057#1090#1072#1088#1090

      TabOrder = 0

      OnClick = Button1Click

    end

    object Button2: TButton

      Left = 144

      Top = 71

      Width = 113

      Height = 18

      Caption = #1057#1090#1086#1087

      Enabled = False

      TabOrder = 1

      OnClick = Button2Click

    end

    object Memo1: TMemo

      Left = 24

      Top = 128

      Width = 113

      Height = 41

      Lines.Strings = (

        'Memo1')

      TabOrder = 2

    end

    object server: TIdHTTPServer

      Bindings = <>

      CommandHandlers = <>

      Greeting.NumericCode = 0

      MaxConnectionReply.NumericCode = 0

      ReplyExceptionCode = 0

      ReplyTexts = <>

      ReplyUnknownCommand.NumericCode = 0

      AutoStartSession = True

      OnCommandGet = serverCommandGet

    end

end

unit server;

interface

uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    IdHTTPServer, StdCtrls;

type

    TForm1 = class(TForm)

      server: TIdHTTPServer;

      Label1: TLabel;

      Label2: TLabel;

      Button1: TButton;

      Button2: TButton;

      Label3: TLabel;

      Memo1: TMemo;

      procedure Button1Click(Sender: TObject);

      procedure Button2Click(Sender: TObject);

      procedure serverCommandGet(AThread: TIdPeerThread; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

    private

      { Private declarations }

    public

      { Public declarations }

    end;

var

    Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

// Address $471DA0

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

// Address $47206C

end;

procedure TForm1.serverCommandGet(AThread: TIdPeerThread; ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);

begin

// Address $47216C

end;

end.