unitplayback.~dfm

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

object frmPlayBack: TfrmPlayBack
  Left = 154
  Top = 148
  Width = 720
  Height = 463
  Caption = 'HC DVR Remote PlayBack Demo'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 712
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 48
      Height = 12
      Caption = #36890#36947#21015#34920
    end
    object Label2: TLabel
      Left = 112
      Top = 8
      Width = 48
      Height = 12
      Caption = #24405#20687#31867#22411
    end
    object Label3: TLabel
      Left = 216
      Top = 8
      Width = 48
      Height = 12
      Caption = #24320#22987#26102#38388
    end
    object Label4: TLabel
      Left = 393
      Top = 8
      Width = 48
      Height = 12
      Caption = #32467#26463#26102#38388
    end
    object ComboBox1: TComboBox
      Left = 8
      Top = 24
      Width = 97
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 0
      Text = #36890#36947'1'
      Items.Strings = (
        #36890#36947'1'
        #36890#36947'2'
        #36890#36947'3'
        #36890#36947'4'
        #36890#36947'5'
        #36890#36947'6'
        #36890#36947'7'
        #36890#36947'8'
        #36890#36947'9'
        #36890#36947'10'
        #36890#36947'11'
        #36890#36947'12'
        #36890#36947'13'
        #36890#36947'14'
        #36890#36947'15'
        #36890#36947'16')
    end
    object ComboBox2: TComboBox
      Left = 112
      Top = 24
      Width = 97
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      ItemIndex = 0
      TabOrder = 1
      Text = #23454#26102#24405#20687
      Items.Strings = (
        #23454#26102#24405#20687
        #31227#21160#20390#27979
        #25253#35686#35302#21457
        #25253#35686'|'#21160#27979
        #25253#35686'&'#21160#27979
        #21629#20196#35302#21457
        #25163#21160#24405#20687
        #20840#37096)
    end
    object DateTimePicker1: TDateTimePicker
      Left = 217
      Top = 24
      Width = 89
      Height = 21
      CalAlignment = dtaLeft
      Date = 38215.8383362269
      Time = 38215.8383362269
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 2
    end
    object DateTimePicker2: TDateTimePicker
      Left = 313
      Top = 24
      Width = 73
      Height = 21
      CalAlignment = dtaLeft
      Date = 38215.8383362269
      Time = 38215.8383362269
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 3
    end
    object DateTimePicker3: TDateTimePicker
      Left = 394
      Top = 24
      Width = 89
      Height = 21
      CalAlignment = dtaLeft
      Date = 38215.8383362269
      Time = 38215.8383362269
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 4
    end
    object DateTimePicker4: TDateTimePicker
      Left = 490
      Top = 24
      Width = 73
      Height = 21
      CalAlignment = dtaLeft
      Date = 38215.8383362269
      Time = 38215.8383362269
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkTime
      ParseInput = False
      TabOrder = 5
    end
    object cmdSearch: TButton
      Left = 571
      Top = 22
      Width = 62
      Height = 25
      Caption = #24320#22987#25628#32034
      TabOrder = 6
      OnClick = cmdSearchClick
    end
    object Button2: TButton
      Left = 639
      Top = 22
      Width = 62
      Height = 25
      Caption = #21462#28040
      TabOrder = 7
      OnClick = Button2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 57
    Width = 345
    Height = 379
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object StringGrid1: TStringGrid
      Left = 0
      Top = 0
      Width = 345
      Height = 379
      Align = alClient
      DefaultColWidth = 20
      DefaultRowHeight = 16
      RowCount = 2
      GridLineWidth = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goEditing, goRowSelect]
      TabOrder = 0
      ColWidths = (
        20
        144
        75
        137
        136)
      RowHeights = (
        16
        16)
    end
  end
  object VideoPanel: TPanel
    Left = 352
    Top = 64
    Width = 352
    Height = 288
    BevelInner = bvSpace
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 2
  end
  object cmdPlay: TButton
    Left = 360
    Top = 362
    Width = 41
    Height = 25
    Caption = #25773#25918
    TabOrder = 3
    OnClick = cmdPlayClick
  end
  object cmdStop: TButton
    Left = 400
    Top = 362
    Width = 41
    Height = 25
    Caption = #20572#27490
    TabOrder = 4
    OnClick = cmdStopClick
  end
  object txtFilePath: TEdit
    Left = 360
    Top = 392
    Width = 289
    Height = 20
    TabOrder = 5
  end
  object cmdDownFile: TButton
    Left = 656
    Top = 389
    Width = 49
    Height = 25
    Caption = #19979#36733
    TabOrder = 6
    OnClick = cmdDownFileClick
  end
  object ProgressBar1: TProgressBar
    Left = 360
    Top = 416
    Width = 345
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 7
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 400
    Top = 64
  end
end