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
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