u_prew_hf.pas

企业安防管理系统

unit U_Prew_HF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DSPack, ComCtrls, Buttons, FileCtrl,u_public,strutils;

type
  TFrm_Prew_HF = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    VideoWindow1: TVideoWindow;
    Label1: TLabel;
    DTP_RQ: TDateTimePicker;
    Label2: TLabel;
    Cmx_Td: TComboBox;
    Lvw_Lb: TListView;
    SpeedButton1: TSpeedButton;
    OpenDialog1: TOpenDialog;
    SpeedButton2: TSpeedButton;
    FilterGraph: TFilterGraph;
    Filelist: TFileListBox;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Lvw_LbDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Prew_HF: TFrm_Prew_HF;

implementation

uses U_Option;

{$R *.dfm}

procedure TFrm_Prew_HF.SpeedButton1Click(Sender: TObject);
begin
  close;
end;

procedure TFrm_Prew_HF.SpeedButton2Click(Sender: TObject);
var AA,BB,CC:string;
   II:integer;
begin
  lvw_lb.Items.Clear;
   AA:='T'+formatdatetime('yyyy-mm-dd',dtp_rq.date);
   for II:=0 to filelist.Items.Count-1 do
      begin
         bb:=midstr(filelist.Items.Strings[ii],1,11);
         if ansicomparestr(aa,bb)=0 then
           lvw_lb.Items.Add.Caption:=filelist.Items.Strings[ii];
      end;

end;

procedure TFrm_Prew_HF.FormShow(Sender: TObject);
var I:integer;
begin
  dtp_rq.DateTime:=now;
  filelist.Directory:=g_path;
  if filelist.Items.Count <>0 then
    begin
     for I:=0 to filelist.Items.Count-1 do
         lvw_lb.Items.Add.Caption:=filelist.Items.Strings[i];
    end;
end;

procedure TFrm_Prew_HF.Lvw_LbDblClick(Sender: TObject);
begin
      filtergraph.Active:=false;
      filtergraph.Stop;
      FilterGraph.Active := True;
     FilterGraph.RenderFile(g_path+lvw_lb.Selected.Caption);
     FilterGraph.Play;
end;

end.