unitno1.dfm

智能监控delphi源码, 操作说明 1. 在两台微机上分别运行文件夹中的可执行文件。 2. 主界面程序可以通过菜单或者按钮选择监控方式、报警模式、打开/关闭摄像头、开始/停止录像以及查看历史记

object FormNo1: TFormNo1
  Left = 609
  Top = 150
  Width = 350
  Height = 430
  Caption = '1#'#25668#20687#22836#30417#25511#31383#21475
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Shape1: TShape
    Left = 325
    Top = 40
    Width = 15
    Height = 15
    Brush.Color = clBtnFace
    Pen.Style = psClear
    Shape = stCircle
  end
  object grp1: TGroupBox
    Left = 21
    Top = 20
    Width = 300
    Height = 320
    Caption = '1#'#25668#20687#22836
    TabOrder = 0
    object VideoCap1: TVideoCap
      Left = 0
      Top = 0
      Width = 300
      Height = 320
      color = clBlack
      visible = False
      DriverOpen = False
      DriverIndex = -1
      VideoOverlay = False
      VideoPreview = False
      PreviewScaleToWindow = False
      PreviewScaleProportional = False
      PreviewRate = 30
      MicroSecPerFrame = 66667
      FrameRate = 15
      VideoFileName = 'Video.avi'
      SingleImageFile = 'Capture.bmp'
      CapTimeLimit = 0
      CapIndexSize = 0
      CapToFile = True
      BufferFileSize = 0
    end
  end
  object btnStartGet1: TButton
    Left = 73
    Top = 355
    Width = 75
    Height = 25
    Caption = #24320#22987#24405#35937
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    OnClick = btnStartGet1Click
  end
  object btnStopMoniter1: TButton
    Left = 193
    Top = 355
    Width = 75
    Height = 25
    Caption = #25171#24320#30417#25511
    TabOrder = 2
    OnClick = btnStopMoniter1Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 312
    Top = 56
  end
end