Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

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...

47

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen