Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Bild von 'WindowsMediaPlayer' extrahieren
Autor: Dikn
Datum: 04.03.13 14:21
Hallo, ich möchte von einem Video, das in 'WindoesMediaPlyer' angezeigt wird, ein Bild extrahieren (kein Thumbnail!) das funktioniert ganz gut. Aber warum muß ich nach dem 'Anhalten' kurz pausieren? - was geschieht in dieser Zeit? - wie kann ich das anders lösen? Vielen Dank! Erstellt mit VB 2008 Express: Imports System.IO Public Class frmVideo_Test Private Sub frmVideo_Test_Load _ (ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load '---------------------------------------------------------------------- Dim WMP As New AxWMPLib.axWindowsMediaPlayer With Me.WMP .Width = 176 .Height = 99 .uiMode = "none" End With End Sub Private Sub Button3_Click _ (ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button3.Click '---------------------------------------------------------------------- Dim WMP As New AxWMPLib.axWindowsMediaPlayer Try With Me.WMP .URL = "C:\[Video].avi" Do WHILE .playState = WMPLib.WMPPlayState.wmppsTransitioning Application.DoEvents Loop .Ctlcontrols.currentPosition = 0.5 'bzw. Wert von Position an der gestoppt wurde Do WHILE .playState = WMPLib.WMPPlayState.wmppsTransitioning Application.DoEvents Loop .Ctlcontrols.pause Me.Label1.Text = _ .currentMedia.imageSourceWidth.ToString & " / " & _ .currentMedia.imageSourceHeight.ToString & _ " - " & Format(DateAdd("s", _ .currentMedia.duration, CDate("00:00:00")), "mm:ss") & _ " (Breite/Höhe - Dauer)" End With '---------------------------------------------------------------------- Threading.Thread.Sleep(500) ' ??????????????????????????????????????? '---------------------------------------------------------------------- Dim img As New Bitmap(176, 99) Dim gr As Graphics = Graphics.FromImage(img) Dim p As Point = Me.WMP.PointToScreen(New Point(0, 0)) gr.CopyFromScreen(p, New Point(0, 0), Me.WMP.ClientSize) img.Save("C:\Test\Test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) Me.PictureBox1.Image = Image.FromFile("C:\Test\Test.jpg") Catch ex As Exception MsgBox(ex.Message) End Try End Sub End Class

Bild von 'WindowsMediaPlayer' extrahieren

1.413

Dikn

04.03.13 14:21

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen