svrmain.dfm

DELPHI实现的快速屏幕截图并发送源代码

object Form1: TForm1
  Left = 192
  Top = 129
  Width = 352
  Height = 290
  Caption = 'Screen Sender'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 122
    Height = 13
    Caption = 'Block Delay (milliseconds)'
  end
  object Label2: TLabel
    Left = 8
    Top = 96
    Width = 102
    Height = 13
    Caption = 'MAX block size (byte)'
  end
  object Label3: TLabel
    Left = 8
    Top = 144
    Width = 68
    Height = 13
    Caption = 'Thread Priority'
  end
  object Bevel1: TBevel
    Left = 144
    Top = 48
    Width = 9
    Height = 137
    Shape = bsLeftLine
  end
  object Label6: TLabel
    Left = 160
    Top = 48
    Width = 32
    Height = 13
    Caption = 'IFrame'
  end
  object Label9: TLabel
    Left = 160
    Top = 96
    Width = 62
    Height = 13
    Caption = 'IFrame Delay'
  end
  object Button1: TButton
    Left = 8
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Active'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 88
    Top = 8
    Width = 75
    Height = 25
    Caption = 'Deactive'
    Enabled = False
    TabOrder = 1
    OnClick = Button2Click
  end
  object SpinEdit1: TSpinEdit
    Left = 8
    Top = 64
    Width = 57
    Height = 22
    MaxValue = 100
    MinValue = 0
    TabOrder = 2
    Value = 10
  end
  object SpinEdit2: TSpinEdit
    Left = 8
    Top = 112
    Width = 57
    Height = 22
    Increment = 1024
    MaxValue = 60000
    MinValue = 1024
    TabOrder = 3
    Value = 32768
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 160
    Width = 97
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 4
    Items.Strings = (
      'tpIdle'
      'tpLowest'
      'tpLower'
      'tpNormal'
      'tpHigher'
      'tpHighest'
      'tpTimeCritical')
  end
  object Panel1: TPanel
    Left = 160
    Top = 144
    Width = 113
    Height = 41
    BevelOuter = bvNone
    TabOrder = 5
    object Label4: TLabel
      Left = 0
      Top = 0
      Width = 62
      Height = 13
      Caption = 'Frame count:'
    end
    object Label5: TLabel
      Left = 64
      Top = 0
      Width = 6
      Height = 13
      Caption = '0'
    end
    object Label7: TLabel
      Left = 0
      Top = 16
      Width = 61
      Height = 13
      Caption = 'Empty frame:'
    end
    object Label8: TLabel
      Left = 64
      Top = 16
      Width = 6
      Height = 13
      Caption = '0'
    end
  end
  object SpinEdit3: TSpinEdit
    Left = 160
    Top = 64
    Width = 57
    Height = 22
    Increment = 16
    MaxValue = 1024
    MinValue = 1
    TabOrder = 6
    Value = 64
  end
  object SpinEdit4: TSpinEdit
    Left = 160
    Top = 112
    Width = 57
    Height = 22
    Increment = 50
    MaxValue = 10000
    MinValue = 0
    TabOrder = 7
    Value = 200
  end
  object ScreenEncoder1: TScreenEncoder
    OnFrameEnd = ScreenEncoder1FrameEnd
    BlockInterval = 1
    IFrame = 30
    ThreadPriority = tpNormal
    MaxBlockSize = 30000
    MaxFrameRate = 10
    RemoteIP = '224.0.0.1'
    RemotePort = 3514
    Left = 168
    Top = 8
  end
end