unit1.~dfm

用NET_VIDEO 视频捕获

object Form1: TForm1
  Left = 225
  Top = 135
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '视频语音双向连接交互系统 康道之'
  ClientHeight = 423
  ClientWidth = 668
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 624
    Top = 32
    Width = 24
    Height = 13
    Caption = '截图'
    Color = clLime
    ParentColor = False
    Transparent = True
    OnClick = Label6Click
  end
  object GroupBox1: TGroupBox
    Left = 31
    Top = 20
    Width = 225
    Height = 361
    TabOrder = 0
    object Label1: TLabel
      Left = 12
      Top = 28
      Width = 34
      Height = 13
      Caption = '对方IP'
    end
    object Label2: TLabel
      Left = 10
      Top = 75
      Width = 48
      Height = 13
      Caption = '远程端口'
    end
    object Label3: TLabel
      Left = 8
      Top = 123
      Width = 48
      Height = 13
      Caption = '本地端口'
    end
    object Label4: TLabel
      Left = 24
      Top = 320
      Width = 37
      Height = 13
      Caption = '本地IP:'
    end
    object Label5: TLabel
      Left = 72
      Top = 320
      Width = 33
      Height = 13
      Caption = '0.0.0.0'
    end
    object Edit2: TEdit
      Left = 57
      Top = 71
      Width = 139
      Height = 21
      ImeName = '紫光拼音输入法'
      TabOrder = 0
    end
    object Edit3: TEdit
      Left = 57
      Top = 115
      Width = 138
      Height = 21
      ImeName = '紫光拼音输入法'
      TabOrder = 1
    end
    object Edit1: TEdit
      Left = 56
      Top = 26
      Width = 140
      Height = 21
      ImeName = '紫光拼音输入法'
      TabOrder = 2
    end
    object Button1: TButton
      Left = 24
      Top = 232
      Width = 75
      Height = 25
      Caption = '开始'
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 112
      Top = 232
      Width = 75
      Height = 25
      Caption = '关闭'
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 24
      Top = 272
      Width = 75
      Height = 25
      Caption = '退出'
      TabOrder = 5
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 112
      Top = 272
      Width = 75
      Height = 25
      Caption = '视频面板'
      TabOrder = 6
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 16
      Top = 168
      Width = 177
      Height = 25
      Caption = '设定完毕'
      TabOrder = 7
      OnClick = Button5Click
    end
  end
  object RadioGroup1: TRadioGroup
    Left = 300
    Top = 27
    Width = 61
    Height = 182
    Caption = '远程视频'
    ItemIndex = 1
    Items.Strings = (
      '打开'
      '关闭')
    TabOrder = 1
    OnClick = RadioGroup1Click
  end
  object RadioGroup2: TRadioGroup
    Left = 301
    Top = 224
    Width = 61
    Height = 148
    Caption = '本地视频'
    ItemIndex = 1
    Items.Strings = (
      '打开'
      '关闭')
    TabOrder = 2
    OnClick = RadioGroup2Click
  end
  object remote_netvideo: TNetVideo
    Left = 400
    Top = 32
    Width = 217
    Height = 177
    TabOrder = 3
    ControlData = {
      000001006D1600004B1200000000000006C6B5B5C0D2BB1B44697658203B2D29
      204D5045472D3420466173742D4D6F74696F6E0F333532205820323838202843
      4946291900}
  end
  object local_netvideo: TNetVideo
    Left = 403
    Top = 228
    Width = 218
    Height = 150
    TabOrder = 4
    ControlData = {
      0000010088160000810F00000000000006C6B5B5C0D2BB1B44697658203B2D29
      204D5045472D3420466173742D4D6F74696F6E0F333532205820323838202843
      4946291900}
  end
  object IdUDPClient1: TIdUDPClient
    Port = 0
    Left = 176
    Top = 8
  end
  object IdUDPServer1: TIdUDPServer
    Bindings = <>
    DefaultPort = 0
    OnUDPRead = IdUDPServer1UDPRead
    Left = 208
    Top = 8
  end
  object SkinData1: TSkinData
    Active = True
    DisableTag = 99
    SkinControls = [xcMainMenu, xcPopupMenu, xcToolbar, xcControlbar, xcCombo, xcCheckBox, xcRadioButton, xcProgress, xcScrollbar, xcEdit, xcButton, xcBitBtn, xcSpeedButton, xcPanel, xcGroupBox, xcStatusBar, xcTab]
    SkinStore = '(Good)'
    SkinFormtype = sfMainform
    Left = 264
    Top = 8
    SkinStream = {
      11F60000401F0A00D676B1986558EC180E7E5D5B9063007EDFF5C7EC0FFFBAF7
      7E7F999CB59808052DBFEB7365F0FAC783E7025AFDEA6B37DBCF5D4062B02597