Ejemplos usando el Api de windows para Visual basic

4 - AVIFileInit - Obtener información de un fichero Avi

Ejemplo que utiliza la Función Api AVIFileInit y algunas otras que se describen en este ejemplo para obtener información de un fichero de video Avi, como por ejemplo, la resolución del Video , es decir el ancho y alto, la duración y alguna otra información del mismo.

Nota: en el siguiente enlace, podés ver un ejemplo de un reproductor de videos en visual basic, que utiliza un módulo de clase , que entre otras cosas permite obtener información del archivo , como por ejemplo el Rate, obtener los frames por segundo y varias otras . Reproductor de video ( es el último ejemplo )

Para el ejemplo colocar un Command1 y un Text1. En el Text1 indicar el path de algún fichero Avi

Código fuente en un formulario

'Constantes Private Const OF_SHARE_DENY_WRITE As Long = &H20 'Estructura para pasar a la función Api AVIFileInfo _ , que contiene la informacion del Avi Private Type AVIFileInfo dwMaxBytesPerSec As Long dwFlags As Long dwCaps As Long dwStreams As Long dwSuggestedBufferSize As Long dwWidth As Long dwHeight As Long dwScale As Long dwRate As Long dwLength As Long dwEditCount As Long szFileType As String * 64 End Type 'Función Api que abre el fichero para obtener información Private Declare Function AVIFileOpen Lib "avifil32" Alias "AVIFileOpenA" ( _ ppfile As Long, _ ByVal szFile As String, _ ByVal mode As Long, _ pclsidHandler As Any) As Long 'Libera la referencia al fichero, es decir lo cierra Private Declare Function AVIFileRelease Lib "avifil32" (ByVal pfile As Long) As Long 'Esta función es la que obtiene la información del AVI Private Declare Function AVIFileInfo Lib "avifil32" Alias "AVIFileInfoA" ( _ ByVal pfile As Long, _ pfi As AVIFileInfo, _ ByVal lSize As Long) As Long 'Inicia la librería AvifileInit Private Declare Sub AVIFileInit Lib "avifil32" () 'Cierra la librería Private Declare Sub AVIFileExit Lib "avifil32" () Private Sub Command1_Click() Dim hFile As Long, AviInfo As AVIFileInfo Dim ruta As String 'Path del archivo ruta = Text1 'Inicializamos la librería AVIFile con AviFileInit AVIFileInit 'Abrimos el archivo y creamos un handle al archivo si es -1 es error If AVIFileOpen(hFile, ruta, OF_SHARE_DENY_WRITE, ByVal 0&) = 0 Then 'Acá recuperamos la información ' Si nos dá distinto de 0 es error If AVIFileInfo(hFile, AviInfo, Len(AviInfo)) = 0 Then MsgBox "Dimensiones del Archivo AVI: " & _ CStr(AviInfo.dwWidth) + "x" + CStr(AviInfo.dwHeight) MsgBox "Tamaño: " & AviInfo.dwLength & "KB" Else MsgBox "Error ", vbCritical End If ' Liberamos el Handle AVIFileRelease hFile Else MsgBox " Error ", vbCritical End If 'Liberamos la referencia a la librería AVIFileExit End Sub

Enlaces relacionados:

Audio, video y sonido

Buscar en Recursos vb