home *** CD-ROM | disk | FTP | other *** search
- object frmWebServ: TfrmWebServ
- Left = 296
- Top = 253
- BorderStyle = bsSingle
- Caption = 'XNS Webserver'
- ClientHeight = 192
- ClientWidth = 412
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- KeyPreview = True
- Menu = MainMenu1
- OldCreateOrder = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnKeyPress = FormKeyPress
- PixelsPerInch = 96
- TextHeight = 13
- object Memo1: TMemo
- Left = 0
- Top = 0
- Width = 412
- Height = 149
- Align = alClient
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = 'Courier New'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- OnChange = Memo1Change
- end
- object stat: TStatusBar
- Left = 0
- Top = 173
- Width = 412
- Height = 19
- Panels = <>
- SimplePanel = True
- end
- object Panel1: TPanel
- Left = 0
- Top = 149
- Width = 412
- Height = 24
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object Label1: TLabel
- Left = 8
- Top = 6
- Width = 121
- Height = 13
- Caption = 'Server is not running.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 248
- Top = 6
- Width = 60
- Height = 13
- Caption = '0 requests'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- end
- object wserve: TIdHTTPServer
- OnStatus = wserveStatus
- Bindings = <>
- CommandHandlers = <>
- DefaultPort = 11131
- Greeting.NumericCode = 0
- MaxConnectionReply.NumericCode = 0
- ReplyExceptionCode = 0
- ReplyTexts = <>
- ReplyUnknownCommand.NumericCode = 0
- AutoStartSession = True
- ServerSoftware = 'X-NetStat 5.0 Professional'
- SessionTimeOut = 1200000
- OnCommandGet = wserveCommandGet
- Left = 328
- Top = 136
- end
- object MainMenu1: TMainMenu
- Left = 88
- Top = 8
- object StopServer1: TMenuItem
- Caption = 'Stop Server'
- OnClick = StopServer1Click
- end
- object ShowReport1: TMenuItem
- Caption = 'Show Report'
- OnClick = ShowReport1Click
- end
- object HideThisWindow1: TMenuItem
- Caption = 'Hide This Window'
- OnClick = HideThisWindow1Click
- end
- end
- end
-