main.dfm

一个很不错的代码

object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 544
  Height = 375
  Caption = 'KTVideo Sender'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 12
    Top = 12
    Width = 36
    Height = 12
    Caption = #35774#22791#65306
  end
  object Label2: TLabel
    Left = 12
    Top = 100
    Width = 72
    Height = 12
    Caption = #26412#26426'IP'#22320#22336#65306
  end
  object Label3: TLabel
    Left = 36
    Top = 280
    Width = 6
    Height = 12
  end
  object Label4: TLabel
    Left = 36
    Top = 300
    Width = 6
    Height = 12
  end
  object Label5: TLabel
    Left = 36
    Top = 320
    Width = 6
    Height = 12
  end
  object Label9: TLabel
    Left = 264
    Top = 12
    Width = 36
    Height = 12
    Caption = #30005#24433#65306
  end
  object SpeedButton1: TSpeedButton
    Left = 504
    Top = 24
    Width = 25
    Height = 25
    Glyph.Data = {
      5C010000424D5C010000000000007600000028000000200000000F0000000100
      040002000000E600000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0020DD000020DD
      000002DD0E0003DD0D00000001D80E88010D02DD0C880200000001D8028F0BB7
      000680DD8FB709B702800100000001D8028F0B7B000580D8FB430AB703080000
      01D8028F0BB7000580D8F741097B0480000001D8028F0B7B038001F70A7B0208
      0280000001D8028F0BB703800AFF00058078004F000001D8028F0B7B03800C88
      02B80108000001D8028F0BB7000580D8F7000B7B0280000002D80CFF000580D8
      FB4906B705FF0280000002D8077B06880004DD8F057B01F8068801D8000001DD
      02D8057B018D09DD018F05FF018D07DD000003DD05880BDD058808DD00000001}
    NumGlyphs = 2
    OnClick = SpeedButton1Click
  end
  object ComboBox1: TComboBox
    Left = 12
    Top = 28
    Width = 213
    Height = 20
    ItemHeight = 12
    TabOrder = 0
    Text = 'ComboBox1'
    OnChange = ComboBox1Change
  end
  object Button1: TButton
    Left = 40
    Top = 60
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 1
    OnClick = Button1Click
  end
  object VideoWindow1: TVideoWindow
    Left = 36
    Top = 148
    Width = 160
    Height = 120
    FilterGraph = FilterGraph1
    VMROptions.Mode = vmrWindowed
    Color = clBlack
  end
  object Button3: TButton
    Left = 124
    Top = 60
    Width = 75
    Height = 25
    Caption = #20572#27490
    Enabled = False
    TabOrder = 3
    OnClick = Button3Click
  end
  object ComboBox2: TComboBox
    Left = 12
    Top = 116
    Width = 213
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 4
    OnChange = ComboBox2Change
  end
  object Edit1: TEdit
    Left = 264
    Top = 28
    Width = 237
    Height = 20
    TabOrder = 5
  end
  object Button2: TButton
    Left = 308
    Top = 60
    Width = 75
    Height = 25
    Caption = #21457#36865
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button4: TButton
    Left = 392
    Top = 60
    Width = 75
    Height = 25
    Caption = #20572#27490
    Enabled = False
    TabOrder = 7
    OnClick = Button4Click
  end
  object DSTrackBar1: TDSTrackBar
    Left = 304
    Top = 116
    Width = 165
    Height = 21
    TabOrder = 8
    ThumbLength = 14
    TickStyle = tsNone
    FilterGraph = FilterGraph3
  end
  object FilterGraph1: TFilterGraph
    Mode = gmCapture
    GraphEdit = False
    LinearVolume = True
    Left = 112
    Top = 8
  end
  object Filter1: TFilter
    BaseFilter.data = {
      8200000037D415438C5BD011BD3B00A0C911CE866E0000004000640065007600
      6900630065003A0063006D003A007B0033003300440039004100370036003000
      2D0039003000430038002D0031003100440030002D0042004400340033002D00
      3000300041003000430039003100310043004500380036007D005C0078007600
      690064000000}
    FilterGraph = FilterGraph1
    Left = 120
    Top = 8
  end
  object Filter3: TFilter
    BaseFilter.data = {
      C600000037D415438C5BD011BD3B00A0C911CE86B20000004000640065007600
      6900630065003A00730077003A007B0030003800330038003600330046003100
      2D0037003000440045002D0031003100440030002D0042004400340030002D00
      3000300041003000430039003100310043004500380036007D005C007B003300
      32003000310033003200310034002D0030004400420034002D00340035003200
      36002D0042003700300044002D00350043004400330036004100420034004200
      3300450046007D000000}
    FilterGraph = FilterGraph1
    Left = 128
    Top = 8
  end
  object Filter5: TFilter
    BaseFilter.data = {00000000}
    FilterGraph = FilterGraph1
    Left = 136
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Left = 320
    Top = 8
  end
  object FilterGraph3: TFilterGraph
    GraphEdit = False
    LinearVolume = True
    Left = 328
    Top = 8
  end
  object Filter6: TFilter
    BaseFilter.data = {
      C600000037D415438C5BD011BD3B00A0C911CE86B20000004000640065007600
      6900630065003A00730077003A007B0030003800330038003600330046003100
      2D0037003000440045002D0031003100440030002D0042004400340030002D00
      3000300041003000430039003100310043004500380036007D005C007B003300
      32003000310033003200310034002D0030004400420034002D00340035003200
      36002D0042003700300044002D00350043004400330036004100420034004200
      3300450046007D000000}
    FilterGraph = FilterGraph3
    Left = 336
    Top = 8
  end
end