VideoCapture控件

 

2005年7月

VideoCapture控件

{------------------------------------------------------------------------------
  Unit Name : VideoCapture
  Author    : Liren Zhao
  Email     : LirenZhao@tom.com
  Msn     : LirenZhao@tom.com
  CreateDate: 2002 06 12
  ModifyDate: 2002 07 5
  History:
  Version:2.01
-------------------------------------------------------------------------------}
unit VideoCapture;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,Jpeg;

type
  TVideoCapture = class(TCustomPanel)
  private
    hWndC : THandle;
    CapturingAVI : bool;
    procedure WMSize(var Message: TWMSize); message WM_SIZE;
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure OpenVideo(handle:THandle);
    procedure CloseVideo;
    procedure GrabFrame;
    procedure StartVideo;
    procedure StopVideo;
    procedure SaveBitMap(filename:TFileName);
    procedure SaveJpeg(filename:TFileName;compressibility:Integer);
    procedure SavetoJpegStream(var JpegStream: TMemoryStream ;compressibility: Integer);
    function StartAvi(filename:TFileName):Boolean;
    procedure StopAvi;
    procedure SetVideoFormat;
    procedure SetSource;
    procedure SetStretch(TrueorFalse:Boolean=true);
    procedure SetCompression;
  published
    property Align;
  end;

procedure Register;

implementation

const
   WM_CAP_START                    = WM_USER;

   WM_CAP_GET_CAPSTREA