main.dfm

DELIPHI编写的小程序

object MainForm: TMainForm
  Left = 236
  Top = 228
  Width = 449
  Height = 292
  Caption = 'Adsl'#36828#31243#21796#37266
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 15
  object LabelRas: TLabel
    Left = 10
    Top = 20
    Width = 167
    Height = 15
    Caption = #35831#36873#25321#25511#21046#30340'ADSL'#31449#28857#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 350
    Top = 20
    Width = 77
    Height = 15
    Caption = 'Site'#31449#28857#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -15
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object ConnList: TListBox
    Left = 10
    Top = 39
    Width = 168
    Height = 209
    ItemHeight = 15
    TabOrder = 0
    OnClick = ConnListClick
  end
  object CreateRasConn: TBitBtn
    Left = 194
    Top = 18
    Width = 120
    Height = 33
    Caption = #26032#24314#31449#28857
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = CreateRasConnClick
  end
  object DeleteRasConn: TBitBtn
    Left = 194
    Top = 58
    Width = 120
    Height = 33
    Caption = #21024#38500#31449#28857
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = DeleteRasConnClick
  end
  object SetupRas: TBitBtn
    Left = 194
    Top = 135
    Width = 120
    Height = 34
    Caption = #35774#32622#31449#28857
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = SetupRasClick
  end
  object AdslDisConnect: TBitBtn
    Left = 194
    Top = 213
    Width = 120
    Height = 35
    Caption = #36828#31243#26029#24320
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = AdslDisConnectClick
  end
  object RasConnect: TBitBtn
    Left = 194
    Top = 174
    Width = 120
    Height = 34
    Caption = #36828#31243#36830#25509
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = RasConnectClick
  end
  object ViewRemoteVideo: TBitBtn
    Left = 18
    Top = 259
    Width = 120
    Height = 34
    Caption = #36828#31243#30417#25511
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = ViewRemoteVideoClick
  end
  object GetRasEntries: TBitBtn
    Left = 194
    Top = 96
    Width = 120
    Height = 33
    Caption = #33719#21462#36830#25509
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = GetRasEntriesClick
  end
  object Status: TStatusBar
    Left = 0
    Top = 293
    Width = 518
    Height = 22
    Panels = <
      item
        Width = 180
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object BitBtnExit: TBitBtn
    Left = 186
    Top = 259
    Width = 120
    Height = 34
    Caption = #36864#20986#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -23
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = BitBtnExitClick
  end
  object SiteList: TListBox
    Left = 350
    Top = 39
    Width = 168
    Height = 209
    ItemHeight = 15
    TabOrder = 10
    OnClick = ConnListClick
  end
  object Timer: TTimer
    Enabled = False
    Interval = 500
    OnTimer = TimerTimer
    Left = 19
  end
  object NMHTTPADSL: TNMHTTP
    Port = 0
    ReportLevel = 0
    OnConnect = NMHTTPAdslConnect
    OnConnectionFailed = NMHTTPAdslConnectionFailed
    Body = 'body.txt'
    Header = 'Head.txt'
    InputFileMode = False
    OutputFileMode = False
    OnSuccess = NMHTTPAdslSuccess
    OnFailure = NMHTTPAdslFailure
    OnAuthenticationNeeded = NMHTTPAdslAuthenticationNeeded
    ProxyPort = 0
    Left = 48
  end
end