www.pudn.com > delphi-Sdk3000-ocx.zip > SDK3000Lib_TLB.pas, change:2005-05-27,size:23873b


unit SDK3000Lib_TLB; 
 
// ************************************************************************ // 
// WARNING                                                                     
// -------                                                                     
// The types declared in this file were generated from data read from a        
// Type Library. If this type library is explicitly or indirectly (via         
// another type library referring to this type library) re-imported, or the    
// 'Refresh' command of the Type Library Editor activated while editing the    
// Type Library, the contents of this file will be regenerated and all         
// manual modifications will be lost.                                          
// ************************************************************************ // 
 
// PASTLWTR : 1.2 
// File generated on 2005-05-27 10:25:10 from Type Library described below. 
 
// ************************************************************************  // 
// Type Lib: D:\WINDOWS\system32\SDK3000.ocx (1) 
// LIBID: {285817C3-2870-4884-9F7A-982DA436AC21} 
// LCID: 0 
// Helpfile: D:\WINDOWS\system32\SDK3000.hlp 
// HelpString: SDK3000 ActiveX Control module 
// DepndLst:  
//   (1) v2.0 stdole, (D:\WINDOWS\system32\STDOLE2.TLB) 
// ************************************************************************ // 
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.  
{$WARN SYMBOL_PLATFORM OFF} 
{$WRITEABLECONST ON} 
{$VARPROPSETTER ON} 
interface 
 
uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants; 
   
 
 
// *********************************************************************// 
// GUIDS declared in the TypeLibrary. Following prefixes are used:         
//   Type Libraries     : LIBID_xxxx                                       
//   CoClasses          : CLASS_xxxx                                       
//   DISPInterfaces     : DIID_xxxx                                        
//   Non-DISP interfaces: IID_xxxx                                         
// *********************************************************************// 
const 
  // TypeLibrary Major and minor versions 
  SDK3000LibMajorVersion = 1; 
  SDK3000LibMinorVersion = 0; 
 
  LIBID_SDK3000Lib: TGUID = '{285817C3-2870-4884-9F7A-982DA436AC21}'; 
 
  DIID__DSDK3000: TGUID = '{8C228E93-79DA-48D1-B4BF-C11836F00200}'; 
  DIID__DSDK3000Events: TGUID = '{69E191F8-B882-47E8-86CB-C42D73E64685}'; 
  CLASS_SDK3000: TGUID = '{A20F99E2-E241-43A8-A4B5-1ECBE40D507A}'; 
type 
 
// *********************************************************************// 
// Forward declaration of types defined in TypeLibrary                     
// *********************************************************************// 
  _DSDK3000 = dispinterface; 
  _DSDK3000Events = dispinterface; 
 
// *********************************************************************// 
// Declaration of CoClasses defined in Type Library                        
// (NOTE: Here we map each CoClass to its Default Interface)               
// *********************************************************************// 
  SDK3000 = _DSDK3000; 
 
 
// *********************************************************************// 
// Declaration of structures, unions and aliases.                          
// *********************************************************************// 
  PWideString1 = ^WideString; {*} 
  PInteger1 = ^Integer; {*} 
 
 
