Como obtener metadatos de un archivo de video
 

Hola a tod@s

Pues necesito saber como puedo obtener los metadatos de un archivo multimedia (de video o de audio), algunos de estos son los que aparecen en la pestaña "Detalles" de la ventana Propiedades cuando se hace clic derecho en un archivo multimedia.

En concreto los datos que me interesan son:
Video:
- Duración
- Ancho y Alto del fotograma (tamaño o resolucion)
- Velocidad de bits total (bitrate)
- Codificador de video

Audio:
- Velocidad de bits (bitrate)
- Canales
- Velocidad de muestreo
- Duracion (cuando es un archivo de audio)
- Codificador de audio

En el caso de un archivo de video, son todos los datos, de audio y de video.

A lo mejor este enlace te da una pista: Habla sobre importar la librería de tipos del Windows Media Player y usar las funciones que exporta

Un saludo

Estuve probando con algo parecido a eso, pero para obtener los datos hay que abrir el video en el reproductor (y cerrarlo después)
Esto en un archivo no se nota tanto (si es corto), pero en una lista de 5, 10 o mas archivos de video demoraría un poco mas dependiendo de la longitud de los videos.



Lo que necesito es encontrar donde se guardan esos datos para leerlos sin necesidad de abrirlo en un reproductor, para que sea mas rapido

https://chapmanworld.com/2018/03/14/...ows-in-delphi/

Cierto, dice que no tiene que estar visible, pero aun así lo abre en segundo plano toma los datos y después lo cierra, todo esto automáticamente.

Es que la otra opción que te queda es informarte sobre cómo es el "metadato"/cabecera de cada uno de los tipos de videos que te interesa y hacerlo tú mismo.

En el comentario al enlace que te ha puesto ElKurgan se habla de la herramienta MediaInfo precisamente para obtener este tipo de información, y en este enlace en particular se habla de hacerlo con delphi
https://sourceforge.net/p/mediainfo/...read/a7260d2d/

No se si con esto puedas avanzar algo...

En este caso tendría que leer los bytes del archivo, algo que nunca he hecho :confused:

Según tengo entendido, tendría que usar TFileStream para leer los bytes del archivo (si me equivoco, rectificame).
Buscando en Google encontré las cabeceras de algunos archivos de video (en este caso un .AVI), pero no se como leer esos valores.

De que forma se haría?


Encontre dos posibles opciones: Tag Library pero no me dan la opción para todos los formatos multimedia, y MedianInfo, que voy a experimentar con el para ver si se ajusta a mis necesidades.

Resuelto
 

Pues finalmente resolvi el problema con la libreria MediaInfo ^\||/

Hola, ¿nos puedes decir como lo hicisteis o mejor, un código de ejemplo? Muchas gracias :D

Disculpen, debí comentar como lo hice para que le pueda servir a otros

Pues yo cargo los archivos en un stringlist y de ahi los leo y le obtengo los metadatos con este codigo:

Código Delphi [-]
          if (MediaInfoDLL_Load('MediaInfo.dll') = false) then
            begin
              MsgError('Error al cargar MediaInfo.dll', 'Error');
              Exit;
            end;
          for i:=0 to ListaTagAcum.Count - 1 do
            begin
              Cad:=ListaTagAcum.Strings[i];
              Ruta:=ExtractFilePath(Cad);
              Archivo:=ExtractFileName(Cad);

              Handle:=MediaInfo_New();
              MediaInfo_Open(Handle,PWideChar(Ruta + Archivo)); //--- Abrir el archivo multimedia
              sgListaMetaDatos.Cells[0, i+1]:=Archivo;
              sgListaMetaDatos.Cells[1, i+1]:=MediaInfo_Get(Handle, Stream_General, 0, 'FileSize/String', Info_Text, Info_Name);
              sgListaMetaDatos.Cells[2, i+1]:=MediaInfo_Get(Handle, Stream_General, 0, 'Duration/String2', Info_Text, Info_Name);
              sgListaMetaDatos.Cells[3, i+1]:=MediaInfo_Get(Handle, Stream_General, 0, 'Format', Info_Text, Info_Name);
              Resol:=MediaInfo_Get(Handle, Stream_Video, 0, 'Width', Info_Text, Info_Name) + 'x' + MediaInfo_Get(Handle, Stream_Video, 0, 'Height', Info_Text, Info_Name);
              sgListaMetaDatos.Cells[4, i+1]:=Resol;
              sgListaMetaDatos.Cells[5, i+1]:=MediaInfo_Get(Handle, Stream_General, 0, 'BitRate/String', Info_Text, Info_Name);
              sgListaMetaDatos.Cells[6, i+1]:=MediaInfo_Get(Handle, Stream_Video, 0, 'Format', Info_Text, Info_Name);
              sgListaMetaDatos.Cells[7, i+1]:=MediaInfo_Get(Handle, Stream_Audio, 0, 'BitRate/String', Info_Text, Info_Name);
              sgListaMetaDatos.Cells[8, i+1]:=MediaInfo_Get(Handle, Stream_Audio, 0, 'SamplingRate', Info_Text, Info_Name);
              sgListaMetaDatos.Cells[9, i+1]:=MediaInfo_Get(Handle, Stream_Audio, 0, 'Format', Info_Text, Info_Name);

              pbProgress.Progress:=i;
              pbProgress.Repaint;
              Application.ProcessMessages;
            end;