Recently Browsing 0 members
No registered users viewing this page.
This file includes the source code for zPlayer, which is a stand-alone, simple, intuitive and easy-to-use, yet fully functional media player. I made this to suit my purpose and you can tweak it to your taste. The source code is only about 1600 lines and only standard #include files were used. Also included in the source code file are some image files which are used for drawing the graphical media controls in the main window.
As of its release date, the compiled exe file of this player, as attached hereto, is not flagged by Windows Defender with latest Security Intelligence Update.
Hash values for compiled file of the latest version are as follows:
This player has the following features:
- Play back all formats of media files which can be played back by the Windows Media Player in your computer
- Depending on the file types specified by the user in zPlayer.ini file this player can be either audio only, video only or both.
- Video window is independent of other windows and, when maximized, increases the immersion of the user
- Graphical media controls similar to embedded Windows Media Player
- Forward, backward, pause, repeat, shuffle function
- Increase/decrease/mute sound volume
- Change folders and create playlist for all media files in that folder and its subfolders, and support for manually-made playlists
- Save play-back environment when terminating and resume that environment when restarting
- 'Continue playback' option for a file you left off in the middle of playback
- With one click, you can see internet search results for the file selected in playlist
- With a double-click, you can play back an item in the playlist
- Search strings in the playlist
- Option to see long file names including folder names
- View file properties for any file in the playlist and copy their values
- Resize the playlist and video windows, and restore them to their default positions
- Very small footprint: very low CPU and memory usage, with only about 1MB when compiled
- You can even hide all the windows and manipulate the player with hotkeys only
Note: zPlayer is the name I used when I introduced the early version of this player in my blog back in early 2009 and, therefore, has nothing to do with the mobile media player of the same name which started marketing in 2015.
zPlayer is the name I used when I introduced the early version of this player in my blog back in early 2009 and, therefore, has nothing to do with the mobile media player of the same name which started marketing in 2015.
After I retired from active duty in 2002 I spent much time listening to music. First I started with CD's and LP's, then quickly moved on to mp3 files. I converted many of my CD's to mp3 and I collected many more from various sources which were freely available at the time. As the number of my mp3 files grew, I put them in folders according to their genres and my favorite classifications. I mainly used Windows Media Player to listen to them and I slowly began to dislike wmp because it had massive user interface while I just wanted to listen to music in the background while I was doing other work in the foreground, hopping between folders from time to time. It was the time I was beginning to learn AutoIt and I thought I should make my own player with AutoIt. Coming from a sales career with no experience in programming, it was not an easy task. Somehow, after about 2 years of learning and trying, I had my own audio player which worked with only hotkeys without any graphical interface. I gave it to some of my friends who were not as computer-savvy as I. They liked it but definitely wanted something to clcik with mouse. So I came up with very rude gui which took a form similar to what it is now.
The attached source files include one au3 file, one icon file and 14 jpg files. The jpg files are used for drawing a graphical player and are fileinstalled in @DocumentsCommonDir folder. This player uses WMPlayer.OCX as its engine and supports all audio file formats supported by wmp and additional codecs installed. I would like to thank @Bilgus for kind answers to my questions and would appreciate it if anyone could review the code and give me any suggestion. This player works for me, but I don't know whether the code is presentable as an example. I am posting this here with a hope to learn much from AutoIt community.
PS: Video function was added in August 2020.
Please see Downloads section of this forum for the latest version of this player.
In this post I take the opportunity to show the awesome capabilities of AutoIt and its libraries. My open source project Peace is a long running AutoIt based app located on SourceForge. It provides users with a system-wide equalizer and effects machine. It's an interface using the power of Equalizer APO, an audio processing object software. Peace has been download over 2,600,000 times by various kind of users. Amongst others it gives them possibilities like these:
Hearing impaired - Amplify the gain of frequencies which are impaired. Home Theatre - Create Equalizer presets for watching movies and listening to music. Music lovers & audiophiles - Create presets for listening to music on their high quality speakers and headphones. Gamers - Enhance frequencies to get an edge over other gamers. Headphones - Improve the sound quality of cheap headphones and get the max out of expensive ones. Bass lovers - Boost low frequencies for extra bass. Voice - Make a microphone sound better and improve the voice, for instance for YouTube usage. Low audio - Boost low audio of an input source to a comfortable level. This list covers the main needs of the Peace user. Many people have contacted me over the years asking for new features and telling me how they use Peace for their (sometimes specific) needs. I was able to use AutoIt and its libraries for all of their needs. So what are the main features of Peace?
Equalize your computer audio by using up to 31 sliders. Support of equalizing 9 speakers : left/right, center, subwoofer, left/right rear, left/right side. Per slider a filter can be chosen such as peak, low/high pass, shelving. The graph windows shows your equalization so you see exactly what you're doing. Apply an effect such as crossfeed simple/Jan Meier/Chu Moy, stereo balance, bass/treble, upmix/downmix, channel routing. Save presets (called configurations) and activate by mouse click, hotkey, desktop shortcut or Peace system tray. Select a target device to equalize, microphone as input can also be equalized. Automate: you can let Peace automatically activate presets on a switch to another device and another process. Peace is available in these languages: English, Czech, Deutsch, Français, Italiano, Nederlands, Pусский, Українська So who am I? I'm a Dutch programmer who happens the stumble upon AutoIt 5 years ago and created a small Equalizer interface app of less than 400 program lines with it. Nowadays Peace has grown to more than 18,000 lines as many features were added. Although Peace is open source, the program code isn't of the best possible quality. The reason being that I didn't expect it to become so popular. It caught me by supprise. I've created a Library of functions called Pal (link to forum post) which quality is up to the AutoIt community standard as counterpart to the Peace program code.
I want to state here that AutoIt is a mature program language as Peace obviously shows. I wish it to be used more extensively for professional or semi-professional apps. In my view AutoIt deserves a place amongst the major programming languages for Windows computers.
Hi there! I wish every one of you to be healthy and happy.
I made the following code borrowing mainly from @dragan's post.
#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <IE.au3> Global $mainGUI = GUICreate("Load and play a video file", 400, 200, -1, -1) Global $inputFile = GUICtrlCreateInput("", 20, 50, 280, 20) Global $btnLoad = GUICtrlCreateButton("Load", 300, 48, 80, 23) Global $btnPlay = GUICtrlCreateButton("Play", 160, 100, 80, 23) GUISetState() Global $videoHeight = @DesktopHeight/2, $videoWidth = $videoHeight, $videoLeft = @DesktopWidth-$videoWidth, $IEControl Global $videoGUI = GUICreate("Video Control", $videoWidth, $videoHeight, $videoLeft, 0, $WS_OVERLAPPEDWINDOW) Global $oIE = _GUICtrl_CreateWMPlayer() GUISetState (@SW_HIDE, $videoGUI) GUIRegisterMsg($WM_SIZE, "WM_SIZE") Global $oPlayer = _IEGetObjById($oIE, "objWMPlayer") Global $aMsg While 1 $aMsg = GUIGetMsg(1) If $aMsg = $mainGUI Then If $aMsg = $GUI_EVENT_CLOSE Then Exit ElseIf $aMsg = $btnLoad Then Local $sFile = FileOpenDialog("Open Videos", @UserProfileDir, "Movies (*.3gp;*.mp4;*.avi;*.wmv;*.flv)") GUICtrlSetData($inputFile, $sFile) If @error Then Exit ElseIf $aMsg = $btnPlay Then GUISetState(@SW_SHOW, $videoGUI) $oPlayer.URL = $sFile $oPlayer.Controls.Play While $oPlayer.playState <> 3 Sleep(10) WEnd Local $sWidth = $oPlayer.currentMedia.imageSourceWidth, $sHeight = $oPlayer.currentMedia.imageSourceHeight If $sWidth > 0 Then Local $iWidth = $videoHeight*$sWidth/$sHeight WinMove($videoGUI, "", @DesktopWidth-$iWidth, 0, $iWidth+16, $videoHeight+39) EndIf EndIf ElseIf $aMsg = $videoGUI And $aMsg = $GUI_EVENT_CLOSE Then $oPlayer.Controls.Stop GUISetState (@SW_HIDE, $videoGUI) ContinueLoop ElseIf $oPlayer.playState = 1 Or $oPlayer.playState = 8 Then GUISetState (@SW_HIDE, $videoGUI) ContinueLoop EndIf WEnd Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam) #forceref $hWnd, $iMsg, $iwParam, $ilParam Local $xClient, $yClient $xClient = BitAND($ilParam, 0x0000FFFF) $yClient = BitShift($ilParam, 16) GUICtrlSetPos($IEControl, 0, 0, $xClient, $yClient) if NOT @error Then if IsObj($oPlayer) Then $oPlayer.width = $xClient; if IsObj($oPlayer) Then $oPlayer.height = $yClient; EndIf Return $GUI_RUNDEFMSG EndFunc Func _GUICtrl_CreateWMPlayer() Local $myIE_Obj = _IECreateEmbedded () $IEControl = GUICtrlCreateObj($myIE_Obj, 0, 0, $videoWidth, $videoHeight) _IENavigate($myIE_Obj, "about:blank") Local $htmlWMP $htmlWMP = '' _ & @CR & '<body style="margin:0;padding:0" >' _ & @CR & '<OBJECT' _ & @CR & 'ID="objWMPlayer"' _ & @CR & 'STYLE="margin:0;padding:0"' _ & @CR & 'HSPACE="0"' _ & @CR & 'VSPACE="0"' _ & @CR & 'BORDER="0"' _ & @CR & 'WIDTH="' & $videoWidth & '"' _ & @CR & 'HEIGHT="' & $videoHeight & '"' _ & @CR & 'CLASSID="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6"' _ & @CR & 'STANDBY="Loading Windows Media Player components..."' _ & @CR & 'TYPE="application/x-ms-wmp">' _ & @CR & '<PARAM NAME="enableContextMenu" VALUE="true">' _ & @CR & '<PARAM NAME="enableFullScreenControls" VALUE="true">' _ & @CR & '<PARAM NAME="enabled" VALUE="true">' _ & @CR & '<PARAM NAME="playCount" VALUE="1">' _ & @CR & '<PARAM NAME="stretchToFit" VALUE="true">' _ & @CR & '<PARAM NAME="uiMode" VALUE="none">' _ & @CR & '<PARAM NAME="videoBorderWidth" VALUE="5">' _ & @CR & '<PARAM NAME="volume" VALUE="100">' _ & @CR & '<PARAM NAME="windowlessVideo" VALUE="false">' _ & @CR & '</OBJECT>' _ & @CR & '</body>' _IEDocWriteHTML ($myIE_Obj, $htmlWMP) _IEAction ($myIE_Obj, "refresh") $myIE_Obj.document.body.scroll = "no" $myIE_Obj.document.body.style.borderColor = "#000000" Return $myIE_Obj EndFunc ;==>_GUICtrl_CreateWMPlayer This works usually OK, but the embedded WMP behaves abnormally when the 2 windows are minimized and restored depending on which one is minimized and restored first.
While video is playing:
1. Minimize $mainGUI, then the $videoGUI becomes blank.
2. Minimize both and restore $videoGUI first and then the $mainGUI, then the video size in the $videoGUI is changed to it's original source image size.
Please help me to understand what is the cause of this behaviour and how I can prevent it. Thnaks in advance.
This is a project that I have been working on for several months off and on.
It's a simple "What You Hear" MP3 @ 320Kbps and WAV audio recorder.
- LoudMax, a Gain Controller and Look-Ahead Limiter
- Auto Shut-Off after one minute of silence
- Side-by-Side Simulated LED Meter
- Running Time Counter
It started off being a large project, but I eventually stripped it down to its
bare essentials because I came to realize that it would be very difficult to
deal with every sound card and every way a PC is set up for audio. It would
have been a nightmare that I was not willing to go through.
This project contains the most up-to-date BASS.dll v.22.214.171.124 - December 17, 2019.
All BASS Dll's are 32bit. Those and the needed UDF's are included in the zip file.
I will try to explain how it works in the next post.
BASS VST Recorder v1.1.zip