رفتن به مطلب
  • 0

ضبط فیلم از روی پنل


alimo

سوال

سلام

 

چجوری از یک پنل د اخل برنامه خودمون فیلم برداری کنیم :fekr: (فیلم برداری از کل محیط گوشی منظورم نیست )

دسترسی روت می خواد؟؟؟؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

13 پاسخ به این سوال تاکنون داده شده است

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

کدهای که بالا دادید لازمش کتابخانه audio است 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

برای فیلم برداری نیاز به دسترسی روت هست.

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

اما این کاری هم که شما میخواید فوق تصور هست.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

 

با کتابخانه RSVideoRecord فکر کنم بتونید از داخل برنامه فیلم برداری بکنید.

این کتابخنش ، باهاش کار کنید ببینید به نتیجه ای میرسید یانه...

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

پژمان جان منم چند لحظه پیش این کتابخونه رو توی سایت اصلی دیدم.

این چجوری کار میکنه؟

 

اینارم پیدا کردم.

یه کمک میکنی . اگه بخوایم تمام صفحه فیلم بگیریم باید چیکار کنیم.

Sub Process_Globals
    Dim audioRecorder As AudioRecordApp
    Dim videoRecorder As VideoRecordApp
End Sub

Sub Globals
    Dim vv As VideoView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
           audioRecorder.Initialize("audioRecorder")
        videoRecorder.Initialize("videoRecorder")
    End If
    vv.Initialize("vv")
    Activity.AddView(vv, 0, 0, 100%x, 100%y)
    Activity.AddMenuItem("Record Video", "RecordVideo")
    Activity.AddMenuItem("Record Audio", "RecordAudio")
    ToastMessageShow("Press on Menu button...", True)
End Sub

Sub RecordVideo_Click
    videoRecorder.Record(File.DirRootExternal, "1.mp4")
End Sub
Sub RecordAudio_Click
    audioRecorder.Record(File.DirRootExternal, "1.3gpp")
End Sub
Sub videoRecorder_RecordComplete (Success As Boolean)
    Log(Success)
    If Success Then
        vv.LoadVideo(File.DirRootExternal, "1.mp4")
        vv.Play
    End If
End Sub
Sub audioRecorder_RecordComplete (Success As Boolean)
    Log(Success)
    If Success Then
        vv.LoadVideo(File.DirRootExternal, "1.3gpp")
        vv.Play
    End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub 
Events:
RecordComplete (Success As Boolean)
Members:

  Initialize (EventName As String)

  Record (Dir As String, FileName As String)

Members description:
  Initialize (EventName As String)

Initializes the object and sets the sub that will handle the event.
 Record (Dir As String, FileName As String)

Calls the recording application.
Dir and FileName set the output file location.
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

تو سایت مرجع سورس های برای مثال است دوستانی که دسترسی دانلود از این سایت رو دارند دانلود کنند و این جا بزارند :ok:

لینک = https://www.b4x.com/android/forum/threads/rsvideorecord-library.16268/

لینک ارسال
به اشتراک گذاری در سایت های دیگر

این کد

Sub Process_Globals
    Dim audioRecorder As AudioRecordApp
    Dim videoRecorder As VideoRecordApp
End Sub

Sub Globals
    Dim vv As VideoView
End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
           audioRecorder.Initialize("audioRecorder")
        videoRecorder.Initialize("videoRecorder")
    End If
    vv.Initialize("vv")
    Activity.AddView(vv, 0, 0, 100%x, 100%y)
    Activity.AddMenuItem("Record Video", "RecordVideo")
    Activity.AddMenuItem("Record Audio", "RecordAudio")
    ToastMessageShow("Press on Menu button...", True)
End Sub

Sub RecordVideo_Click
    videoRecorder.Record(File.DirRootExternal, "1.mp4")
End Sub
Sub RecordAudio_Click
    audioRecorder.Record(File.DirRootExternal, "1.3gpp")
End Sub
Sub videoRecorder_RecordComplete (Success As Boolean)
    Log(Success)
    If Success Then
        vv.LoadVideo(File.DirRootExternal, "1.mp4")
        vv.Play
    End If
End Sub
Sub audioRecorder_RecordComplete (Success As Boolean)
    Log(Success)
    If Success Then
        vv.LoadVideo(File.DirRootExternal, "1.3gpp")
        vv.Play
    End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub 
Events:
RecordComplete (Success As Boolean)
Members:

  Initialize (EventName As String)

  Record (Dir As String, FileName As String)

Members description:
  Initialize (EventName As String)

Initializes the object and sets the sub that will handle the event.
 Record (Dir As String, FileName As String)

Calls the recording application.
Dir and FileName set the output file location.

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

 فک کنم b4a کتابخانه ای نداره براش عکس گرفتن از صفحه کدش هست ولی فیلم گرفتن از صفحه خود گوشی رو نمیدونم  :unknown:

باید از گیت هاب براش تبدیل کرد

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

خیلی واجب 95% برنامهم رو نوشتم فقط همین یه مورد مونده :wacko1: حتما یه راه داره برای ضبط فیلم از رو پنل داخل برنامه؟ :aggressive:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...