'Beispiel: VB .Net - Verwendung - Apple QuickTime Player 2.0 'Hinweis : Zur Verwendung des Beispiel ist es erforderlich: '1.) Den QuickTime Player zu installieren und 2.) das Control Apple Quick Time Control 2.0 'in die ToolBox der IDE einzubinden. Option Explicit On Option Strict On Imports System.IO Imports QTOControlLib Imports AxQTOControlLib Imports QTOLibrary Imports System.Runtime.InteropServices Public Class Form1 Private Const IgnoreCancel As Integer = -2147156096 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim ErrorMessage As String = "" If MovPath.Equals("Folder not found...") Then MessageBox.Show("Directory was not found.", "Info") Return Else Try Dim Path As String = IO.Path.Combine(Me.MovPath, "test.mov") If IO.File.Exists(Path) Then With Me With Me.AxQTControl1 .Sizing = QTSizingModeEnum.qtControlFitsMovie .URL = Path .Sizing = QTSizingModeEnum.qtMovieFitsControl .Show() End With .Text = .AxQTControl1.ProductName End With Else MessageBox.Show("File not found...", "Info") End If Catch ex As COMException Dim qtu As QTUtils = New QTUtils() ErrorMessage = "Error Code: " & ex.ErrorCode.ToString("X") & ControlChars.CrLf ErrorMessage &= "QuickTime Error Code: " & qtu.QTErrorFromErrorCode(ex.ErrorCode).ToString() Catch ex As Exception ErrorMessage = ex.ToString() End Try End If If ErrorMessage <> "" Then Dim Message As String = "Es ist ein Fehler aufgetreten: " & ControlChars.CrLf Message &= ErrorMessage MessageBox.Show(Message, "Error...") End If End Sub Private Function MovPath() As String Dim FullPath As String = Path.GetFullPath(Application.StartupPath & "\..\..\mov") Return If(Directory.Exists(FullPath) = True, FullPath, "Folder not found") End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load With Me .Text = "Mov Datei abspielen mit Apple Quick Time Player" .CenterToScreen() .Button1.Text = "Test..." .Button2.Text = "Export Movie" .Button3.Text = "Close Movie" .Button4.Text = "Play Fullscreen" .Button5.Text = "Export with Dialog" .Button6.Text = "Width / Height" .Label1.Text = "#" End With End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button2.Click With Me If .AxQTControl1.Movie Is Nothing Then Exit Sub If .AxQTControl1.Movie.CanExport Then Dim QTLibrary As QTOLibrary.QTQuickTime = .AxQTControl1.QuickTime If QTLibrary.Exporters.Count = 0 Then QTLibrary.Exporters.Add() End If Dim Export As QTOLibrary.QTExporter = QTLibrary.Exporters(1) Export.SetDataSource(.AxQTControl1.Movie) Export.ShowExportDialog() End If End With End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button3.Click With Me.AxQTControl1 If .Movie Is Nothing Then Return .URL = "" .Hide() End With End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button4.Click With Me.AxQTControl1 If .URL <> "" Then .FullScreen = True End If End With End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button5.Click If Me.AxQTControl1.Movie Is Nothing Then Return Else Try Dim QuickTime As QTQuickTime = Me.AxQTControl1.QuickTime If QuickTime.Exporters.Count = 0 Then QuickTime.Exporters.Add() Dim Exporter As QTExporter = QuickTime.Exporters(1) Exporter.TypeName = "QuickTime Movie" Exporter.SetDataSource(Me.AxQTControl1.Movie) Exporter.ShowSettingsDialog() Me.SaveFileDialog1.FileName = "NewName.mov" If Me.SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then Exporter.DestinationFileName = Me.SaveFileDialog1.FileName() Exporter.ShowProgressDialog = True Cursor.Current = Cursors.WaitCursor Exporter.BeginExport() Cursor.Current = Cursors.Default End If Catch ex As COMException If ex.ErrorCode <> IgnoreCancel Then MessageBox.Show(ex.ErrorCode.ToString("X"), "Error in export - COMException") End If Catch ex As Exception MessageBox.Show(ex.Message(), "Info - Exception") End Try End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles Button6.Click If Me.AxQTControl1.Movie Is Nothing Then Return Dim Result As String = String.Format _ ( _ "Width: {0}, Height: {1}", Me.AxQTControl1.Movie.Width, Me.AxQTControl1.Movie.Height _ ) Dim CrLf As String = ControlChars.CrLf Me.Label1.Text = Result & CrLf Me.Label1.Text &= "Duration: " & Me.AxQTControl1.Movie.Duration.ToString() & CrLf Dim s() As String = {"DisplayName: ", "Depth: ", "Copyright: ", "Kind: ", "Track Width/Height: ", _ "DynamicFrameRate: ", "Url: "} Dim n As Integer = -1 If GetTracks(Me.AxQTControl1.Movie).Length > 0 Then For Each Items As String In GetTracks(Me.AxQTControl1.Movie) n += 1 If Items = String.Empty Then s(n) &= " Not found" Me.Label1.Text &= s(n) & Items & CrLf Next Else MessageBox.Show("Array is empty", "Info") End If End Sub Private Function GetTracks(ByVal Movie As QTMovie) As String() Dim Result(6) As String If Movie IsNot Nothing Then Dim Tracks As QTTracks = Movie.Tracks Dim Enumerator As IEnumerator = Tracks.GetEnumerator() While Enumerator.MoveNext() = True Dim qtt As QTTrack = CType(Enumerator.Current, QTTrack) Result(0) = qtt.DisplayName Result(1) = qtt.Depth.ToString() Result(2) = qtt.Copyright() Result(3) = qtt.Kind Result(4) = qtt.Width.ToString() & " - " & qtt.Height.ToString() Result(5) = qtt.DynamicFrameRate.ToString() Result(6) = Movie.URL '... End While End If Return Result End Function End Class