|
V dřívějších verzích nebyl problém s použitím metody FileName. Ve verzi pro VB6 se metoda FileName neukáže ve vyskakovací nápovědě, takže WMP tuto metodu nejspíš vůbec nepodporuje. Video lze spustit i bez WMP, třeba pomocí mci. Zkoušel jsem tento kód, ale u AVI je vypsáno chybové hlášení "Nelze najít dekomprimační modul vids:xvid." a u MPEG zčerná picturebox ale video se nespustí. Vyzkoušejte tento kód, třeba budete mít víc štěstí než já. Luboš
Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()
'otevření videosouboru
mciSendString "OPEN " & App.Path & "\a.avi" & " ALIAS myMMFile TYPE AviVideo", "", 0, 0
' mciSendString "OPEN " & App.Path & "\s.mpg" & " ALIAS myMMFile TYPE MPEGVideo", "", 0, 0
'video bude přehráno v picture boxu
mciSendString "WINDOW myMMFile HANDLE " & Picture1.hWnd, "", 0, 0
'spuštění přehrávání
mciSendString "PLAY myMMFile", "", 0, 0
End Sub
Private Sub Command2_Click()
'zastavení a ukončení přehrávání
mciSendString "STOP myMMFile", "", 0, 0
mciSendString "CLOSE ALL", "", 0, 0
End Sub
|