📄 mediaplayer_tlb.pas
字号:
ppDSApp = IUnknown;
ppDSPropAdv = IUnknown;
ppDSView = IUnknown;
ppDSOAdv = IUnknown;
AsyncPProt = IAsyncPProt;
AsyncMHandler = IAsyncMHandler;
RadioPlayer = IRadioPlayer;
RadioServer = IRadioPlayer;
RadioBand = IRadioBand;
ppDSFile = IUnknown;
// *********************************************************************//
// Declaration of structures, unions and aliases.
// *********************************************************************//
PIUnknown1 = ^IUnknown; {*}
PUserType1 = ^TGUID; {*}
PInteger1 = ^Integer; {*}
VB_OLE_COLOR = LongWord;
// *********************************************************************//
// DispIntf: _IDirectControlEvents
// Flags: (4096) Dispatchable
// GUID: {39A2C2A7-4778-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
_IDirectControlEvents = dispinterface
['{39A2C2A7-4778-11D2-9BDB-204C4F4F5020}']
end;
// *********************************************************************//
// Interface: IDirectControl
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {39A2C2A5-4778-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
IDirectControl = interface(IDispatch)
['{39A2C2A5-4778-11D2-9BDB-204C4F4F5020}']
procedure CreateView(const bszClsid: WideString); safecall;
procedure DestroyAllViews; safecall;
end;
// *********************************************************************//
// DispIntf: IDirectControlDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {39A2C2A5-4778-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
IDirectControlDisp = dispinterface
['{39A2C2A5-4778-11D2-9BDB-204C4F4F5020}']
procedure CreateView(const bszClsid: WideString); dispid 1610743808;
procedure DestroyAllViews; dispid 1610743809;
end;
// *********************************************************************//
// DispIntf: _IDirectContainerEvents
// Flags: (4096) Dispatchable
// GUID: {39A2C2AA-4778-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
_IDirectContainerEvents = dispinterface
['{39A2C2AA-4778-11D2-9BDB-204C4F4F5020}']
end;
// *********************************************************************//
// Interface: IDirectContainer
// Flags: (0)
// GUID: {39A2C2A8-4778-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
IDirectContainer = interface(IUnknown)
['{39A2C2A8-4778-11D2-9BDB-204C4F4F5020}']
function CreateControl(const bszClsid: WideString; dwClsContext: LongWord;
var ppunk: IUnknown; dwWindowStyle: LongWord): HResult; stdcall;
function SetServiceProvider(const pspSet: IServiceProvider): HResult; stdcall;
function SetIInputObjectSite(const pios: IUnknown): HResult; stdcall;
function ShowControl: HResult; stdcall;
function HideControl: HResult; stdcall;
function IsControlCreated: HResult; stdcall;
function DestroyControl: HResult; stdcall;
end;
// *********************************************************************//
// Interface: IServiceProvider
// Flags: (0)
// GUID: {6D5140C1-7436-11CE-8034-00AA006009FA}
// *********************************************************************//
IServiceProvider = interface(IUnknown)
['{6D5140C1-7436-11CE-8034-00AA006009FA}']
function RemoteQueryService(var guidService: TGUID; var riid: TGUID; out ppvObject: IUnknown): HResult; stdcall;
end;
// *********************************************************************//
// DispIntf: _IRadioViewEvents
// Flags: (4096) Dispatchable
// GUID: {847B4DF6-4B61-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
_IRadioViewEvents = dispinterface
['{847B4DF6-4B61-11D2-9BDB-204C4F4F5020}']
end;
// *********************************************************************//
// Interface: IRadioView
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {847B4DF4-4B61-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
IRadioView = interface(IDispatch)
['{847B4DF4-4B61-11D2-9BDB-204C4F4F5020}']
end;
// *********************************************************************//
// DispIntf: IRadioViewDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {847B4DF4-4B61-11D2-9BDB-204C4F4F5020}
// *********************************************************************//
IRadioViewDisp = dispinterface
['{847B4DF4-4B61-11D2-9BDB-204C4F4F5020}']
end;
// *********************************************************************//
// DispIntf: _MediaPlayerEvents
// Flags: (4112) Hidden Dispatchable
// GUID: {2D3A4C40-E711-11D0-94AB-0080C74C7E95}
// *********************************************************************//
_MediaPlayerEvents = dispinterface
['{2D3A4C40-E711-11D0-94AB-0080C74C7E95}']
procedure DVDNotify(EventCode: Integer; EventParam1: Integer; EventParam2: Integer); dispid 1505;
procedure EndOfStream(Result: Integer); dispid 3002;
procedure KeyDown(KeyCode: Smallint; ShiftState: Smallint); dispid -602;
procedure KeyUp(KeyCode: Smallint; ShiftState: Smallint); dispid -604;
procedure KeyPress(CharacterCode: Smallint); dispid -603;
procedure MouseMove(Button: Smallint; ShiftState: Smallint; x: OLE_XPOS_PIXELS;
y: OLE_YPOS_PIXELS); dispid -606;
procedure MouseDown(Button: Smallint; ShiftState: Smallint; x: OLE_XPOS_PIXELS;
y: OLE_YPOS_PIXELS); dispid -605;
procedure MouseUp(Button: Smallint; ShiftState: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -607;
procedure Click(Button: Smallint; ShiftState: Smallint; x: OLE_XPOS_PIXELS; y: OLE_YPOS_PIXELS); dispid -600;
procedure DblClick(Button: Smallint; ShiftState: Smallint; x: OLE_XPOS_PIXELS;
y: OLE_YPOS_PIXELS); dispid -601;
procedure OpenStateChange(OldState: Integer; NewState: Integer); dispid 3011;
procedure PlayStateChange(OldState: Integer; NewState: Integer); dispid 3012;
procedure ScriptCommand(const scType: WideString; const Param: WideString); dispid 3001;
procedure Buffering(Start: WordBool); dispid 3003;
procedure Error; dispid 3010;
procedure MarkerHit(MarkerNum: Integer); dispid 3006;
procedure Warning(WarningType: Integer; Param: Integer; const Description: WideString); dispid 3009;
procedure NewStream; dispid 3008;
procedure Disconnect(Result: Integer); dispid 3004;
procedure PositionChange(oldPosition: Double; newPosition: Double); dispid 2;
procedure DisplayModeChange; dispid 51;
procedure ReadyStateChange(ReadyState: ReadyStateConstants); dispid -609;
end;
// *********************************************************************//
// Interface: IMediaPlayer
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {22D6F311-B0F6-11D0-94AB-0080C74C7E95}
// *********************************************************************//
IMediaPlayer = interface(IDispatch)
['{22D6F311-B0F6-11D0-94AB-0080C74C7E95}']
function Get_CurrentPosition: Double; safecall;
procedure Set_CurrentPosition(pCurrentPosition: Double); safecall;
function Get_Duration: Double; safecall;
function Get_ImageSourceWidth: Integer; safecall;
function Get_ImageSourceHeight: Integer; safecall;
function Get_MarkerCount: Integer; safecall;
function Get_CanScan: WordBool; safecall;
function Get_CanSeek: WordBool; safecall;
function Get_CanSeekToMarkers: WordBool; safecall;
function Get_CurrentMarker: Integer; safecall;
procedure Set_CurrentMarker(pCurrentMarker: Integer); safecall;
function Get_FileName: WideString; safecall;
procedure Set_FileName(const pbstrFileName: WideString); safecall;
function Get_SourceLink: WideString; safecall;
function Get_CreationDate: TDateTime; safecall;
function Get_ErrorCorrection: WideString; safecall;
function Get_Bandwidth: Integer; safecall;
function Get_SourceProtocol: Integer; safecall;
function Get_ReceivedPackets: Integer; safecall;
function Get_RecoveredPackets: Integer; safecall;
function Get_LostPackets: Integer; safecall;
function Get_ReceptionQuality: Integer; safecall;
function Get_BufferingCount: Integer; safecall;
function Get_IsBroadcast: WordBool; safecall;
function Get_BufferingProgress: Integer; safecall;
function Get_ChannelName: WideString; safecall;
function Get_ChannelDescription: WideString; safecall;
function Get_ChannelURL: WideString; safecall;
function Get_ContactAddress: WideString; safecall;
function Get_ContactPhone: WideString; safecall;
function Get_ContactEmail: WideString; safecall;
function Get_BufferingTime: Double; safecall;
procedure Set_BufferingTime(pBufferingTime: Double); safecall;
function Get_AutoStart: WordBool; safecall;
procedure Set_AutoStart(pAutoStart: WordBool); safecall;
function Get_AutoRewind: WordBool; safecall;
procedure Set_AutoRewind(pAutoRewind: WordBool); safecall;
function Get_Rate: Double; safecall;
procedure Set_Rate(pRate: Double); safecall;
function Get_SendKeyboardEvents: WordBool; safecall;
procedure Set_SendKeyboardEvents(pSendKeyboardEvents: WordBool); safecall;
function Get_SendMouseClickEvents: WordBool; safecall;
procedure Set_SendMouseClickEvents(pSendMouseClickEvents: WordBool); safecall;
function Get_SendMouseMoveEvents: WordBool; safecall;
procedure Set_SendMouseMoveEvents(pSendMouseMoveEvents: WordBool); safecall;
function Get_PlayCount: Integer; safecall;
procedure Set_PlayCount(pPlayCount: Integer); safecall;
function Get_ClickToPlay: WordBool; safecall;
procedure Set_ClickToPlay(pClickToPlay: WordBool); safecall;
function Get_AllowScan: WordBool; safecall;
procedure Set_AllowScan(pAllowScan: WordBool); safecall;
function Get_EnableContextMenu: WordBool; safecall;
procedure Set_EnableContextMenu(pEnableContextMenu: WordBool); safecall;
function Get_CursorType: Integer; safecall;
procedure Set_CursorType(pCursorType: Integer); safecall;
function Get_CodecCount: Integer; safecall;
function Get_AllowChangeDisplaySize: WordBool; safecall;
procedure Set_AllowChangeDisplaySize(pAllowChangeDisplaySize: WordBool); safecall;
function Get_IsDurationValid: WordBool; safecall;
function Get_OpenState: Integer; safecall;
function Get_SendOpenStateChangeEvents: WordBool; safecall;
procedure Set_SendOpenStateChangeEvents(pSendOpenStateChangeEvents: WordBool); safecall;
function Get_SendWarningEvents: WordBool; safecall;
procedure Set_SendWarningEvents(pSendWarningEvents: WordBool); safecall;
function Get_SendErrorEvents: WordBool; safecall;
procedure Set_SendErrorEvents(pSendErrorEvents: WordBool); safecall;
function Get_PlayState: MPPlayStateConstants; safecall;
function Get_SendPlayStateChangeEvents: WordBool; safecall;
procedure Set_SendPlayStateChangeEvents(pSendPlayStateChangeEvents: WordBool); safecall;
function Get_DisplaySize: MPDisplaySizeConstants; safecall;
procedure Set_DisplaySize(pDisplaySize: MPDisplaySizeConstants); safecall;
function Get_InvokeURLs: WordBool; safecall;
procedure Set_InvokeURLs(pInvokeURLs: WordBool); safecall;
function Get_BaseURL: WideString; safecall;
procedure Set_BaseURL(const pbstrBaseURL: WideString); safecall;
function Get_DefaultFrame: WideString; safecall;
procedure Set_DefaultFrame(const pbstrDefaultFrame: WideString); safecall;
function Get_HasError: WordBool; safecall;
function Get_ErrorDescription: WideString; safecall;
function Get_ErrorCode: Integer; safecall;
function Get_AnimationAtStart: WordBool; safecall;
procedure Set_AnimationAtStart(pAnimationAtStart: WordBool); safecall;
function Get_TransparentAtStart: WordBool; safecall;
procedure Set_TransparentAtStart(pTransparentAtStart: WordBool); safecall;
function Get_Volume: Integer; safecall;
procedure Set_Volume(pVolume: Integer); safecall;
function Get_Balance: Integer; safecall;
procedure Set_Balance(pBalance: Integer); safecall;
function Get_ReadyState: MPReadyStateConstants; safecall;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -