getinternetlocalip.~dfm

能够获取外网ip的delphi程序

object GetInternetLocalIPForm: TGetInternetLocalIPForm
  Left = 315
  Top = 293
  BorderStyle = bsNone
  ClientHeight = 111
  ClientWidth = 291
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object HTTPGet1: THTTPGet
    AcceptTypes = '*/*'
    Agent = 'UtilMind HTTPGet'
    BinaryData = False
    UseCache = False
    WaitThread = False
    OnDoneString = HTTPGet1DoneString
    OnError = HTTPGet1Error
    Left = 72
    Top = 32
  end
end