Sección de códigos , trucos y ejemplos para visual basic

77 - Reproducir un Video Avi a pantalla completa con el Api mciSendString

El comando para reproducir el video a pantalla completa usando MciSendstring, es Fullscreen .

También se debe especificar en el comando la ruta del fichero Avi, por ejemplo

Call mciSendString("play c:\archivo.avi fullscreen", 0&, 0, 0&)

Nota importante : La ruta del archivo, si contiene espacios, por ejemplo:

Call mciSendString("play c:\Un archivo de video.avi fullscreen", 0&, 0, 0&)

... No se reproducirá y la función fallará.

Una forma de solucionar esto, es convirtiendo el path largo a path corto. En el siguiente enlace podés ver un ejemplo que utiliza la función del api GetShortPathName :

Ejemplo del Api GetShortPathName y GetLongPathName

Controles en el formulario

Un CommandButton
Un Textox para indicar la ruta

Código fuente en el formulario

Option Explicit ' Declaración de la función Api mciSendString ''''''''''''''''''''''''''''''''''''''''''''' 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 'Acá recibe la ruta del archivo de video avi '''''''''''''''''''''''''''''''''''''''' Private Sub Reproducir(Path As String) Dim Ret As Long Dim comando As String ' verificar que el path es válido If Len(Dir(Path)) = 0 Then ' comando play con la ruta y le indica _ con el fullscreen que es a pantalla completa comando = "play " & Path & " fullscreen" Ret = mciSendString(comando, 0&, 0, 0&) Else MsgBox "No se ha encontrado la ruta del archivo avi", vbCritical End If End Sub Private Sub Command1_Click() Reproducir Text1.Text End Sub Private Sub Form_Load() Command1.Caption = " Reproducir Video " End Sub

Recursos visual basic 6.0 - Enlaces relacionados

Buscar en Recursos vb