|
| |
Fortgeschrittene Programmierung| DivX Filme anspielen Leider ist kein Ton zu hören sondern nur das Bild zusehen . Wer Kann helfen ??? | |  | | Autor: Sam | | Datum: 18.04.02 12:48 |
| Hallo ich bin schon völlig am verzweifeln,
Ich bin dabei einen Media Player zu entwickelt ohne Media Player controll
jetzt gibt es mehre Probleme.
zuerst auszüge aus dem Quelltext;
____________________________________________________________________
ModulFilmeundMusik:
____________________________________________________________________
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As _
String, ByVal lpstrReturnString As Any, ByVal _
uReturnLength As Long, ByVal hwndCallback As _
Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" _
Alias "GetShortPathNameA" (ByVal lpszLongPath As _
String, ByVal lpszShortPath As String, ByVal _
cchBuffer As Long) As Long
____________________________________________________________________
Function musikAbspielen()
Dim da, AA$
Form1.CommonDialog1.Filter = "*.wma(*.wma)|*.wma;*.wav*.mp3"
Form1.CommonDialog1.InitDir = App.Path
Form1.CommonDialog1.ShowOpen
AA = Space$(255)
da = GetShortPathName(Form1.CommonDialog1.filename, AA, Len(AA))
Form2.List1.AddItem (Form1.CommonDialog1.filename)
Form2.Show
AA = Mid$(AA, 1, da)
da = mciSendString("play " & AA & " fullscreen ", 0&, 0, 0&)
MusikSpeicher.speichern
End Function
____________________________________________________________________
Function AVIfilmeAnspielen()
Dim da, AA$
Form1.CommonDialog1.Filter = ("(*.avi)|*.avi;")
Form1.CommonDialog1.InitDir = App.Path
Form1.CommonDialog1.ShowOpen
AA = Space$(255)
da = GetShortPathName(Form1.CommonDialog1.filename, AA, Len(AA))
AA = Mid$(AA, 1, da)
da = mciSendString("play " & AA & " fullscreen ", 0&, 0, 0&)
End Function
____________________________________________________________________
Function DATfilmeAnspielen()
Dim da, AA$
AA = Space$(255)
da = GetShortPathName(frmMenü.Dir1 & "\" & frmMenü.lblAnzeige, AA, Len(AA))
AA = Mid$(AA, 1, da)
da = mciSendString("play " & AA & " fullscreen ", 0&, 0, 0&)
End Function
____________________________________________________________________
Function DivX()
Dim da, AA$
AA = Space$(255)
da = GetShortPathName(frmMenü.File1 & "\" & frmMenü.lblAnzeige.Caption, AA, Len(AA))
AA = Mid$(AA, 1, da)
da = mciSendString("play " & AA & " fullscreen ", 0&, 0, 0&)
End Function
____________________________________________________________________
Function musikAbspielen2()
Dim da, AA$
AA = Space$(255)
da = GetShortPathName (Form2.lblAnzeige.Caption, AA, Len(AA))
AA = Mid$(AA, 1, da)
da = mciSendString("play " & AA & " fullscreen ", 0&, 0, 0&)
End Function
____________________________________________________________________
Liste der Probleme:
a)Ist ja alles wunderbar nur leider kann ich bei DivX nur das Bild sehen aber keinen Ton hören. Wieso
b) wenn ich auf Esc währen des filmes drücke, muß ich wieder den Film von anfang an starten. Ist es möglich per Api solche sachen wie vor,zurück kleines bild anzusteuern
ohne eine ActiceX Steuerelement zu verwenden ???
Wer kann helfen ??????????????? | |
 DivX Filme anspielen Leider ist kein Ton zu hören sondern nu... | 46 | Sam | 18.04.02 12:48 |
 | 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 |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
Sie sind aktuell nicht angemeldet.