AutoHotkey Community

SetBatchLines,-1
Thread, NoTimers

BASS_Init(device,freq,flags,win,clsid){
   global
   BassDll:=DllCall("LoadLibrary", "str", "\BASS.dll")
   Return DllCall("\BASS.dll\BASS_Init", Int, device, Int, freq, Int, flags, UInt, win, UInt, clsid)
}

BASS_ChannelPlay(handle,restart){
   ;Return DllCall("\BASS.dll\BASS_ChannelPlay", UInt, handle, Int, restart)
   Return DllCall("\BASS.dll\BASS_ChannelPlay", UInt, handle, Int, restart, Cdecl Int)   
}

BASS_MusicLoad(mem,file,offset,length,flags,freq){
   Return DllCall("\BASS.dll\BASS_MusicLoad", UInt, mem, UInt, &file, UInt64, offset, UInt, length, UInt, flags, UInt, freq)
}

BASS_ChannelGetLength(handle,mode){
   Return DllCall("\BASS.dll\BASS_ChannelGetLength", UInt, handle, UInt, mode, UInt64)
}

BASS_ChannelBytes2Seconds(handle,pos){
   Return DllCall("\BASS.dll\BASS_ChannelBytes2Seconds", UInt, handle, UInt64, pos, Double)
}

BASS_ErrorGetCode(){
   Return DllCall("\BASS.dll\BASS_ErrorGetCode", Int)
}

BASS_Free(){
   global
   Return DllCall("\BASS.dll\BASS_Free", UInt, true),
             DllCall("FreeLibrary", UInt, BassDll)
}

onexit,exit
bass=BASS.dll
fullbass=bass
fullfile=song.mo3
; -------------- Init ------------------------------
BASS_Init(-1,44100,0,0,0)
; -------------- Load ------------------------------
hStream:=BASS_MusicLoad( False, fullfile, 0, 0, 0x40000+0x20000+0x1000, 44100)
MsgBox,,hstream,%hstream%
a:=BASS_ErrorGetCode()
MsgBox ,,ErrorCode, %a%,
; -------------- GetLength ------------------------------
hStream_time:=Floor(BASS_ChannelBytes2Seconds(hStream,BASS_ChannelGetLength(hStream,0)))
hStream_sleep:=hStream_time*1000
; -------------- Play ------------------------------
a:=BASS_ChannelPlay( hStream, 0)
MsgBox,,ChannelPlay,%a%
a:=BASS_ErrorGetCode()
MsgBox ,,ErrorCode, %a%,
sleep %hStream_sleep%

exit:
  BASS_Free()
  ExitApp