توضیحات
متدها
Init - مقدار دهی اولیه
loadFromFile - بارگذاری فایل صوتی
loadFromUrl - بارگذاری فایل از اینترنت
play
pause
stop
setPosition
getDuration
رویدادها
FAILED
FINISHED -پایان اجرا
READING_HEADER
READY_TO_PLAY
PLAY_UPDATE(pos As Int) - هر بار خواندن داده جدید
TRACK_INFO(dur As Long,bun As AOBundle) - هنگام خواندن اطلاعات فایل
رویداد TRACK_INFO چنانچه از irLSDK استفاده نمی کنید به صورت زیر خواهد بود
TRACK_INFO(dur As Long,bun As Object)
مثال:
Sub Globals
Dim ir As irOpus
Private Label1 As Label
Private ProgressBar1 As ProgressBar
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
ir.Init("pl")
File.Copy(File.DirAssets,"exam.opus",File.DirInternal,"exam.opus")
ir.loadFromFile(File.DirInternal&"/exam.opus")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
ir.play
End Sub
Sub pl_PLAY_UPDATE(pos As Int)
Try
ProgressBar1.Progress=pos*100/ir.getDuration
Catch
Log(LastException)
End Try
End Sub
Sub pl_TRACK_INFO(dur As Long,bun As AOBundle)
Label1.Text="title="&bun.getString("title")&"#artist="&bun.getString("artist")&"#album="&bun.getString("album") _
&"#date="&bun.getString("date")&"#track="&bun.getString("track")
End Sub
Sub pl_FINISHED
ToastMessageShow("End", False)
End Sub
Sub Button2_Click
ir.pause
End Sub
Sub Button3_Click
ir.stop
End Sub
irOpusExample
«موفق باشید.»