Video

سلام
ببخشید چجوری می شه از دستکتاپ فیلم برداری کرد و اون و در قالب یک فایل مثل
mp4 یا 3gp یا flv و یا ... ذخیره کرد و...


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

خوب اگر قرار باشه فیلم این جوری تعریف بشه پس چجوری باید عکس ها رو در کنار هم ذخیره کنم اونم در قالب یک فایل که مثلا Vlc media plaayer یا kmplayer اون و پخش کنه و بشه ازش استفاده کرد....


===

:n37:

این هم یک نمونه برنامه که خودم هم متوجه نشدم از بین 100 تا سایت خارجی که باز کردم از کدومشون دانلود کردم...
از این بابت شرمنده که نمی تونم ذکر منبع رو ذکر کنم

2 تا نکته برام عجیب بود توی این جستجو ها...

من تا حالا نمی دونستم که برای ضبط فیلم خود سیستم عامل یک DLL داره ...

من تا حالا نمی دونستم که Mpeg یا همون mpg خودمون open sorce هست....


------------------

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

چند تا سورس هم از این avi توی همون کتابخانه مایکروسافت یا همون msdn خودمون پیدا کردم که به شدت فجیع توزیع داده بود...

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

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

کد:

---

Imports System.Runtime.InteropServices


Public Class Form1
    Inherits System.Windows.Forms.Form


#Region " Windows Form Designer generated code "


    Public Sub New()
        MyBase.New()


        'This call is required by the Windows Form Designer.
        InitializeComponent()


        'Add any initialization after the InitializeComponent() call


    End Sub


    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub


    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer


    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer. 
    'Do not modify it using the code editor.
    Friend WithEvents picCapture As System.Windows.Forms.PictureBox
    Friend WithEvents lstDevices As System.Windows.Forms.ListBox
    Friend WithEvents lblDevice As System.Windows.Forms.Label
    Friend WithEvents btnStart As System.Windows.Forms.Button
    Friend WithEvents btnSave As System.Windows.Forms.Button
    Friend WithEvents btnStop As System.Windows.Forms.Button
    Friend WithEvents sfdImage As System.Windows.Forms.SaveFileDialog
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.picCapture = New System.Windows.Forms.PictureBox()
        Me.lstDevices = New System.Windows.Forms.ListBox()
        Me.lblDevice = New System.Windows.Forms.Label()
        Me.btnStart = New System.Windows.Forms.Button()
        Me.btnSave = New System.Windows.Forms.Button()
        Me.btnStop = New System.Windows.Forms.Button()
        Me.sfdImage = New System.Windows.Forms.SaveFileDialog()
        Me.SuspendLayout()
        '
        'picCapture
        '
        Me.picCapture.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
        Me.picCapture.Location = New System.Drawing.Point(208, 24)
        Me.picCapture.Name = "picCapture"
        Me.picCapture.Size = New System.Drawing.Size(256, 272)
        Me.picCapture.TabIndex = 0
        Me.picCapture.TabStop = False
        '
        'lstDevices
        '
        Me.lstDevices.Location = New System.Drawing.Point(8, 55)
        Me.lstDevices.Name = "lstDevices"
        Me.lstDevices.Size = New System.Drawing.Size(184, 238)
        Me.lstDevices.TabIndex = 1
        '
        'lblDevice
        '
        Me.lblDevice.Location = New System.Drawing.Point(8, 32)
        Me.lblDevice.Name = "lblDevice"
        Me.lblDevice.Size = New System.Drawing.Size(184, 16)
        Me.lblDevice.TabIndex = 2
        Me.lblDevice.Text = "Available Devices"
        Me.lblDevice.TextAlign = System.Drawing.ContentAlignment.TopCenter
        '
        'btnStart
        '
        Me.btnStart.Location = New System.Drawing.Point(20, 320)
        Me.btnStart.Name = "btnStart"
        Me.btnStart.Size = New System.Drawing.Size(112, 32)
        Me.btnStart.TabIndex = 3
        Me.btnStart.Text = "Start Preview"
        '
        'btnSave
        '
        Me.btnSave.Anchor = (System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right)
        Me.btnSave.Location = New System.Drawing.Point(348, 320)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(112, 32)
        Me.btnSave.TabIndex = 4
        Me.btnSave.Text = "Save Image"
        '
        'btnStop
        '
        Me.btnStop.Location = New System.Drawing.Point(184, 320)
        Me.btnStop.Name = "btnStop"
        Me.btnStop.Size = New System.Drawing.Size(112, 32)
        Me.btnStop.TabIndex = 5
        Me.btnStop.Text = "Stop Preview"
        '
        'sfdImage
        '
        Me.sfdImage.FileName = "Webcam1"
        Me.sfdImage.Filter = "Bitmap|*.bmp"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(480, 382)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnStop, Me.btnSave, Me.btnStart, Me.lblDevice, Me.lstDevices, Me.picCapture})
        Me.Name = "Form1"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.Text = "Video Capture"
        Me.ResumeLayout(False)


    End Sub


#End Region


    Const WM_CAP As Short = &H400S


    Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
    Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
    Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30


    Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
    Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
    Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
    Const WS_CHILD As Integer = &H40000000
    Const WS_VISIBLE As Integer = &H10000000
    Const SWP_NOMOVE As Short = &H2S
    Const SWP_NOSIZE As Short = 1
    Const SWP_NOZORDER As Short = &H4S
    Const HWND_BOTTOM As Short = 1


    Dim iDevice As Integer = 0 ' Current device ID
    Dim hHwnd As Integer ' Handle to preview window


    Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, _
        <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer


    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, _
        ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, _
        ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer


    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean


    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" _
        (ByVal lpszWindowName As String, ByVal dwStyle As Integer, _
        ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, _
        ByVal nHeight As Short, ByVal hWndParent As Integer, _
        ByVal nID As Integer) As Integer


    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, _
        ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, _
        ByVal cbVer As Integer) As Boolean


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadDeviceList()
        If lstDevices.Items.Count > 0 Then
            btnStart.Enabled = True
            lstDevices.SelectedIndex = 0
            btnStart.Enabled = True
        Else
            lstDevices.Items.Add("No Capture Device")
            btnStart.Enabled = False
        End If


        btnStop.Enabled = False
        btnSave.Enabled = False
        picCapture.SizeMode = PictureBoxSizeMode.StretchImage
    End Sub


    Private Sub LoadDeviceList()
        Dim strName As String = Space(100)
        Dim strVer As String = Space(100)
        Dim bReturn As Boolean
        Dim x As Integer = 0


        '
        ' Load name of all avialable devices into the lstDevices
        '


        Do
            '
            '  Get Driver name and version
            '
            bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)


            '
            ' If there was a device add device name to the list
            '
            If bReturn Then lstDevices.Items.Add(strName.Trim)
            x += 1
        Loop Until bReturn = False
    End Sub


    Private Sub OpenPreviewWindow()
        Dim iHeight As Integer = picCapture.Height
        Dim iWidth As Integer = picCapture.Width


        '
        ' Open Preview window in picturebox
        '
        hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, _
            480, picCapture.Handle.ToInt32, 0)


        '
        ' Connect to device
        '
        If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
            '
            'Set the preview scale
            '
            SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)


            '
            'Set the preview rate in milliseconds
            '
            SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)


            '
            'Start previewing the image from the camera
            '
            SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)


            '
            ' Resize window to fit in picturebox
            '
            SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, _
                    SWP_NOMOVE Or SWP_NOZORDER)


            btnSave.Enabled = True
            btnStop.Enabled = True
            btnStart.Enabled = False
        Else
            '
            ' Error connecting to device close window
            '
            DestroyWindow(hHwnd)


            btnSave.Enabled = False
        End If
    End Sub


    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        iDevice = lstDevices.SelectedIndex
        OpenPreviewWindow()
    End Sub


    Private Sub ClosePreviewWindow()
        '
        ' Disconnect from device
        '
        SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)


        '
        ' close window
        '


        DestroyWindow(hHwnd)
    End Sub


    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        ClosePreviewWindow()
        btnSave.Enabled = False
        btnStart.Enabled = True
        btnStop.Enabled = False
    End Sub


    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Dim data As IDataObject
        Dim bmap As Image


        '
        ' Copy image to clipboard
        '
        SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)


        '
        ' Get image from clipboard and convert it to a bitmap
        '
        data = Clipboard.GetDataObject()
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
            picCapture.Image = bmap
            ClosePreviewWindow()
            btnSave.Enabled = False
            btnStop.Enabled = False
            btnStart.Enabled = True


            If sfdImage.ShowDialog = DialogResult.OK Then
                bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
            End If


        End If
    End Sub


    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        If btnStop.Enabled Then
            ClosePreviewWindow()
        End If
    End Sub
End Class

---

ولی این قطعه کد ظاهرن خیلی حرفه ای و برای من که تازه می خوام فیلمبرداری و یاد بگیرم وحشتناک بود....

این کد هاش و می خواستم انالیز کنم که یک سری در بیارم ولی مثل این که اشک خودم و داشتم در میاوردم
البته در نهایت فهمیدم که این سایتی که اون کد و دانلود کردم ازش فقط دوربین و اورده روی پیکچر باکس نشون می ده و فقط عکس می گیره و ذخیره نمی کنه ...
اعصاب ما رو هم که به هم ریختن رفتیم تو سایتش ثبت نام کردیم و کامنت گذاشتیم ولی 2 روزه جواب ندادن ...
:n30::n30::n30::n30:

خلاصه رفتیم سراغ یک سایت دیگه...


اینم داشت در مورد ظبط فیلم با mpg صحبت می کرد...
یکم رفتم جلو دیدم سیستم من یک فایلی رو کم داره:'(
هیچی دیگه دلم زده شد:n30::n30::n30:

اینم لینک دانلود اون برنامه ظبط فیلم با خروجی mepg/mpg

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

خلاصه مجبور شدیم در 4 چوب مایکروسافت پیش بریم...

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

فیلم و ظبط می کنه ولی برنامه میره تو هنگ ....

باید از چند ریسمانی استفاده کنم ولی وقتی await میزنم می گه مققدار عددی به نمی دونم چی تبدیل نمی شه:(

هیچی دیگه ...

اونم هم این ماژول اماده مایکروسافت که توش فقط کافیه بگی startrecord
بعد یک دکمه دیگه بزاری توش این و بنویسی endrecord

این 2 تا تابع و خودش اماده کرده خدا پدر مایکروسافت و بیامرزه ....(منظورم بیلگیدس)

این که این ماژول و از کجای مایکروسافت دزدیدم خدا می دونه :(
ولی امید وارم به دردتون بخوره:(

فقط شرمنده که نشد با ذکر منبع براتون بزارم
اون هایی که منابعش داشتم مثل لینک دانلود بالا گذاشتم
این هم از سایت مایکروسافت کش رفتم ولی هر چی گشتم پیدا کنم اون لینک دانلودش و نتونستم:(

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

:n30::n30:

کد:

---

    Imports System
    Imports System.Runtime.InteropServices
    Public Class Recorder
Const WM_CAP_START = &H400S
Const WS_CHILD = &H40000000
Const WS_VISIBLE = &H10000000


Const WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
Const WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
Const WM_CAP_EDIT_COPY = WM_CAP_START + 30
Const WM_CAP_SEQUENCE = WM_CAP_START + 62
Const WM_CAP_FILE_SAVEAS = WM_CAP_START + 23


Const WM_CAP_SET_SCALE = WM_CAP_START + 53
Const WM_CAP_SET_PREVIEWRATE = WM_CAP_START + 52
Const WM_CAP_SET_PREVIEW = WM_CAP_START + 50


Const SWP_NOMOVE = &H2S
Const SWP_NOSIZE = 1
Const SWP_NOZORDER = &H4S
Const HWND_BOTTOM = 1


Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriverIndex As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean


Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Short, ByVal hWnd As Integer, ByVal nID As Integer) As Integer


Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal Msg As Integer, ByVal wParam As Integer, <MarshalAs(UnmanagedType.AsAny)> ByVal lParam As Object) As Integer


Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer


Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean


Private hWnd As Integer
Private DriverVersion As Integer
Private mypicture As PictureBox = New PictureBox()


Public Sub New()
    DriverVersion = ReturnDriver()
    hWnd = capCreateCaptureWindowA(DriverVersion, WS_VISIBLE Or WS_CHILD, 0, 0, 0, 0, mypicture.Handle.ToInt32, 0)
End Sub


Private Function ReturnDriver() As Integer
    Dim DriverName As String = Space(100)
    Dim DriverVersion As String = Space(100)
    Dim DriverIndex As Integer = Nothing
    For i As Integer = 0 To 9
        If capGetDriverDescriptionA(i, DriverName, 80, DriverVersion, 80) Then
            DriverIndex = i
            Exit For
        End If
    Next
    Return DriverIndex
End Function


Public Sub StartRecording()
    If SendMessage(hWnd, WM_CAP_DRIVER_CONNECT, DriverVersion, 0) Then
        SendMessage(hWnd, WM_CAP_SEQUENCE, 0, 0)
    End If
End Sub


Public Sub StopRecording(byval FileName As String)
    Try
        FileName = "C:/records/_" & FileName & ".avi"
        SendMessage(hWnd, WM_CAP_FILE_SAVEAS, 0, FileName)
        SendMessage(hWnd, WM_CAP_DRIVER_DISCONNECT, DriverVersion, 0)
        System.IO.File.Delete("C:/CAPTURE.avi")
    Catch ex As Exception


    End Try
End Sub


    End Class

---

سلام
دو سوال کلی در تاپیک مطرح شده، اول فیلم برداری از دسکتاپ و سپس دوربین...
مورد دسکتاپ که میتواند با کد ساده ای انجام شود (گرچه ایراداتی هم دارد...)
در مورد دوربین اول تلاش کردم با همان سری API های پیشنهادی خودتان (capGetDriverDescription, capCreateCaptureWindow و...) کار را انجام دهم ولی خیلی خوب و مطمئن در نمی آید، مشکلات زیادی دارد...
خوشبختانه مجموعه DirectX ابزار متعددی درضمینه گرافیک و ویدئو و سه بعدی و... دارد که در این مورد خاص ابزار DirectShow میتواند کمک خوبی باشد.
این ابزار توسط افراد متعدد بارها بطور رایگان برای دات نت wrapper شده مانند DirectShow.NET یا AForge و...

خوشبختانه اینبار یادم بود و کد را به زبان VB.Net برایتان حاضر کردم. :n02:
کدجاری توانایی نمایش و تولید avi از دسکتاپ و وبکم و... را دارد.
کدجاری شامل دو رابط و چهار کلاس اصلی است...
Interface IVideoFormat استانداری پلیمورفیزمی را برای هر فرمت ویدئویی که در برنامه قابل تولید باشد، تعریف میکند.
Class AviVideoFormat پیاده سازی واسط قبلی جهت تولید فایل هایی با فرمت avi میباشد.

Interface ICapture استانداری پلیمورفیزمی را برای خواندن فریم ها از تجهیزات و منابع مختلف تعریف میکند.
Class DesktopCapture پیاده سازی از واسط قبلی جهت گرفتن عکس از دسکتاپ را فراهم میکند.
Class WebCamCapture پیاده سازی از واسط قبلی است که به کمک DirectShow از دوربین عکس میگیرد.

Class FilmMonitor نهایی با کمک یک تایمر چند ریسمانی و گرفتن دو IVideoFormat و ICapture کار نهایی نمایش و تولید فایل فیلم را انجام میدهد.

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

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
شب خوش.

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

:(

اگر بشود خودم این ها رو به صورت ماژول در میارم و در همین پست لینک ماژول ها رو قرار می دم تا همه استفاده کنند:)

با تشکر و سپاس فراوان