ImageSourceからビデオを作成する

Question

ImageSourceをスタックに追加してそこからビデオを作成する簡単な方法はありますか？

Answer 1

あなたは一例として

http://joshsmithonwpf.wordpress.com/2008/04/23/good-old-fashion-image-animations-in-wpf/

を使用することができます。その後、あなたが動画としてキャプチャするSnagItのか、Microsoft式エンコーダプロのような画面キャプチャプログラムを使用することができ、ここでラジによって指さ

Answer 2

ジョシュ・スミスさんのブログは（http://joshsmithonwpf.wordpress.com/2008/04/23/good-old-fashion-image-animations-in-wpf/）WPFアプリのフォルダから画像を示す良い例です。この一度

は、あなたがビデオ http://blogs.msdn.com/b/saveenr/archive/2008/09/22/wpf-xaml-saving-an-animation-as-an-avi-video-file.aspx

Answer 3

使用ビットマップからaviファイルを作成する方法について、サンプルコードについては、このライブラリavifilewrapper検索にアプリを変換するSaveenレディのブログで見ることができ取り組んでいます。このarticleは、ビジュアルをビットマップにレンダリングする方法を説明しています。私はそれがそれより簡単になるとは思わない。

Answer 4

WPFにはビデオエンコーディングライブラリが含まれていないため、エンコーディングを行うには外部エンコーディングライブラリを用意する必要があります。 This blog postには、Windows Mediaエンコーダーを使用してその操作を行う方法が記載されています。また、mencoderのようなものをあなたのアプリケーションにバンドルし、それをあなたが制御してあなたのアプリケーションから監視する外部プロセスとして起動することもできます。

Answer 5

私はすでにこのようなクラスをしました。私はsystem.DrawingBitmapである "ImageInfo"を提出すればよい。これは、次のコードを使用して簡単に作成することができます。

Public Function WpfBitmapSourceToBitmap(ByVal source As BitmapSource) As System.Drawing.Bitmap 
       If source Is Nothing Then Return Nothing 
       Dim bmp As New System.Drawing.Bitmap(source.PixelWidth, source.PixelHeight, System.Drawing.Imaging.PixelFormat.Format32bppPArgb) 
       Dim data As System.Drawing.Imaging.BitmapData = bmp.LockBits(New System.Drawing.Rectangle(System.Drawing.Point.Empty, bmp.Size), System.Drawing.Imaging.ImageLockMode.[WriteOnly], System.Drawing.Imaging.PixelFormat.Format32bppPArgb) 
       source.CopyPixels(Int32Rect.Empty, data.Scan0, data.Height * data.Stride, data.Stride) 
       bmp.UnlockBits(data) 
       Return bmp 
      End Function 

それから私は

Public Class clsAviWriter 
    Inherits MAINInterface.TB.Imaging.Pia7.clsDspTemplate 


    Private cAvi As AviReaderWriter.AviFile.AviManager 
    Private AviStream As AviReaderWriter.AviFile.VideoStream 
    Private AudioStream As AviReaderWriter.AviFile.AudioStream 


    Private cFps As clsTbQueue 
    Private OldFpsDate As Date = Now 




    ''' <summary> 
    ''' The image object to paint graphical objects on it 
    ''' </summary> 
    ''' <value>descriptor of the image</value> 
    Public Overrides Property ImageInfo() As MAINInterface.TB.Imaging.Pia7.clsImageInfo 
     Get 
      Return Me._ImageInfo 
     End Get 
     Set(ByVal value As MAINInterface.TB.Imaging.Pia7.clsImageInfo) 
      Me._ImageInfo = value 
      Call WriteFrame() 
      Call Me.OnPropertyChanged(Me.Guid) 
     End Set 
    End Property 

    Private Sub WriteFrame() 
     Dim D As Date = Now 
     Dim Fps As Single 


     Me.cFps.Values.Add(D.Subtract(Me.OldFpsDate).Ticks) 
     Me.OldFpsDate = D 

     Me.cFps.Trim() 

     Fps = 1000/New TimeSpan(Me.cFps.Average).TotalMilliseconds 
     Me.cFps.BufferSize = TB.Math.myTrim(Fps * 1, 1, 1000) 


     If Me.AviStream IsNot Nothing Then 
      Me.AviStream.AddFrame(Me._ImageInfo.Image.Clone) 
     End If 
    End Sub 

    Public Sub New() 
     Me.ClassDescription = "Write images into an avi file" 
     Me.cFps = New clsTbQueue(10) 
    End Sub 



    Private Sub InitializeAvi() 
     Dim W As String 
     Dim Fps As Single 
     Dim di As New IO.DirectoryInfo(TB.SystemMain.AppPath & "Avi\") 
     TB.FileSystem.CreateDirectories(di) 

     W = IO.Path.Combine(di.FullName, "Record_" & Now.Ticks.ToString("0") & ".avi") 

     Me.cAvi = New AviReaderWriter.AviFile.AviManager(W, False) 

     Dim Opts As New AviReaderWriter.AviFile.Avi.AVICOMPRESSOPTIONS 
     Opts.fccType = 0 
     Opts.fccHandler = 1684633208 
     Opts.dwKeyFrameEvery = 0 
     Opts.dwQuality = 0 '0 ... 10000 
     Opts.dwFlags = 8 'AVICOMRPESSF_KEYFRAMES = 4 
     Opts.dwBytesPerSecond = 0 
     Opts.lpFormat = 0 
     Opts.lpParms = New IntPtr(0) 
     Opts.cbParms = 3532 
     Opts.dwInterleaveEvery = 0 


     Fps = 1000/New TimeSpan(Me.cFps.Average).TotalMilliseconds 

     'Dim bm1 As Bitmap 
     'bm1 = TB.Imaging.CreateReScaledImage(Me.pic.Image, New Size(Me.pic.Image.Width, Me.pic.Image.Height), False) 
     Me.AviStream = cAvi.AddVideoStream(Opts, Math.Floor(TB.Math.myTrim(Fps, 1, 50)), Me._ImageInfo.Image.Clone) 

    End Sub 


    Public Overrides Property Run() As Boolean 
     Get 
      Return Me._Run 
     End Get 
     Set(ByVal value As Boolean) 
      If Me._Run <> value Then 
       Me._Run = value 
       If Me._Run = True Then 
        Call InitializeAvi() 
       Else 
        If Me.cAvi IsNot Nothing Then 
         Me.cAvi.Close() 
         Me.cAvi = Nothing 
         Me.AviStream = Nothing 
        End If 
       End If 
       Call Me.OnPropertyChanged(Me.Guid) 
      End If 
     End Set 
    End Property 


End Class 

それにフレームを追加し、予め選択されたコーデック（例えばXVID MPEG4）とのAVIファイルとして保存するAviClassをしましたより多くのコードについて

はここを見て：http://www.wischik.com/lu/programmer/avi_utils.htmlとMSDNまたはhttp://www.codeproject.com/KB/audio-video/avigenerator.aspx

を私は（上記のコードは、使用可能なパブリックないいくつかのより多くの参照が必要です）どのように見えるか、そのようなシーケンスができる表示するためにソースコードを掲載しました。初期化し、フレームを追加し、FPS値を保存し、ハードディスクに安全に保存するだけでよいことがわかります。

また、DirectShowを検索してすべての動作を確認することもできます。