getoutsideip.dfm

Delphi 获取互联网IP地址

object frm_getIP: Tfrm_getIP
  Left = 332
  Top = 231
  Width = 343
  Height = 216
  Caption = #33719#21462#22806#32593'IP'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 58
    Height = 13
    Caption = #32593#22336'URL'#65306
  end
  object Label2: TLabel
    Left = 16
    Top = 56
    Width = 46
    Height = 13
    Caption = #24403#21069'IP'#65306
  end
  object Label3: TLabel
    Left = 16
    Top = 80
    Width = 46
    Height = 13
    Caption = #20197#21069'IP'#65306
  end
  object Label4: TLabel
    Left = 24
    Top = 105
    Width = 36
    Height = 13
    Caption = #26102#38388#65306
  end
  object Edit_Url: TEdit
    Left = 71
    Top = 15
    Width = 242
    Height = 21
    TabOrder = 0
    Text = 'http://www.bliao.com:2000/ip.phtml'
  end
  object btn_GetIP: TButton
    Left = 265
    Top = 49
    Width = 49
    Height = 25
    Caption = 'GetIP'
    TabOrder = 1
    OnClick = btn_GetIPClick
  end
  object Edit_CurIP: TEdit
    Left = 72
    Top = 52
    Width = 191
    Height = 21
    Color = clScrollBar
    TabOrder = 2
  end
  object Edit_OldIP: TEdit
    Left = 72
    Top = 78
    Width = 193
    Height = 21
    Color = clScrollBar
    TabOrder = 3
  end
  object Memo_Notice: TMemo
    Left = 16
    Top = 136
    Width = 304
    Height = 49
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clScrollBar
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    Lines.Strings = (
      #27880#65306#35831#21578#35785#20320#30340#26379#21451#65288'QQ'#65306'66487391'#65289#65292#20320
      #29616#22312#30340#22806#32593'IP'#22320#22336#24050#32463#21457#29983#20102#21464#21270#20102#65281#35874#35874)
    ParentFont = False
    TabOrder = 4
    Visible = False
  end
  object btn_SetIP: TButton
    Left = 266
    Top = 79
    Width = 48
    Height = 25
    Caption = 'SetIP'
    TabOrder = 5
    OnClick = btn_SetIPClick
  end
  object Edit_Timer: TEdit
    Left = 72
    Top = 104
    Width = 121
    Height = 21
    TabOrder = 6
    Text = '100'
  end
  object CB_Timer: TCheckBox
    Left = 216
    Top = 106
    Width = 97
    Height = 17
    Caption = #25191#34892#26102#38388
    TabOrder = 7
    OnClick = CB_TimerClick
  end
  object http: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 32
    Top = 32
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 144
    Top = 88
  end
end