main.dfm

传圣(测试版)说明 本软件适用于装有IP/TCP协议的电脑. 主要功能:电脑间传送大型文件.(如电影等) 主要特点: 1.采用了多线程技术,速度明显高于同类软件. 2.支持多文件同时传送.

object MainForm: TMainForm
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '短信群发客户端'
  ClientHeight = 453
  ClientWidth = 687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 0
    Width = 687
    Height = 432
    ActivePage = TabSheet1
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = [fsBold]
    HotTrack = True
    ParentFont = False
    Style = tsFlatButtons
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = '群发'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      object PageControl1: TPageControl
        Left = 0
        Top = 0
        Width = 673
        Height = 361
        ActivePage = TabSheet4
        Anchors = [akLeft, akTop, akRight, akBottom]
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object TabSheet4: TTabSheet
          Caption = '短信内容（1）'
          object Label8: TLabel
            Left = 16
            Top = 72
            Width = 234
            Height = 13
            Caption = '已输入文字数量(手机不超过70，小灵通56)：'
          end
          object SMSCount: TLabel
            Left = 256
            Top = 72
            Width = 6
            Height = 13
            Caption = '0'
          end
          object Label9: TLabel
            Left = 360
            Top = 72
            Width = 72
            Height = 13
            Caption = '短信预览结果'
          end
          object SMSMemo: TMemo
            Left = 16
            Top = 96
            Width = 273
            Height = 177
            TabOrder = 0
            WantReturns = False
            OnChange = SMSMemoChange
          end
          object ToolBar1: TToolBar
            Left = 0
            Top = 0
            Width = 665
            Height = 29
            ButtonHeight = 21
            ButtonWidth = 55
            Caption = 'ToolBar1'
            EdgeInner = esNone
            EdgeOuter = esNone
            ShowCaptions = True
            TabOrder = 1
            object ToolButton1: TToolButton
              Left = 0
              Top = 2
              Hint = '随机插入标点符号如，。；等'
              Caption = '标点符号'
              ImageIndex = 0
              ParentShowHint = False
              ShowHint = True
              OnClick = ToolButton1Click
            end
            object ToolButton2: TToolButton
              Left = 55
              Top = 2
              Hint = '随机插入数字0-9'
              Caption = '数字0-9'
              ImageIndex = 1
              ParentShowHint = False
              ShowHint = True
              OnClick = ToolButton2Click
            end
            object ToolButton3: TToolButton
              Left = 110
              Top = 2
              Hint = '随机插入26字母'
              Caption = '26字母'
              ImageIndex = 2
              ParentShowHint = False
              ShowHint = True
              OnClick = ToolButton3Click
            end
            object ToolButton4: TToolButton
              Left = 165
              Top = 2
              Width = 8
              Caption = 'ToolButton4'
              ImageIndex = 3
              Style = tbsSeparator
            end
            object ToolButton5: TToolButton
              Left = 173
              Top = 2
              Caption = '预览'
              ImageIndex = 3
              OnClick = ToolButton5Click
            end
          end
          object SMSPrivewMemo: TMemo
            Left = 360
            Top = 96
            Width = 281
            Height = 177
            Color = clBtnFace
            ReadOnly = True
            TabOrder = 2
          end
        end
        object TabSheet5: TTabSheet
          Caption = '导入号码（2）'
          ImageIndex = 1
          object Label7: TLabel
            Left = 8
            Top = 8
            Width = 240
            Height = 13
            Caption = '从文件中导入或直接输入号码，每行一个号码'
          end
          object NumberMemo: TMemo
            Left = 8
            Top = 32
            Width = 649
            Height = 289
            Anchors = [akLeft, akTop, akRight, akBottom]
            TabOrder = 0
          end
          object Button4: TButton
            Left = 582
            Top = 3
            Width = 75
            Height = 25
            Caption = '文件导入...'
            TabOrder = 1
            OnClick = Button4Click
          end
        end
        object TabSheet6: TTabSheet
          Caption = '预览（3）'
          ImageIndex = 2
          object PreviewMemo: TMemo
            Left = 0
            Top = 0
            Width = 665
            Height = 333
            Align = alClient
            Enabled = False
            ReadOnly = True
            TabOrder = 0
          end
        end
      end
      object Button1: TButton
        Left = 440
        Top = 368
        Width = 75
        Height = 25
        Action = Action1
        TabOrder = 1
      end
      object Button2: TButton
        Left = 518
        Top = 368
        Width = 75
        Height = 25
        Action = Action2
        TabOrder = 2
      end
      object Button3: TButton
        Left = 596
        Top = 368
        Width = 75
        Height = 25
        Action = Action3
        TabOrder = 3
      end
    end
    object TabSheet2: TTabSheet
      Caption = '配置'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ImageIndex = 1
      ParentFont = False
      object GroupBox1: TGroupBox
        Left = 24
        Top = 8
        Width = 641
        Height = 377
        Caption = '通讯参数'
        TabOrder = 0
        object Label1: TLabel
          Left = 32
          Top = 48
          Width = 53
          Height = 13
          Caption = '服务器IP:'
        end
        object Label2: TLabel
          Left = 32
          Top = 96
          Width = 29
          Height = 13
          Caption = '端口:'
        end
        object Label3: TLabel
          Left = 32
          Top = 136
          Width = 41
          Height = 13
          Caption = '用户名:'
        end
        object Label4: TLabel
          Left = 32
          Top = 176
          Width = 29
          Height = 13
          Caption = '密码:'
        end
        object Label5: TLabel
          Left = 32
          Top = 216
          Width = 77
          Height = 13
          Caption = '开始发送时间:'
        end
        object Label6: TLabel
          Left = 32
          Top = 256
          Width = 77
          Height = 13
          Caption = '结束发送时间:'
        end
        object SaveButton: TButton
          Left = 224
          Top = 296
          Width = 75
          Height = 25
          Action = Action4
          TabOrder = 0
        end
        object Edit1: TEdit
          Left = 176
          Top = 48
          Width = 121
          Height = 21
          TabOrder = 1
        end
        object Edit2: TEdit
          Left = 176
          Top = 88
          Width = 73
          Height = 21
          TabOrder = 2
        end
        object Edit3: TEdit
          Left = 176
          Top = 128
          Width = 121
          Height = 21
          TabOrder = 3
        end
        object Edit4: TEdit
          Left = 176
          Top = 168
          Width = 121
          Height = 21
          TabOrder = 4
        end
        object DateTimePicker1: TDateTimePicker
          Left = 176
          Top = 208
          Width = 121
          Height = 21
          CalAlignment = dtaLeft
          Date = 38621.5066678125
          Time = 38621.5066678125
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkTime
          ParseInput = False
          TabOrder = 5
        end
        object DateTimePicker2: TDateTimePicker
          Left = 176
          Top = 248
          Width = 121
          Height = 21
          CalAlignment = dtaLeft
          Date = 38621.5067489583
          Time = 38621.5067489583
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkTime
          ParseInput = False
          TabOrder = 6
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = '帮助'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ImageIndex = 2
      ParentFont = False
      object Memo1: TMemo
        Left = 0
        Top = 0
        Width = 679
        Height = 398
        Align = alClient
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object TabSheet7: TTabSheet
      Caption = '跟踪'
      ImageIndex = 3
      object Memo2: TMemo
        Left = 0
        Top = 0
        Width = 679
        Height = 398
        Align = alClient
        TabOrder = 0
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 432
    Width = 687
    Height = 21
    Panels = <
      item
        Width = 100
      end
      item
        Width = 100
      end
      item
        Width = 80
      end
      item
        Width = 200
      end>
    SimplePanel = False
  end
  object ActionList1: TActionList
    Left = 504
    Top = 38
    object Action1: TAction
      Caption = '上一步'
      OnExecute = Action1Execute
      OnUpdate = Action1Update
    end
    object Action2: TAction
      Caption = '下一步'
      OnExecute = Action2Execute
      OnUpdate = Action2Update
    end
    object Action3: TAction
      Caption = '提交'
      OnExecute = Action3Execute
      OnUpdate = Action3Update
    end
    object Action4: TAction
      Caption = '保存'
      OnExecute = Action4Execute
      OnUpdate = Action4Update
    end
  end
  object Timer: TTimer
    Interval = 2000
    OnTimer = TimerTimer
    Left = 504
    Top = 8
  end
  object OpenDialog: TOpenDialog
    Filter = 'Text files (*.txt)|*.txt|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Title = '从文件导入号码'
    Left = 328
    Top = 54
  end
end