// *********************************************************************// 
// DispIntf:  _DSDK3000 
// Flags:     (4112) Hidden Dispatchable 
// GUID:      {8C228E93-79DA-48D1-B4BF-C11836F00200} 
// *********************************************************************// 
  _DSDK3000 = dispinterface 
    ['{8C228E93-79DA-48D1-B4BF-C11836F00200}'] 
    function GetOneAudioCaptureDev(nIndex: Integer; var bstrAudioDev: WideString): WordBool; dispid 73; 
    procedure AboutBox; dispid -552; 
    function GetVideoStandard(var pVideoStandard: Integer): WordBool; dispid 67; 
    function SetCurrentAudioCompressorName(const strAudDevName: WideString): WordBool; dispid 74; 
    function SetCurrentAudioCompressorNum(nAudDevIndex: Integer): WordBool; dispid 75; 
    function DisableCapSourceStream: WordBool; dispid 68; 
    function UpdateVideoRect: WordBool; dispid 71; 
    function GetAudioCaptureDevCount(var pnAudioDevNum: Integer): WordBool; dispid 72; 
    function EnableCapSourceStream(nVideoFieldType: Integer; procCallBack: Integer): WordBool; dispid 69; 
    function InitIOAlertIn(procCallBack: Integer): WordBool; dispid 60; 
    function EnableMotionDetect(const pAreaMap: WideString; nSizeOfMap: Integer;  
                                nPersistTime: Integer; procCallBack: Integer): WordBool; dispid 63; 
    function GetCurCard: Integer; dispid 66; 
    function Connect(nCards: Integer; bOverlay: WordBool; cx: OLE_XSIZE_PIXELS; cy: OLE_YSIZE_PIXELS): WordBool; dispid 38; 
    function DisableMotionDetect: WordBool; dispid 64; 
    function DisplayPropertyDialogs(id: Integer; const szCaption: WideString): WordBool; dispid 65; 
    function WriteE2C(nSubAddr: Integer; nData: Integer): WordBool; dispid 58; 
    function StartIOAlertIn(bHigh: WordBool): WordBool; dispid 61; 
    function StopIOAlertIn: WordBool; dispid 62; 
    function IOAlertOut(bHighLevel: WordBool): WordBool; dispid 59; 
    function GetVideoFieldFrq(var pnFieldFrequency: Integer): WordBool; dispid 70; 
    function ReadE2C(nSubAddr: Integer; var pnData: Integer): WordBool; dispid 57; 
    function SetFullScreen(bFull: WordBool): WordBool; dispid 56; 
    function SaveRangeToJpg(const szFileName: WideString; nQuality: Integer; x: OLE_XPOS_PIXELS;  
                            y: OLE_YPOS_PIXELS; cx: OLE_XSIZE_PIXELS; cy: OLE_YSIZE_PIXELS): WordBool; dispid 55; 
    function SaveRangeToBmp(const szFileName: WideString; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS;  
                            cx: OLE_XSIZE_PIXELS; cy: OLE_YSIZE_PIXELS): WordBool; dispid 54; 
    function GetCardCount(var pnDev: Integer): WordBool; dispid 53; 
    function SetCurVideoCompressor(nComp: Integer): WordBool; dispid 52; 
    function GetCurVideoCompressor(var pnCurComp: Integer): WordBool; dispid 51; 
    function GetOneVideoCompressor(nIndex: Integer; var bstrComp: WideString): WordBool; dispid 50; 
    function GetVideoCompressorCount(var pnCompNum: Integer): WordBool; dispid 49; 
    function UpdateDateTimeOsd: WordBool; dispid 48; 
    function UpdateTextOsd: WordBool; dispid 47; 
    function SaveImageToJpg(const szFileName: WideString; nQuality: Integer; nCapCount: Integer;  
                            bCapFast: WordBool): WordBool; dispid 46; 
    function SaveImageToBmp(const szFileName: WideString; nCapCount: Integer; bCapFast: WordBool): WordBool; dispid 45; 
    function Stop: WordBool; dispid 44; 
    function Pause: WordBool; dispid 43; 
    function Run: WordBool; dispid 42; 
    function StopCapture: WordBool; dispid 41; 
    function StartCapture(const szFileName: WideString; nTime: Integer): WordBool; dispid 40; 
    function Disconnect: WordBool; dispid 39; 
    property FastSwitchSource: WordBool dispid 37; 
    property DoTransparent: WordBool dispid 29; 
    property DoTop: OLE_YPOS_PIXELS dispid 28; 
    property DoLeft: OLE_XPOS_PIXELS dispid 27; 
    property DoShow: WordBool dispid 26; 
    property ToText: WideString dispid 25; 
    property ToTransparent: WordBool dispid 24; 
    property ToTop: OLE_YPOS_PIXELS dispid 23; 
    property ToLeft: OLE_XPOS_PIXELS dispid 22; 
    property ToShow: WordBool dispid 21; 
    property DoFaceName: WideString dispid 20; 
    property DoTextColor: OLE_COLOR dispid 19; 
    property DoBkColor: OLE_COLOR dispid 18; 
    property DoStrikeOut: WordBool dispid 17; 
    property DoUnderline: WordBool dispid 16; 
    property DoItalic: WordBool dispid 15; 
    property DoSpacing: Integer dispid 14; 
    property DoWeight: Integer dispid 13; 
    property DoWidth: Integer dispid 12; 
    property DoHeight: Integer dispid 11; 
    property ToFaceName: WideString dispid 10; 
    property ToTextColor: OLE_COLOR dispid 9; 
    property ToBkColor: OLE_COLOR dispid 8; 
    property ToStrikeOut: WordBool dispid 7; 
    property ToUnderline: WordBool dispid 6; 
    property ToItalic: WordBool dispid 5; 
    property ToSpacing: Integer dispid 4; 
    property ToWeight: Integer dispid 3; 
    property ToWidth: Integer dispid 2; 
    property ToHeight: Integer dispid 1; 
    property VideoSource: Integer dispid 36; 
    property FrameRate: Integer dispid 35; 
    property Sharpness: Integer dispid 34; 
    property Saturation: Integer dispid 33; 
    property Hue: Integer dispid 32; 
    property Contrast: Integer dispid 31; 
    property Brightness: Integer dispid 30; 
  end; 
 
