unit Video
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls,
ExtCtrls, avicap, mmsystem, dsgnintf
// Types for event-procedures
type
TCapStatusProc = procedure(Sender: TObject) of object
TCapStatusCallback = procedure(Sender: TObject nID: integer status: strIng)
of object
TVideoStream = procedure(sender: TObject lpVhdr: PVIDEOHDR) of object
TAudioStream = procedure(sender: TObject lpWHdr: PWAVEHDR) of object
// Property Editor for driver selection
type
TDrivereditor = class(TPropertyEditor)
function GetAttributes: TPropertyAttributes override
procedure GetValues(Proc: TGetStrProc) override
function GetValue: strIng override
procedure SetValue(const Value: strIng) override
end
標簽:
interface
Messages
Graphics
Controls
上傳時間:
2013-12-21
上傳用戶:heart520beat