MediaPlayer9 ActiveX Raiders (original)
Author: small high QQ: 66814872MSN: wins_cn@hotmail.com
First, install this, don't say more, most people know that in Delphi7, select the "Component - IMPORT ACTIVEX Control ..." menu, the "Import Activex0" window will pop up. Select "Windows Media Player (Version 1.0)" in the list, click "Install" ......
Of course, MEDIAPLAYER 9 is derived. In addition, it is best to use Delphi7 because I found that MP9 ActiveX is more rich in Delphi7 than delphi6, and I have not tested it below Delphi6.
Second, a hole
[Basic Attribute]
URL: String You can specify whether the media location enableconTextMenu: Boolean Display / Do not display the play position Right-click FullScreen: Boolean full screen Show StretchToftTofit: Boolean non-full screen status stretched to the best size umode: String player mode, Full: Have below Control strip; None: Only played part There is no control strip PlayState: Integer Current control status, below is three basic states: 3: Play 2: Pause 1: Trigger an onstatuschange event when the stopped state change
[Controls] can be carried out by WindowsMediaPlayer.controls of player control and get some relevant information: controls.play; Play controls.stop; stop controls.pause; pause controls.currentPosition: Double the current playback progress controls.currentPositionString: string Time Format String "0:32"
[CURRENTMEDIA] You can get the current media by WindowsMediaPlayer.currentmedia CurrentMedia.duration Double General CurrentMedia.durationstring Time Format string "4:34"
[Settings] can be set via WindowsMediaPlayer.Settings, including volume and channels. Settings.volume: Integer Volume (0-100) Settings.balance: Integer channel, by it should be able to control stereo, left channel, right channel control. However, the corresponding value is not clear.
Third, Luo Wei, I mentioned, all I have tried it in a Windows98 MediaPlayer9 Delphi7 environment, in fact, MediaPlayer9's ActiveX has a lot of attributes, however, I can't list one by one (in fact most I don't understand, I have a detailed introduction, but I don't know much), one person is limited, I also hope that there will be a lot of people to excavate and communicate.