unit1.dfm

USB视频摄象头及拍照,代码.CBC6下编译通过。

object Form1: TForm1
  Left = 66
  Top = 67
  AutoSize = True
  BorderStyle = bsSingle
  Caption = #29031#30456#26426
  ClientHeight = 524
  ClientWidth = 618
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 32
    Height = 13
    Caption = 'Label1'
    Visible = False
  end
  object Label2: TLabel
    Left = 585
    Top = 511
    Width = 32
    Height = 13
    Caption = 'Label2'
    Visible = False
  end
  object Panel1: TPanel
    Left = 3
    Top = 9
    Width = 300
    Height = 240
    BorderStyle = bsSingle
    Caption = #35270#39057#26410#21551#21160
    Color = clBlue
    Ctl3D = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -24
    Font.Name = #21326#25991#20013#23435
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 0
  end
  object GroupBox1: TGroupBox
    Left = 2
    Top = 256
    Width = 307
    Height = 256
    Caption = #24050#25293#21040#30340#30011#38754
    Color = clBtnFace
    ParentColor = False
    TabOrder = 1
    object Image1: TImage
      Left = 3
      Top = 13
      Width = 300
      Height = 240
      Cursor = crCross
      Proportional = True
      Stretch = True
      OnMouseDown = Image1MouseDown
      OnMouseMove = Image1MouseMove
      OnMouseUp = Image1MouseUp
    end
  end
  object GroupBox2: TGroupBox
    Left = 313
    Top = 256
    Width = 305
    Height = 258
    Caption = #26368#21518#25104#30456
    TabOrder = 2
    object Image2: TImage
      Left = 5
      Top = 14
      Width = 293
      Height = 238
      AutoSize = True
      Proportional = True
      Stretch = True
    end
  end
  object Panel2: TPanel
    Left = 310
    Top = 11
    Width = 113
    Height = 174
    BorderStyle = bsSingle
    Color = clMedGray
    TabOrder = 3
    object BitBtn1: TBitBtn
      Left = 15
      Top = 72
      Width = 83
      Height = 25
      Caption = '&'#25235#25293'&'
      Default = True
      TabOrder = 0
      OnClick = BitBtn1Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
        033333FFFF77777773F330000077777770333777773FFFFFF733077777000000
        03337F3F3F777777733F0797A770003333007F737337773F3377077777778803
        30807F333333337FF73707888887880007707F3FFFF333777F37070000878807
        07807F777733337F7F3707888887880808807F333333337F7F37077777778800
        08807F333FFF337773F7088800088803308073FF777FFF733737300008000033
        33003777737777333377333080333333333333F7373333333333300803333333
        33333773733333333333088033333333333373F7F33333333333308033333333
        3333373733333333333333033333333333333373333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 15
      Top = 137
      Width = 83
      Height = 25
      Caption = '&'#20851#38381'&'
      TabOrder = 1
      OnClick = BitBtn2Click
      Kind = bkClose
    end
    object BitBtn3: TBitBtn
      Left = 15
      Top = 8
      Width = 83
      Height = 25
      Caption = #21551#21160#35270#39057
      TabOrder = 2
      OnClick = BitBtn3Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
        70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
        70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
        70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
    end
    object BitBtn4: TBitBtn
      Left = 15
      Top = 40
      Width = 83
      Height = 25
      Caption = #35270#39057#32456#27490
      Enabled = False
      TabOrder = 3
      OnClick = BitBtn4Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
        00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
        70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
        70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
        70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
        00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
      NumGlyphs = 2
    end
    object BitBtn5: TBitBtn
      Left = 15
      Top = 104
      Width = 83
      Height = 25
      Caption = #20445#23384
      TabOrder = 4
      OnClick = BitBtn5Click
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
    end
  end
  object Panel3: TPanel
    Left = 433
    Top = 13
    Width = 181
    Height = 236
    AutoSize = True
    BorderStyle = bsSingle
    TabOrder = 4
    object Image3: TImage
      Left = 1
      Top = 1
      Width = 175
      Height = 230
      Center = True
      Proportional = True
      Stretch = True
      Transparent = True
    end
  end
  object SavePic: TSaveDialog
    Ctl3D = False
    Filter = #22270#29255'BMP|*.bmp|'#22270#29255'JPG|*.jpg'
    Left = 472
    Top = 136
  end
end