xbass.dll - Music plugin

[BLACKFIRE69]

xbass - Music plugin

_

[BLACKFIRE69]

xbass - New Update

What's New:

• Some improvements.
• Added new example.

_

[Balaji007]

Hi friend
It is a simple doubt. I am trying with your example script. But it was played the song one time only. How repeat the song? Any solutions are available

[Ele]

Originally Posted by Balaji007

Hi friend
It is a simple doubt. I am trying with your example script. But it was played the song one time only. How repeat the song? Any solutions are available

It could be. So try the new version (v.2.0) of the xbass.dll. That's all you need.

(xbass.dll v2.0 requires "inno setup enhanced edition")


xbass.dll v2.0

function MusicOpenFile(handle: hwnd; title: widestring; defaultPath: widestring): widestring; external '[email protected]:xbass.dll stdcall';

procedure InitMusic(filename: widestring; RepeatOn: boolean); external '[email protected]:xbass.dll stdcall';
procedure PlayMusic; external '[email protected]:xbass.dll stdcall';
procedure PauseMusic; external '[email protected]:xbass.dll stdcall';
procedure ResumeMusic; external '[email protected]:xbass.dll stdcall';
procedure StopMusic; external '[email protected]:xbass.dll stdcall';
procedure SetVolume(vol: integer); external '[email protected]:xbass.dll stdcall';
function MusicPct: integer; external '[email protected]:xbass.dll stdcall';
function MusicPosition: widestring; external '[email protected]:xbass.dll stdcall';
function MusicDuration: widestring; external '[email protected]:xbass.dll stdcall';
procedure DeInitMusic; external '[email protected]:xbass.dll stdcall';

information:

[Ele]

xbass.dll v3.0

Features:

• Audio plugins updated.
• Supports "*.mp3, *.ogg, *.wav".
• Supports seek forward and seek backward.
• Added in built-in timer.
• Tested in Inno setup 6.x.x Unicode.

function MusicOpenFile(handle: HWND; defaultPath: widestring): widestring;
function XSetTimer(handle: HWND; Interval: longword; lpTimerFunc: longword): Cardinal;
function XKillTimer(handle: HWND; TimerId: Cardinal): boolean;
function XWrap(Callback: TTimerProc; Paramcount: integer): longword;

procedure InitMusic(handle: HWND; filename: widestring; volume: integer; RepeatOn: boolean);
procedure MusicPlay;
procedure MusicPause;
procedure MusicResume;
procedure MusicStop;
procedure MusicSetVolume(vol: integer);
function MusicPct: integer;
function MusicPosition: widestring;
function MusicDuration: widestring;
procedure MusicForward(sec: integer);
procedure MusicBackward(sec: integer);
procedure DeInitMusic;

Details: