mediaplayer_tlb.pas

ATViewer is a component for Delphi/C++Builder, which allows to view files of various types. There is

  end;

// *********************************************************************//
// Interface: IMediaPlayerDvd
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {746EB440-3835-11D2-9774-0000F80855E6}
// *********************************************************************//
  IMediaPlayerDvd = interface(IDispatch)
    ['{746EB440-3835-11D2-9774-0000F80855E6}']
    procedure ButtonSelectAndActivate(uiButton: LongWord); safecall;
    procedure UpperButtonSelect; safecall;
    procedure LowerButtonSelect; safecall;
    procedure LeftButtonSelect; safecall;
    procedure RightButtonSelect; safecall;
    procedure ButtonActivate; safecall;
    procedure ForwardScan(dwSpeed: Double); safecall;
    procedure BackwardScan(dwSpeed: Double); safecall;
    procedure PrevPGSearch; safecall;
    procedure TopPGSearch; safecall;
    procedure NextPGSearch; safecall;
    procedure TitlePlay(uiTitle: LongWord); safecall;
    procedure ChapterPlay(uiTitle: LongWord; uiChapter: LongWord); safecall;
    procedure ChapterSearch(Chapter: LongWord); safecall;
    procedure MenuCall(MenuID: DVDMenuIDConstants); safecall;
    procedure ResumeFromMenu; safecall;
    procedure TimePlay(uiTitle: LongWord; const bstrTime: WideString); safecall;
    procedure TimeSearch(const bstrTime: WideString); safecall;
    procedure ChapterPlayAutoStop(ulTitle: LongWord; ulChapter: LongWord; ulChaptersToPlay: LongWord); safecall;
    procedure StillOff; safecall;
    procedure GoUp; safecall;
    function  Get_TotalTitleTime: WideString; safecall;
    function  GetNumberOfChapters(ulTitle: LongWord): LongWord; safecall;
    function  GetAudioLanguage(ulStream: LongWord): WideString; safecall;
    function  GetSubpictureLanguage(ulStream: LongWord): WideString; safecall;
    function  GetAllGPRMs: OleVariant; safecall;
    function  GetAllSPRMs: OleVariant; safecall;
    function  UOPValid(ulUOP: LongWord): WordBool; safecall;
    function  Get_ButtonsAvailable: LongWord; safecall;
    function  Get_CurrentButton: LongWord; safecall;
    function  Get_AudioStreamsAvailable: LongWord; safecall;
    function  Get_CurrentAudioStream: LongWord; safecall;
    procedure Set_CurrentAudioStream(ulAudioStream: LongWord); safecall;
    function  Get_CurrentSubpictureStream: LongWord; safecall;
    procedure Set_CurrentSubpictureStream(ulSubpictureStream: LongWord); safecall;
    function  Get_SubpictureStreamsAvailable: LongWord; safecall;
    function  Get_SubpictureOn: WordBool; safecall;
    procedure Set_SubpictureOn(bSubpictureON: WordBool); safecall;
    function  Get_AnglesAvailable: LongWord; safecall;
    function  Get_CurrentAngle: LongWord; safecall;
    procedure Set_CurrentAngle(ulAngle: LongWord); safecall;
    function  Get_CurrentTitle: LongWord; safecall;
    function  Get_CurrentChapter: LongWord; safecall;
    function  Get_CurrentTime: WideString; safecall;
    procedure Set_Root(const pbstrPath: WideString); safecall;
    function  Get_Root: WideString; safecall;
    function  Get_FramesPerSecond: LongWord; safecall;
    function  Get_CurrentDomain: LongWord; safecall;
    function  Get_TitlesAvailable: LongWord; safecall;
    function  Get_VolumesAvailable: LongWord; safecall;
    function  Get_CurrentVolume: LongWord; safecall;
    function  Get_CurrentDiscSide: LongWord; safecall;
    function  Get_CCActive: WordBool; safecall;
    procedure Set_CCActive(bCCActive: WordBool); safecall;
    function  Get_CurrentCCService: LongWord; safecall;
    procedure Set_CurrentCCService(pulService: LongWord); safecall;
    function  Get_UniqueID: WideString; safecall;
    function  Get_ColorKey: LongWord; safecall;
    procedure Set_ColorKey(pClr: LongWord); safecall;
    property TotalTitleTime: WideString read Get_TotalTitleTime;
    property ButtonsAvailable: LongWord read Get_ButtonsAvailable;
    property CurrentButton: LongWord read Get_CurrentButton;
    property AudioStreamsAvailable: LongWord read Get_AudioStreamsAvailable;
    property CurrentAudioStream: LongWord read Get_CurrentAudioStream write Set_CurrentAudioStream;
    property CurrentSubpictureStream: LongWord read Get_CurrentSubpictureStream write Set_CurrentSubpictureStream;
    property SubpictureStreamsAvailable: LongWord read Get_SubpictureStreamsAvailable;
    property SubpictureOn: WordBool read Get_SubpictureOn write Set_SubpictureOn;
    property AnglesAvailable: LongWord read Get_AnglesAvailable;
    property CurrentAngle: LongWord read Get_CurrentAngle write Set_CurrentAngle;
    property CurrentTitle: LongWord read Get_CurrentTitle;
    property CurrentChapter: LongWord read Get_CurrentChapter;
    property CurrentTime: WideString read Get_CurrentTime;
    property Root: WideString read Get_Root write Set_Root;
    property FramesPerSecond: LongWord read Get_FramesPerSecond;
    property CurrentDomain: LongWord read Get_CurrentDomain;
    property TitlesAvailable: LongWord read Get_TitlesAvailable;
    property VolumesAvailable: LongWord read Get_VolumesAvailable;
    property CurrentVolume: LongWord read Get_CurrentVolume;
    property CurrentDiscSide: LongWord read Get_CurrentDiscSide;
    property CCActive: WordBool read Get_CCActive write Set_CCActive;
    property CurrentCCService: LongWord read Get_CurrentCCService write Set_CurrentCCService;
    property UniqueID: WideString read Get_UniqueID;
    property ColorKey: LongWord read Get_ColorKey write Set_ColorKey;
  end;

