دریافتirOpus

[امین مهدی نژاد 2,142]

مشاهده فایل

irOpus

---

کدک صوتی Opus به دلیل قابلیت های فراوانی و فشرده سازی بالایی که دارد در بسیاری از نرم افزارهای بروز و کاربردی همچون تلگرام مورد استفاده فرار گرفته است.

اهمیت

کاهش حجم فایل های صوتی برنامه مهمترین دلیل ساخت این کتابخونه از طرف من بوده. ولی این کدک دارای قابلیت های دیگری نیز هست که می توان از آنها بهره برد.که توضیحاتی چند در ویکی پدیا آورده شده

اوپاس (کدک صوتی) - ویکی‌پدیا، دانشنامهٔ آزاد

گیتهاب

مخزن این کتابخانه در گیتهاب در لینک زیر قرار دارد. ولی هنوز خود کتابخونه رو لود نکردم.کمی زمان خواهد برد.

GitHub - aminmn/irOpus

توضیحات

مثال و توضیحات در قسمت کتابخانه ها قرار خواهد گرفت

«موفق باشید.»

---

• ارسال کننده
  امین مهدی نژاد
• ارسال
  ۱۷/۰۱/۱۷
• دسته
  کتابخانه ها

 

[امین مهدی نژاد 2,142]

توضیحات

متدها

• 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

«موفق باشید.»

 

[mohammad-alone 564]

مرسی از کتابخانه های عالیتون.

این سورس درخواست irSDK میکنه

 

لطفاً بررسی کنید

[امین مهدی نژاد 2,142]

در 2 دقیقه قبل، mohammad-alone گفته است :

مرسی از کتابخانه های عالیتون.

این سورس درخواست irSDK میکنه

 

لطفاً بررسی کنید

بفرما

«موفق باشید.»

[mohammad-alone 564]

یه نکته که توی کتابخانه های شما وجود داره اینه که حجم فایلهای جاوا بسیار بالا هستش ...

علت چیه بنظرتون ؟

[امین مهدی نژاد 2,142]

حجم ماژول های کدک CPP کتابخونه 600kb هستش که اگه می خواین می تونین بر اساس نوع CPU دستگاه مشتری کدک مناسب رو انتخاب کنید. اینطوری حجم کتابخونه به یک سوم کاهش پیدا میکنه

برای اینکار فایل JAR کتابخونه رو با وینزیپ باز کرده و محتویات پوشه LIB رو حذف کنید.

سپس فایل زیر رو دانلود کنید.

OpusCodec

حالا کدک مناسب رو جایگزین کنید.

البته 600kb نیازی به این روش نباید داشته باشه. و این کتابخونه رو در زمانی ساختم که یکی از آشنایان برنامه ای با 400 فایل صوتی ساخته بود. که در این جور شرایط بهترین گزینه همین Opus هستش.

«موفق باشید.»