دریافتirFFMPEGLoader

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

مشاهده فایل

irFFMPEGLoader

---

بزرگترین، جامع ترین، پیشرفته ترین و... کتابخانه کار با فایل های صوتی و تصویری

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

چه کاری می خواهید انجام دهید

• تبدیل فرمت ها مختلف
• جدا کردن صدا از ویدئو
• تغیر سایز ویدئو
• چرخش ویدئو
• گرفتن تصویر یک فریم خاص از ویدئو
• تبدیل چند تصویر به ویدئو
• میکس صدا و ویدئو
• ....

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

امیدوارم براتون مفید باشه

 

دستورات

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

آموزش و مثال

آموزش و مثال های بیشتر در قسمت کتابخونه های انجمن قرار خواهد گرفت.

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

---

• ارسال کننده
  امین مهدی نژاد
• ارسال
  یکشنبه, 3 بهمن 1395
• دسته
  کتابخانه ها

 

[مهدی ایزدی 9,203]

فوق العاده هستش این کتابخانه 

پسند کردن کافی نبود

تشکر بابت اشتراک گذاری

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

مثال و نحوه استفاده

خروجی های زیادی به زبان CPP از FFMPEG برای اندروید گرفته شده است.که هر کدام ممکنه بر اساس نیاز تولید کننده قابلیت هایی رو داشته باشند.

در لینک زیر دو نمونه قرار دادم

خب این کتابخونه ها رو میشه از طرق مختلف مثل دانلود کردن و یا قرار دادن در پوشه Files پروژتون به برنامه اضافه کنید. تا بشه اونها رو لود و استفاده کنید.

مثال

Sub Globals
	Dim ir As irFFMPEGPro
	Dim tim As Timer
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	ir.install(File.OpenInput(File.DirAssets,"ffmpeg"),"ffmpeg")
	ir.init("ffmpeg")
	tim.Initialize("tim",500)
End Sub
Sub tim_Tick
	If ir.LOGTAG=="Ending FFMPEG" Then
		tim.Enabled=False
		ToastMessageShow("End",True)
	Else
		Label1.Text=ir.LOGTAG
	End If	
End Sub


Sub Button1_Click
	tim.Enabled=True
	Dim str(4) As String
	str(0)="ffmpeg"
	str(1)="-i"
	str(2)=File.DirRootExternal&"/a.mp3"
	str(3)=File.DirRootExternal&"/a.wav"
	ir.run(str)
End Sub

این کد یک فایل mp3 رو به wav تبدیل می کنه

توضیحات

نصب کتابخونه FFMPEG

	ir.install(File.OpenInput(File.DirAssets,"ffmpeg"),"ffmpeg")

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

فعال سازی کتابخونه

ir.init("ffmpeg")

این هم یک دستور که لیست کامل دستورات از قبل در انجمن قرار داده شده

	Dim str(4) As String
	str(0)="ffmpeg"
	str(1)="-i"
	str(2)=File.DirRootExternal&"/a.mp3"
	str(3)=File.DirRootExternal&"/a.wav"
	ir.run(str)

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

irFFMPEGLoaderEX

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

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

داشتم گیتهاب گردی می کردم یه ورژن کم حجم FFMPEG که فقط کدک های رایج مدیایی رو داره یافتم پیوست می کنم تا برای کسانی که نیازی به کدک های غیر رایج ندارند برنامشون کمحجمتر باشه.

ffmpegmin(armeabi-v7a)

تست کردم با این کتابخونه هم سازگاره

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

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

یکی از دوستان در مورد مشکل عدم اجرای دستور برای فایلهای مدیایی بزرگ در تلگرام بهم پیام داده بود که  جواب رو در انجمن قرار می دم

لینک زیر رو چک کنید تا جواب رو ببینید

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

[erfanjuju 27]

با سلام

آیا این همون FFMPEG معروف گنو/لینوکس هست که برای اندروید هم نوشته شده و همون قدرت فوق العاده رو داره ؟

مثلا استفاده از کدک یوتیوب در تبدیل فیلم

یا فقط از اسم مشابه استفاده شده ؟

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

نه همونه

wrap شده برای بیسیک

[shekaf 30]

دست عزیز کتابخانه ی      irFFMPEGPro  رو محبت کنید تا ما بتونیم FFMPG رو نصب کنیم
در ضمن من یه سورس کوچیک و ترو تمیز میخوام که حجم ویدیو رو کم کنه 

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

منتظر هستم 

Sub Globals
	Dim ir As irFFMPEGPro
	Dim tim As Timer
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	ir.install(File.OpenInput(File.DirAssets,"ffmpeg"),"ffmpeg")
	ir.init("ffmpeg")
	tim.Initialize("tim",500)
End Sub
Sub tim_Tick
	If ir.LOGTAG=="Ending FFMPEG" Then
		tim.Enabled=False
		ToastMessageShow("End",True)
	Else
		Label1.Text=ir.LOGTAG
	End If	
End Sub


Sub Button1_Click
	tim.Enabled=True
	Dim str(4) As String
	str(0)="ffmpeg"
	str(1)="-i"
	str(2)=File.DirRootExternal&"/a.mp3"
	str(3)=File.DirRootExternal&"/a.wav"
	ir.run(str)
End Sub

[Angry Fox 48]

عالیه

من کل اینترنت برای کار با ویدیو توی بیسیک گشتم اما نبود و لی شما گل کاشتی

قبل هم پست های شمارو نگا کردم که درباره کنواس بود و اون ها هم عالی بود.

فقط کاش یه زحمتی میکشیدین و همه کارایی های اون رو مثال میزدین

من خودم به جز مثالی که خودتون برای b4a زده بودین چیز دیگه ای نفهمیدم ولی توی این تاپیک مثال های زیادی زیدن اما نمیدونم چه جوری از اونها توی بیسیک استفاده کنم.

لطفا کمک کنید خیلی نیاز دارم

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

در در 1396/02/20, 21:03:25، shekaf گفته است :

دست عزیز کتابخانه ی      irFFMPEGPro  رو محبت کنید تا ما بتونیم FFMPG رو نصب کنیم

فایل های لازم بهمراه مثال در در توضیحات بالا قرار داده شده اند

در در 1396/02/20, 21:03:25، shekaf گفته است :

در ضمن من یه سورس کوچیک و ترو تمیز میخوام که حجم ویدیو رو کم کنه 

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

برای کم کردن حجم فایل می تونین کدک اون یا اندازه تصویر و یا کیفیت اون رو تغیر بدین که مثال های زیادی از اون رودر لینک زیر قرار دادم

مثلا کد زیر اندازه تصویر را تغیر میدهد

Sub Button1_Click
	tim.Enabled=True
	Dim str(6) As String
	str(0)="ffmpeg"
	str(1)="-i"
	str(2)=File.DirRootExternal&"/a.mp4"
	str(3)="-vf"	
	str(4)="scale=640:480"	
	str(5)=File.DirRootExternal&"/a.wav"
	ir.run(str)
End Sub

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

در در 1396/03/08, 22:00:23، Angry Fox گفته است :

عالیه

من کل اینترنت برای کار با ویدیو توی بیسیک گشتم اما نبود و لی شما گل کاشتی

قبل هم پست های شمارو نگا کردم که درباره کنواس بود و اون ها هم عالی بود.

فقط کاش یه زحمتی میکشیدین و همه کارایی های اون رو مثال میزدین

من خودم به جز مثالی که خودتون برای b4a زده بودین چیز دیگه ای نفهمیدم ولی توی این تاپیک مثال های زیادی زیدن اما نمیدونم چه جوری از اونها توی بیسیک استفاده کنم.

لطفا کمک کنید خیلی نیاز دارم

توجه کنید مثلا کدی که در توضیحات قرار دادم به صورت رشته نوشته شده که شما اون رو به صورت آرایه در می آورید مثلا. کد زیر

ffmpeg -i %* -vf scale=640:480 %*.mp4

به صورت زیر نوشته میشه

	Dim str(6) As String
	str(0)="ffmpeg"
	str(1)="-i"
	str(2)=File.DirRootExternal&"/a.mp4"
	str(3)="-vf"	
	str(4)="scale=640:480"	
	str(5)=File.DirRootExternal&"/a.wav"
	ir.run(str)

نکته ای که باید بدونین اینه که علامت %* که در کد رشته ای وجود داره منظور آدرس مکان فایل مدیایی مورد نظر می باشد که بجای اون هم آدرس درست رو قرار داده ایم.

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

[alimanam 10]

با سلام

چطوری میشه یه فایل ویدیویی رو کات کرد ؟ من از کد زیر استفاده کردم ولی نشد

Dim str(10) As String
str(0) = "ffmpeg"
str(1) = "-i"
str(2) = File.DirRootExternal & "/input.mkv"
str(3) = "-ss"
str(4) = "00:00:30"
str(5) = "-t"
str(6) = "00:01:00"
str(7) = "-c"
str(8) = "copy"
str(9) = File.DirRootExternal & "/output.mkv"
ir.run(str)

 

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

در 8 ساعت قبل، alimanam گفته است :

با سلام

چطوری میشه یه فایل ویدیویی رو کات کرد ؟ من از کد زیر استفاده کردم ولی نشد

str(5) = "-t"
str(6) = "60"

مقدار باید بر حسب ثانیه باشه به این صورت

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

[almora 6]

نحوه ضبط یک تصویر در exo player با استفاده از کتابخانه irFfmpeg. متشکرم.

 

How to capture a screenshot on the exoplayer using the irFfmpeg library. Thank you.

 

****

• گرفتن تصویر یک فریم خاص از ویدئو

 

 

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

در 15 ساعت قبل، almora گفته است :

نحوه ضبط یک تصویر در exo player با استفاده از کتابخانه irFfmpeg. متشکرم.

 

How to capture a screenshot on the exoplayer using the irFfmpeg library. Thank you.

 

****

• گرفتن تصویر یک فریم خاص از ویدئو

 

 

به پست زیر مراجعه نماید.

go to this page

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

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

نسخه 3.01 از کتابخونه ffmpeg رو براتون تهیه کردم. با قابلیت ها و افکت های بیشتر و قابلیت های بروز شده و بیشتر از نسخه 2.8 که قبلا در انجمن قرار داده بودم.

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

ffmpeg v3_01(x86)

ffmpeg v3.01(armeabi_v7a)

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

[mre 14]

با عرض سلام خدمت استاد

میشه سورسی رو که ویدئو رو برعکس کنه برام بفرستید.(با همین کتابخونه جدید)

چون هر کاری کردم نشد.

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

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

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

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

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

نسخه 2 بارگذاری شد.

دستورات اولیه

	Private ff As irFFMPEGLoader
	ff.Initialize(Me,"ff")
	ff.install(File.OpenInput(File.DirAssets,"ffmpeg"),"ffmpeg")

ارسال دستورات

Sub Button1_Click
	Dim ord() As String=Array As String("ffmpeg", "-i",File.DirRootExternal&"/1.mp4",File.DirRootExternal&"/b.mp3")
	ff.Run(ord)
End Sub

رویدادهای خطا-خروجی و پایان اجرای دستورات

Sub ff_End
	ToastMessageShow("end",True)
End Sub
Sub ff_Out(str As String)
	Label1.Text=str
End Sub
Sub ff_Error(err As String)
	
End Sub

 

[hosseinyzr 0]

در در 1396/10/01, 12:55:31، امین مهدی نژاد گفته است :

نسخه 3.01 از کتابخونه ffmpeg رو براتون تهیه کردم. با قابلیت ها و افکت های بیشتر و قابلیت های بروز شده و بیشتر از نسخه 2.8 که قبلا در انجمن قرار داده بودم.

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

ffmpeg v3_01(x86)

ffmpeg v3.01(armeabi_v7a)

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

ممنون از توضیحات و فایل های خوبتون تو این زمینه...

امکانش هست نسخه آخر ffmpeg رو و حاوی تمام کدک هاشو هم برای این دو تا معماری بذارید؟ 3.4 هست اگه اشتباه نکنم

من هر کار کردم نتونستم کامپایل بگیرم.

آموزش بیلد کردن رو هم بذارید عالی میشه.... ماهیگیری یاد میگیریم ....

 

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

در 23 ساعت قبل، hosseinyzr گفته است :

ممنون از توضیحات و فایل های خوبتون تو این زمینه...

امکانش هست نسخه آخر ffmpeg رو و حاوی تمام کدک هاشو هم برای این دو تا معماری بذارید؟ 3.4 هست اگه اشتباه نکنم

من هر کار کردم نتونستم کامپایل بگیرم.

آموزش بیلد کردن رو هم بذارید عالی میشه.... ماهیگیری یاد میگیریم ....

 

پروژه زیر در گیتهاب نمونه خوبی برای بیلد گرفتن ورژن های جدید این کتابخونه است.

GitHub - magiclen/FFmpeg-For-MagicLen-Applications: Modified FFmpeg for MagicLen Applications

در ضمن نسخه هایی از این کتابخونه به صورت بیلد گرفته شده برای دانلود قرار داده شده است

Release FFmpeg 3.4.1 For MagicLen Apps · magiclen/FFmpeg-For-MagicLen-Applications · GitHub

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