Good message, use Free Pascal to write a BASS test program, and run on HP 1715 (PPC 2003SE) successfully.
There is a bit changes of bass.pas from Win32 version, and I renamed it to "bassCE.pas".
The test program code is following:
program BASSTest;
uses windows, bassCE;
var
chan: DWORD;
musFile: array[0..MAX_PATH] of WideChar;
ofn: TOpenFileName;
procedure Error_Halt(s:WideString);
begin
messagebox (0, PWideChar(s), 'Error', 0 );
BASS_Free();
halt(1);
end;
begin
ZeroMemory(@ofn,0);
with ofn do begin
lStructSize:=sizeof(ofn);
hwndOwner:=0;
nMaxFile:=MAX_PATH;
lpstrFile:=@musFile[0];
Flags:=OFN_FILEMUSTEXIST or OFN_HIDEREADONLY or OFN_EXPLORER;
lpstrTitle:='Select a file to play';
lpstrFilter:='playable files'#0'*.mod;*.mp3;*.ogg'#0#0;
end;
if not GetOpenFileName(@ofn) then Error_Halt('Open File');
if not BASS_Init (-1, 44100, 0, nil, nil) then Error_Halt('Init BASS');
chan:=BASS_StreamCreateFile(FALSE,@musFile[0],0,0,BASS_SAMPLE_LOOP or BASS_UNICODE);
if chan=0 then chan:=BASS_MusicLoad(FALSE,@musFile[0],0,0,BASS_MUSIC_RAMP or BASS_SAMPLE_LOOP or BASS_UNICODE,0);
if chan=0 then Error_Halt('Load Music');
BASS_ChannelPlay(chan,FALSE);
Messagebox(0,'Playing... Click OK to exit','BASS Test',0);
BASS_Free();
end.
