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

[alimo 138]

سلام

 

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

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

[حاج حسین 2,098]

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

[alimo 138]

پاسخ

[sajadakbari 163]

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

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

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

[پژمان نیکروان 6,054]

سلام

 

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

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

[sajadakbari 163]

سلام

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

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

 

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

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

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.

[dostmobile 329]

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

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

[alimo 138]

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

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

[alimo 138]

این کد

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.

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

[حاج حسین 2,098]

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

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

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

[alimo 138]

;کتابخانش فکنم RSVideoRecord باشه ولی طرز کارش معلوم نیست چی؟؟

[alimo 138]

و همچنان منتطر جواب

[alimo 138]

up(خیلی فوری)

[alimo 138]

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