unit1.dfm

海康威视DVR基于Delphi下应用的例子,实现对Dvr的登陆,视频流的播放等.

object frmMain: TfrmMain
  Left = 241
  Top = 172
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'HC DVR Player Demo'
  ClientHeight = 400
  ClientWidth = 479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object lbl1: TLabel
    Left = 10
    Top = 309
    Width = 54
    Height = 12
    Caption = 'DVR'#22320#22336#65306
  end
  object lbl2: TLabel
    Left = 10
    Top = 349
    Width = 48
    Height = 12
    Caption = #29992#25143#21517#65306
  end
  object lbl3: TLabel
    Left = 138
    Top = 349
    Width = 36
    Height = 12
    Caption = #23494#30721#65306
  end
  object lbl4: TLabel
    Left = 138
    Top = 309
    Width = 60
    Height = 12
    Caption = #25773#25918#36890#36947#65306
  end
  object Label1: TLabel
    Left = 409
    Top = 40
    Width = 24
    Height = 12
    Caption = #20113#21488
  end
  object Label2: TLabel
    Left = 409
    Top = 110
    Width = 24
    Height = 12
    Caption = #21464#20493
  end
  object Label3: TLabel
    Left = 409
    Top = 134
    Width = 24
    Height = 12
    Caption = #32858#28966
  end
  object Label4: TLabel
    Left = 409
    Top = 158
    Width = 24
    Height = 12
    Caption = #20809#22280
  end
  object Label5: TLabel
    Left = 377
    Top = 190
    Width = 36
    Height = 12
    Caption = #39044#32622#20301
  end
  object cmdLeft: TButton
    Tag = 23
    Left = 377
    Top = 32
    Width = 30
    Height = 25
    Caption = #24038
    TabOrder = 8
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object Button1: TButton
    Left = 263
    Top = 322
    Width = 40
    Height = 25
    Caption = #30331#24405
    TabOrder = 20
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 263
    Top = 362
    Width = 40
    Height = 25
    Caption = #27880#38144
    Enabled = False
    TabOrder = 21
    OnClick = Button2Click
  end
  object cmdUp: TButton
    Tag = 21
    Left = 405
    Top = 8
    Width = 30
    Height = 25
    Caption = #19978
    TabOrder = 7
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object Panel1: TPanel
    Left = 8
    Top = 8
    Width = 352
    Height = 288
    BevelInner = bvSpace
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 0
  end
  object btnPlay: TButton
    Left = 302
    Top = 322
    Width = 35
    Height = 25
    Caption = #25773#25918
    TabOrder = 1
    OnClick = btnPlayClick
  end
  object btnStop: TButton
    Left = 302
    Top = 362
    Width = 35
    Height = 25
    Caption = #20572#27490
    TabOrder = 2
    OnClick = btnStopClick
  end
  object edtIP: TEdit
    Left = 10
    Top = 325
    Width = 121
    Height = 20
    TabOrder = 3
    Text = '220.189.242.52'
  end
  object edtUser: TEdit
    Left = 10
    Top = 365
    Width = 121
    Height = 20
    TabOrder = 4
    Text = '8888'
  end
  object edtPassword: TEdit
    Left = 138
    Top = 365
    Width = 121
    Height = 20
    TabOrder = 5
    Text = '8888'
  end
  object cbb1: TComboBox
    Left = 141
    Top = 325
    Width = 118
    Height = 20
    ItemHeight = 12
    ItemIndex = 0
    TabOrder = 6
    Text = '1'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9'
      '10'
      '11'
      '12'
      '13'
      '14'
      '15'
      '16')
  end
  object cmdRight: TButton
    Tag = 24
    Left = 435
    Top = 32
    Width = 30
    Height = 25
    Caption = #21491
    TabOrder = 9
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object cmdZoomIn: TButton
    Tag = 11
    Left = 377
    Top = 104
    Width = 30
    Height = 25
    Caption = #32553
    TabOrder = 11
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object cmdZoomOut: TButton
    Tag = 12
    Left = 435
    Top = 104
    Width = 30
    Height = 25
    Caption = #20280
    TabOrder = 12
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object cmdFocusNear: TButton
    Tag = 13
    Left = 377
    Top = 128
    Width = 30
    Height = 25
    Caption = #36817
    TabOrder = 13
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object cmdFocusFar: TButton
    Tag = 14
    Left = 435
    Top = 128
    Width = 30
    Height = 25
    Caption = #36828
    TabOrder = 14
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object cmdIRISOpen: TButton
    Tag = 15
    Left = 377
    Top = 152
    Width = 30
    Height = 25
    Caption = #22823
    TabOrder = 15
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object cmdIRISClose: TButton
    Tag = 16
    Left = 435
    Top = 152
    Width = 30
    Height = 25
    Caption = #23567
    TabOrder = 16
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
  object Button5: TButton
    Left = 435
    Top = 200
    Width = 30
    Height = 25
    Caption = #35843#29992
    TabOrder = 17
    OnClick = Button5Click
  end
  object txtYZD: TEdit
    Left = 376
    Top = 203
    Width = 49
    Height = 20
    TabOrder = 18
    Text = '0'
  end
  object Button12: TButton
    Left = 377
    Top = 247
    Width = 88
    Height = 25
    Caption = #36828#31243#22238#25918
    TabOrder = 19
    OnClick = Button12Click
  end
  object cmdDown: TButton
    Tag = 22
    Left = 406
    Top = 56
    Width = 30
    Height = 25
    Caption = #19979
    TabOrder = 10
    OnMouseDown = cmdUpMouseDown
    OnMouseUp = cmdUpMouseUp
  end
end