(* * AVOptions * copyright (c) 2005 Michael Niedermayer <michaelni@gmx.at> * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA *) (* This is a part of Pascal porting of ffmpeg. * Originally by Victor Zinetz for Delphi and Free Pascal on Windows. * For Mac OS X, some modifications were made by The Creative CAT, denoted as CAT * in the source codes *) (* * Conversion of libavcodec/opt.h * revision 13669, Fri Jun 6 07:00:42 2008 UTC *) unit opt; {$IFDEF FPC} {$MODE DELPHI} {$PACKENUM 4} (* use 4-byte enums *) {$PACKRECORDS C} (* C/C++-compatible record packing *) {$ELSE} {$MINENUMSIZE 4} (* use 4-byte enums *) {$ENDIF} interface uses ctypes, rational, UConfig; type TAVOptionType = ( FF_OPT_TYPE_FLAGS, FF_OPT_TYPE_INT, FF_OPT_TYPE_INT64, FF_OPT_TYPE_DOUBLE, FF_OPT_TYPE_FLOAT, FF_OPT_TYPE_STRING, FF_OPT_TYPE_RATIONAL, FF_OPT_TYPE_BINARY, ///< offset must point to a pointer immediately followed by an int for the length FF_OPT_TYPE_CONST = 128 ); const AV_OPT_FLAG_ENCODING_PARAM = 1; ///< a generic parameter which can be set by the user for muxing or encoding AV_OPT_FLAG_DECODING_PARAM = 2; ///< a generic parameter which can be set by the user for demuxing or decoding AV_OPT_FLAG_METADATA = 4; ///< some data extracted or inserted into the file like title, comment, ... AV_OPT_FLAG_AUDIO_PARAM = 8; AV_OPT_FLAG_VIDEO_PARAM = 16; AV_OPT_FLAG_SUBTITLE_PARAM = 32; type (** * AVOption *) PAVOption = ^TAVOption; TAVOption = record name: {const} PChar; (** * short English help text * @todo What about other languages? *) help: {const} PChar; offset: cint; ///< offset to context structure where the parsed value should be stored type_: TAVOptionType; default_val: cdouble; min: cdouble; max: cdouble; flags: cint; //FIXME think about enc-audio, ... style flags unit_: {const} PChar; end; {$IF LIBAVCODEC_VERSION >= 51039000} // 51.39.0 function av_find_opt (obj: Pointer; {const} name: {const} PChar; {const} unit_: PChar; mask: cint; flags: cint): {const} PAVOption; cdecl; external av__codec; {$IFEND} function av_set_string (obj: pointer; name: {const} pchar; val: {const} pchar): PAVOption; cdecl; external av__codec; function av_set_double (obj: pointer; name: {const} pchar; n: cdouble): PAVOption; cdecl; external av__codec; function av_set_q (obj: pointer; name: {const} pchar; n: TAVRational): PAVOption; cdecl; external av__codec; function av_set_int (obj: pointer; name: {const} pchar; n: cint64): PAVOption; cdecl; external av__codec; function av_get_double (obj: pointer; name: {const} pchar; var o_out: PAVOption): cdouble; cdecl; external av__codec; function av_get_q (obj: pointer; name: {const} pchar; var o_out: PAVOption): TAVRational; cdecl; external av__codec; function av_get_int (obj: pointer; name: {const} pchar; var o_out: {const} PAVOption): cint64; cdecl; external av__codec; function av_get_string (obj: pointer; name: {const} pchar; var o_out: {const} PAVOption; buf: pchar; buf_len: cint): pchar; cdecl; external av__codec; function av_next_option (obj: pointer; last: {const} PAVOption): PAVOption; cdecl; external av__codec; function av_opt_show (obj: pointer; av_log_obj: pointer): cint; cdecl; external av__codec; procedure av_opt_set_defaults (s: pointer); cdecl; external av__codec; {$IF LIBAVCODEC_VERSION >= 51039000} // 51.39.0 procedure av_opt_set_defaults2 (s: Pointer; mask: cint; flags: cint); cdecl; external av__codec; {$IFEND} implementation end.