main.dfm

如何在Delphi下实现画面捕捉、传输、以及文件的传输原理

object Form1: TForm1
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'DSCN Sender'
  ClientHeight = 316
  ClientWidth = 535
  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 = 8
    Width = 90
    Height = 12
    Caption = '1.P2P'#25509#25910'(1fps)'
    Visible = False
  end
  object Label2: TLabel
    Left = 188
    Top = 8
    Width = 90
    Height = 12
    Caption = '2.P2P'#25509#25910'(5fps)'
  end
  object Label3: TLabel
    Left = 364
    Top = 8
    Width = 102
    Height = 12
    Caption = '3.'#24191#25773#25509#25910'(30fps)'
  end
  object Label4: TLabel
    Left = 116
    Top = 8
    Width = 53
    Height = 12
    Alignment = taRightJustify
    AutoSize = False
  end
  object Label5: TLabel
    Left = 292
    Top = 8
    Width = 53
    Height = 12
    Alignment = taRightJustify
    AutoSize = False
  end
  object Label6: TLabel
    Left = 468
    Top = 8
    Width = 53
    Height = 12
    Alignment = taRightJustify
    AutoSize = False
  end
  object Label7: TLabel
    Left = 12
    Top = 156
    Width = 90
    Height = 12
    Caption = '0.'#35270#39057#28304'(30fps)'
  end
  object Label8: TLabel
    Left = 116
    Top = 156
    Width = 53
    Height = 12
    Alignment = taRightJustify
    AutoSize = False
  end
  object Label9: TLabel
    Left = 188
    Top = 156
    Width = 60
    Height = 12
    Caption = 'E.'#35270#39057#35774#22791
  end
  object SpeedButton1: TSpeedButton
    Left = 444
    Top = 172
    Width = 81
    Height = 21
    AllowAllUp = True
    GroupIndex = 1
    Caption = #25668#20687#22836#25773#25918
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 264
    Top = 276
    Width = 165
    Height = 21
    AllowAllUp = True
    GroupIndex = 3
    Caption = '1'
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Tag = 1
    Left = 472
    Top = 276
    Width = 25
    Height = 21
    AllowAllUp = True
    GroupIndex = 4
    Caption = '2'
    OnClick = SpeedButton2Click
  end
  object SpeedButton4: TSpeedButton
    Tag = 2
    Left = 500
    Top = 276
    Width = 25
    Height = 21
    AllowAllUp = True
    GroupIndex = 5
    Caption = '3'
    OnClick = SpeedButton2Click
  end
  object Label10: TLabel
    Left = 460
    Top = 256
    Width = 48
    Height = 12
    Cursor = crHandPoint
    Caption = #20840#37096#20256#36865
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label10Click
  end
  object Label11: TLabel
    Left = 16
    Top = 300
    Width = 156
    Height = 12
    Caption = #21452#20987#21508#35270#23631#19982#20840#23631#20114#30456#20999#25442#12290
  end
  object Label12: TLabel
    Left = 188
    Top = 252
    Width = 72
    Height = 12
    Caption = #32593#32476#20256#36865'IP'#65306
  end
  object Label13: TLabel
    Left = 12
    Top = 76
    Width = 162
    Height = 12
    Caption = '1.P2P'#36828#31243#35270#39057'(15fps,'#24102#35821#38899')'
  end
  object Label14: TLabel
    Left = 12
    Top = 92
    Width = 161
    Height = 12
    Alignment = taCenter
    AutoSize = False
  end
  object Label15: TLabel
    Left = 256
    Top = 156
    Width = 24
    Height = 12
    Cursor = crHandPoint
    Caption = #23646#24615
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = Label15Click
  end
  object DSCNReceiver1: TDSCNReceiver
    Tag = 1
    Left = 12
    Top = 24
    Width = 160
    Height = 120
    VMROptions.Mode = vmrWindowed
    Color = clBlack
    Visible = False
    OnDblClick = DSCNSender1DblClick
    DSTextOnWindows = <>
    DSOnFeedback = DSCNReceiver1DSOnFeedback
    DSOnReceiveRates = DSCNReceiver1DSOnReceiveRates
  end
  object ListBox1: TListBox
    Left = 188
    Top = 172
    Width = 241
    Height = 65
    ItemHeight = 12
    TabOrder = 0
    OnClick = ListBox1Click
  end
  object Edit1: TEdit
    Left = 264
    Top = 248
    Width = 165
    Height = 20
    TabOrder = 1
    Text = '127.0.0.1'
  end
  object ComboBox1: TComboBox
    Left = 20
    Top = 44
    Width = 145
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 2
    Text = 'ExP2P'
    OnChange = ComboBox1Change
    Items.Strings = (
      'ExP2P'
      'P2P'
      'Broadcast')
  end
  object DSCNSender1: TDSCNSender
    Left = 12
    Top = 172
    Width = 160
    Height = 120
    VMROptions.Mode = vmrWindowed
    Color = clBlack
    OnDblClick = DSCNSender1DblClick
    DSDeviceID = -1
    DSInputID = -1
    DSFormatID = -1
    DSCaptureRate = 30.000000000000000000
    DSTextOnFrames = <>
    DSCompressFilter.data = {
      8200000037D415438C5BD011BD3B00A0C911CE866E0000004000640065007600
      6900630065003A0063006D003A007B0033003300440039004100370036003000
      2D0039003000430038002D0031003100440030002D0042004400340033002D00
      3000300041003000430039003100310043004500380036007D005C0078007600
      690064000000}
    DSTransmitters = <
      item
        Name = '1'
        SendMode = smExP2P
        FrameRate = 15.000000000000000000
        OnSendBuffer = DSCNSender1DSTransmitters0SendBuffer
        OnStartSend = DSCNSender1DSTransmitters0StartSend
        OnStopSend = DSCNSender1DSTransmitters0StopSend
        OnSendRates = DSCNSender1DSTransmitters0SendRates
      end
      item
        Name = '2'
        SendMode = smP2P
        FrameRate = 5.000000000000000000
        OnSendBuffer = DSCNSender1DSTransmitters0SendBuffer
        OnStartSend = DSCNSender1DSTransmitters0StartSend
        OnStopSend = DSCNSender1DSTransmitters0StopSend
      end
      item
        Name = '3'
        SendMode = smBroadcast
        FrameRate = 30.000000000000000000
        OnSendBuffer = DSCNSender1DSTransmitters0SendBuffer
        OnStartSend = DSCNSender1DSTransmitters0StartSend
        OnStopSend = DSCNSender1DSTransmitters0StopSend
      end>
    DSOnCaptureRate = DSCNSender1DSOnCaptureRate
  end
  object DSCNReceiver2: TDSCNReceiver
    Tag = 2
    Left = 188
    Top = 24
    Width = 160
    Height = 120
    VMROptions.Mode = vmrWindowed
    Color = clBlack
    OnDblClick = DSCNSender1DblClick
    DSTextOnWindows = <>
    DSOnFeedback = DSCNReceiver1DSOnFeedback
    DSOnReceiveRates = DSCNReceiver1DSOnReceiveRates
  end
  object DSCNReceiver3: TDSCNReceiver
    Tag = 3
    Left = 364
    Top = 24
    Width = 160
    Height = 120
    VMROptions.Mode = vmrWindowed
    Color = clBlack
    OnDblClick = DSCNSender1DblClick
    DSTextOnWindows = <>
    DSOnReceiveRates = DSCNReceiver1DSOnReceiveRates
  end
  object OpenDialog1: TOpenDialog
    Title = #36873#25321#35270#39057#25991#20214
    Left = 116
    Top = 188
  end
  object IdUDPServer1: TIdUDPServer
    Active = True
    Bindings = <>
    DefaultPort = 12301
    OnUDPRead = IdUDPServer1UDPRead
    ThreadedEvent = True
    Left = 208
    Top = 272
  end
  object ACMIn1: TACMIn
    BufferSize = 130
    NumBuffers = 4
    OnBufferFull = ACMIn1BufferFull
    Left = 144
    Top = 188
  end
  object IdUDPClient1: TIdUDPClient
    Active = True
    Port = 12303
    Left = 240
    Top = 272
  end
end