untmain.dfm

本代码是展示了如何通过delphi监控指定web站点的运行情况

object frmMain: TfrmMain
  Left = 323
  Top = 198
  BorderStyle = bsDialog
  Caption = 'E-SMS'#30701#20449#24179#21488#30417#25511#23458#25143#31471
  ClientHeight = 380
  ClientWidth = 545
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clNavy
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object BtnStart: TButton
    Left = 465
    Top = 344
    Width = 70
    Height = 28
    Caption = #24320#21551#30417#25511
    TabOrder = 0
    OnClick = BtnStartClick
  end
  object MMO: TMemo
    Left = 0
    Top = 0
    Width = 545
    Height = 329
    Align = alTop
    Color = clMenuText
    Font.Charset = GB2312_CHARSET
    Font.Color = clLime
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object GroupBox1: TGroupBox
    Left = 4
    Top = 328
    Width = 537
    Height = 7
    TabOrder = 2
  end
  object MSNPopUp: TMSNPopUp
    Text = 'text'
    URL = 'http://www.url.com/'
    IconLeft = 8
    IconTop = 8
    TimeOut = 5
    Width = 148
    Height = 121
    GradientColor1 = 16764057
    GradientColor2 = clWhite
    ScrollSpeed = 9
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HoverFont.Charset = DEFAULT_CHARSET
    HoverFont.Color = clBlue
    HoverFont.Height = -11
    HoverFont.Name = 'MS Sans Serif'
    HoverFont.Style = [fsUnderline]
    Title = 'title'
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
    Options = [msnAutoOpenURL, msnCascadePopups, msnAllowScroll, msnAllowHyperlink]
    TextAlignment = taCenter
    TextCursor = crDefault
    PopupMarge = 2
    PopupStartX = 16
    PopupStartY = 2
    DefaultMonitor = dmDesktop
    Left = 6
    Top = 343
  end
  object XML: TXMLDocument
    Left = 38
    Top = 343
    DOMVendorDesc = 'MSXML'
  end
  object HttpCli: THttpCli
    LocalAddr = '0.0.0.0'
    ProxyPort = '80'
    Agent = 'Mozilla/4.0 (compatible; ICS)'
    Accept = 'image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*'
    NoCache = False
    ContentTypePost = 'application/x-www-form-urlencoded'
    MultiThreaded = False
    RequestVer = '1.0'
    FollowRelocation = True
    LocationChangeMaxCount = 5
    BandwidthLimit = 10000
    BandwidthSampling = 1000
    Options = []
    OnRequestDone = HttpCliRequestDone
    SocksAuthentication = socksNoAuthentication
    Left = 70
    Top = 343
  end
  object Timer: TTimer
    Interval = 5000
    OnTimer = TimerTimer
    Left = 102
    Top = 343
  end
end