sm_sp_server.dfm

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

        object Image3: TImage
          Left = 128
          Top = 16
          Width = 17
          Height = 18
          Picture.Data = {
            055449636F6E0000010001001010100001000400280100001600000028000000
            1000000020000000010004000000000080000000000000000000000000000000
            0000000000000000000080000080000000808000800000008000800080800000
            80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
            FFFFFF00000000000000000000B30078AA77777077B3077FFFFFFF7000700070
            0000007000700078888888000000007F0EEEE80078AA777F0EEEE8007FFFFF7F
            0EEEE8007000007F000008007888887FFFFFFF007F000007777777707F000008
            000000007F0F0008000000007F000008000000007FFFFFFF0000000007777777
            70000000CE0100000000000000000000CC000000CC0100008001000000010000
            00010000000100000001000000010000007F0000007F0000007F0000007F0000
            807F0000}
          Transparent = True
          Visible = False
        end
        object Image4: TImage
          Left = 146
          Top = 16
          Width = 17
          Height = 18
          Picture.Data = {
            055449636F6E0000010001001010100001000400280100001600000028000000
            1000000020000000010004000000000080000000000000000000000000000000
            0000000000000000000080000080000000808000800000008000800080800000
            80808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000
            FFFFFF00000000000000000000B30078AA77777077B3077FFFFFFF7000700070
            0000007000700078888888000000007F0000080078AA777F000008007FFFFF7F
            0F0008007000007F000008007888887FFFFFFF007F000007777777707F000008
            000000007F0F0008000000007F000008000000007FFFFFFF0000000007777777
            70000000CE0100000000000000000000CC000000CC0100008001000000010000
            00010000000100000001000000010000007F0000007F0000007F0000007F0000
            807F0000}
          Transparent = True
          Visible = False
        end
        object Image5: TImage
          Left = 130
          Top = 36
          Width = 17
          Height = 17
          Transparent = True
          Visible = False
        end
        object Panel6: TPanel
          Left = 195
          Top = 0
          Width = 149
          Height = 53
          Align = alRight
          BevelInner = bvLowered
          BevelOuter = bvNone
          TabOrder = 0
          object Label13: TLabel
            Left = 8
            Top = 4
            Width = 84
            Height = 12
            Caption = #27880#20876#29992#25143#24635#25968#65306
          end
          object Label16: TLabel
            Left = 8
            Top = 22
            Width = 84
            Height = 12
            Caption = #29992#25143#26597#35810#24635#25968#65306
          end
          object lRegCount: TLabel
            Left = 93
            Top = 4
            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
          object lCXCount: TLabel
            Left = 93
            Top = 21
            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
          object Label17: TLabel
            Left = 8
            Top = 38
            Width = 72
            Height = 12
            Caption = #24403#21069#35760#24405#21495#65306
          end
          object lCurRecord: TLabel
            Left = 93
            Top = 37
            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
      end
    end
  end
  object TPage: TPageControl
    Left = 0
    Top = 84
    Width = 472
    Height = 440
    ActivePage = TabSheet1
    Align = alClient
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #26381#21153#22120#30417#21548
      object GroupBox3: TGroupBox
        Left = 291
        Top = 2
        Width = 166
        Height = 130
        Caption = #35760#24405#22788#29702#24773#20917
        TabOrder = 0
        object Shape: TShape
          Left = 83
          Top = 33
          Width = 18
          Height = 6
          Brush.Color = clLime
          Pen.Color = clGray
        end
        object Shape1: TShape
          Left = 83
          Top = 17
          Width = 18
          Height = 6
          Brush.Color = clBlue
          Pen.Color = clGray
        end
        object Label1: TLabel
          Left = 104
          Top = 14
          Width = 48
          Height = 12
          Caption = #27491#30830#35760#24405
        end
        object Label9: TLabel
          Left = 104
          Top = 30
          Width = 48
          Height = 12
          Caption = #38169#35823#35760#24405
        end
        object sp_Prec: TSimplePie
          Left = 15
          Top = 48
          Width = 128
          Height = 72
          Position = 0
          Basecolor = clBlue
          Usedcolor = 65408
        end
      end
      object GroupBox2: TGroupBox
        Left = 180
        Top = 2
        Width = 103
        Height = 130
        Caption = #25191#34892#35760#24405'/'#32531#20914
        TabOrder = 1
        object waitRun: TIndicator
          Left = 10
          Top = 14
          Width = 38
          Height = 111
          Position = 80
          Background = clBlack
          Foreground = 15375872
        end
        object ibuffer: TIndicator
          Left = 55
          Top = 14
          Width = 38
          Height = 111
          Position = 0
          Background = clBlack
          Foreground = 15375872
        end
      end
      object GroupBox4: TGroupBox
        Left = 4
        Top = 2
        Width = 166
        Height = 130
        Caption = #24403#21069#29366#24577
        TabOrder = 2
        object Label3: TLabel
          Left = 8
          Top = 24
          Width = 60
          Height = 12
          Caption = #25910#21040#35760#24405#65306
        end
        object Label4: TLabel
          Left = 8
          Top = 40
          Width = 60
          Height = 12
          Caption = #25104#21151#35760#24405#65306
        end
        object Label5: TLabel
          Left = 8
          Top = 56
          Width = 60
          Height = 12
          Caption = #22833#36133#35760#24405#65306
        end
        object Label6: TLabel
          Left = 8
          Top = 72
          Width = 72
          Height = 12
          Caption = #24453#22788#29702#35760#24405#65306
        end
        object Label7: TLabel
          Left = 8
          Top = 88
          Width = 72
          Height = 12
          Caption = #32531#20914#35760#24405#25968#65306
        end
        object Label8: TLabel
          Left = 8
          Top = 104
          Width = 72
          Height = 12
          Caption = #27491#25191#34892#35760#24405#65306
        end
        object lRec: TLabel
          Left = 73
          Top = 23
          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
        object lRight: TLabel
          Left = 73
          Top = 39
          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
        object lFailRecord: TLabel
          Left = 73
          Top = 55
          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
        object LabelReady: TLabel
          Left = 88
          Top = 71
          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
        object lBuffer: TLabel
          Left = 88
          Top = 87
          Width = 7
          Height = 12
          Caption = '0'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307