Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**kwhk**

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 ?

zusammenfalten · markieren

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;

Einzelnen Beitrag anzeigen

TWindowsMediaPlayer in Delphi 7 benutzen