// *********************************************************************// 
// DispIntf:  _DSDK3000Events 
// Flags:     (4096) Dispatchable 
// GUID:      {69E191F8-B882-47E8-86CB-C42D73E64685} 
// *********************************************************************// 
  _DSDK3000Events = dispinterface 
    ['{69E191F8-B882-47E8-86CB-C42D73E64685}'] 
  end; 
 
 
// *********************************************************************// 
// OLE Control Proxy class declaration 
// Control Name     : TSDK3000 
// Help String      : SDK3000 Control 
// Default Interface: _DSDK3000 
// Def. Intf. DISP? : Yes 
// Event   Interface: _DSDK3000Events 
// TypeFlags        : (34) CanCreate Control 
// *********************************************************************// 
  TSDK3000 = class(TOleControl) 
  private 
    FIntf: _DSDK3000; 
    function  GetControlInterface: _DSDK3000; 
  protected 
    procedure CreateControl; 
    procedure InitControlData; override; 
  public 
    function GetOneAudioCaptureDev(nIndex: Integer; var bstrAudioDev: WideString): WordBool; 
    procedure AboutBox; 
    function GetVideoStandard(var pVideoStandard: Integer): WordBool; 
    function SetCurrentAudioCompressorName(const strAudDevName: WideString): WordBool; 
    function SetCurrentAudioCompressorNum(nAudDevIndex: Integer): WordBool; 
    function DisableCapSourceStream: WordBool; 
    function UpdateVideoRect: WordBool; 
    function GetAudioCaptureDevCount(var pnAudioDevNum: Integer): WordBool; 
    function EnableCapSourceStream(nVideoFieldType: Integer; procCallBack: Integer): WordBool; 
    function InitIOAlertIn(procCallBack: Integer): WordBool; 
    function EnableMotionDetect(const pAreaMap: WideString; nSizeOfMap: Integer;  
                                nPersistTime: Integer; procCallBack: Integer): WordBool; 
    function GetCurCard: Integer; 
    function Connect(nCards: Integer; bOverlay: WordBool; cx: OLE_XSIZE_PIXELS; cy: OLE_YSIZE_PIXELS): WordBool; 
    function DisableMotionDetect: WordBool; 
    function DisplayPropertyDialogs(id: Integer; const szCaption: WideString): WordBool; 
    function WriteE2C(nSubAddr: Integer; nData: Integer): WordBool; 
    function StartIOAlertIn(bHigh: WordBool): WordBool; 
    function StopIOAlertIn: WordBool; 
    function IOAlertOut(bHighLevel: WordBool): WordBool; 
    function GetVideoFieldFrq(var pnFieldFrequency: Integer): WordBool; 
    function ReadE2C(nSubAddr: Integer; var pnData: Integer): WordBool; 
    function SetFullScreen(bFull: WordBool): WordBool; 
    function SaveRangeToJpg(const szFileName: WideString; nQuality: Integer; x: OLE_XPOS_PIXELS;  
                            y: OLE_YPOS_PIXELS; cx: OLE_XSIZE_PIXELS; cy: OLE_YSIZE_PIXELS): WordBool; 
    function SaveRangeToBmp(const szFileName: WideString; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS;  
                            cx: OLE_XSIZE_PIXELS; cy: OLE_YSIZE_PIXELS): WordBool; 
    function GetCardCount(var pnDev: Integer): WordBool; 
    function SetCurVideoCompressor(nComp: Integer): WordBool; 
    function GetCurVideoCompressor(var pnCurComp: Integer): WordBool; 
    function GetOneVideoCompressor(nIndex: Integer; var bstrComp: WideString): WordBool; 
    function GetVideoCompressorCount(var pnCompNum: Integer): WordBool; 
    function UpdateDateTimeOsd: WordBool; 
    function UpdateTextOsd: WordBool; 
    function SaveImageToJpg(const szFileName: WideString; nQuality: Integer; nCapCount: Integer;  
                            bCapFast: WordBool): WordBool; 
    function SaveImageToBmp(const szFileName: WideString; nCapCount: Integer; bCapFast: WordBool): WordBool; 
    function Stop: WordBool; 
    function Pause: WordBool; 
    function Run: WordBool; 
    function StopCapture: WordBool; 
    function StartCapture(const szFileName: WideString; nTime: Integer): WordBool; 
    function Disconnect: WordBool; 
    property  ControlInterface: _DSDK3000 read GetControlInterface; 
    property  DefaultInterface: _DSDK3000 read GetControlInterface; 
  published 
    property Anchors; 
    property  TabStop; 
    property  Align; 
    property  DragCursor; 
    property  DragMode; 
    property  ParentShowHint; 
    property  PopupMenu; 
    property  ShowHint; 
    property  TabOrder; 
    property  Visible; 
    property  OnDragDrop; 
    property  OnDragOver; 
    property  OnEndDrag; 
    property  OnEnter; 
    property  OnExit; 
    property  OnStartDrag; 
    property FastSwitchSource: WordBool index 37 read GetWordBoolProp write SetWordBoolProp stored False; 
    property DoTransparent: WordBool index 29 read GetWordBoolProp write SetWordBoolProp stored False; 
    property DoTop: Integer index 28 read GetIntegerProp write SetIntegerProp stored False; 
    property DoLeft: Integer index 27 read GetIntegerProp write SetIntegerProp stored False; 
    property DoShow: WordBool index 26 read GetWordBoolProp write SetWordBoolProp stored False; 
    property ToText: WideString index 25 read GetWideStringProp write SetWideStringProp stored False; 
    property ToTransparent: WordBool index 24 read GetWordBoolProp write SetWordBoolProp stored False; 
    property ToTop: Integer index 23 read GetIntegerProp write SetIntegerProp stored False; 
    property ToLeft: Integer index 22 read GetIntegerProp write SetIntegerProp stored False; 
    property ToShow: WordBool index 21 read GetWordBoolProp write SetWordBoolProp stored False; 
    property DoFaceName: WideString index 20 read GetWideStringProp write SetWideStringProp stored False; 
    property DoTextColor: TColor index 19 read GetTColorProp write SetTColorProp stored False; 
    property DoBkColor: TColor index 18 read GetTColorProp write SetTColorProp stored False; 
    property DoStrikeOut: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False; 
    property DoUnderline: WordBool index 16 read GetWordBoolProp write SetWordBoolProp stored False; 
    property DoItalic: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False; 
    property DoSpacing: Integer index 14 read GetIntegerProp write SetIntegerProp stored False; 
    property DoWeight: Integer index 13 read GetIntegerProp write SetIntegerProp stored False; 
    property DoWidth: Integer index 12 read GetIntegerProp write SetIntegerProp stored False; 
    property DoHeight: Integer index 11 read GetIntegerProp write SetIntegerProp stored False; 
    property ToFaceName: WideString index 10 read GetWideStringProp write SetWideStringProp stored False; 
    property ToTextColor: TColor index 9 read GetTColorProp write SetTColorProp stored False; 
    property ToBkColor: TColor index 8 read GetTColorProp write SetTColorProp stored False; 
    property ToStrikeOut: WordBool index 7 read GetWordBoolProp write SetWordBoolProp stored False; 
    property ToUnderline: WordBool index 6 read GetWordBoolProp write SetWordBoolProp stored False; 
    property ToItalic: WordBool index 5 read GetWordBoolProp write SetWordBoolProp stored False; 
    property ToSpacing: Integer index 4 read GetIntegerProp write SetIntegerProp stored False; 
    property ToWeight: Integer index 3 read GetIntegerProp write SetIntegerProp stored False; 
    property ToWidth: Integer index 2 read GetIntegerProp write SetIntegerProp stored False; 
    property ToHeight: Integer index 1 read GetIntegerProp write SetIntegerProp stored False; 
    property VideoSource: Integer index 36 read GetIntegerProp write SetIntegerProp stored False; 
    property FrameRate: Integer index 35 read GetIntegerProp write SetIntegerProp stored False; 
    property Sharpness: Integer index 34 read GetIntegerProp write SetIntegerProp stored False; 
    property Saturation: Integer index 33 read GetIntegerProp write SetIntegerProp stored False; 
    property Hue: Integer index 32 read GetIntegerProp write SetIntegerProp stored False; 
    property Contrast: Integer index 31 read GetIntegerProp write SetIntegerProp stored False; 
    property Brightness: Integer index 30 read GetIntegerProp write SetIntegerProp stored False; 
  end; 
 
