FRAME RATE
Olá, estou executando um vÃdeo avi dentro do meu form e gostaria de saber se existe algum jeito de controlar o frame rate do video.
grato
grato
O que vc está usando pra executar o vÃdeo? Já leu toda a documentação da biblioteca que vc está usando? O caminho é por aÃ.
estou usando a ocx do windows media player e não achei nada. Quais outros jeitos seriam possÃveis de abrir o video no form?
Achei um metodo bem facil.
Public 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
[ô]Este código abre o vÃdeo AVI
Dim FileName As String
returnstring = Space(127)
[ô]Arquivo AVI a ser tocado.
FileName = [Ô]D:\Gravar\O Mundo de Beakman\[S4E17].Sunken.Treasure.Beakmania.&.Archimedian.Screw.avi [Ô]
erg = mciSendString([Ô]open [Ô] & Chr$(34) & _
FileName & Chr$(34) & _
[Ô] type avivideo alias video[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]set video time format frames[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]set video speed 5[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]set video audio all off[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]play video from 10000[Ô], _
returnstring, 127, 0)
Public 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
[ô]Este código abre o vÃdeo AVI
Dim FileName As String
returnstring = Space(127)
[ô]Arquivo AVI a ser tocado.
FileName = [Ô]D:\Gravar\O Mundo de Beakman\[S4E17].Sunken.Treasure.Beakmania.&.Archimedian.Screw.avi [Ô]
erg = mciSendString([Ô]open [Ô] & Chr$(34) & _
FileName & Chr$(34) & _
[Ô] type avivideo alias video[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]set video time format frames[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]set video speed 5[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]set video audio all off[Ô], _
returnstring, 127, 0)
erg = mciSendString([Ô]play video from 10000[Ô], _
returnstring, 127, 0)
Tópico encerrado , respostas não são mais permitidas