mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-17 16:55:52 +01:00
67 lines
1.3 KiB
ObjectPascal
67 lines
1.3 KiB
ObjectPascal
program metadata;
|
|
|
|
{$APPTYPE CONSOLE}
|
|
{$R *.res}
|
|
{$i ffmpeg.inc}
|
|
|
|
uses
|
|
System.SysUtils,
|
|
ffm.lib,
|
|
ffm.libavcodec.avcodec,
|
|
ffm.ctypes,
|
|
ffm.avformat,
|
|
ffm.avio,
|
|
ffm.avutil,
|
|
ffm.buffer,
|
|
ffm.dict,
|
|
ffm.frame,
|
|
ffm.log,
|
|
ffm.opt,
|
|
ffm.pixfmt,
|
|
ffm.rational,
|
|
ffm.samplefmt,
|
|
ffm.parseutils,
|
|
ffm.swscale,
|
|
ffm.pixdesc,
|
|
ffm.imgutils,
|
|
ffm.mem,
|
|
ffm.error,
|
|
uResourcePaths;
|
|
|
|
Var
|
|
fmt_ctx: pAVFormatContext = nil;
|
|
tag: pAVDictionaryEntry = Nil;
|
|
ret: Integer;
|
|
inp : AnsiString;
|
|
|
|
const
|
|
std_filename = cResourceMedia + 'trailer.avi';
|
|
|
|
begin
|
|
try
|
|
Writeln(Format('usage: %s <input_file>'#13#10 + 'example program to demonstrate the use of the libavformat metadata API.'#13#10,
|
|
[ExtractFileName(ParamStr(0))]));
|
|
if (ParamCount < 1) then
|
|
inp := std_filename
|
|
else
|
|
inp := ParamStr(1);
|
|
av_register_all();
|
|
ret := avformat_open_input(fmt_ctx, PAnsiChar(inp), nil, nil);
|
|
if ret < 0 then
|
|
Halt(ret);
|
|
|
|
tag := av_dict_get(fmt_ctx^.metadata, '', tag, AV_DICT_IGNORE_SUFFIX);
|
|
while Assigned(tag) do
|
|
begin
|
|
Writeln(Format('%s = %s'#13#10, [tag^.key, tag^.value]));
|
|
tag := av_dict_get(fmt_ctx^.metadata, '', tag, AV_DICT_IGNORE_SUFFIX);
|
|
end;
|
|
|
|
avformat_close_input(fmt_ctx);
|
|
except
|
|
on E: Exception do
|
|
Writeln(E.ClassName, ': ', E.Message);
|
|
end;
|
|
|
|
end.
|