📄 mediaplayer9_tlb.pas
字号:
procedure OpenPlaylistSwitch(const pItem: IDispatch); stdcall;
procedure DomainChange(const strDomain: WideString); stdcall;
procedure SwitchedToPlayerApplication; stdcall;
procedure SwitchedToControl; stdcall;
procedure PlayerDockedStateChange; stdcall;
procedure PlayerReconnect; stdcall;
procedure Click(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); stdcall;
procedure DoubleClick(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); stdcall;
procedure KeyDown(nKeyCode: Smallint; nShiftState: Smallint); stdcall;
procedure KeyPress(nKeyAscii: Smallint); stdcall;
procedure KeyUp(nKeyCode: Smallint; nShiftState: Smallint); stdcall;
procedure MouseDown(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); stdcall;
procedure MouseMove(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); stdcall;
procedure MouseUp(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); stdcall;
end;
// *********************************************************************//
// DispIntf: _WMPOCXEvents
// Flags: (4112) Hidden Dispatchable
// GUID: {6BF52A51-394A-11D3-B153-00C04F79FAA6}
// *********************************************************************//
_WMPOCXEvents = dispinterface
['{6BF52A51-394A-11D3-B153-00C04F79FAA6}']
procedure OpenStateChange(NewState: Integer); dispid 5001;
procedure PlayStateChange(NewState: Integer); dispid 5101;
procedure AudioLanguageChange(LangID: Integer); dispid 5102;
procedure StatusChange; dispid 5002;
procedure ScriptCommand(const scType: WideString; const Param: WideString); dispid 5301;
procedure NewStream; dispid 5403;
procedure Disconnect(Result: Integer); dispid 5401;
procedure Buffering(Start: WordBool); dispid 5402;
procedure Error; dispid 5501;
procedure Warning(WarningType: Integer; Param: Integer; const Description: WideString); dispid 5601;
procedure EndOfStream(Result: Integer); dispid 5201;
procedure PositionChange(oldPosition: Double; newPosition: Double); dispid 5202;
procedure MarkerHit(MarkerNum: Integer); dispid 5203;
procedure DurationUnitChange(NewDurationUnit: Integer); dispid 5204;
procedure CdromMediaChange(CdromNum: Integer); dispid 5701;
procedure PlaylistChange(const Playlist: IDispatch; change: WMPPlaylistChangeEventType); dispid 5801;
procedure CurrentPlaylistChange(change: WMPPlaylistChangeEventType); dispid 5804;
procedure CurrentPlaylistItemAvailable(const bstrItemName: WideString); dispid 5805;
procedure MediaChange(const Item: IDispatch); dispid 5802;
procedure CurrentMediaItemAvailable(const bstrItemName: WideString); dispid 5803;
procedure CurrentItemChange(const pdispMedia: IDispatch); dispid 5806;
procedure MediaCollectionChange; dispid 5807;
procedure MediaCollectionAttributeStringAdded(const bstrAttribName: WideString;
const bstrAttribVal: WideString); dispid 5808;
procedure MediaCollectionAttributeStringRemoved(const bstrAttribName: WideString;
const bstrAttribVal: WideString); dispid 5809;
procedure MediaCollectionAttributeStringChanged(const bstrAttribName: WideString;
const bstrOldAttribVal: WideString;
const bstrNewAttribVal: WideString); dispid 5820;
procedure PlaylistCollectionChange; dispid 5810;
procedure PlaylistCollectionPlaylistAdded(const bstrPlaylistName: WideString); dispid 5811;
procedure PlaylistCollectionPlaylistRemoved(const bstrPlaylistName: WideString); dispid 5812;
procedure PlaylistCollectionPlaylistSetAsDeleted(const bstrPlaylistName: WideString;
varfIsDeleted: WordBool); dispid 5818;
procedure ModeChange(const ModeName: WideString; NewValue: WordBool); dispid 5819;
procedure MediaError(const pMediaObject: IDispatch); dispid 5821;
procedure OpenPlaylistSwitch(const pItem: IDispatch); dispid 5823;
procedure DomainChange(const strDomain: WideString); dispid 5822;
procedure SwitchedToPlayerApplication; dispid 6501;
procedure SwitchedToControl; dispid 6502;
procedure PlayerDockedStateChange; dispid 6503;
procedure PlayerReconnect; dispid 6504;
procedure Click(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); dispid 6505;
procedure DoubleClick(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); dispid 6506;
procedure KeyDown(nKeyCode: Smallint; nShiftState: Smallint); dispid 6507;
procedure KeyPress(nKeyAscii: Smallint); dispid 6508;
procedure KeyUp(nKeyCode: Smallint; nShiftState: Smallint); dispid 6509;
procedure MouseDown(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); dispid 6510;
procedure MouseMove(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); dispid 6511;
procedure MouseUp(nButton: Smallint; nShiftState: Smallint; fX: Integer; fY: Integer); dispid 6512;
end;
// *********************************************************************//
// Interface: IWMPCore
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {D84CCA99-CCE2-11D2-9ECC-0000F8085981}
// *********************************************************************//
IWMPCore = interface(IDispatch)
['{D84CCA99-CCE2-11D2-9ECC-0000F8085981}']
procedure close; safecall;
function Get_URL: WideString; safecall;
procedure Set_URL(const pbstrURL: WideString); safecall;
function Get_openState: WMPOpenState; safecall;
function Get_playState: WMPPlayState; safecall;
function Get_controls: IWMPControls; safecall;
function Get_settings: IWMPSettings; safecall;
function Get_currentMedia: IWMPMedia; safecall;
procedure Set_currentMedia(const ppMedia: IWMPMedia); safecall;
function Get_mediaCollection: IWMPMediaCollection; safecall;
function Get_playlistCollection: IWMPPlaylistCollection; safecall;
function Get_versionInfo: WideString; safecall;
procedure launchURL(const bstrURL: WideString); safecall;
function Get_network: IWMPNetwork; safecall;
function Get_currentPlaylist: IWMPPlaylist; safecall;
procedure Set_currentPlaylist(const ppPL: IWMPPlaylist); safecall;
function Get_cdromCollection: IWMPCdromCollection; safecall;
function Get_closedCaption: IWMPClosedCaption; safecall;
function Get_isOnline: WordBool; safecall;
function Get_Error: IWMPError; safecall;
function Get_status: WideString; safecall;
property URL: WideString read Get_URL write Set_URL;
property openState: WMPOpenState read Get_openState;
property playState: WMPPlayState read Get_playState;
property controls: IWMPControls read Get_controls;
property settings: IWMPSettings read Get_settings;
property currentMedia: IWMPMedia read Get_currentMedia write Set_currentMedia;
property mediaCollection: IWMPMediaCollection read Get_mediaCollection;
property playlistCollection: IWMPPlaylistCollection read Get_playlistCollection;
property versionInfo: WideString read Get_versionInfo;
property network: IWMPNetwork read Get_network;
property currentPlaylist: IWMPPlaylist read Get_currentPlaylist write Set_currentPlaylist;
property cdromCollection: IWMPCdromCollection read Get_cdromCollection;
property closedCaption: IWMPClosedCaption read Get_closedCaption;
property isOnline: WordBool read Get_isOnline;
property Error: IWMPError read Get_Error;
property status: WideString read Get_status;
end;
// *********************************************************************//
// DispIntf: IWMPCoreDisp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {D84CCA99-CCE2-11D2-9ECC-0000F8085981}
// *********************************************************************//
IWMPCoreDisp = dispinterface
['{D84CCA99-CCE2-11D2-9ECC-0000F8085981}']
procedure close; dispid 3;
property URL: WideString dispid 1;
property openState: WMPOpenState readonly dispid 2;
property playState: WMPPlayState readonly dispid 10;
property controls: IWMPControls readonly dispid 4;
property settings: IWMPSettings readonly dispid 5;
property currentMedia: IWMPMedia dispid 6;
property mediaCollection: IWMPMediaCollection readonly dispid 8;
property playlistCollection: IWMPPlaylistCollection readonly dispid 9;
property versionInfo: WideString readonly dispid 11;
procedure launchURL(const bstrURL: WideString); dispid 12;
property network: IWMPNetwork readonly dispid 7;
property currentPlaylist: IWMPPlaylist dispid 13;
property cdromCollection: IWMPCdromCollection readonly dispid 14;
property closedCaption: IWMPClosedCaption readonly dispid 15;
property isOnline: WordBool readonly dispid 16;
property Error: IWMPError readonly dispid 17;
property status: WideString readonly dispid 18;
end;
// *********************************************************************//
// Interface: IWMPCore2
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {BC17E5B7-7561-4C18-BB90-17D485775659}
// *********************************************************************//
IWMPCore2 = interface(IWMPCore)
['{BC17E5B7-7561-4C18-BB90-17D485775659}']
function Get_dvd: IWMPDVD; safecall;
property dvd: IWMPDVD read Get_dvd;
end;
// *********************************************************************//
// DispIntf: IWMPCore2Disp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {BC17E5B7-7561-4C18-BB90-17D485775659}
// *********************************************************************//
IWMPCore2Disp = dispinterface
['{BC17E5B7-7561-4C18-BB90-17D485775659}']
property dvd: IWMPDVD readonly dispid 40;
procedure close; dispid 3;
property URL: WideString dispid 1;
property openState: WMPOpenState readonly dispid 2;
property playState: WMPPlayState readonly dispid 10;
property controls: IWMPControls readonly dispid 4;
property settings: IWMPSettings readonly dispid 5;
property currentMedia: IWMPMedia dispid 6;
property mediaCollection: IWMPMediaCollection readonly dispid 8;
property playlistCollection: IWMPPlaylistCollection readonly dispid 9;
property versionInfo: WideString readonly dispid 11;
procedure launchURL(const bstrURL: WideString); dispid 12;
property network: IWMPNetwork readonly dispid 7;
property currentPlaylist: IWMPPlaylist dispid 13;
property cdromCollection: IWMPCdromCollection readonly dispid 14;
property closedCaption: IWMPClosedCaption readonly dispid 15;
property isOnline: WordBool readonly dispid 16;
property Error: IWMPError readonly dispid 17;
property status: WideString readonly dispid 18;
end;
// *********************************************************************//
// Interface: IWMPCore3
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7587C667-628F-499F-88E7-6A6F4E888464}
// *********************************************************************//
IWMPCore3 = interface(IWMPCore2)
['{7587C667-628F-499F-88E7-6A6F4E888464}']
function newPlaylist(const bstrName: WideString; const bstrURL: WideString): IWMPPlaylist; safecall;
function newMedia(const bstrURL: WideString): IWMPMedia; safecall;
end;
// *********************************************************************//
// DispIntf: IWMPCore3Disp
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {7587C667-628F-499F-88E7-6A6F4E888464}
// *********************************************************************//
IWMPCore3Disp = dispinterface
['{7587C667-628F-499F-88E7-6A6F4E888464}']
function newPlaylist(const bstrName: WideString; const bstrURL: WideString): IWMPPlaylist; dispid 41;
function newMedia(const bstrURL: WideString): IWMPMedia; dispid 42;
property dvd: IWMPDVD readonly dispid 40;
procedure close; dispid 3;
property URL: WideString dispid 1;
property openState: WMPOpenState readonly dispid 2;
property playState: WMPPlayState readonly dispid 10;
property controls: IWMPControls readonly dispid 4;
property settings: IWMPSettings readonly dispid 5;
property currentMedia: IWMPMedia dispid 6;
property mediaCollection: IWMPMediaCollection readonly dispid 8;
property playlistCollection: IWMPPlaylistCollection readonly dispid 9;
property versionInfo: WideString readonly dispid 11;
procedure launchURL(const bstrURL: WideString); dispid 12;
property network: IWMPNetwork readonly dispid 7;
property currentPlaylist: IWMPPlaylist dispid 13;
property cdromCollection: IWMPCdromCollection readonly dispid 14;
property closedCaption: IWMPClosedCaption readonly dispid 15;
property isOnline: WordBool readonly dispid 16;
property Error: IWMPError readonly dispid 17;
property status: WideString readonly dispid 18;
end;
// *********************************************************************//
// Interface: IWMPPlayer4
// Flags: (4416) Dual OleAutomation Dispatchable
// GUID: {6C497D62-8919-413C-82DB-E935FB3EC584}
// *********************************************************************//
IWMPPlayer4 = interface(IWMPCore3)
['{6C497D62-8919-413C-82DB-E935FB3EC584}']
function Get_enabled: WordBool; safecall;
procedure Set_enabled(pbEnabled: WordBool); safecall;
function Get_fullScreen: WordBool; safecall;
procedure Set_fullScreen(pbFullScreen: WordBool); safecall;
function Get_enableContextMenu: WordBool; safecall;
procedure Set_enableContextMenu(pbEnableContextMenu: WordBool); safecall;
procedure Set_uiMode(const pbstrMode: WideString); safecall;
function Get_uiMode: WideString; safecall;
function Get_stretchToFit: WordBool; safecall;
procedure Set_stretchToFit(pbEnabled: WordBool); safecall;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -