libZPlay UDF

[Danyfirex]

Hi all. some time without share something. today I made this UDF because I really like this library so I wanted to share with all you.

 

libZPlay (Win32) 

Version 2.02 

06. May, 2010. 

This is multimedia library for playing mp3, mp2, mp1, ogg, flac, ac3, aac, oga, wav and pcm files and streams. 

New: version 2.02 can also record sound from soundcard and encode into disk file with mp3, ogg, flac, aac or wav encoder.

 

For more information look into the LibzPlay Page.txt file into the zip file.

 

About the libZPlay UDF

• supports playing mp3, ogg, AAC, AC-3, flac, wav, pcm
• UNICODE support for functions using strings ( filename, error messages, ID3 info, ... ) 
• REVERSE PLAYING (you can play song backward in real time, "real" backward playing without predecoding in PCM) 
• built in echo and reverb sound processor 
• internal volume control (without affecting wave out device volume) 
• pulling VU meter data (you can simply create VU meter) 
• built in FFT spectrum graph, library will draw complete spectrum graph on your window 

ibzPlayExample.au3 Capture:

 

 

 LibzPlayAU3.zip File contents

• libZPlay.au3
• libzPlayExample.au3
• libZPlayform.kxf 
• LibzPlay Page.txt 
• License.txt- From the  libZPlay SDK
• Readme.txt - From the  libZPlay SDK
• ChangeLog.txt - From the  libZPlay SDK
• libzplay.dll - From the  libZPlay SDK
• libzplay.chm - From the  libZPlay SDK
• libzplay.chw - From the  libZPlay SDK

 

Download:

LibzPlayAU3.zip

 

 

Saludos

 

 

[lorenkinzel]

Quite nice; thanks for sharing. I really like the graphics.

[mLipok]

added here:

https://www.autoitscript.com/wiki/User_Defined_Functions

[wakillon]

Nice !

May be you could keep dll internal function names for your udf.

For a better error handling you could use Return SetError(GetError(), 0, $Ret[0])  instead of Return $Ret[0].

And it is unfortunate that the dll is as big in comparison to Bass dll.

 

Thanks to share.

 

 

 

[Danyfirex]

Thanks mates. I will update it as soon I can. 

Saludos.

[UEZ]

Thanks for sharing.

Any way to display the bitrate information?

@wakillon: that's what I asked myself, too. What it the difference between Bass and this lib?

[BrewManNH]

Couple of differences that I see is that BASS has 64 bit support and is actively being worked on.

[wakillon]

  On 7/13/2015 at 5:20 PM, UEZ said:

Thanks for sharing.

Any way to display the bitrate information?

@wakillon: that's what I asked myself, too. What it the difference between Bass and this lib?

Graphics part, as it imports GDI32.dll without AddOn ?

[Danyfirex]

@UEZ in the example add this $info.bitrate

The library is old and not updated but i really like. I also use bass and fmod. 

To make a graph is shorter than bass and fmod. 

Saludos

[UEZ]

You mean $tInfo.bitrate

Thx.

 

Btw, time (position) is flickering. I would suggest to update the time every second.

Edited July 14, 2015 by UEZ

[JackCerq]

Thanks for sharing. hi to all of you. Please excuse my English (thanks Google translator!). I noticed that the libZPlay.au3 file only allows playback / manipulation of one piece of music at a time. If you open and play another piece of music while the first one is playing, the script stops and crashes. Therefore I have modified the same file so that it is possible to execute more instances to CreateZPlay() in order to be able to perform more music at the same time (for example to cross a few seconds of the end of a song with the beginning of the other). In a hurry I made the change and a short script that plays two songs that can be heard simultaneously.
Basically the modification to the libZPlay.au3 file consists in commenting or removing the Global $ZPLAY_HANDLE = 0 (Global $ZPLAY_HANDLE = 0 ----->; ~ Global $ZPLAY_HANDLE = 0) line and modify the CreateZPlay() function in this way:
Func CreateZPlay()
$LibZplay = DllOpen ($LibZplayName)
Local $Ret = DllCall ($LibZplay, 'DWORD', 'zplay_CreateZPlay')
If @error Then Return SetError (@error, @extended, 0)
; ~ $ZPLAY_HANDLE = $ Ret [0]
Return $ Ret [0]
EndFunc; ==> CreateZPlay

that is, to have make $Ret [0] return the instance handle.
in the test script $Song1 and $Song2 have different handles. By passing these handles to the internal functions of libZPlay.au3, modified appropriately, we can manage the music pieces independently.

mylibzplayExample.au3:

#include 'LibZPlay_MOD.au3'

Local $hSong1 = CreateZPlay()
Local $hSong2 = CreateZPlay()
ConsoleWrite ("$hSong1: " & $hSong1 & @TAB & "$hSong2: " & $hSong2 & @LF)
Local $sCurrentFile1 = FileOpenDialog ('Select your File', @ScriptDir, 'Supported Files (*. Mp3; *. Mp2; *. Mp1; *. Ogg; *. Flac; *. Oga; *. Wav; *. Ac3 ; *. aac) ')
OpenFile ($sCurrentFile1, $ sfAutodetect, $hSong1)
Play ($hSong1)
Local $ sCurrentFile2 = FileOpenDialog ('Select your File', @ScriptDir, 'Supported Files (*. Mp3; *. Mp2; *. Mp1; *. Ogg; *. Flac; *. Oga; *. Wav; *. Ac3 ; *. aac) ')
OpenFile ($ sCurrentFile2, $ sfAutodetect, $hSong2)
Play ($hSong2)
Sleep (10000)
Close ($hSong1)
DestroyZPlay ($hSong1)
Sleep (10000)
Close ($hSong2)
DestroyZPlay ($hSong2)

libZPlay_MOD.au3Fetching info... my_libzPlayExample.au3Fetching info...