vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2018
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Avi abspielen mit Quartz,dll 
Autor: seb-soft
Datum: 12.02.18 20:23

Hallo, schönen guten Abend
Ich benötige wieder einmal Eure Hilfe.
Ich habe in meinem Projekt den Tip vom 08.01.04 (Multimedia-Dateien abspielen leicht gemacht) realisiert. Es funktioniert alles bestens.
Jedoch habe ich folgendes Problem: Wird das abspielen
mittels filgraph.Stop beendet und mittels Filgraph.Run erneut gestartet wird das ursprüngliche (geschlossene) Video erneut aktiviert und weiter abgespielt. So dass jetzt zwei Videos laufen.
Das geht jedesmal so weiter. Auch wenn ich die Fenster per Hand schliesse, jedesmal werden die
zuvor geschlossenen Videos erneut angezeigt und weiter gespielt.

Der Code:

Hier die Anleitung(eigentlich einfach und leicht verständlich):

Sie wollen AVI- oder MPEG-Files abspielen? Oder animierte GIFs anzeigen? Das alles ist mit
der "ActiveMovie Control Type Library" kein Problem. Unter "Projekt - Verweise" können Sie
die Quartz.dll unter dem Namen "ActiveMovie control type library" Ihrem Projekt hinzufügen.
Hierbei handelt es sich um die "Microsoft DirectShow Laufzeitbibliothek".
Zunächst müssen ein paar Variablen deklariert werden:

Option Explicit
' Benötigte Objektvariablen
Private VideoW As IVideoWindow
Private Filgraph As FilgraphManager
Im Form_Load Ereignis wird "Filgraph" instanziert:
Private Sub Form_Load()
' FilgraphManager instanzieren
Set Filgraph = New FilgraphManager
End Sub
Platzieren Sie jetzt noch zwei Command-Buttons auf die Form. Der erste Button dient zum
Abspielen, der zweite, um den Abspielvorgang zu stoppen.

Private Sub Command1_Click()
Dim sPath As String
' Pfad zur Datei, die abgespielt werden soll
sPath = "c:\windows\clock.avi"
' File laden
Filgraph.RenderFile sPath
' Eigenschaften des Ausgabefenster
Set VideoW = Filgraph
With VideoW
.Caption = "Fenstertitel"
.Left = 0
.Top = 0
.FullScreenMode = False
' ...
End With
' Abspielvorgang starten
Filgraph.Run
' Objekt zerstören
Set VideoW = Nothing
End Sub
Private Sub Command2_Click()
' Abspielvorgang stoppen
Filgraph.Stop
End Sub
Mit der Quartz.dll können Sie auch MP3- oder WAVE-Dateien abspielen. Außerdem ist es
möglich Bitmaps, GIF- und JPEG-Dateien anzuzeigen.

Vielen Dank für evt. Hilfe
Gruss Dieter (seb)

Beitrag wurde zuletzt am 12.02.18 um 20:24:58 editiert.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Avi abspielen mit Quartz,dll47seb-soft12.02.18 20:23

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2018 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel