Einzelnen Beitrag anzeigen

Benutzerbild von kwhk
kwhk

Registriert seit: 25. Mär 2009
Ort: Dresden
168 Beiträge
 
Delphi 10.3 Rio
 
#1

TWindowsMediaPlayer in Delphi 7 benutzen

  Alt 26. Jun 2012, 15:48
Ich habe TWindowsMediaPlayer installiert entsprechend der Hinweise in folgendem Link
http://www.entwickler-ecke.de/topic_...0.html?view=df

Wenn ich nun ganz einfach diesen WindowsMediaplayer in ein kleines Projekt einfüge, sehe ich eine Menge Procedure, Functionen usw., deren Bedeutung aber ziemlich unklar ist, auch viele Dateitypen... Leider sagt die Hilfe dazu nichts aus.
Ich habe mal alle Komponenten zusammengestellt. Kennt jemand eine Beschreibung zur Nutzung dieser Parameter ?
Delphi-Quellcode:
procedure launchURL(const bstrURL:WideString);
function newPlaylist(const bstrName: WideString; const bstrURL: WideString) : IWMPPlaylist;
function newMedia(const bstrURL: WideString) : IWMPMedia;
procedure openPlayer(const bstrURL: WideString);
property ControlInterface : IWMPPlayer4;
proberty DefaultInterface : IWMPPlayer4;
proberty openState : TOleEnum;
proberty playState : TOleEnum;
proberty controls : IWMPControls;
proberty settings : IWMPSettings;
proberty mediaCollection : IWMPMediaCollection;
proberty playlistCollection : IWMPPlaylistCollection;
proberty versionInfo : WideString;
proberty network : IWMPNetwork;
proberty cdromCollection : IWMPCdromCollection;
proberty closedCaption : IWMPClosedCaption;
proberty isOnline : WordBool;
proberty Error : IWMPErrir;
proberty status : WideString;
proberty dvd : IWMPDVD;
proberty isRemote : WordBool;
proberty playerApplication : IWMPPlayerApplication;
proberty Anchors : TAnchors;
proberty TabStop : Boolean;
proberty Align : TAlign;
proberty DragCursor : TCursor;
proberty DragMode : TDragMode;
proberty ParentShowHint : Boolean;
proberty PopupMenu : TPopupMenu;
proberty ShowHint : Boolean;
proberty TabOrder : TTabOrder;
proberty Visible : Boolean;
proberty OnDragDrop : TDragDropEvent;
proberty OnDragOver : TDragOverEvent;
proberty OnEndDrag : TEndDragEvent;
proberty OnEnter : TNotifyEvent;
proberty OnExit : TNotifyEvent;
proberty OnStartDrag : TStartDragEvent;
proberty URL : WideString;
proberty currentMedia : IWMPMedia;
proberty currentPlaylist : IWMPPlaylist;
proberty enabled : WordBool;
proberty fullScreen : WordBool;
proberty enableContexMenu : WordBool;
proberty uiMode : WideString;
proberty strechToFit : WordBool;
proberty windowlessVideo : WordBool;
proberty OnOpenStateChange : TWindowsMediaPlayerOpenStateChange;
proberty OnPlayStateChange : TWindowsMediaPlayerPlayStateChange;
proberty OnAudioLanguageChange : TWindowsMediaPlayerAudioLangueChange;
proberty OnStatusChange : TNotifyEvent;
proberty OnScriptCommand : TWindowsMediaPlayerScriptCpmmand;
proberty OnNewStream : TNotifyEvent;
proberty OnDisconnect : TWindowsMediaPlayerDisconnect;
proberty OnBuffering : TWindowsMediaPlayerBuffering;
proberty OnError : TNotifyEvent;
proberty OnWarning : TWindowsMediaPlayerWarning;
proberty OnEndOfStream : TWindowsMediaPlayerEndOfStream;
proberty OnPositionChange : TWindowsMediaPlayerPositionChange;
proberty OnMarkerHit : TWindowsMediaPlayerMarkerHit;
proberty OnDurationUnitChange : TWindowsMediaPlayerDurationUnitChange;
proberty OnCdromMediaChange : TWindowsMediaPlayerCdromMediaChange;
proberty OnPlaylistChange : TWindowsMediaPlayerPlaylistChange;
proberty OnCurrentPlaylistChange : TWindowsMediaPlayerCurrentPlaylistChange;
proberty OnCurrentPlaylistItemAvailable : TWindowsMediaPlayerCurrentPlaylistItemAvailable;
proberty OnMediaChange : TWindowsMediaPlayerMediaChange;
proberty OnCurrentMediaItemAvailable : TWindowsMediaPlayerCurrentMediaItemAvailable;
proberty OnCurrentItemChange : TWindowsMediaPlayerCurrentItemChange;
proberty OnMediaCollectionChange : TNotifyEvent;
proberty OnMediaCollectionAttributeStringAdded : TWindowsMediaPlayerMediaCollectionAttributeStringAdded;
proberty OnMediaCollectionAttributeStringRemoved : TWindowsMediaPlayerMediaCollectionAttributeStringRemoved;
proberty OnMediaCollectionAttributeStringChanged : TWindowsMediaPlayerMediaCollectionAttributeStringChanged;
proberty OnPlaylistCollectionChange : TNotifyEvent;
proberty OnPlaylistCollectionPlaylistAdded : TWindowsMediaPlayerPlaylistCollectionPlaylistAdded;
proberty OnPlaylistCollectionPlaylistRemoved : TWindowsMediaPlayerPlaylistCollectionPlaylistRemoved;
proberty OnPlaylistCollectionPlaylistSetAsDeleted : TWindowsMediaPlayerPlaylistCollectionPlaylistSetAsDeleted;
proberty OnModeChange : TWindowsMediaPlayerModeChange;
proberty OnMediaError : TWindowsMediaPlayerMediaError;
proberty OnOpenPlaylistSwitch : TWindowsMediaPlayerOpenPlaylistSwitch;
proberty OnDomainChange : TWindowsMediaPlayerDomainChange;
proberty OnSwitchedToPlayerApplication : TNotifyEvent;
proberty OnSwitchedToControl : TNotifyEvent;
proberty OnPlayerDockedSateChange : TNotifyEvent;
proberty OnPlayerReconnect : TNotifyEvent;
proberty OnClick : TWindowsMediaPlayerClick;
proberty OnDoubleClick : TWindowsMediaPlayerDoubleClick;
proberty OnKeyDown : TWindowsMediaPlayerKeyDown;
proberty OnKeyPress : TWindowsMediaPlayerKeyPress;
proberty OnKeyUp : TWindowsMediaPlayerKeyUp;
proberty OnMouseDown : TWindowsMediaPlayerMouseDown;
proberty OnMouseMove : TWindowsMediaPlayerMouseMove;
proberty OnMouseUp : TWindowsMediaPlayerMouseUp;
proberty OnDeviceConnect : TWindowsMediaPlayerDeviceConnect;
proberty OnDeviceDisconnect : TWindowsMediaPlayerDeviceDisconnect;
proberty OnDeviceStatusChange : TWindowsMediaPlayerDeviceStatusChange;
proberty OnDeviceSyncStateChange : TWindowsMediaPlayerDeviceSyncStateChange;
proberty OnDeviceSyncError : TWindowsMediaPlayerDeviceSyncError;
proberty OnCreatePartnershipComplete : TWindowsMediaPlayerCreatePartnershipComplete;
proberty OnCdromRipStateChange : TWindowsMediaPlayerCdromRipStateChange;
proberty OnCdromRipMediaError : TWindowsMediaPlayerCdromRipMediaError;
proberty OnCdromBurnStateChange : TWindowsMediaPlayerCdromBurnStateChange;
proberty OnCdromBurnMediaError : TWindowsMediaPlayerCdromBurnMediaError;
proberty OnCdromBurnError : TWindowsMediaPlayerCdromBurnError;
proberty OnLibraryConnect : TWindowsMediaPlayerLibraryConnect;
proberty OnLibraryDisconnect : TWindowsMediaPlayerLibraryDisconnect;
proberty OnFolterScanStateChange : TWindowsMediaPlayerFolterScanStateChange;
proberty OnStringCollectionChange : TWindowsMediaPlayerStringCollectionChange;
proberty OnMediaCollectionMediaAdded : TWindowsMediaPlayerMediaCollectionMediaAdded;
proberty OnMediaCollectionMediaRemoved : TWindowsMediaPlayerMediaCollectionMediaRemoved
constructor Create(AOwner : TComponent);
procedure launchURL(const bstrURL : WideString);
function newPlaylist(const bstrName : WideString; const bstrURL : WideString) : IWMPPlaylist;
function newMedia(const bstrURL : WideString) : IWMPMedia;
procedure openPlayer(const bstrURL : WideString);
proberty ControlInterface : IWMPPlayer4;
proberty DefaultInterface : IWMPPlayer4;
proberty openState : TOleEnum;
proberty playState : TOleEnum;
proberty controls : IWMPControls;
proberty settings : IWMPSettings;
proberty mediaCollection : IWMPMediaCollection;
proberty playlistCollection : IWMPPlaylistCollection;
proberty versionInfo : WideString;
proberty network : IWMPNetwork;
proberty cdromCollection : IWMPCdromCollection;
proberty closedCaption : IWMPClosedCaption;
proberty isOnline : WordBool;
proberty Error : IWMPError;
proberty status : WideString;
proberty dvd : IWMPDVD;
proberty isRemote : WordBool;
proberty playerApplication : IWMPPlayerApplication;
proberty Anchors : TAnchors;
proberty TabStop : Boolean;
proberty Align : TAlign;
proberty DragCursor : TCursor;
proberty DragMode : TDragMode;
proberty ParentShowHint : Boolean;
proberty PopupMenu : TPopupMenu;
proberty ShowHint : Boolean;
proberty TabOrder : TTabOrder;
proberty Visible : Boolean;
proberty OnDragDrop : TDragDropEvent;
proberty OnDragOver : TDragOverEvent;
proberty OnEndDrag : TEndDragEvent;
proberty OnEnter : TNotifyEvent;
proberty OnExit : TNotifyEvent;
proberty OnStartDrag : TStartDragEvent;
proberty URL : WideString;
proberty currentMedia : IWMPMedia;
proberty currentPlaylist : IWMPPlaylist;
proberty enabled : WordBool;
proberty fullScreen : WordBool;
proberty enableContextMenu : WordBool;
proberty uiMode : WideString;
proberty stretchToFit : WordBool;
proberty windowlessVideo : WordBool;
proberty OnOpenStateChange : TWindowsMediaPlayerOpenStateChange;
proberty OnPlayStateChange : TWindowsMediaPlayerPlayStateChange;
proberty OnAudioLanguageChange : TWindowsMediaPlayerAudioLanguageChange;
proberty OnStatusChange : TNotifyEvent;
proberty OnScriptCommand : TWindowsMediaPlayerScriptCommand;
proberty OnNewStream : TNotifyEvent;
proberty OnDisconnect : TWindowsMediaPlayerDisconnect;
proberty OnBuffering : TWindowsMediaPlayerBuffering;
proberty OnError : TNotifyEvent;
proberty OnWarning : TWindowsMediaPlayerWarning;
proberty OnEndOfStream : TWindowsMediaPlayerEndOfStream;
proberty OnPositionChange : TWindowsMediaPlayerPositionChange;
proberty OnMarkerHit : TWindowsMediaPlayerMarkerHit;
proberty OnDurationUnitChange : TWindowsMediaPlayerDurationUnitChange;
proberty OnCdromMediaChange : TWindowsMediaPlayerCdromMediaChange;
proberty OnPlaylistChange : TWindowsMediaPlayerPlaylistChange;
proberty OnCurrentPlaylistChange : TWindowsMediaPlayerCurrentPlaylistChange;
proberty OnCurrentPlaylistItemAvailable : TWindowsMediaPlayerCurrentPlaylistItemAvailable;
proberty OnMediaChange : TWindowsMediaPlayerMediaChange;
proberty OnCurrentMediaItemAvailable : TWindowsMediaPlayerCurrentMediaItemAvailable;
proberty OnCurrentItemChange : TWindowsMediaPlayerCurrentItemChange;
proberty OnMediaCollectionChange : TNotifyEvent;
proberty OnMediaCollectionAttributeStringAdded : TWindowsMediaPlayerMediaCollectionAttributeStringAdded;
proberty OnMediaCollectionAttributeStringRemoved : TWindowsMediaPlayerMediaCollectionAttributeStringRemoved;
proberty OnMediaCollectionAttributeStringChanged : TWindowsMediaPlayerMediaCollectionAttributeStringChanged;
proberty OnPlaylistCollectionChange : TNotifyEvent;
proberty OnPlaylistCollectionPlaylistAdded : TWindowsMediaPlayerPlaylistCollectionPlaylistAdded;
proberty OnPlaylistCollectionPlaylistRemoved : TWindowsMediaPlayerPlaylistCollectionPlaylistRemoved;
proberty OnPlaylistCollectionPlaylistSetAsDeleted : TWindowsMediaPlayerPlaylistCollectionPlaylistSetAsDeleted;
proberty OnModeChange : TWindowsMediaPlayerModeChange;
proberty OnMediaError : TWindowsMediaPlayerMediaError;
proberty OnOpenPlaylistSwitch : TWindowsMediaPlayerOpenPlaylistSwitch;
proberty OnDomainChange : TWindowsMediaPlayerDomainChange;
proberty OnSwitchedToPlayerApplication : TNotifyEvent;
proberty OnSwitchedToControl : TNotifyEvent;
proberty OnPlayerDockedStateChange : TNotifyEvent;
proberty OnPlayerReconnect : TNotifyEvent;
proberty OnClick : TWindowsMediaPlayerClick;
proberty OnDoubleClick : TWindowsMediaPlayerDoubleClick;
proberty OnKeyDown : TWindowsMediaPlayerKeyDown;
proberty OnKeyPress : TWindowsMediaPlayerKeyPress;
proberty OnKeyUp : TWindowsMediaPlayerKeyUp;
proberty OnMouseDown : TWindowsMediaPlayerMouseDown;
proberty OnMouseMove : TWindowsMediaPlayerMouseMove;
proberty OnMouseUp : TWindowsMediaPlayerMouseUp;
proberty OnDeviceConnect : TWindowsMediaPlayerDeviceConnect;
proberty OnDeviceDisconnect : TWindowsMediaPlayerDeviceDisconnect;
proberty OnDeviceStatusChange : TWindowsMediaPlayerDeviceStatusChange;
proberty OnDeviceSyncStateChange : TWindowsMediaPlayerDeviceSyncStateChange;
proberty OnDeviceSyncError : TWindowsMediaPlayerDeviceSyncError;
proberty OnCreatePartnershipComplete : TWindowsMediaPlayerCreatePartnershipComplete;
proberty OnCdromRipStateChange : TWindowsMediaPlayerCdromRipStateChange;
proberty OnCdromRipMediaError : TWindowsMediaPlayerCdromRipMediaError;
proberty OnCdromBurnStateChange : TWindowsMediaPlayerCdromBurnStateChange;
proberty OnCdromBurnMediaError : TWindowsMediaPlayerCdromBurnMediaError;
proberty OnCdromBurnError : TWindowsMediaPlayerCdromBurnError;
proberty OnLibraryConnect : TWindowsMediaPlayerLibraryConnect;
proberty OnLibraryDisconnect : TWindowsMediaPlayerLibraryDisconnect;
proberty OnFolderScanStateChange : TWindowsMediaPlayerFolderScanStateChange;
proberty OnStringCollectionChange : TWindowsMediaPlayerStringCollectionChange;
proberty OnMediaCollectionMediaAdded : TWindowsMediaPlayerMediaCollectionMediaAdded;
proberty OnMediaCollectionMediaRemoved : TWindowsMediaPlayerMediaCollectionMediaRemoved;
constructor Create(AOwner : TComponent);
destructor Destroy;
procedure BrowseProperties;
procedure Defaulthandler(var Message : Ohne Typ);
procedure DoObjectverb(Verb : Integer);
function GetEnumpropDesc(Displ : Integer) : TEnumPropDesc;
function getHelpContext(Member : String; var HelpCtx : Integer; var HelpFile : String) : Boolean;
procedure GetObjectVerbs(List : TStrings);
function GetPropDisplayString(DispID : Integer) : String;
procedure GetPropDisplayStrings(DispID : Integer; List : TStrings);
fuction IsCustomProberty(DisplID : Integer) : Boolean;
function IsPropPageProperty(DisplID : Integer) : Boolean;
Procedure SetBounds(ALeft : Integer; ATop : Integer; AWidth : Integer; AHeight : Integer);
Procedure SetPropDisplayString(DisplID : Integer; const Value : String);
Procedure ShowAboutBox;
proberty OleObject : Variant;
proberty PerPropBrowsing :IPerPropertyBrowsing;
proberty DefaultDispatch : IDispatch;
constructor CreateParented(ParentWindow : HWND);
function CreateParentedControl(ParentWindow : HWND) : TWinControl
procedure Broadcast(var Message : Ohne Typ);
function CanFocus : Boolean;
function ContainsControl(Control : TControl) : Boolean;
function ControlAtPos(const Pos : TPoint; AllowDisabled : Boolean; AllowWinControls : Boolean = False) : TControl;
procedure DisableAlign;
proberty DockClientCount : Integer;
proberty DockClients : [Index : Integer] : TControl;
procedure DockDrop (Source : TDragDockObject; X : Integer; Y : Integer);
proberty DoubleBuffered : Boolean;
procedure EnableAlign;
function FindChildControl(const ControlName : String) : TControl;
procedure FlipChildren(AllLevels : Boolean);
function Focused : Boolean;
procedure GetTaborderList(List : TList);
function HandleAllocated : Boolean;
procedure HandleNeeded;
procedure InsertControl(AControl : TControl);
procedure Invalidate;
procedure PaintTo(DC : HDC; X : Integer; Y : Integer);
procedure PaintTo(Canvas : TCanvas; X : Integer; Y : Integer);
procedure RemoveControl(AControl : TControl);
procedure Realign;
procedure Repaint;
procedure ScaleBy(M : Integer; D : Integer);
procedure Scrollby(DeltaX : Integer; DeltaY : Integer);
procedure SetFocus;
procedure Update;
procedure UpdateControlState;
proberty AllignDisabled : Boolean;
proberty VisibleDockClientCount : Integer;
proberty Brush : TBrush;
proberty ControlCount : Integer;
proberty Handle : HWND;
proberty ParentWindow : HWND;
proberty Showing : Boolean;
procedure BeginDrag(Immediate : Boolean; Threshold : Integer = 1);
procedure BringToFront;
function ClientToScreen(const Point : TPoint) : TPoint;
function ClientToParent(const Point : TPoint; AParent : TWinControl = nil) : TPoint;
procedure Dock(NewDockSite : TWinControl; ARect : TRect);
function Dragging : Boolean;
procedure DragDrop(Source : TObject; X : Integer; Y : Integer);
function DrawTextBiDiModeFlags(Flags : Integer) : Integer;
function DrawTextBiDiModeFlagsReadingOnly : Integer;
procedure EndDrag(Drop : Boolean);
function GetControlsAlignment : TAlignment;
function GetParentComponent : TComponent;
function GetTextBuf(Buffer : PAnsiChar; BufSize : Integer) : Integer;
function GetTextLen : Integer;
function HasParent : Boolean;
procedure Hide;
procedure InitiateAction;
procedure MouseWheelHandler(var Message : TMessage);
function IsRightToleft : Boolean;
function ManualDock(NewDockSite : TWinControl; DropControl : TControl = nil; ControlSide : TAlign = aNone) : Boolean;
function ManualFloat(ScreenPos : TRect) : Boolean;
function Perform(Msg : Cardinal; WParam : Integer; LParam : Integer) : Integer;
procedure Refresh;
function ReplaceDockedControl(Control : TControl; NewDockSite : TWinControl; DropControl : TControl; ControlSide : TAlign) : Boolean;
function ScreenToClient(const Point : TPoint) : TPoint;
function ParentToClient(const Point : TPoint; AParent : TWinControl = nil) : TPoint;
procedure SendToBack;
procedure SetTextBuf(Buffer : PAnsiChar);
procedure Show;
function UseRightToLeftAlignment : Boolean;
function UseRightToLeftReading : Boolean;
function UseRightToLeftScrollBar : Boolean;
proberty Action : TBasicAction;
proberty BiDiMode : TBiDiMode;
proberty BoundsRect : TRect;
proberty ClientHeight : Integer;
proberty ClientOrigin : TPoint;
proberty ClientRect : TRect;
proberty ClientWidth : Integer;
proberty Constraints : TSizeConstraints;
proberty ControlState : TControlState;
proberty ControlStyle : TControlStyle;
proberty DockOrientation : TDockOrientation;
proberty Floating : Boolean;
proberty FloatingDockSiteClass : TWinControlClass;
proberty HostDockSite : TWinControl;
proberty LRDockSite : Integer;
proberty Parent : TWinControl;
proberty TBDockHeight : Integer;
proberty UndockHight : Integer;
proberty UndockWidth : Integer;
proberty WindowProc : TWndMethod;
proberty Left : Integer;
proberty Top : Integer;
proberty Width : Integer;
proberty Height : Integer;
proberty Cursor : TCursor;
proberty Hint : String;
proberty HelpType : THelptype;
proberty HelpKeyword : String;
proberty HelpContex : THelpContex;
procedure BeforeDestruction;
procedure DestroyComponents;
procedure Destroying;
function ExecuteAction(Action : TBasicAction) : Boolean;
function FindComponent(const AName : String) : TComponent;
procedure FreeNotification(AComponent : TComponent);
procedure RemoveFreeNotification(AComponent : TComponent);
procedure FreeOnRelease;
function GetNamePath : String;
procedure InsertComponent(AComponent : TComponent);
procedure RemoveComponent(AComponent : TComponent);
procedure SetSubComponent(IsSubComponent : Boolean);
function SafeCallException(ExceptObject : TObject; ExceptAddr : Pointer) : HRESULT;
function UpdateAction(Action : TBasicAction) : Boolean;
function IsImplementorOf(const I : IInterface) : Boolean;
function ReferenceInterface(const I : IInterface; Operation : TOperation) : Boolean
proberty ComObject : IInterface;
proberty Components : [Index : Integer] : TComponent;
proberty ComponentCount : Integer;
proberty ComponentIndex : Integer;
proberty ComponentState : TComponentState;
proberty ComponentStyle : TComponentStyle;
proberty DesignInfo : Integer;
proberty Owner : TComponent;
proberty VCLComObject : Pointer;
proberty Name : TComponentName;
proberty Tag : Integer;
procedure Assign(Source : TPersident);
procedure Free;
function InitInstance(Instance : Pointer) : TObject;
procedure CleanupInstance;
function ClassType : TClass;
function ClassName : ShortString;
function ClassNameIs(const Name : String) : Boolean;
function ClassParent : TClass;
function ClassInfo : Pointer;
function InstanceSize : Integer;
function InheritsFrom(AClass : TClass) : Boolean;
function MethodAddress(const Name : ShortString) : Pointer;
function MethodName(Address : Pointer) : ShortString;
function FieldAddress(const Name : ShortString) : Pointer;
function GetInterface(const IID : TGUID; out Obj : Ohne Typ) : Boolean;
function GetInterfaceEntry(const IID : TGUID) : PInterfaceEntry;
function GetInterfaceTable : PInterfaceTable;
procedure AfterConstruction;
procedure Dispatch(var Message : Ohne Typ);
function NewInstance : TObject;
procedure FreeInstance;
Hartmut
  Mit Zitat antworten Zitat