// ***************************************************************************** // WARNING // ======= // This document is generated by the TypeExport utility (www.techvanguards.com). // Any changes to this file may cause incorrect behavior and will be lost // the next time regeneration is performed. // // This document was generated on: 01/12/2002 16:18:52 // // Type Library: PHIDGET, Phidget Library 1.3.0 // Version: 1.2 // File: E:\WINNT\System32\phidget.dll // LIBID\LCID: {50484944-4745-5453-0000-000000000000}\0 // // ***************************************************************************** unit Phidget_TLB; interface uses Windows, ActiveX; const LIBID_PHIDGET: TGUID = '{50484944-4745-5453-0000-000000000000}'; IID_IPhidgetManager: TGUID = '{50484944-4745-5453-1000-000000000002}'; IID_IPhidget: TGUID = '{50484944-4745-5453-1000-000000000001}'; IID_IPhidgetPowerBar: TGUID = '{50484944-4745-5453-1000-000000000005}'; IID_IPhidgetServo: TGUID = '{50484944-4745-5453-1000-000000000004}'; IID_IPhidgetInterfaceKit: TGUID = '{50484944-4745-5453-1000-000000000003}'; IID_IPhidgetMarmot: TGUID = '{50484944-4745-5453-1000-000000000009}'; IID_IPhidgetRFID: TGUID = '{50484944-4745-5453-1000-000000000007}'; IID_IPhidgetPower: TGUID = '{50484944-4745-5453-1000-000000000006}'; IID_IPhidgetPenTray: TGUID = '{50484944-4745-5453-1000-000000000008}'; IID_IPhidgetTextLCD: TGUID = '{50484944-4745-5453-1000-00000000000A}'; IID_IPhidgetGraphicLCD: TGUID = '{50484944-4745-5453-1000-00000000000B}'; IID_IPhidgetAdvancedServo: TGUID = '{50484944-4745-5453-1000-00000000000C}'; IID_IPhidgetLED: TGUID = '{50484944-4745-5453-1000-00000000000D}'; IID_IPhidgetEncoder: TGUID = '{50484944-4745-5453-1000-00000000000E}'; IID_IPhidgetStepper: TGUID = '{50484944-4745-5453-1000-00000000000F}'; CLSID_PhidgetManager: TGUID = '{50484944-4745-5453-3000-000000000002}'; CLASS_PhidgetManager: TGUID = '{50484944-4745-5453-3000-000000000002}'; CLSID_PhidgetPowerBar: TGUID = '{50484944-4745-5453-3000-000000000005}'; CLASS_PhidgetPowerBar: TGUID = '{50484944-4745-5453-3000-000000000005}'; CLSID_PhidgetServo: TGUID = '{50484944-4745-5453-3000-000000000004}'; CLASS_PhidgetServo: TGUID = '{50484944-4745-5453-3000-000000000004}'; CLSID_PhidgetInterfaceKit: TGUID = '{50484944-4745-5453-3000-000000000003}'; CLASS_PhidgetInterfaceKit: TGUID = '{50484944-4745-5453-3000-000000000003}'; CLSID_PhidgetMarmot: TGUID = '{50484944-4745-5453-3000-000000000009}'; CLASS_PhidgetMarmot: TGUID = '{50484944-4745-5453-3000-000000000009}'; CLSID_PhidgetRFID: TGUID = '{50484944-4745-5453-3000-000000000007}'; CLASS_PhidgetRFID: TGUID = '{50484944-4745-5453-3000-000000000007}'; CLSID_PhidgetPower: TGUID = '{50484944-4745-5453-3000-000000000006}'; CLASS_PhidgetPower: TGUID = '{50484944-4745-5453-3000-000000000006}'; CLSID_PhidgetPenTray: TGUID = '{50484944-4745-5453-3000-000000000008}'; CLASS_PhidgetPenTray: TGUID = '{50484944-4745-5453-3000-000000000008}'; CLSID_PhidgetTextLCD: TGUID = '{50484944-4745-5453-3000-00000000000A}'; CLASS_PhidgetTextLCD: TGUID = '{50484944-4745-5453-3000-00000000000A}'; CLSID_PhidgetGraphicLCD: TGUID = '{50484944-4745-5453-3000-00000000000B}'; CLASS_PhidgetGraphicLCD: TGUID = '{50484944-4745-5453-3000-00000000000B}'; CLSID_PhidgetAdvancedServo: TGUID = '{50484944-4745-5453-3000-00000000000C}'; CLASS_PhidgetAdvancedServo: TGUID = '{50484944-4745-5453-3000-00000000000C}'; CLSID_PhidgetLED: TGUID = '{50484944-4745-5453-3000-00000000000D}'; CLASS_PhidgetLED: TGUID = '{50484944-4745-5453-3000-00000000000D}'; CLSID_PhidgetEncoder: TGUID = '{50484944-4745-5453-3000-00000000000E}'; CLASS_PhidgetEncoder: TGUID = '{50484944-4745-5453-3000-00000000000E}'; CLSID_PhidgetStepper: TGUID = '{50484944-4745-5453-3000-00000000000F}'; CLASS_PhidgetStepper: TGUID = '{50484944-4745-5453-3000-00000000000F}'; type PPWideChar = ^PWideChar; IPhidgetManager = interface; IPhidget = interface; IPhidgetPowerBar = interface; IPhidgetServo = interface; IPhidgetInterfaceKit = interface; IPhidgetMarmot = interface; IPhidgetRFID = interface; IPhidgetPower = interface; IPhidgetPenTray = interface; IPhidgetTextLCD = interface; IPhidgetGraphicLCD = interface; IPhidgetAdvancedServo = interface; IPhidgetLED = interface; IPhidgetEncoder = interface; IPhidgetStepper = interface; IPhidgetManagerDisp = dispinterface; IPhidgetDisp = dispinterface; _IPhidgetManagerEvents = dispinterface; IPhidgetPowerBarDisp = dispinterface; _IPhidgetPowerBarEvents = dispinterface; IPhidgetServoDisp = dispinterface; _IPhidgetServoEvents = dispinterface; IPhidgetInterfaceKitDisp = dispinterface; _IPhidgetInterfaceKitEvents = dispinterface; IPhidgetMarmotDisp = dispinterface; _IPhidgetMarmotEvents = dispinterface; IPhidgetRFIDDisp = dispinterface; _IPhidgetRFIDEvents = dispinterface; IPhidgetPowerDisp = dispinterface; _IPhidgetPowerEvents = dispinterface; IPhidgetPenTrayDisp = dispinterface; _IPhidgetPenTrayEvents = dispinterface; IPhidgetTextLCDDisp = dispinterface; _IPhidgetTextLCDEvents = dispinterface; IPhidgetGraphicLCDDisp = dispinterface; _IPhidgetGraphicLCDEvents = dispinterface; IPhidgetAdvancedServoDisp = dispinterface; _IPhidgetAdvancedServoEvents = dispinterface; IPhidgetLEDDisp = dispinterface; _IPhidgetLEDEvents = dispinterface; IPhidgetEncoderDisp = dispinterface; _IPhidgetEncoderEvents = dispinterface; IPhidgetStepperDisp = dispinterface; _IPhidgetStepperEvents = dispinterface; PhidgetManager = IPhidgetManager; PhidgetPowerBar = IPhidgetPowerBar; PhidgetServo = IPhidgetServo; PhidgetInterfaceKit = IPhidgetInterfaceKit; PhidgetMarmot = IPhidgetMarmot; PhidgetRFID = IPhidgetRFID; PhidgetPower = IPhidgetPower; PhidgetPenTray = IPhidgetPenTray; PhidgetTextLCD = IPhidgetTextLCD; PhidgetGraphicLCD = IPhidgetGraphicLCD; PhidgetAdvancedServo = IPhidgetAdvancedServo; PhidgetLED = IPhidgetLED; PhidgetEncoder = IPhidgetEncoder; PhidgetStepper = IPhidgetStepper; IPhidget = interface(IDispatch) ['{50484944-4745-5453-1000-000000000001}'] function Get_DeviceType: WideString; safecall; function Get_SerialNumber: SysInt; safecall; function Get_Tag: OleVariant; safecall; procedure Set_Tag (pVal: OleVariant); safecall; function Get_IsAttached: WordBool; safecall; function Get_DeviceVersion: Single; safecall; function Get_QueryDevice: WordBool; safecall; function Get_BlockingRead: WordBool; safecall; procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); safecall; procedure OnDetach; safecall; procedure OnPacket (Length: Integer; var Data: Byte); safecall; property DeviceType: WideString read Get_DeviceType; property SerialNumber: SysInt read Get_SerialNumber; property Tag: OleVariant read Get_Tag write Set_Tag; property IsAttached: WordBool read Get_IsAttached; property DeviceVersion: Single read Get_DeviceVersion; property QueryDevice: WordBool read Get_QueryDevice; property BlockingRead: WordBool read Get_BlockingRead; end; IPhidgetManager = interface(IDispatch) ['{50484944-4745-5453-1000-000000000002}'] function Get__NewEnum: IUnknown; safecall; function Get_Item (Index: Integer): IPhidget; safecall; procedure Set_Item (Index: Integer; const pVal: IPhidget); safecall; function Get_Count: Integer; safecall; procedure SendPacket (const GUID: WideString; Length: Integer; var Data: Byte); safecall; property _NewEnum: IUnknown read Get__NewEnum; property Item [Index: Integer]: IPhidget read Get_Item write Set_Item; default; property Count: Integer read Get_Count; end; IPhidgetPowerBar = interface(IPhidget) ['{50484944-4745-5453-1000-000000000005}'] function Get_OutletState (Index: Integer): WordBool; safecall; procedure Set_OutletState (Index: Integer; pVal: WordBool); safecall; function Get_NumOutlets: Integer; safecall; property OutletState [Index: Integer]: WordBool read Get_OutletState write Set_OutletState; default; property NumOutlets: Integer read Get_NumOutlets; end; IPhidgetServo = interface(IPhidget) ['{50484944-4745-5453-1000-000000000004}'] function Get_MotorPosition (Index: Integer): Single; safecall; procedure Set_MotorPosition (Index: Integer; pVal: Single); safecall; function Get_NumMotors: Integer; safecall; property MotorPosition [Index: Integer]: Single read Get_MotorPosition write Set_MotorPosition; property NumMotors: Integer read Get_NumMotors; end; IPhidgetInterfaceKit = interface(IPhidget) ['{50484944-4745-5453-1000-000000000003}'] function Get_OutputState (Index: Integer): WordBool; safecall; procedure Set_OutputState (Index: Integer; pVal: WordBool); safecall; function Get_NumOutputs: Integer; safecall; function Get_NumInputs: Integer; safecall; function Get_InputState (Index: Integer): WordBool; safecall; function Get_NumSensors: Integer; safecall; function Get_SensorRawValue (Index: Integer): Integer; safecall; function Get_SensorNormalizeMinimum (Index: Integer): Integer; safecall; procedure Set_SensorNormalizeMinimum (Index: Integer; pVal: Integer); safecall; function Get_SensorNormalizeMaximum (Index: Integer): Integer; safecall; procedure Set_SensorNormalizeMaximum (Index: Integer; pVal: Integer); safecall; function Get_SensorChangeTrigger (Index: Integer): Integer; safecall; procedure Set_SensorChangeTrigger (Index: Integer; pVal: Integer); safecall; function Get_SensorValue (Index: Integer): Integer; safecall; property OutputState [Index: Integer]: WordBool read Get_OutputState write Set_OutputState; property NumOutputs: Integer read Get_NumOutputs; property NumInputs: Integer read Get_NumInputs; property InputState [Index: Integer]: WordBool read Get_InputState; property NumSensors: Integer read Get_NumSensors; property SensorRawValue [Index: Integer]: Integer read Get_SensorRawValue; property SensorNormalizeMinimum [Index: Integer]: Integer read Get_SensorNormalizeMinimum write Set_SensorNormalizeMinimum; property SensorNormalizeMaximum [Index: Integer]: Integer read Get_SensorNormalizeMaximum write Set_SensorNormalizeMaximum; property SensorChangeTrigger [Index: Integer]: Integer read Get_SensorChangeTrigger write Set_SensorChangeTrigger; property SensorValue [Index: Integer]: Integer read Get_SensorValue; end; IPhidgetMarmot = interface(IPhidget) ['{50484944-4745-5453-1000-000000000009}'] end; IPhidgetRFID = interface(IPhidget) ['{50484944-4745-5453-1000-000000000007}'] function Get_Volume: Integer; safecall; procedure Set_Volume (pVal: Integer); safecall; function Get_NumReaders: Integer; safecall; property Volume: Integer read Get_Volume write Set_Volume; property NumReaders: Integer read Get_NumReaders; end; IPhidgetPower = interface(IPhidget) ['{50484944-4745-5453-1000-000000000006}'] function Get_DutyCycle (Index: Integer): Integer; safecall; procedure Set_DutyCycle (Index: Integer; pVal: Integer); safecall; function Get_Frequency (Index: Integer): Single; safecall; procedure Set_Frequency (Index: Integer; pVal: Single); safecall; function Get_RawPulseOn (Index: Integer): SysInt; safecall; procedure Set_RawPulseOn (Index: Integer; pVal: SysInt); safecall; function Get_RawPulseOff (Index: Integer): SysInt; safecall; procedure Set_RawPulseOff (Index: Integer; pVal: SysInt); safecall; function Get_NumDrivers: Integer; safecall; property DutyCycle [Index: Integer]: Integer read Get_DutyCycle write Set_DutyCycle; default; property Frequency [Index: Integer]: Single read Get_Frequency write Set_Frequency; property RawPulseOn [Index: Integer]: SysInt read Get_RawPulseOn write Set_RawPulseOn; property RawPulseOff [Index: Integer]: SysInt read Get_RawPulseOff write Set_RawPulseOff; property NumDrivers: Integer read Get_NumDrivers; end; IPhidgetPenTray = interface(IPhidget) ['{50484944-4745-5453-1000-000000000008}'] end; IPhidgetTextLCD = interface(IPhidget) ['{50484944-4745-5453-1000-00000000000A}'] procedure Set_DisplayString (Row: Integer; const Param2: WideString); safecall; function Get_NumRows: Integer; safecall; function Get_NumColumns: Integer; safecall; function Get_Backlight: WordBool; safecall; procedure Set_Backlight (pVal: WordBool); safecall; function Get_CursorOn: WordBool; safecall; procedure Set_CursorOn (pVal: WordBool); safecall; function Get_CursorBlink: WordBool; safecall; procedure Set_CursorBlink (pVal: WordBool); safecall; function Get_NumSymbols: Integer; safecall; function Get_Symbol (Index: Integer): WordBool; safecall; procedure Set_Symbol (Index: Integer; pVal: WordBool); safecall; procedure Set_OutputByte (Param1: Integer); safecall; property NumRows: Integer read Get_NumRows; property NumColumns: Integer read Get_NumColumns; property Backlight: WordBool read Get_Backlight write Set_Backlight; property CursorOn: WordBool read Get_CursorOn write Set_CursorOn; property CursorBlink: WordBool read Get_CursorBlink write Set_CursorBlink; property NumSymbols: Integer read Get_NumSymbols; property Symbol [Index: Integer]: WordBool read Get_Symbol write Set_Symbol; property DisplayString [Row: Integer]: WideString write Set_DisplayString; default; property OutputByte: Integer write Set_OutputByte; end; IPhidgetGraphicLCD = interface(IPhidget) ['{50484944-4745-5453-1000-00000000000B}'] end; IPhidgetAdvancedServo = interface(IPhidget) ['{50484944-4745-5453-1000-00000000000C}'] function Get_MotorPosition (Index: Integer): Single; safecall; procedure Set_MotorPosition (Index: Integer; pVal: Single); safecall; function Get_MaxVelocity (Index: Integer): Single; safecall; procedure Set_MaxVelocity (Index: Integer; pVal: Single); safecall; function Get_Acceleration (Index: Integer): Single; safecall; procedure Set_Acceleration (Index: Integer; pVal: Single); safecall; function Get_MotorEnabled (Index: Integer): WordBool; safecall; procedure Set_MotorEnabled (Index: Integer; pVal: WordBool); safecall; function Get_NumMotors: Integer; safecall; property MotorPosition [Index: Integer]: Single read Get_MotorPosition write Set_MotorPosition; property MaxVelocity [Index: Integer]: Single read Get_MaxVelocity write Set_MaxVelocity; property Acceleration [Index: Integer]: Single read Get_Acceleration write Set_Acceleration; property MotorEnabled [Index: Integer]: WordBool read Get_MotorEnabled write Set_MotorEnabled; property NumMotors: Integer read Get_NumMotors; end; IPhidgetLED = interface(IPhidget) ['{50484944-4745-5453-1000-00000000000D}'] procedure Set_DisplayString (const Param1: WideString); safecall; procedure Set_DisplayRawData (var Param1: Byte); safecall; function Get_Brightness: Integer; safecall; procedure Set_Brightness (pVal: Integer); safecall; property Brightness: Integer read Get_Brightness write Set_Brightness; property DisplayString: WideString write Set_DisplayString; end; IPhidgetEncoder = interface(IPhidget) ['{50484944-4745-5453-1000-00000000000E}'] function Get_EncoderPosition (Index: Integer): Integer; safecall; procedure Set_EncoderPosition (Index: Integer; pVal: Integer); safecall; function Get_PushButtonState (Index: Integer): WordBool; safecall; function Get_NumEncoders: Integer; safecall; property EncoderPosition [Index: Integer]: Integer read Get_EncoderPosition write Set_EncoderPosition; property PushButtonState [Index: Integer]: WordBool read Get_PushButtonState; property NumEncoders: Integer read Get_NumEncoders; end; IPhidgetStepper = interface(IPhidget) ['{50484944-4745-5453-1000-00000000000F}'] function Get_MotorPosition (Index: Integer): SysInt; safecall; procedure Set_MotorPosition (Index: Integer; pVal: SysInt); safecall; function Get_MaxVelocity (Index: Integer): Single; safecall; procedure Set_MaxVelocity (Index: Integer; pVal: Single); safecall; function Get_Acceleration (Index: Integer): Single; safecall; procedure Set_Acceleration (Index: Integer; pVal: Single); safecall; function Get_MotorEnabled (Index: Integer): WordBool; safecall; procedure Set_MotorEnabled (Index: Integer; pVal: WordBool); safecall; function Get_NumMotors: Integer; safecall; property MotorPosition [Index: Integer]: SysInt read Get_MotorPosition write Set_MotorPosition; property MaxVelocity [Index: Integer]: Single read Get_MaxVelocity write Set_MaxVelocity; property Acceleration [Index: Integer]: Single read Get_Acceleration write Set_Acceleration; property MotorEnabled [Index: Integer]: WordBool read Get_MotorEnabled write Set_MotorEnabled; property NumMotors: Integer read Get_NumMotors; end; IPhidgetManagerDisp = dispinterface ['{50484944-4745-5453-1000-000000000002}'] procedure SendPacket (const GUID: WideString; Length: Integer; var Data: Byte); dispid 3; property _NewEnum: IUnknown readonly dispid -4; property Item [Index: Integer]: IPhidget dispid 0; default; property Count: Integer readonly dispid 1; end; IPhidgetDisp = dispinterface ['{50484944-4745-5453-1000-000000000001}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; end; _IPhidgetManagerEvents = dispinterface ['{50484944-4745-5453-2000-000000000002}'] procedure OnAttach (const PHIDGET: IPhidget); dispid 1; procedure OnDetach (const PHIDGET: IPhidget); dispid 2; procedure OnError (const PHIDGET: IPhidget; const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetPowerBarDisp = dispinterface ['{50484944-4745-5453-1000-000000000005}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property OutletState [Index: Integer]: WordBool dispid 0; default; property NumOutlets: Integer readonly dispid 1; end; _IPhidgetPowerBarEvents = dispinterface ['{50484944-4745-5453-2000-000000000005}'] procedure OnChange (Index: Integer; State: WordBool); dispid 1; procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetServoDisp = dispinterface ['{50484944-4745-5453-1000-000000000004}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property MotorPosition [Index: Integer]: Single dispid 32751; property NumMotors: Integer readonly dispid 32753; end; _IPhidgetServoEvents = dispinterface ['{50484944-4745-5453-2000-000000000004}'] procedure OnPositionChange (Index: Integer; Position: Single); dispid 1; procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetInterfaceKitDisp = dispinterface ['{50484944-4745-5453-1000-000000000003}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property OutputState [Index: Integer]: WordBool dispid 100; property NumOutputs: Integer readonly dispid 101; property NumInputs: Integer readonly dispid 103; property InputState [Index: Integer]: WordBool readonly dispid 104; property NumSensors: Integer readonly dispid 105; property SensorRawValue [Index: Integer]: Integer readonly dispid 106; property SensorNormalizeMinimum [Index: Integer]: Integer dispid 107; property SensorNormalizeMaximum [Index: Integer]: Integer dispid 108; property SensorChangeTrigger [Index: Integer]: Integer dispid 109; property SensorValue [Index: Integer]: Integer readonly dispid 110; end; _IPhidgetInterfaceKitEvents = dispinterface ['{50484944-4745-5453-2000-000000000003}'] procedure OnDetach; dispid 1; procedure OnError (const Description: WideString; SCODE: Integer); dispid 2; procedure OnInputChange (Index: Integer; NewState: WordBool); dispid 3; procedure OnOutputChange (Index: Integer; NewState: WordBool); dispid 4; procedure OnSensorChange (Index: Integer; SensorValue: Integer); dispid 5; end; IPhidgetMarmotDisp = dispinterface ['{50484944-4745-5453-1000-000000000009}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; end; _IPhidgetMarmotEvents = dispinterface ['{50484944-4745-5453-2000-000000000009}'] procedure OnButtonDown (Button: Integer; X: Integer; Y: Integer); dispid 1; procedure OnButtonUp (Button: Integer; X: Integer; Y: Integer); dispid 2; procedure OnMove (Button: Integer; X: Integer; Y: Integer); dispid 3; procedure OnDetach; dispid 4; procedure OnError (const Description: WideString; SCODE: Integer); dispid 5; end; IPhidgetRFIDDisp = dispinterface ['{50484944-4745-5453-1000-000000000007}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property Volume: Integer dispid 100; property NumReaders: Integer readonly dispid 101; end; _IPhidgetRFIDEvents = dispinterface ['{50484944-4745-5453-2000-000000000007}'] procedure OnTag (Index: Integer; const TagNumber: WideString); dispid 1; procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetPowerDisp = dispinterface ['{50484944-4745-5453-1000-000000000006}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property DutyCycle [Index: Integer]: Integer dispid 0; default; property Frequency [Index: Integer]: Single dispid 1; property RawPulseOn [Index: Integer]: SysInt dispid 2; property RawPulseOff [Index: Integer]: SysInt dispid 3; property NumDrivers: Integer readonly dispid 4; end; _IPhidgetPowerEvents = dispinterface ['{50484944-4745-5453-2000-000000000006}'] procedure OnCurrentChange (Index: Integer; Position: Integer); dispid 1; procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetPenTrayDisp = dispinterface ['{50484944-4745-5453-1000-000000000008}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; end; _IPhidgetPenTrayEvents = dispinterface ['{50484944-4745-5453-2000-000000000008}'] procedure OnPacket (Length: Integer; const Data: WideString); dispid 1; procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetTextLCDDisp = dispinterface ['{50484944-4745-5453-1000-00000000000A}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property NumRows: Integer readonly dispid 1; property NumColumns: Integer readonly dispid 2; property Backlight: WordBool dispid 3; property CursorOn: WordBool dispid 4; property CursorBlink: WordBool dispid 5; property NumSymbols: Integer readonly dispid 6; property Symbol [Index: Integer]: WordBool dispid 7; property DisplayString [Row: Integer]: WideString writeonly dispid 0; default; property OutputByte: Integer writeonly dispid 8; end; _IPhidgetTextLCDEvents = dispinterface ['{50484944-4745-5453-2000-00000000000A}'] procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetGraphicLCDDisp = dispinterface ['{50484944-4745-5453-1000-00000000000B}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; end; _IPhidgetGraphicLCDEvents = dispinterface ['{50484944-4745-5453-2000-00000000000B}'] procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetAdvancedServoDisp = dispinterface ['{50484944-4745-5453-1000-00000000000C}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property MotorPosition [Index: Integer]: Single dispid 32751; property MaxVelocity [Index: Integer]: Single dispid 32752; property Acceleration [Index: Integer]: Single dispid 32753; property MotorEnabled [Index: Integer]: WordBool dispid 32754; property NumMotors: Integer readonly dispid 32755; end; _IPhidgetAdvancedServoEvents = dispinterface ['{50484944-4745-5453-2000-00000000000C}'] procedure OnPositionChange (Index: Integer; Position: Single); dispid 1; procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetLEDDisp = dispinterface ['{50484944-4745-5453-1000-00000000000D}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property Brightness: Integer dispid 258; property DisplayString: WideString writeonly dispid 256; end; _IPhidgetLEDEvents = dispinterface ['{50484944-4745-5453-2000-00000000000D}'] procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; IPhidgetEncoderDisp = dispinterface ['{50484944-4745-5453-1000-00000000000E}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property EncoderPosition [Index: Integer]: Integer dispid 100; property PushButtonState [Index: Integer]: WordBool readonly dispid 101; property NumEncoders: Integer readonly dispid 102; end; _IPhidgetEncoderEvents = dispinterface ['{50484944-4745-5453-2000-00000000000E}'] procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; procedure OnPushButtonChange (Index: Integer; NewState: WordBool); dispid 4; procedure OnPositionChange (Index: Integer; EncoderDisplacement: Integer; Time: Integer); dispid 5; end; IPhidgetStepperDisp = dispinterface ['{50484944-4745-5453-1000-00000000000F}'] procedure OnAttach (const Manager: IPhidgetManager; const GUID: WideString; SerialNumber: SysInt; VersionNumber: Integer; const DeviceType: WideString; ProductID: LongWord; Length: Integer; var Data: Byte); dispid 32776; procedure OnDetach; dispid 32777; procedure OnPacket (Length: Integer; var Data: Byte); dispid 32778; property DeviceType: WideString readonly dispid 32769; property SerialNumber: SysInt readonly dispid 32770; property Tag: OleVariant dispid 32771; property IsAttached: WordBool readonly dispid 32772; property DeviceVersion: Single readonly dispid 32773; property QueryDevice: WordBool readonly dispid 32774; property BlockingRead: WordBool readonly dispid 32775; property MotorPosition [Index: Integer]: SysInt dispid 32751; property MaxVelocity [Index: Integer]: Single dispid 32752; property Acceleration [Index: Integer]: Single dispid 32753; property MotorEnabled [Index: Integer]: WordBool dispid 32754; property NumMotors: Integer readonly dispid 32755; end; _IPhidgetStepperEvents = dispinterface ['{50484944-4745-5453-2000-00000000000F}'] procedure OnPositionChange (Index: Integer; Position: Single); dispid 1; procedure OnDetach; dispid 2; procedure OnError (const Description: WideString; SCODE: Integer); dispid 3; end; CoPhidgetManager = class class function Create: IPhidgetManager; class function CreateRemote (const MachineName: String): IPhidgetManager; end; CoPhidgetPowerBar = class class function Create: IPhidgetPowerBar; class function CreateRemote (const MachineName: String): IPhidgetPowerBar; end; CoPhidgetServo = class class function Create: IPhidgetServo; class function CreateRemote (const MachineName: String): IPhidgetServo; end; CoPhidgetInterfaceKit = class class function Create: IPhidgetInterfaceKit; class function CreateRemote (const MachineName: String): IPhidgetInterfaceKit; end; CoPhidgetMarmot = class class function Create: IPhidgetMarmot; class function CreateRemote (const MachineName: String): IPhidgetMarmot; end; CoPhidgetRFID = class class function Create: IPhidgetRFID; class function CreateRemote (const MachineName: String): IPhidgetRFID; end; CoPhidgetPower = class class function Create: IPhidgetPower; class function CreateRemote (const MachineName: String): IPhidgetPower; end; CoPhidgetPenTray = class class function Create: IPhidgetPenTray; class function CreateRemote (const MachineName: String): IPhidgetPenTray; end; CoPhidgetTextLCD = class class function Create: IPhidgetTextLCD; class function CreateRemote (const MachineName: String): IPhidgetTextLCD; end; CoPhidgetGraphicLCD = class class function Create: IPhidgetGraphicLCD; class function CreateRemote (const MachineName: String): IPhidgetGraphicLCD; end; CoPhidgetAdvancedServo = class class function Create: IPhidgetAdvancedServo; class function CreateRemote (const MachineName: String): IPhidgetAdvancedServo; end; CoPhidgetLED = class class function Create: IPhidgetLED; class function CreateRemote (const MachineName: String): IPhidgetLED; end; CoPhidgetEncoder = class class function Create: IPhidgetEncoder; class function CreateRemote (const MachineName: String): IPhidgetEncoder; end; CoPhidgetStepper = class class function Create: IPhidgetStepper; class function CreateRemote (const MachineName: String): IPhidgetStepper; end; implementation uses ComObj; class function CoPhidgetManager.Create: IPhidgetManager; begin Result := CreateComObject (CLSID_PhidgetManager) as IPhidgetManager; end; class function CoPhidgetManager.CreateRemote (const MachineName: String): IPhidgetManager; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetManager) as IPhidgetManager; end; class function CoPhidgetPowerBar.Create: IPhidgetPowerBar; begin Result := CreateComObject (CLSID_PhidgetPowerBar) as IPhidgetPowerBar; end; class function CoPhidgetPowerBar.CreateRemote (const MachineName: String): IPhidgetPowerBar; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetPowerBar) as IPhidgetPowerBar; end; class function CoPhidgetServo.Create: IPhidgetServo; begin Result := CreateComObject (CLSID_PhidgetServo) as IPhidgetServo; end; class function CoPhidgetServo.CreateRemote (const MachineName: String): IPhidgetServo; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetServo) as IPhidgetServo; end; class function CoPhidgetInterfaceKit.Create: IPhidgetInterfaceKit; begin Result := CreateComObject (CLSID_PhidgetInterfaceKit) as IPhidgetInterfaceKit; end; class function CoPhidgetInterfaceKit.CreateRemote (const MachineName: String): IPhidgetInterfaceKit; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetInterfaceKit) as IPhidgetInterfaceKit; end; class function CoPhidgetMarmot.Create: IPhidgetMarmot; begin Result := CreateComObject (CLSID_PhidgetMarmot) as IPhidgetMarmot; end; class function CoPhidgetMarmot.CreateRemote (const MachineName: String): IPhidgetMarmot; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetMarmot) as IPhidgetMarmot; end; class function CoPhidgetRFID.Create: IPhidgetRFID; begin Result := CreateComObject (CLSID_PhidgetRFID) as IPhidgetRFID; end; class function CoPhidgetRFID.CreateRemote (const MachineName: String): IPhidgetRFID; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetRFID) as IPhidgetRFID; end; class function CoPhidgetPower.Create: IPhidgetPower; begin Result := CreateComObject (CLSID_PhidgetPower) as IPhidgetPower; end; class function CoPhidgetPower.CreateRemote (const MachineName: String): IPhidgetPower; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetPower) as IPhidgetPower; end; class function CoPhidgetPenTray.Create: IPhidgetPenTray; begin Result := CreateComObject (CLSID_PhidgetPenTray) as IPhidgetPenTray; end; class function CoPhidgetPenTray.CreateRemote (const MachineName: String): IPhidgetPenTray; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetPenTray) as IPhidgetPenTray; end; class function CoPhidgetTextLCD.Create: IPhidgetTextLCD; begin Result := CreateComObject (CLSID_PhidgetTextLCD) as IPhidgetTextLCD; end; class function CoPhidgetTextLCD.CreateRemote (const MachineName: String): IPhidgetTextLCD; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetTextLCD) as IPhidgetTextLCD; end; class function CoPhidgetGraphicLCD.Create: IPhidgetGraphicLCD; begin Result := CreateComObject (CLSID_PhidgetGraphicLCD) as IPhidgetGraphicLCD; end; class function CoPhidgetGraphicLCD.CreateRemote (const MachineName: String): IPhidgetGraphicLCD; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetGraphicLCD) as IPhidgetGraphicLCD; end; class function CoPhidgetAdvancedServo.Create: IPhidgetAdvancedServo; begin Result := CreateComObject (CLSID_PhidgetAdvancedServo) as IPhidgetAdvancedServo; end; class function CoPhidgetAdvancedServo.CreateRemote (const MachineName: String): IPhidgetAdvancedServo; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetAdvancedServo) as IPhidgetAdvancedServo; end; class function CoPhidgetLED.Create: IPhidgetLED; begin Result := CreateComObject (CLSID_PhidgetLED) as IPhidgetLED; end; class function CoPhidgetLED.CreateRemote (const MachineName: String): IPhidgetLED; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetLED) as IPhidgetLED; end; class function CoPhidgetEncoder.Create: IPhidgetEncoder; begin Result := CreateComObject (CLSID_PhidgetEncoder) as IPhidgetEncoder; end; class function CoPhidgetEncoder.CreateRemote (const MachineName: String): IPhidgetEncoder; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetEncoder) as IPhidgetEncoder; end; class function CoPhidgetStepper.Create: IPhidgetStepper; begin Result := CreateComObject (CLSID_PhidgetStepper) as IPhidgetStepper; end; class function CoPhidgetStepper.CreateRemote (const MachineName: String): IPhidgetStepper; begin Result := CreateRemoteComObject (MachineName, CLSID_PhidgetStepper) as IPhidgetStepper; end; end.