capstatuswin.pas

多媒体视频程序设计--使用Delphi 第八章 源碼 ＝＝＝＝ 8-1 静态图像采集 8-2 录像参数设置 8-3 录像控制 8-4 看边录手动录像

unit CapStatusWin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TVideoStatusForm = class(TForm)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    StaticText6: TStaticText;
    StaticText7: TStaticText;
    StaticText8: TStaticText;
    StaticText9: TStaticText;
    StaticText10: TStaticText;
    StaticText11: TStaticText;
    StaticText12: TStaticText;
    StaticText13: TStaticText;
    StaticText14: TStaticText;
    StaticText15: TStaticText;
    StaticText16: TStaticText;
    StaticText17: TStaticText;
    StaticText18: TStaticText;
    StaticText19: TStaticText;
    StaticText20: TStaticText;
    StaticText21: TStaticText;
    StaticText22: TStaticText;
    StaticText23: TStaticText;
    StaticText24: TStaticText;
    StaticText25: TStaticText;
    StaticText26: TStaticText;
    StaticText27: TStaticText;
    StaticText28: TStaticText;
    StaticText29: TStaticText;
    StaticText30: TStaticText;
    StaticText31: TStaticText;
    StaticText32: TStaticText;
    StaticText33: TStaticText;
    StaticText34: TStaticText;
    StaticText35: TStaticText;
    StaticText36: TStaticText;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }

    Procedure OnCapStatus(Sender:TObject);

  end;

var
  VideoStatusForm: TVideoStatusForm;

implementation

{$R *.dfm}

uses  VideoView;

procedure TVideoStatusForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Action:=caHide;
end;

Procedure TVideoStatusForm.OnCapStatus(Sender:TObject);
var
  v : TVideoViewForm;
begin
 v:= Sender as TVideoViewForm;


  StaticText19.Caption:= IntToStr (v.CapWidth    );
  StaticText20.Caption:= IntToStr (v.CapHeight   );
  StaticText21.Caption:= BoolToStr(v.VideoPreview);
  StaticText22.Caption:= BoolToStr(v.VideoOverlay);
  StaticText23.Caption:= BoolToStr(v.CapScale    );
  StaticText24.Caption:= inttostr(v.CapScroll.X)+','+inttostr(v.CapScroll.y);
  StaticText25.Caption:= BoolToStr(v.CapUsingDefPal);
  StaticText26.Caption:= BoolToStr(v.HasAudioHardware);
  StaticText27.Caption:= BoolToStr(v.CapFileExists);
  StaticText28.Caption:= IntToStr(v.CapFrameNum);
  StaticText29.Caption:= IntToStr(v.CapFramesDropped);
  StaticText30.Caption:= IntToStr(v.CapWaveSamples);
  StaticText31.Caption:= '0x'+IntToHex(v.CapPalH,4);
  StaticText32.Caption:= MSecToStr(v.CapTimeElapsedMS);
  StaticText33.Caption:= BoolToStr(v.Captureing);
  StaticText34.Caption:= Inttostr(v.CapVideoMem);
  StaticText35.Caption:= inttostr(v.CapAudioMem);
  StaticText36.Caption:= inttostr(v.CapReturnMsgID);

end;


end.