unitmain.dfm

参考Php版飞信（http://sourceforge.net/projects/openfetion/）用Delphi实现了中国移动飞信2008协议的登录和发短信部分。其它功能并没有实现

object FormMain: TFormMain
  Left = 262
  Top = 108
  Width = 503
  Height = 334
  Caption = #31616#26131#39134#20449
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object reLogMsg: TRichEdit
    Left = 0
    Top = 0
    Width = 495
    Height = 176
    Align = alClient
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 0
  end
  object Panel1: TPanel
    Left = 0
    Top = 204
    Width = 495
    Height = 64
    Align = alBottom
    TabOrder = 1
    object mmMsg: TMemo
      Left = 1
      Top = 1
      Width = 493
      Height = 62
      Align = alClient
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object btSendMsg: TBitBtn
      Left = 419
      Top = 1
      Width = 75
      Height = 62
      Caption = #21457#36865
      TabOrder = 1
      OnClick = btSendMsgClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 176
    Width = 495
    Height = 28
    Align = alBottom
    TabOrder = 2
    object Label1: TLabel
      Left = 23
      Top = 8
      Width = 51
      Height = 13
      Caption = #21457#36865#21040#65306' '
    end
    object cbContactList: TComboBox
      Left = 80
      Top = 5
      Width = 401
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 268
    Width = 495
    Height = 39
    Align = alBottom
    TabOrder = 3
    object Button1: TButton
      Left = 120
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Button1'
      TabOrder = 0
      OnClick = Button1Click
    end
  end
  object IdTCPClient1: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 5000
    Port = 0
    Left = 368
    Top = 16
  end
  object tmRegister: TTimer
    Enabled = False
    Interval = 60000
    OnTimer = tmRegisterTimer
    Left = 400
    Top = 16
  end
  object IdHTTP1: 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 = []
    Left = 304
    Top = 16
  end
end