svrmain.dfm

远程抓屏控件源码,效率不错

object Form1: TForm1
  Left = 192
  Top = 129
  Width = 235
  Height = 88
  Caption = 'Simple Screen Server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 192
    Height = 13
    Caption = 'This is a Multicast Screen Transfer demo'
  end
  object Label2: TLabel
    Left = 8
    Top = 32
    Width = 106
    Height = 13
    Caption = 'Please RUN client first'
  end
  object ScreenEncoder1: TScreenEncoder
    BlockInterval = 1
    IFrame = 30
    ThreadPriority = tpNormal
    MaxBlockSize = 30000
    MaxFrameRate = 10
    RemoteIP = '224.0.0.1'
    RemotePort = 3514
    Active = True
    Left = 8
    Top = 8
  end
end