procedure Register; 
 
resourcestring 
  dtlServerPage = 'ActiveX'; 
 
  dtlOcxPage = 'ActiveX'; 
 
implementation 
 
uses ComObj; 
 
procedure TSDK3000.InitControlData; 
const 
  CControlData: TControlData2 = ( 
    ClassID: '{A20F99E2-E241-43A8-A4B5-1ECBE40D507A}'; 
    EventIID: ''; 
    EventCount: 0; 
    EventDispIDs: nil; 
    LicenseKey: nil (*HR:$80004005*); 
    Flags: $00000000; 
    Version: 401); 
begin 
  ControlData := @CControlData; 
end; 
 
procedure TSDK3000.CreateControl; 
 
  procedure DoCreate; 
  begin 
    FIntf := IUnknown(OleObject) as _DSDK3000; 
  end; 
 
begin 
  if FIntf = nil then DoCreate; 
end; 
 
function TSDK3000.GetControlInterface: _DSDK3000; 
begin 
  CreateControl; 
  Result := FIntf; 
end; 
 
function TSDK3000.GetOneAudioCaptureDev(nIndex: Integer; var bstrAudioDev: WideString): WordBool; 
begin 
  Result := DefaultInterface.GetOneAudioCaptureDev(nIndex, bstrAudioDev); 
end; 
 
procedure TSDK3000.AboutBox; 
begin 
  DefaultInterface.AboutBox; 
end; 
 
function TSDK3000.GetVideoStandard(var pVideoStandard: Integer): WordBool; 
begin 
  Result := DefaultInterface.GetVideoStandard(pVideoStandard); 
end; 
 
function TSDK3000.SetCurrentAudioCompressorName(const strAudDevName: WideString): WordBool; 
begin 
  Result := DefaultInterface.SetCurrentAudioCompressorName(strAudDevName); 
end; 
 
function TSDK3000.SetCurrentAudioCompressorNum(nAudDevIndex: Integer): WordBool; 
begin 
  Result := DefaultInterface.SetCurrentAudioCompressorNum(nAudDevIndex); 
end; 
 
function TSDK3000.DisableCapSourceStream: WordBool; 
begin 
  Result := DefaultInterface.DisableCapSourceStream; 
end; 
 
function TSDK3000.UpdateVideoRect: WordBool; 
begin 
  Result := DefaultInterface.UpdateVideoRect; 
end; 
 
function TSDK3000.GetAudioCaptureDevCount(var pnAudioDevNum: Integer): WordBool; 
begin 
  Result := DefaultInterface.GetAudioCaptureDevCount(pnAudioDevNum); 
end; 
 
function TSDK3000.EnableCapSourceStream(nVideoFieldType: Integer; procCallBack: Integer): WordBool; 
begin 
  Result := DefaultInterface.EnableCapSourceStream(nVideoFieldType, procCallBack); 
end; 
 
function TSDK3000.InitIOAlertIn(procCallBack: Integer): WordBool; 
begin 
  Result := DefaultInterface.InitIOAlertIn(procCallBack); 
end; 
 
function TSDK3000.EnableMotionDetect(const pAreaMap: WideString; nSizeOfMap: Integer;  
                                     nPersistTime: Integer; procCallBack: Integer): WordBool; 
begin 
  Result := DefaultInterface.EnableMotionDetect(pAreaMap, nSizeOfMap, nPersistTime, procCallBack); 
end; 
 
function TSDK3000.GetCurCard: Integer; 
begin 
  Result := DefaultInterface.GetCurCard; 
end; 
 
function TSDK3000.Connect(nCards: Integer; bOverlay: WordBool; cx: OLE_XSIZE_PIXELS;  
                          cy: OLE_YSIZE_PIXELS): WordBool; 
begin 
  Result := DefaultInterface.Connect(nCards, bOverlay, cx, cy); 
end; 
 
function TSDK3000.DisableMotionDetect: WordBool; 
begin 
  Result := DefaultInterface.DisableMotionDetect; 
end; 
 
function TSDK3000.DisplayPropertyDialogs(id: Integer; const szCaption: WideString): WordBool; 
begin 
  Result := DefaultInterface.DisplayPropertyDialogs(id, szCaption); 
end; 
 
function TSDK3000.WriteE2C(nSubAddr: Integer; nData: Integer): WordBool; 
begin 
  Result := DefaultInterface.WriteE2C(nSubAddr, nData); 
end; 
 
function TSDK3000.StartIOAlertIn(bHigh: WordBool): WordBool; 
begin 
  Result := DefaultInterface.StartIOAlertIn(bHigh); 
end; 
 
function TSDK3000.StopIOAlertIn: WordBool; 
begin 
  Result := DefaultInterface.StopIOAlertIn; 
end; 
 
function TSDK3000.IOAlertOut(bHighLevel: WordBool): WordBool; 
begin 
  Result := DefaultInterface.IOAlertOut(bHighLevel); 
end; 
 
function TSDK3000.GetVideoFieldFrq(var pnFieldFrequency: Integer): WordBool; 
begin 
  Result := DefaultInterface.GetVideoFieldFrq(pnFieldFrequency); 
end; 
 
function TSDK3000.ReadE2C(nSubAddr: Integer; var pnData: Integer): WordBool; 
begin 
  Result := DefaultInterface.ReadE2C(nSubAddr, pnData); 
