FMOD and the device

sloopa

Member
Licensed User
Hi Erel,

do you know your example for fmod on the PPC.

It don't work on the PPC (with V4.05 it does) -

V5 says:
An error occured on sub btnload_click

Line number: 20

fmod.Play(OpenDialog1.File)
Error description:
MissingMethodExeption


Here is the source:


'Add an FMOD object named fmod first, and a ProgressBar named bar
Sub Globals
dim pause,file
End Sub

Sub App_Start
form1.show
fmod.New1
bar.New1("form1",5,100,230,30)
Timer1.Interval = 1000
End Sub

Sub Timer1_Tick
bar.Value = 100 * fmod.Position/fmod.Length1
Label1.Text = bar.Value & "%"
if bar.Value = 100 then 'end of song
Timer1.Enabled = false
form1.Text = "MP3 Player"
end if
End Sub


Sub btnLoad_Click
if OpenDialog1.Show <> cCancel then
fmod.Play(OpenDialog1.File)
file = OpenDialog1.File
form1.Text = StrReplace(FileName(OpenDialog1.File),".mp3","")
Timer1.Enabled = true
btnPause.Text = "Pause"
end if
End Sub

Sub btnPause_Click
if btnPause.Text = "Pause" then
pause = fmod.Position
btnPause.Text = "Resume"
Timer1.Enabled = false
fmod.Stop1
else 'Resume
fmod.Play( file)
fmod.Position = pause
btnPause.Text = "Pause"
timer1.Enabled = true
end if
End Sub
 

sloopa

Member
Licensed User
You are right... (the bug is in front of the PPC)

:sign0013::sign0013::sign0013::sign0013:

the fmodce.dll wasn't in the basic4ppc-program-directory (only in the source-directory)

Thx
 
Last edited:
Top