Sa va être long mais voila le code complet de ma gestion de web cam avec saisie de picturebox en sauvegarde:
Vous trouverez en vert la méthode de sauvegarde.
Imports DirectX.Capture
Public Class Form1
Inherits System.Windows.Forms.Form
Dim NombreDeCapture As Int16
Dim TimeElapsCapture As Integer
Dim StartTime As Date
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim j As Short
Dim f As Filter
'listage des peripheriques video installés sur la machine
ComboBox1.Items.Clear()
For j = 0 To Dispositivos.VideoInputDevices.Count - 1
f = Dispositivos.VideoInputDevices(j)
ComboBox1.Items.Add(f.Name)
Next
If j > 0 Then ComboBox1.SelectedIndex = 0
'listage des peripheriques audio installés sur la machine
ComboBox2.Items.Clear()
For j = 0 To Dispositivos.AudioInputDevices.Count - 1
f = Dispositivos.AudioInputDevices(j)
ComboBox2.Items.Add(f.Name)
Next
If j > 0 Then ComboBox2.SelectedIndex = 0
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'pre configuration du capturing
'definission de la camera
CaptureInformation2.Camera = Dispositivos.VideoInputDevices(ComboBox1.SelectedIndex)
'mise en place du stream video et audio
CaptureInformation2.CaptureInfo = New DirectX.Capture.Capture(CaptureInformation2.Camera, Dispositivos.AudioInputDevices(ComboBox2.SelectedIndex))
'renseignement du panneau d'affichage de la video
CaptureInformation2.CaptureInfo.PreviewWindow = PictureBox2
'compteur pour les capture d'image (frame video)
CaptureInformation2.Counter = 1
CaptureInformation2.CounterFrames = 1
'configurations avancées
Configurer()
'pour faire plus joli
Button1.Enabled = False
'pour la gestion evennementiel de la capture d'ecran je cree un gestionnaire d evennement sur Framecapturecomplete
AddHandler CaptureInformation2.CaptureInfo.FrameCaptureComplete, AddressOf NewCaptureReady
End Sub
Private Sub Configurer()
'configurations avancées
'configuration du systeme de compression video et audio
CaptureInformation2.CaptureInfo.VideoCompressor = Dispositivos.VideoCompressors(1) 'compression video
'taille de la video
CaptureInformation2.CaptureInfo.FrameSize = New Size(320, 240) 'taille de la video
'FPS de la video
CaptureInformation2.CaptureInfo.FrameRate = 50 'FPS
'fichier .avi
''CaptureInformation.CaptureInfo.Filename = Application.StartupPath + "\essai.avi"
'lancement du streaming d'affichage
CaptureInformation2.CaptureInfo.RenderPreview()
End Sub
Private Sub NewCaptureReady(ByVal Sender As System.Windows.Forms.PictureBox)
'appele par le gestionnaire de handler sur l'evennement "FrameCapture
'ma picture capturé est arrivée...
Dim la As PictureBox = CType(Sender, PictureBox) 'la je converti mon picturebox en picturebox...je sais pas pourquoi, fo le faire sinom ca marche pas
'' histoire de savoir combien ca prends de temps de faire une capture.
Dim RunLength As System.TimeSpan = Now.Subtract(StartTime)
Dim TimeElapsCapture As Integer = RunLength.Milliseconds
Label1.Visible = True
NombreDeCapture = NombreDeCapture + 1
Label1.Text = "Capture nmr:" & NombreDeCapture & " Capture realisée en:" & TimeElapsCapture & " ms"
PictureBox1.Image = la.Image 'j affecte ma capture d'image a mon picturebox qui attend que ca.
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'demande une capture DirectX ...et lorsqu'elle est ready je la recoit par le Handler cree un peut plus haut
Dim StartTime = Now ' Starting date/time.
CaptureInformation2.CaptureInfo.CaptureFrame()
'premier cas: bug, mais fonctionne si je l'insere dans un bouton donc je pense qui faut faire un delay pour attendre que la capture soit bien faite!!!
PictureBox2.Image.save("nomfichier.jpeg", imageformat.jpeg)
'deuxième cas: marche
Dim ds
ds = New SaveFileDialog()
ds.FileName = "c:\toto.bmp"
ds.Title = "Save Image as..."
ds.Filter = "Bitmap file (*.bmp)|*.bmp"
ds.FilterIndex = 1
If (ds.ShowDialog() <> Windows.Forms.DialogResult.OK) Then
Return
End If
PictureBox2.Image.Save(ds.FileName)
End Sub
End Class