end; 
 
function TSDK3000.SetFullScreen(bFull: WordBool): WordBool; 
begin 
  Result := DefaultInterface.SetFullScreen(bFull); 
end; 
 
function TSDK3000.SaveRangeToJpg(const szFileName: WideString; nQuality: Integer;  
                                 x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS; cx: OLE_XSIZE_PIXELS;  
                                 cy: OLE_YSIZE_PIXELS): WordBool; 
begin 
  Result := DefaultInterface.SaveRangeToJpg(szFileName, nQuality, x, y, cx, cy); 
end; 
 
function TSDK3000.SaveRangeToBmp(const szFileName: WideString; x: OLE_XPOS_PIXELS;  
                                 y: OLE_YPOS_PIXELS; cx: OLE_XSIZE_PIXELS; cy: OLE_YSIZE_PIXELS): WordBool; 
begin 
  Result := DefaultInterface.SaveRangeToBmp(szFileName, x, y, cx, cy); 
end; 
 
function TSDK3000.GetCardCount(var pnDev: Integer): WordBool; 
begin 
  Result := DefaultInterface.GetCardCount(pnDev); 
end; 
 
function TSDK3000.SetCurVideoCompressor(nComp: Integer): WordBool; 
begin 
  Result := DefaultInterface.SetCurVideoCompressor(nComp); 
end; 
 
function TSDK3000.GetCurVideoCompressor(var pnCurComp: Integer): WordBool; 
begin 
  Result := DefaultInterface.GetCurVideoCompressor(pnCurComp); 
end; 
 
function TSDK3000.GetOneVideoCompressor(nIndex: Integer; var bstrComp: WideString): WordBool; 
begin 
  Result := DefaultInterface.GetOneVideoCompressor(nIndex, bstrComp); 
end; 
 
function TSDK3000.GetVideoCompressorCount(var pnCompNum: Integer): WordBool; 
begin 
  Result := DefaultInterface.GetVideoCompressorCount(pnCompNum); 
end; 
 
function TSDK3000.UpdateDateTimeOsd: WordBool; 
begin 
  Result := DefaultInterface.UpdateDateTimeOsd; 
end; 
 
function TSDK3000.UpdateTextOsd: WordBool; 
begin 
  Result := DefaultInterface.UpdateTextOsd; 
end; 
 
function TSDK3000.SaveImageToJpg(const szFileName: WideString; nQuality: Integer;  
                                 nCapCount: Integer; bCapFast: WordBool): WordBool; 
begin 
  Result := DefaultInterface.SaveImageToJpg(szFileName, nQuality, nCapCount, bCapFast); 
end; 
 
function TSDK3000.SaveImageToBmp(const szFileName: WideString; nCapCount: Integer;  
                                 bCapFast: WordBool): WordBool; 
begin 
  Result := DefaultInterface.SaveImageToBmp(szFileName, nCapCount, bCapFast); 
end; 
 
function TSDK3000.Stop: WordBool; 
begin 
  Result := DefaultInterface.Stop; 
end; 
 
function TSDK3000.Pause: WordBool; 
begin 
  Result := DefaultInterface.Pause; 
end; 
 
function TSDK3000.Run: WordBool; 
begin 
  Result := DefaultInterface.Run; 
end; 
 
function TSDK3000.StopCapture: WordBool; 
begin 
  Result := DefaultInterface.StopCapture; 
end; 
 
function TSDK3000.StartCapture(const szFileName: WideString; nTime: Integer): WordBool; 
begin 
  Result := DefaultInterface.StartCapture(szFileName, nTime); 
end; 
 
function TSDK3000.Disconnect: WordBool; 
begin 
  Result := DefaultInterface.Disconnect; 
end; 
 
procedure Register; 
begin 
  RegisterComponents(dtlOcxPage, [TSDK3000]); 
end; 
 
end.