// *********************************************************************//
// DispIntf:  IMediaPlayerDvdDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {746EB440-3835-11D2-9774-0000F80855E6}
// *********************************************************************//
  IMediaPlayerDvdDisp = dispinterface
    ['{746EB440-3835-11D2-9774-0000F80855E6}']
    procedure ButtonSelectAndActivate(uiButton: LongWord); dispid 1526;
    procedure UpperButtonSelect; dispid 1521;
    procedure LowerButtonSelect; dispid 1522;
    procedure LeftButtonSelect; dispid 1523;
    procedure RightButtonSelect; dispid 1524;
    procedure ButtonActivate; dispid 1525;
    procedure ForwardScan(dwSpeed: Double); dispid 1517;
    procedure BackwardScan(dwSpeed: Double); dispid 1518;
    procedure PrevPGSearch; dispid 1514;
    procedure TopPGSearch; dispid 1515;
    procedure NextPGSearch; dispid 1516;
    procedure TitlePlay(uiTitle: LongWord); dispid 1507;
    procedure ChapterPlay(uiTitle: LongWord; uiChapter: LongWord); dispid 1508;
    procedure ChapterSearch(Chapter: LongWord); dispid 1513;
    procedure MenuCall(MenuID: DVDMenuIDConstants); dispid 1519;
    procedure ResumeFromMenu; dispid 1520;
    procedure TimePlay(uiTitle: LongWord; const bstrTime: WideString); dispid 1509;
    procedure TimeSearch(const bstrTime: WideString); dispid 1512;
    procedure ChapterPlayAutoStop(ulTitle: LongWord; ulChapter: LongWord; ulChaptersToPlay: LongWord); dispid 1541;
    procedure StillOff; dispid 1527;
    procedure GoUp; dispid 1511;
    property TotalTitleTime: WideString readonly dispid 1582;
    function  GetNumberOfChapters(ulTitle: LongWord): LongWord; dispid 1550;
    function  GetAudioLanguage(ulStream: LongWord): WideString; dispid 1551;
    function  GetSubpictureLanguage(ulStream: LongWord): WideString; dispid 1555;
    function  GetAllGPRMs: OleVariant; dispid 1560;
    function  GetAllSPRMs: OleVariant; dispid 1559;
    function  UOPValid(ulUOP: LongWord): WordBool; dispid 1579;
    property ButtonsAvailable: LongWord readonly dispid 1571;
    property CurrentButton: LongWord readonly dispid 1570;
    property AudioStreamsAvailable: LongWord readonly dispid 1543;
    property CurrentAudioStream: LongWord dispid 1544;
    property CurrentSubpictureStream: LongWord dispid 1545;
    property SubpictureStreamsAvailable: LongWord readonly dispid 1546;
    property SubpictureOn: WordBool dispid 1547;
    property AnglesAvailable: LongWord readonly dispid 1549;
    property CurrentAngle: LongWord dispid 1548;
    property CurrentTitle: LongWord readonly dispid 1567;
    property CurrentChapter: LongWord readonly dispid 1568;
    property CurrentTime: WideString readonly dispid 1569;
    property Root: WideString dispid 1538;
    property FramesPerSecond: LongWord readonly dispid 1573;
    property CurrentDomain: LongWord readonly dispid 1574;
    property TitlesAvailable: LongWord readonly dispid 1575;
    property VolumesAvailable: LongWord readonly dispid 1576;
    property CurrentVolume: LongWord readonly dispid 1577;
    property CurrentDiscSide: LongWord readonly dispid 1578;
    property CCActive: WordBool dispid 1581;
    property CurrentCCService: LongWord dispid 1580;
    property UniqueID: WideString readonly dispid 1584;
    property ColorKey: LongWord dispid 1585;
  end;

