send.dfm

发送短信息的程序

        1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000000000000000
        000000001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E000000000000000000000000000000000000
        E05E00001F7C1F7C0000E05EE05EE05EE05EE05EE05EE05EE05EE05EE05EE05E
        E05E00001F7C1F7C0000E05EE05E00000000000000000000000000000000E05E
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        000000001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        1F7C00001F7C1F7C000000000000000000000000000000000000000000000000
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      ParentFont = False
      OnClick = sbSaveMsgClick
    end
    object sbDeleteMsg: TSpeedButton
      Left = 264
      Top = 61
      Width = 50
      Height = 21
      Caption = #21024#38500
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = sbDeleteMsgClick
    end
    object lblTS: TLabel
      Left = 13
      Top = 110
      Width = 65
      Height = 67
      Cursor = crHandPoint
      AutoSize = False
      Caption = #35831#20808#21040#26032#28010#27880#20876#21495#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -21
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      WordWrap = True
      OnClick = lblTSClick
    end
    object wbSendSMS: TWebBrowser
      Left = 17
      Top = 213
      Width = 20
      Height = 10
      TabOrder = 0
      OnDocumentComplete = wbSendSMSDocumentComplete
      ControlData = {
        4C00000011020000090100000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
    object cmbSendCode: TComboBox
      Left = 86
      Top = 37
      Width = 122
      Height = 21
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
      OnChange = cmbSendCodeChange
    end
    object memSendContent: TMemo
      Left = 86
      Top = 84
      Width = 227
      Height = 89
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      MaxLength = 50
      ParentFont = False
      TabOrder = 2
      OnChange = memSendContentChange
    end
    object btnSend: TBitBtn
      Left = 121
      Top = 177
      Width = 75
      Height = 25
      Caption = #21457#36865
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btnSendClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000
        00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0
        00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F
        F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F
        F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF
        FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF
        0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF
        0033333337FFFFFF773333333000000003333333377777777333}
      NumGlyphs = 2
    end
    object btnCancel: TBitBtn
      Left = 201
      Top = 177
      Width = 75
      Height = 25
      Caption = #21462#28040
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = btnCancelClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FF33333333FF3330033333333
        00333377FF33333377FF300003333330000337777FFFFFF7777F000000000000
        000077777777777777770F88FFFF8FFF88F07F333F33333333370FFF9FFF8FFF
        FF707F337FF333FFFFF70FF999FF800000037F377733377777730FFF9FFF0888
        80337F3373337F3337330FFFFFFF088803337FFFFFFF7FFF7333700000000000
        3333777777777777F33333333339399939333333333337773333333333333393
        3333333333333373333333333333933393333333333333333333333333333393
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object sbSendSMS: TStatusBar
      Left = 2
      Top = 206
      Width = 320
      Height = 23
      Panels = <
        item
          Width = 100
        end
        item
          Width = 110
        end
        item
          Width = 50
        end>
      SimplePanel = False
    end
    object cmbMsgList: TComboBox
      Left = 86
      Top = 60
      Width = 123
      Height = 21
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 6
      OnChange = cmbMsgListChange
    end
    object cmbRecCode: TComboBox
      Left = 86
      Top = 14
      Width = 122
      Height = 21
      Style = csDropDownList
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 7
      OnChange = cmbRecCodeChange
    end
  end
end