unit1.dfm

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

object Form1: TForm1
  Left = 292
  Top = 220
  Width = 470
  Height = 335
  Caption = #26234#33021#30417#25511#31995#32479#20256#24863#26816#27979#27169#25311#30028#38754
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object pnlShowSendStr: TPanel
    Left = 195
    Top = 248
    Width = 73
    Height = 41
    BevelOuter = bvLowered
    Caption = 'pnlShowSendStr'
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -29
    Font.Name = #38582#20070
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
  end
  object mmo1: TMemo
    Left = 23
    Top = 8
    Width = 417
    Height = 129
    TabStop = False
    Alignment = taCenter
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clMaroon
    Font.Height = -20
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    Lines.Strings = (
      #27492#30028#38754#27169#25311#20256#24863#22120#30340#20449#21495
      ''
      #25353#19979'"A"'#34920#31034#25668#20687#22836'A'#25152#30417#25511#30340#20301#32622#20986#29616#24322#24120
      #25353#19979'"B"'#34920#31034#25668#20687#22836'B'#25152#30417#25511#30340#20301#32622#20986#29616#24322#24120
      #25353#19979'"Z"'#34920#31034#25668#20687#22836'A'#25152#30417#25511#30340#20301#32622#24322#24120#35299#38500
      #25353#19979'"V"'#34920#31034#25668#20687#22836'B'#25152#30417#25511#30340#20301#32622#24322#24120#35299#38500)
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    OnKeyPress = FormKeyPress
  end
  object mmo2: TMemo
    Left = 88
    Top = 152
    Width = 286
    Height = 89
    Alignment = taCenter
    BorderStyle = bsNone
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clPurple
    Font.Height = -16
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    Lines.Strings = (
      #19979#38754#25968#25454#20026#27442#20256#36865#30340#20869#23481'('#20849'4'#20301#25968#25454')'
      #21069#20004#20301#20195#34920#25668#20687#22836'A'#22788#30340#29366#24577
      #21518#20004#20301#20195#34920#25668#20687#22836'B'#22788#30340#29366#24577
      ''
      '"10"'#34920#31034#26377#24322#24120',"01"'#34920#31034#26080#24322#24120)
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
    OnKeyPress = FormKeyPress
  end
  object Comm1: TComm
    CommName = 'COM1'
    BaudRate = 9600
    ParityCheck = False
    Outx_CtsFlow = False
    Outx_DsrFlow = False
    DtrControl = DtrEnable
    DsrSensitivity = False
    TxContinueOnXoff = True
    Outx_XonXoffFlow = True
    Inx_XonXoffFlow = True
    ReplaceWhenParityError = False
    IgnoreNullChar = False
    RtsControl = RtsEnable
    XonLimit = 500
    XoffLimit = 500
    ByteSize = _8
    Parity = None
    StopBits = _1
    XonChar = #17
    XoffChar = #19
    ReplacedChar = #0
    ReadIntervalTimeout = 100
    ReadTotalTimeoutMultiplier = 0
    ReadTotalTimeoutConstant = 0
    WriteTotalTimeoutMultiplier = 0
    WriteTotalTimeoutConstant = 0
    Left = 16
    Top = 152
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 16
    Top = 192
  end
end