sm_sp_server.dfm

SPServer.rar一个基于TCP/IP监听发送代码

          Font.Style = [fsBold]
          ParentFont = False
        end
        object lRun: TLabel
          Left = 88
          Top = 104
          Width = 7
          Height = 12
          Caption = '0'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = [fsBold]
          ParentFont = False
        end
      end
      object Panel1: TPanel
        Left = 0
        Top = 136
        Width = 464
        Height = 277
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 3
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 464
          Height = 24
          Align = alTop
          BevelOuter = bvLowered
          Color = 8432127
          TabOrder = 0
          object Label2: TLabel
            Left = 6
            Top = 5
            Width = 85
            Height = 12
            AutoSize = False
            Caption = #25968#25454#25509#25910#31383#21475':'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = #23435#20307
            Font.Style = []
            ParentFont = False
          end
          object Label10: TLabel
            Left = 224
            Top = 6
            Width = 78
            Height = 12
            Caption = #25968#25454#21457#36865#31383#21475':'
          end
        end
        object m_Rec_Win: TMemo
          Left = 0
          Top = 24
          Width = 231
          Height = 253
          Align = alLeft
          Color = clBlack
          Ctl3D = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clLime
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 1
        end
        object mTransmit: TMemo
          Left = 233
          Top = 24
          Width = 231
          Height = 253
          Align = alRight
          Color = clBlack
          Ctl3D = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clLime
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          ScrollBars = ssVertical
          TabOrder = 2
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26381#21153#22120#27979#35797#25805#20316
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 3
        Top = 2
        Width = 457
        Height = 407
        Caption = #26381#21153#22120#27979#35797#25805#20316
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label11: TLabel
          Left = 231
          Top = 0
          Width = 48
          Height = 12
          Caption = #26381#21153#20195#30721
        end
        object Panel3: TPanel
          Left = 2
          Top = 193
          Width = 453
          Height = 212
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 0
          object Label14: TLabel
            Left = 13
            Top = 41
            Width = 60
            Height = 12
            Caption = #36215#22987#21495#27573#65306
          end
          object Label15: TLabel
            Left = 13
            Top = 75
            Width = 60
            Height = 12
            Caption = #32467#26463#21495#27573#65306
          end
          object b_SendSMS: TSpeedButton
            Left = 191
            Top = 36
            Width = 66
            Height = 26
            Caption = #21457#36865#20449#24687
            Layout = blGlyphTop
            OnClick = b_SendSMSClick
          end
          object b_sendBachSMS: TSpeedButton
            Left = 191
            Top = 67
            Width = 66
            Height = 26
            Caption = #32676#21457#20449#24687
            Layout = blGlyphTop
            OnClick = b_sendBachSMSClick
          end
          object stopsend: TSpeedButton
            Left = 191
            Top = 99
            Width = 66
            Height = 26
            Caption = #20013#26029#21457#36865
            Layout = blGlyphTop
            OnClick = stopsendClick
          end
          object Panel4: TPanel
            Left = 0
            Top = 0
            Width = 453
            Height = 24
            Align = alTop
            BevelOuter = bvLowered
            Color = 8432127
            TabOrder = 0
            object lDestNo: TLabel
              Left = 183
              Top = 5
              Width = 171
              Height = 13
              AutoSize = False
              Caption = #34987#21483#21495#30721#65306
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
            end
            object Label12: TLabel
              Left = 5
              Top = 5
              Width = 60
              Height = 12
              Caption = #25805#20316#36873#39033#65306
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -12
              Font.Name = #23435#20307
              Font.Style = []
              ParentFont = False
            end
          end
          object sgrList: TStringGrid
            Left = 271
            Top = 27
            Width = 178
            Height = 182
            ColCount = 3
            Ctl3D = False
            DefaultColWidth = 16
            DefaultRowHeight = 16
            FixedColor = 15461613
            RowCount = 16
            Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goAlwaysShowEditor]
            ParentCtl3D = False
            PopupMenu = PopupMenu2
            TabOrder = 1
            OnDrawCell = sgrListDrawCell
            OnGetEditText = sgrListGetEditText
            OnKeyDown = sgrListKeyDown
            OnSelectCell = sgrListSelectCell
            OnSetEditText = sgrListSetEditText
            ColWidths = (
              26
              98
              25)
            RowHeights = (
              16
              16
              16
              16
              16
              16
              16
              16
              16
              16
              16
              16
              16
              16
              16
              16)
          end
          object lSvcType: TLabeledEdit
            Left = 77
            Top = 106
            Width = 98
            Height = 20
            EditLabel.Width = 60
            EditLabel.Height = 12
            EditLabel.Caption = #26381#21153#31867#22411#65306
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 2
            Text = 'FREE'
          end
          object sta_DestNo: TEdit
            Left = 77
            Top = 37
            Width = 101
            Height = 20
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 3
          end
          object end_DestNo: TEdit
            Left = 77
            Top = 71
            Width = 101
            Height = 20
            ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
            TabOrder = 4
          end
          object rgCell: TRadioGroup
            Left = 12
            Top = 138
            Width = 169
            Height = 43
            Caption = #20184#36153#26041#24335
            Columns = 2
            ItemIndex = 1
            Items.Strings = (
              'SP'#26041#20184#36153
              #34987#21483#26041#20184#36153)
            TabOrder = 5
          end
        end
        object m_Sen_Content: TMemo
          Left = 6
          Top = 15
          Width = 229
          Height = 173
          Ctl3D = True
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -14
          Font.Name = #23435#20307
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ParentCtl3D = False
          ParentFont = False
          ScrollBars = ssVertical
          TabOrder = 1
        end
        object sgSvcType: TStringGrid
          Left = 240
          Top = 14
          Width = 210
          Height = 173
          ColCount = 2