xbass.dll - Music plugin

[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 'MusicOpenFile@files:xbass.dll stdcall';

procedure InitMusic(filename: widestring; RepeatOn: boolean); external 'InitMusic@files:xbass.dll stdcall';
procedure PlayMusic; external 'PlayMusic@files:xbass.dll stdcall';
procedure PauseMusic; external 'PauseMusic@files:xbass.dll stdcall';
procedure ResumeMusic; external 'ResumeMusic@files:xbass.dll stdcall';
procedure StopMusic; external 'StopMusic@files:xbass.dll stdcall';
procedure SetVolume(vol: integer); external 'SetVolume@files:xbass.dll stdcall';
function MusicPct: integer; external 'MusicPct@files:xbass.dll stdcall';
function MusicPosition: widestring; external 'MusicPosition@files:xbass.dll stdcall';
function MusicDuration: widestring; external 'MusicDuration@files:xbass.dll stdcall';
procedure DeInitMusic; external 'DeInitMusic@files: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:

[BLACKFIRE69]

XBass Update Available!

TYPE 01:

type
  TXBassCallback = procedure(Const FPct: Integer; Const FDuration, FPosition, FCurMusicFile: WideString);

type
  IXBass = Interface(IUnknown)
    '{3A515F05-FBAE-4D1E-80A0-808E6FAF3187}'
    function FCreate(AHandle: HWND; AFilename: WideString; ASpeed: Single; RepeatOn: Boolean; ACallback: TXBassCallback): Boolean;
    function FCreateList(AHandle: HWND; AFolder: WideString; ASpeed: Single; RepeatOn: Boolean; ACallback: TXBassCallback): Boolean;
    procedure Play;
    procedure Stop;
    procedure Pause;
    procedure Resume;
    function IsPaused: Boolean;
    procedure Next;
    procedure Prev;
    function ChangeDir(const AFolder: WideString): Boolean;
    function ChangeFile(const AFilename: WideString): Boolean;
    function GetPosition: WideString;
    function GetDuration: WideString;
    function GetPct: Integer;
    function GetCurFile: WideString;
    function GetVolume: Integer;
    procedure SetVolume(Const Vol: Integer);
    procedure SeekForward(Const Sec: Integer);
    procedure SeekBackward(Const Sec: Integer);
    procedure DoFree;
  End;

function InitXBass: IXBass;
  external 'InitXBass@files:xbass_f.dll stdcall';
function DeInitXBass: Boolean;
  external 'DeInitXBass@files:xbass_f.dll stdcall';

TYPE 02:

type
  TXBassCallback = procedure(Const FPct: Integer; Const FDuration, FPosition, FCurMusicFile: WideString);

function xbassCreate(AHandle: HWND; AFilename: WideString; ASpeed: Single; RepeatOn: Boolean; ACallback: TXBassCallback): Boolean; 
function xbassCreateList(AHandle: HWND; AFolder: WideString; ASpeed: Single; RepeatOn: Boolean; ACallback: TXBassCallback): Boolean;  

procedure xbassPlay; 
procedure xbassStop;                                          
procedure xbassPause;                                             
procedure xbassResume;                                            
function xbaseeIsPaused: Boolean;                                
procedure xbassNext;                                            
procedure xbassPrev;                                             
function xbassChangeDir(const AFolder: WideString): Boolean;      
function xbassChangeFile(const AFilename: WideString): Boolean;   
function xbassGetPosition: WideString;                            
function xbassGetDuration: WideString;                            
function xbassGetPct: Integer;                                    
function xbassGetCurFile: WideString;                             
function xbassGetVolume: Integer;                                 
procedure xbassSetVolume(Const Vol: Integer);                     
procedure xbassSeekForward(Const Sec: Integer);                   
procedure xbassSeekBackward(Const Sec: Integer);                  
procedure xbassFree;