#define saud_load
//saud_load(file,id)
var dev, dev2, file, check, buffer, c, get_dev;
//Device
//--- TEST to solve 600 wav problem
//dev[1] = "MPEGVideo";//*(vista/seven)codec
//dev[2] = "WaveAudio";//*.wav
//--- TEST to solve 600 wav problem
dev[1] = "WaveAudio";//*.wav
dev[2] = "MPEGVideo";//*(vista/seven)codec
dev[3] = "Sequencer";//*.mid
dev[4] = "AVIVideo";//*.avi
dev[5] = "DigitalVideo";//*video?
dev[6] = "Overlay";//*video?
dev[7] = "MMMovie";//*video?
dev[8] = "DAT";//*audio?
dev[9] = "Other";//*???
//file
file = argument0;
//c (counter)
c = 1;
get_dev = "ERROR";
check = 0;
do
{
buffer = MCI_command('open "'+file+'" type '+dev[c]+" alias SPLN");
MCI_command("close SPLN");
if real(buffer) >= 1
{
get_dev = dev[c];
check = 1;
}
c+=1;
}until (check = 1) or (c > 9)
//RETURN
dev2 = get_dev;
/*****/
if dev2!= "ERROR"
{return MCI_command('open "'+argument0+'" type '+dev2+" style overlapped alias "+string(argument1))}
else {return -1;}
You can get SaudioPlus here. I know it's in French, my native language :vPDon't copy-paste the Saudio Plus GML Code from my posts above because it's not the most recent version. There are a GML script version and a GEX version with example :vP.
Edited by SPLN, 26 September 2012 - 12:18 PM.