// *********************************************************************//
// DispIntf:  _IAsyncPProtEvents
// Flags:     (4096) Dispatchable
// GUID:      {3DA2AA3C-3D96-11D2-9BD2-204C4F4F5020}
// *********************************************************************//
  _IAsyncPProtEvents = dispinterface
    ['{3DA2AA3C-3D96-11D2-9BD2-204C4F4F5020}']
  end;

// *********************************************************************//
// Interface: IAsyncPProt
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3DA2AA3A-3D96-11D2-9BD2-204C4F4F5020}
// *********************************************************************//
  IAsyncPProt = interface(IDispatch)
    ['{3DA2AA3A-3D96-11D2-9BD2-204C4F4F5020}']
  end;

// *********************************************************************//
// DispIntf:  IAsyncPProtDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3DA2AA3A-3D96-11D2-9BD2-204C4F4F5020}
// *********************************************************************//
  IAsyncPProtDisp = dispinterface
    ['{3DA2AA3A-3D96-11D2-9BD2-204C4F4F5020}']
  end;

// *********************************************************************//
// Interface: IAsyncMHandler
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3DA2AA3D-3D96-11D2-9BD2-204C4F4F5020}
// *********************************************************************//
  IAsyncMHandler = interface(IDispatch)
    ['{3DA2AA3D-3D96-11D2-9BD2-204C4F4F5020}']
  end;

// *********************************************************************//
// DispIntf:  IAsyncMHandlerDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {3DA2AA3D-3D96-11D2-9BD2-204C4F4F5020}
// *********************************************************************//
  IAsyncMHandlerDisp = dispinterface
    ['{3DA2AA3D-3D96-11D2-9BD2-204C4F4F5020}']
  end;

// *********************************************************************//
// DispIntf:  _IRadioPlayerEvents
// Flags:     (4096) Dispatchable
// GUID:      {9C2263B1-3E3C-11D2-9BD3-204C4F4F5020}
// *********************************************************************//
  _IRadioPlayerEvents = dispinterface
    ['{9C2263B1-3E3C-11D2-9BD3-204C4F4F5020}']
    procedure StateChange(const bszUrl: WideString; fPlay: WordBool; lVolume: Integer; 
                          fMute: WordBool); dispid 12;
  end;

// *********************************************************************//
// Interface: IRadioPlayer
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9C2263AF-3E3C-11D2-9BD3-204C4F4F5020}
// *********************************************************************//
  IRadioPlayer = interface(IDispatch)
    ['{9C2263AF-3E3C-11D2-9BD3-204C4F4F5020}']
    procedure BindRadioMemory; safecall;
    procedure ReleaseRadio; safecall;
    function  RegisterEvent(const bszEvent: WideString): Integer; safecall;
    function  RegisterWindow(lHWND: Integer; dwMessage: LongWord; dwCodeSet: LongWord): Integer; safecall;
    function  GetSection: WideString; safecall;
    procedure Unregister(lRegister: Integer); safecall;
    function  GetInstanceCount: Integer; safecall;
    procedure Play; safecall;
    procedure Stop; safecall;
    procedure Set_Url(const Param1: WideString); safecall;
    procedure Set_Volume(Param1: Integer); safecall;
    procedure Set_Mute(Param1: WordBool); safecall;
    procedure GetStatus(out plVolume: Integer; out pfMute: Integer; out pfPlay: Integer; 
                        out __MIDL_0012: WideString; out __MIDL_0013: WideString; 
                        out __MIDL_0014: WideString; out __MIDL_0015: WideString; 
                        out __MIDL_0016: WideString; out __MIDL_0017: WideString; 
                        out __MIDL_0018: WideString); safecall;
    procedure GetState(out plOpenState: Integer; out pfBuffering: Integer; 
                       out plBufferingPercent: Integer; out plQuality: Integer); safecall;
    property Url: WideString write Set_Url;
    property Volume: Integer write Set_Volume;
    property Mute: WordBool write Set_Mute;
  end;

// *********************************************************************//
// DispIntf:  IRadioPlayerDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9C2263AF-3E3C-11D2-9BD3-204