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
