(*
* copyright (c) 2001 Fabrice Bellard
*
* 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 St, Fifth Floor, Boston, MA 02110-1301 USA
*)
unit avcodec;
interface
uses
windows, avutil, rational, opt;
const
av__format = 'avformat-50.dll';
LIBAVUTIL_VERSION_INT = ((51 shl 16) + (16 shl 8) + 0);
LIBAVUTIL_VERSION = '51.16.0';
LIBAVUTIL_BUILD = LIBAVUTIL_VERSION_INT;
AV_NOPTS_VALUE: int64 = $8000000000000000;
AV_TIME_BASE = 1000000;
type
TCodecID = (
CODEC_ID_NONE, CODEC_ID_MPEG1VIDEO,
CODEC_ID_MPEG2VIDEO, //* prefered ID for MPEG Video 1 or 2 decoding */
CODEC_ID_MPEG2VIDEO_XVMC, CODEC_ID_H261, CODEC_ID_H263, CODEC_ID_RV10,
CODEC_ID_RV20, CODEC_ID_MJPEG, CODEC_ID_MJPEGB, CODEC_ID_LJPEG,
CODEC_ID_SP5X, CODEC_ID_JPEGLS, CODEC_ID_MPEG4, CODEC_ID_RAWVIDEO,
CODEC_ID_MSMPEG4V1, CODEC_ID_MSMPEG4V2, CODEC_ID_MSMPEG4V3,
CODEC_ID_WMV1, CODEC_ID_WMV2, CODEC_ID_H263P,
CODEC_ID_H263I, CODEC_ID_FLV1, CODEC_ID_SVQ1, CODEC_ID_SVQ3,
CODEC_ID_DVVIDEO, CODEC_ID_HUFFYUV, CODEC_ID_CYUV, CODEC_ID_H264,
CODEC_ID_INDEO3, CODEC_ID_VP3, CODEC_ID_THEORA, CODEC_ID_ASV1,
CODEC_ID_ASV2, CODEC_ID_FFV1, CODEC_ID_4XM, CODEC_ID_VCR1,
CODEC_ID_CLJR, CODEC_ID_MDEC, CODEC_ID_ROQ, CODEC_ID_INTERPLAY_VIDEO,
CODEC_ID_XAN_WC3, CODEC_ID_XAN_WC4, CODEC_ID_RPZA, CODEC_ID_CINEPAK,
CODEC_ID_WS_VQA, CODEC_ID_MSRLE, CODEC_ID_MSVIDEO1, CODEC_ID_IDCIN,
CODEC_ID_8BPS, CODEC_ID_SMC, CODEC_ID_FLIC, CODEC_ID_TRUEMOTION1,
CODEC_ID_VMDVIDEO, CODEC_ID_MSZH, CODEC_ID_ZLIB, CODEC_ID_QTRLE,
CODEC_ID_SNOW, CODEC_ID_TSCC, CODEC_ID_ULTI, CODEC_ID_QDRAW,
CODEC_ID_VIXL, CODEC_ID_QPEG, CODEC_ID_XVID, CODEC_ID_PNG,
CODEC_ID_PPM, CODEC_ID_PBM, CODEC_ID_PGM, CODEC_ID_PGMYUV,
CODEC_ID_PAM, CODEC_ID_FFVHUFF, CODEC_ID_RV30, CODEC_ID_RV40,
CODEC_ID_VC1, CODEC_ID_WMV3, CODEC_ID_LOCO, CODEC_ID_WNV1,
CODEC_ID_AASC, CODEC_ID_INDEO2, CODEC_ID_FRAPS, CODEC_ID_TRUEMOTION2,
CODEC_ID_BMP, CODEC_ID_CSCD, CODEC_ID_MMVIDEO, CODEC_ID_ZMBV,
CODEC_ID_AVS, CODEC_ID_SMACKVIDEO, CODEC_ID_NUV, CODEC_ID_KMVC,
CODEC_ID_FLASHSV, CODEC_ID_CAVS, CODEC_ID_JPEG2000, CODEC_ID_VMNC,
CODEC_ID_VP5, CODEC_ID_VP6, CODEC_ID_VP6F,
//* various pcm "codecs" */
CODEC_ID_PCM_S16LE= $10000, CODEC_ID_PCM_S16BE, CODEC_ID_PCM_U16LE,
CODEC_ID_PCM_U16BE, CODEC_ID_PCM_S8, CODEC_ID_PCM_U8, CODEC_ID_PCM_MULAW,
CODEC_ID_PCM_ALAW, CODEC_ID_PCM_S32LE, CODEC_ID_PCM_S32BE, CODEC_ID_PCM_U32LE,
CODEC_ID_PCM_U32BE, CODEC_ID_PCM_S24LE, CODEC_ID_PCM_S24BE, CODEC_ID_PCM_U24LE,
CODEC_ID_PCM_U24BE, CODEC_ID_PCM_S24DAUD,
//* various adpcm codecs */
CODEC_ID_ADPCM_IMA_QT= $11000, CODEC_ID_ADPCM_IMA_WAV, CODEC_ID_ADPCM_IMA_DK3,
CODEC_ID_ADPCM_IMA_DK4, CODEC_ID_ADPCM_IMA_WS, CODEC_ID_ADPCM_IMA_SMJPEG,
CODEC_ID_ADPCM_MS, CODEC_ID_ADPCM_4XM, CODEC_ID_ADPCM_XA, CODEC_ID_ADPCM_ADX,
CODEC_ID_ADPCM_EA, CODEC_ID_ADPCM_G726, CODEC_ID_ADPCM_CT, CODEC_ID_ADPCM_SWF,
CODEC_ID_ADPCM_YAMAHA, CODEC_ID_ADPCM_SBPRO_4, CODEC_ID_ADPCM_SBPRO_3,
CODEC_ID_ADPCM_SBPRO_2,
//* AMR */
CODEC_ID_AMR_NB= $12000, CODEC_ID_AMR_WB,
//* RealAudio codecs*/
CODEC_ID_RA_144= $13000, CODEC_ID_RA_288,
//* various DPCM codecs */
CODEC_ID_ROQ_DPCM= $14000, CODEC_ID_INTERPLAY_DPCM, CODEC_ID_XAN_DPCM,
CODEC_ID_SOL_DPCM, CODEC_ID_MP2= $15000,
CODEC_ID_MP3, //* prefered ID for MPEG Audio layer 1, 2 or3 decoding */
CODEC_ID_AAC, CODEC_ID_MPEG4AAC, CODEC_ID_AC3, CODEC_ID_DTS, CODEC_ID_VORBIS,
CODEC_ID_DVAUDIO, CODEC_ID_WMAV1, CODEC_ID_WMAV2, CODEC_ID_MACE3,
CODEC_ID_MACE6, CODEC_ID_VMDAUDIO, CODEC_ID_SONIC, CODEC_ID_SONIC_LS,
CODEC_ID_FLAC, CODEC_ID_MP3ADU, CODEC_ID_MP3ON4, CODEC_ID_SHORTEN,
CODEC_ID_ALAC, CODEC_ID_WESTWOOD_SND1, CODEC_ID_GSM, CODEC_ID_QDM2,
CODEC_ID_COOK, CODEC_ID_TRUESPEECH, CODEC_ID_TTA, CODEC_ID_SMACKAUDIO,
CODEC_ID_QCELP, CODEC_ID_WAVPACK,
//* subtitle codecs */
CODEC_ID_DVD_SUBTITLE= $17000, CODEC_ID_DVB_SUBTITLE,
CODEC_ID_MPEG2TS= $20000 //* _FAKE_ codec to indicate a raw MPEG2 transport
// stream (only used by libavformat) */
);
//* CODEC_ID_MP3LAME is absolete */
const
CODEC_ID_MP3LAME = CODEC_ID_MP3;
AVPALETTE_SIZE = 1024;
AVPALETTE_COUNT = 256;
type
TCodecType = (
CODEC_TYPE_UNKNOWN = -1,
CODEC_TYPE_VIDEO,
CODEC_TYPE_AUDIO,
CODEC_TYPE_DATA,
CODEC_TYPE_SUBTITLE
);
//* currently unused, may be used if 24/32 bits samples ever supported */
//* all in native endian */
TSampleFormat = (
SAMPLE_FMT_NONE = -1,
SAMPLE_FMT_U8, ///< unsigned 8 bits
SAMPLE_FMT_S16, ///< signed 16 bits
SAMPLE_FMT_S24, ///< signed 24 bits
SAMPLE_FMT_S32, ///< signed 32 bits
SAMPLE_FMT_FLT ///< float
);
const
//* in bytes */
AVCODEC_MAX_AUDIO_FRAME_SIZE = 192000; // 1 second of 48khz 32bit audio
(**
* Required number of additionally allocated bytes at the end of the input bitstream for decoding.
* this is mainly needed because some optimized bitstream readers read
* 32 or 64 bit at once and could read over the end<br>
* Note, if the first 23 bits of the additional bytes are not 0 then damaged
* MPEG bitstreams could cause overread and segfault
*)
FF_INPUT_BUFFER_PADDING_SIZE = 8;
(**
* minimum encoding buffer size.
* used to avoid some checks during header writing
*)
FF_MIN_BUFFER_SIZE = 16384;
type
//* motion estimation type, EPZS by default */
TMotion_Est_ID = (
ME_ZERO = 1,
ME_FULL,
ME_LOG,
ME_PHODS,
ME_EPZS,
ME_X1,
ME_HEX,
ME_UMH,
ME_ITER
);
TAVDiscard = (
//we leave some space between them for extensions (drop some keyframes for intra only or drop just some bidir frames)
AVDISCARD_NONE = -16, ///< discard nothing
AVDISCARD_DEFAULT= 0, ///< discard useless packets like 0 size packets in avi
AVDISCARD_NONREF = 8, ///< discard all non reference
AVDISCARD_BIDIR = 16, ///< discard all bidirectional frames
AVDISCARD_NONKEY = 32, ///< discard all frames except keyframes
AVDISCARD_ALL = 48, ///< discard all
AVDISCARD_FUCK = $FFFFFF
);
PRcOverride = ^TRcOverride;
TRcOverride = record {16}
start_frame: integer;
end_frame: integer;
qscale: integer; // if this is 0 then quality_factor will be used instead
quality_factor: single;
end;
const
FF_MAX_B_FRAMES = 16;
(* encoding support
these flags can be passed in AVCodecContext.flags before initing
Note: not everything is supported yet.
*)
CODEC_FLAG_QSCALE = $0002; ///< use fixed qscale
CODEC_FLAG_4MV = $0004; ///< 4 MV per MB allowed / Advanced prediction for H263
CODEC_FLAG_QPEL = $0010; ///< use qpel MC
CODEC_FLAG_GMC = $0020; ///< use GMC
CODEC_FLAG_MV0 = $0040; ///< always try a MB with MV=<0,0>
CODEC_FLAG_PART = $0080; ///< use data partitioning
//* parent program gurantees that the input for b-frame containing streams is not written to
// for at least s->max_b_frames+1 frames, if this is not set than the input will be copied */
CODEC_FLAG_INPUT_PRESERVED = $0100;
CODEC_FLAG_PASS1 = $0200; ///< use internal 2pass ratecontrol in first pass mode
CODEC_FLAG_PASS2 = $0400; ///< use internal 2pass ratecontrol in second pass mode
CODEC_FLAG_EXTERN_HUFF = $1000; ///< use external huffman table (for mjpeg)
CODEC_FLAG_GRAY = $2000; ///< only decode/encode grayscale
CODEC_FLAG_EMU_EDGE = $4000; ///< don't draw edges
CODEC_FLAG_PSNR = $8000; ///< error[?] variables will be set during encoding
CODEC_FLAG_TRUNCATED = $00010000; //** input bitstream might be truncated at a random location instead
// of only at frame boundaries */
CODEC_FLAG_NORMALIZE_AQP = $00020000; ///< normalize adaptive quantization
CODEC_FLAG_INTERLACED_DCT = $00040000; ///< use interlaced dct
CODEC_FLAG_LOW_DELAY = $00080000; ///< force low delay
CODEC_FLAG_ALT_SCAN = $00100000; ///< use alternate scan
CODEC_FLAG_TRELLIS_QUANT = $00200000; ///< use trellis quantization
CODEC_FLAG_GLOBAL_HEADER = $00400000; ///< place global headers in extradata instead of every keyframe
CODEC_FLAG_BITEXACT = $00800000; ///< use only bitexact stuff (except (i)dct)
//* Fx : Flag for h263+ extra options */
CODEC_FLAG_H263P_AIC = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction (remove this)
CODEC_FLAG_AC_PRED = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction
CODEC_FLAG_H263P_UMV = $02000000; ///< Unlimited motion vector
CODEC_FLAG_CBP_RD = $04000000; ///< use rate distortion optimization for cbp
CODEC_FLAG_QP_RD = $08000000; ///< use rate distortion optimization for qp selectioon
CODEC_FLAG_H263P_AIV = $00000008; ///< H263 Alternative inter vlc
CODEC_FLAG_OBMC = $00000001; ///< OBMC
CODEC_FLAG_LOOP_FILTER = $00000800; ///< loop filter
CODEC_FLAG_H263P_SLICE_STRUCT = $10000000;
CODEC_FLAG_INTERLACED_ME = $20000000; ///< interlaced motion estimation
CODEC_FLAG_SVCD_SCAN_OFFSET = $40000000; ///< will reserve space for SVCD scan offset user data
CODEC_FLAG_CLOSED_GOP = $80000000;
CODEC_FLAG2_FAST = $00000001; ///< allow non spec compliant speedup tricks
CODEC_FLAG2_STRICT_GOP = $00000002; ///< strictly enforce GOP size
CODEC_FLAG2_NO_OUTPUT = $00000004; ///< skip bitstream encoding
CODEC_FLAG2_LOCAL_HEADER = $00000008; ///< place global headers at every keyframe instead of in extradata
CODEC_FLAG2_BPYRAMID = $00000010; ///< H.264 allow b-frames to be used as references
CODEC_FLAG2_WPRED = $00000020; ///< H.264 weighted biprediction for b-frames
CODEC_FLAG2_MIXED_REFS = $00000040; ///< H.264 multiple references per partition
CODEC_FLAG2_8X8DCT = $00000080; ///< H.264 high profile 8x8 transform
CODEC_FLAG2_FASTPSKIP = $00000100; ///< H.264 fast pskip
CODEC_FLAG2_AUD = $00000200; ///< H.264 access unit delimiters
CODEC_FLAG2_BRDO = $00000400; ///< b-frame rate-distortion optimization
CODEC_FLAG2_INTRA_VLC = $00000800; ///< use MPEG-2 intra VLC table
CODEC_FLAG2_MEMC_ONLY = $00001000; ///< only do ME/MC (I frames -> ref, P frame -> ME+MC)
(* Unsupported options :
* Syntax Arithmetic coding (SAC)
* Reference Picture Selection
* Independant Segment Decoding */
/* /Fx */
/* codec capabilities *)
const
CODEC_CAP_DRAW_HORIZ_BAND = $001; ///< decoder can use draw_horiz_band callback
(**
* Codec uses get_buffer() for allocating buffers.
* direct rendering method 1 *)
CODEC_CAP_DR1 = $002;
(* if 'parse_only' field is true, then avcodec_parse_frame() can be used *)
CODEC_CAP_PARSE_ONLY = $004;
CODEC_CAP_TRUNCATED = $008;
//* codec can export data for HW decoding (XvMC) */
CODEC_CAP_HWACCEL = $010;
(**
* codec has a non zero delay and needs to be feeded with NULL at the end to get the delayed data.
* if this is not set, the codec is guranteed to never be feeded with NULL data *)
CODEC_CAP_DELAY = $0020;
(**
* Codec can be fed a final frame with a smaller size.
* This can be used to prevent truncation of the last audio samples. *)
CODEC_CAP_SMALL_LAST_FRAME = $0040;
//the following defines may change, don't expect compatibility if you use them
MB_TYPE_INTRA4x4 = $001;
MB_TYPE_INTRA16x16 = $002; //FIXME h264 specific
MB_TYPE_INTRA_PCM = $004; //FIXME h264 specific
MB_TYPE_16x16 = $008;
MB_TYPE_16x8 = $010;
MB_TYPE_8x16 = $020;
MB_TYPE_8x8 = $040;
MB_TYPE_INTERLACED = $080;
MB_TYPE_DIRECT2 = $100; //FIXME
MB_TYPE_ACPRED = $200;
MB_TYPE_GMC = $400;
MB_TYPE_SKIP = $800;
MB_TYPE_P0L0 = $1000;
MB_TYPE_P1L0 = $2000;
MB_TYPE_P0L1 = $4000;
MB_TYPE_P1L1 = $8000;
MB_TYPE_L0 = (MB_TYPE_P0L0 or MB_TYPE_P1L0);
MB_TYPE_L1 = (MB_TYPE_P0L1 or MB_TYPE_P1L1);
MB_TYPE_L0L1 = (MB_TYPE_L0 or MB_TYPE_L1);
MB_TYPE_QUANT = $0010000;
MB_TYPE_CBP = $0020000;
//Note bits 24-31 are reserved for codec specific use (h264 ref0, mpeg1 0mv, ...)
type
(**
* Pan Scan area.
* this specifies the area which should be displayed. Note there may be multiple such areas for one frame *)
PAVPanScan = ^TAVPanScan;
TAVPanScan = record {24}
(*** id.
* - encoding: set by user.
* - decoding: set by lavc *)
id: integer;
(*** width and height in 1/16 pel
* - encoding: set by user.
* - decoding: set by lavc *)
width: integer;
height: integer;
(*** position of the top left corner in 1/16 pel for up to 3 fields/frames.
* - encoding: set by user.
* - decoding: set by lavc *)
position: array [0..2] of array [0..1] of smallint;
end;
const
FF_QSCALE_TYPE_MPEG1 = 0;
FF_QSCALE_TYPE_MPEG2 = 1;
FF_BUFFER_TYPE_INTERNAL = 1;
FF_BUFFER_TYPE_USER = 2; ///< Direct rendering buffers (image is (de)allocated by user)
FF_BUFFER_TYPE_SHARED = 4; ///< buffer from somewhere else, don't dealloc image (data/base), all other tables are not shared
FF_BUFFER_TYPE_COPY = 8; ///< just a (modified) copy of some other buffer, don't dealloc anything
FF_I_TYPE = 1; // Intra
FF_P_TYPE = 2; // Predicted
FF_B_TYPE = 3; // Bi-dir predicted
FF_S_TYPE = 4; // S(GMC)-VOP MPEG4
FF_SI_TYPE = 5;
FF_SP_TYPE = 6;
FF_BUFFER_HINTS_VALID = $01; // Buffer hints value is meaningful (if 0 ignore)
FF_BUFFER_HINTS_READABLE = $02; // Codec will read from buffer
FF_BUFFER_HINTS_PRESERVE = $04; // User must not alter buffer content
FF_BUFFER_HINTS_REUSABLE = $08; // Codec will reuse the buffer (update)
type
(*** Audio Video Frame. *)
PAVFrame = ^TAVFrame;
TAVFrame = record {200}
(*** pointer to the picture planes.
* this might be different from the first allocated byte *)
data: array [0..3] of pointer;
linesize: array [0..3] of integer;
(*** pointer to the first allocated byte of the picture. can be used in get_buffer/release_buffer
* this isn't used by lavc unless the default get/release_buffer() is used*)
base: array [0..3] of pchar;
(*** 1 -> keyframe, 0-> not *)
key_frame: integer;
(*** picture type of the frame, see ?_TYPE below.*)
pict_type: integer;
(*** presentation timestamp in time_base units (time when frame should be shown to user)
* if AV_NOPTS_VALUE then frame_rate = 1/time_base will be assumed*)
pts: int64;
(*** picture number in bitstream order.*)
coded_picture_number: integer;
(*** picture number in display order.*)
display_picture_number: integer;
(*** quality (between 1 (good) and FF_LAMBDA_MAX (bad)) *)
quality: integer;
(*** buffer age (1->was last buffer and dint change, 2->..., ...).*)
age: integer;
(*** is this picture used as reference*)
reference: integer;
(*** QP table*)
qscale_table: pchar;
(*** QP store stride*)
qstride: integer;
(*** mbskip_table[mb]>=1 if MB didnt change*)
mbskip_table: pchar;
(**
* Motion vector table.
* @code
* example:
* int mv_sample_log2= 4 - motion_subsample_log2;
* int mb_width= (width+15)>>4;
* int mv_stride= (mb_width << mv_sample_log2) + 1;
* motion_val[direction][x + y*mv_stride][0->mv_x, 1->mv_y];
* @endcode
* - encoding: set by user
* - decoding: set by lavc *)
motion_val: array [0..1] of pointer;
(*** Macroblock type table
* mb_type_base + mb_width + 2 *)
mb_type: PCardinal;
(*** log2 of the size of the block which a single vector in motion_val represents:
* (4->16x16, 3->8x8, 2-> 4x4, 1-> 2x2)*)
motion_subsample_log2: byte;
(*** for some private data of the user*)
opaque: pointer;
(*** error*)
error: array [0..3] of int64;
(*** type of the buffer (to keep track of who has to dealloc data[*])
* Note: user allocated (direct rendering) & internal buffers can not coexist currently*)
_type: integer;
(*** when decoding, this signal how much the picture must be delayed.
* extra_delay = repeat_pict / (2*fps)*)
repeat_pict: integer;
qscale_type: Integer;
(*** The content of the picture is interlaced.*)
interlaced_frame: Integer;
(*** if the content is interlaced, is top field displayed first.*)
top_field_first: integer;
(*** Pan scan.*)
pan_scan: PAVPanScan;
(*** tell user application that palette has changed from previous frame.*)
palette_has_changed: integer;
(*** Codec suggestion on buffer type if != 0
* - decoding: set by lavc (before get_buffer() call))*)
buffer_hints: integer;
(*** DCT coeffitients*)
dct_coeff: PSmallInt;
(*** Motion referece frame index*)
ref_index: array [0..1] of pchar;
end;
const
DEFAULT_FRAME_RATE_BASE = 1001000;
FF_BUG_AUTODETECT = 1; ///< autodetection
FF_BUG_OLD_MSMPEG4 = 2;
FF_BUG_XVID_ILACE = 4;
FF_BUG_UMP4 = 8;
FF_BUG_NO_PADDING = 16;
FF_BUG_AMV = 32;
FF_BUG_AC_VLC = 0; ///< will be removed, libavcodec can now handle these non compliant files by default
FF_BUG_QPEL_CHROMA = 64;
FF_BUG_STD_QPEL = 128;
FF_BUG_QPEL_CHROMA2 = 256;
FF_BUG_DIRECT_BLOCKSIZE = 512;
FF_BUG_EDGE = 1024;
FF_BUG_HPEL_CHROMA = 2048;
FF_BUG_DC_CLIP = 4096;
FF_BUG_MS = 8192; ///< workaround various bugs in microsofts broken decoders
FF_COMPLIANCE_VERY_STRICT = 2; ///< strictly conform to a older more strict version of the spec or reference software
FF_COMPLIANCE_STRICT = 1; ///< strictly conform to all the things in the spec no matter what consequences
FF_COMPLIANCE_NORMAL = 0;
FF_COMPLIANCE_INOFFICIAL = -1; ///< allow inofficial extensions
FF_COMPLIANCE_EXPERIMENTAL = -2; ///< allow non standarized experimental things
FF_ER_CAREFUL = 1;
FF_ER_COMPLIANT = 2;
FF_ER_AGGRESSIVE = 3;
FF_ER_VERY_AGGRESSIVE = 4;
FF_DCT_AUTO = 0;
FF_DCT_FASTINT = 1;
FF_DCT_INT = 2;
FF_DCT_MMX = 3;
FF_DCT_MLIB = 4;
FF_DCT_ALTIVEC = 5;
FF_DCT_FAAN = 6;
FF_IDCT_AUTO = 0;
FF_IDCT_INT = 1;
FF_IDCT_SIMPLE = 2;
FF_IDCT_SIMPLEMMX = 3;
FF_IDCT_LIBMPEG2MMX = 4;
FF_IDCT_PS2 = 5;
FF_IDCT_MLIB = 6;
FF_IDCT_ARM = 7;
FF_IDCT_ALTIVEC = 8;
FF_IDCT_SH4 = 9;
FF_IDCT_SIMPLEARM = 10;
FF_IDCT_H264 = 11;
FF_IDCT_VP3 = 12;
FF_IDCT_IPP = 13;
FF_IDCT_XVIDMMX = 14;
FF_EC_GUESS_MVS = 1;
FF_EC_DEBLOCK = 2;
FF_MM_FORCE = $80000000; (* force usage of selected flags (OR) *)
(* lower 16 bits - CPU features *)
FF_MM_MMX = $0001; (* standard MMX *)
FF_MM_3DNOW = $0004; (* AMD 3DNOW *)
FF_MM_MMXEXT = $0002; (* SSE integer functions or AMD MMX ext *)
FF_MM_SSE = $0008; (* SSE functions *)
FF_MM_SSE2 = $0010; (* PIV SSE2 functions *)
FF_MM_3DNOWEXT = $0020; (* AMD 3DNowExt *)
FF_MM_IWMMXT = $0100; (* XScale IWMMXT *)
FF_PRED_LEFT = 0;
FF_PRED_PLANE = 1;
FF_PRED_MEDIAN = 2;
FF_DEBUG_PICT_INFO = 1;
FF_DEBUG_RC = 2;
FF_DEBUG_BITSTREAM = 4;
FF_DEBUG_MB_TYPE = 8;
FF_DEBUG_QP = 16;
FF_DEBUG_MV = 32;
FF_DEBUG_DCT_COEFF = $00000040;
FF_DEBUG_SKIP = $00000080;
FF_DEBUG_STARTCODE = $00000100;
FF_DEBUG_PTS = $00000200;
FF_DEBUG_ER = $00000400;
FF_DEBUG_MMCO = $00000800;
FF_DEBUG_BUGS = $00001000;
FF_DEBUG_VIS_QP = $00002000;
FF_DEBUG_VIS_MB_TYPE = $00004000;
FF_DEBUG_VIS_MV_P_FOR = $00000001; //visualize forward predicted MVs of P frames
FF_DEBUG_VIS_MV_B_FOR = $00000002; //visualize forward predicted MVs of B frames
FF_DEBUG_VIS_MV_B_BACK = $00000004; //visualize backward predicted MVs of B frames
FF_CMP_SAD = 0;
FF_CMP_SSE = 1;
FF_CMP_SATD = 2;
FF_CMP_DCT = 3;
FF_CMP_PSNR = 4;
FF_CMP_BIT = 5;
FF_CMP_RD = 6;
FF_CMP_ZERO = 7;
FF_CMP_VSAD = 8;
FF_CMP_VSSE = 9;
FF_CMP_NSSE = 10;
FF_CMP_W53 = 11;
FF_CMP_W97 = 12;
FF_CMP_DCTMAX = 13;
FF_CMP_CHROMA = 256;
FF_DTG_AFD_SAME = 8;
FF_DTG_AFD_4_3 = 9;
FF_DTG_AFD_16_9 = 10;
FF_DTG_AFD_14_9 = 11;
FF_DTG_AFD_4_3_SP_14_9 = 13;
FF_DTG_AFD_16_9_SP_14_9 = 14;
FF_DTG_AFD_SP_4_3 = 15;
FF_DEFAULT_QUANT_BIAS = 999999;
FF_LAMBDA_SHIFT = 7;
FF_LAMBDA_SCALE = (1 shl FF_LAMBDA_SHIFT);
FF_QP2LAMBDA = 118; ///< factor to convert from H.263 QP to lambda
FF_LAMBDA_MAX = (256 * 128 - 1);
FF_QUALITY_SCALE = FF_LAMBDA_SCALE; //FIXME maybe remove
FF_CODER_TYPE_VLC = 0;
FF_CODER_TYPE_AC = 1;
SLICE_FLAG_CODED_ORDER = $0001; ///< draw_horiz_band() is called in coded order instead of display
SLICE_FLAG_ALLOW_FIELD = $0002; ///< allow draw_horiz_band() with field slices (MPEG2 field pics)
SLICE_FLAG_ALLOW_PLANE = $0004; ///< allow draw_horiz_band() with 1 component at a time (SVQ1)
FF_MB_DECISION_SIMPLE = 0; ///< uses mb_cmp
FF_MB_DECISION_BITS = 1; ///< chooses the one which needs the fewest bits
FF_MB_DECISION_RD = 2; ///< rate distoration
FF_AA_AUTO = 0;
FF_AA_FASTINT = 1; //not implemented yet
FF_AA_INT = 2;
FF_AA_FLOAT = 3;
FF_PROFILE_UNKNOWN = -99;
FF_LEVEL_UNKNOWN = -99;
X264_PART_I4X4 = $001; (* Analyse i4x4 *)
X264_PART_I8X8 = $002; (* Analyse i8x8 (requires 8x8 transform) *)
X264_PART_P8X8 = $010; (* Analyse p16x8, p8x16 and p8x8 *)
X264_PART_P4X4 = $020; (* Analyse p8x4, p4x8, p4x4 *)
X264_PART_B8X8 = $100; (* Analyse b16x8, b8x16 and b8x8 *)
type
PAVCLASS = ^TAVCLASS;
PAVCodecContext = ^TAVCodecContext;
PAVCodec = ^TAVCodec;
PAVPaletteControl = ^TAVPaletteControl;
TAVCLASS = record {12}
class_name: pchar;
(* actually passing a pointer to an AVCodecContext
or AVFormatContext, which begin with an AVClass.
Needed because av_log is in libavcodec and has no visibility
of AVIn/OutputFormat *)
item_name: function (): pchar; cdecl;
option: PAVOption;
end;
TAVCodecContext = record {720}
(*** Info on struct for av_log
* - set by avcodec_alloc_context *)
av_class: PAVClass;
(*** the average bitrate.
* - encoding: set by user. unused for constant quantizer encoding
* - decoding: set by lavc. 0 or some bitrate if this info is available in the stream *)
bit_rate: integer;
(*** number of bits the bitstream is allowed to diverge from the reference.
* the reference can be CBR (for CBR pass1) or VBR (for pass2)
* - encoding: set by user. unused for constant quantizer encoding
* - decoding: unused *)
bit_rate_tolerance: integer;
(*** CODEC_FLAG_*.
* - encoding: set by user.
* - decoding: set by user. *)
flags: integer;
(*** some codecs needs additionnal format info. It is stored here
* - encoding: set by user.
* - decoding: set by lavc. (FIXME is this ok?) *)
sub_id: integer;
(**
* motion estimation algorithm used for video coding.
* 1 (zero), 2 (full), 3 (log), 4 (phods), 5 (epzs), 6 (x1), 7 (hex),
* 8 (umh), 9 (iter) [7, 8 are x264 specific, 9 is snow specific]
* - encoding: MUST be set by user.
* - decoding: unused *)
me_method: integer;
(**
* some codecs need / can use extra-data like huffman tables.
* mjpeg: huffman tables
* rv10: additional flags
* mpeg4: global headers (they can be in the bitstream or here)
* the allocated memory should be FF_INPUT_BUFFER_PADDING_SIZE bytes larger
* then extradata_size to avoid prolems if its read with the bitstream reader
* the bytewise contents of extradata must not depend on the architecture or cpu endianness
* - encoding: set/allocated/freed by lavc.
* - decoding: set/allocated/freed by user.
*)
extradata: pointer;
extradata_size: integer;
(**
* this is the fundamental unit of time (in seconds) in terms
* of which frame timestamps are represented. for fixed-fps content,
* timebase should be 1/framerate and timestamp increments should be
* identically 1.
* - encoding: MUST be set by user
* - decoding: set by lavc. *)
time_base: TAVRational;
(* video only *)
(*** picture width / height.
* - encoding: MUST be set by user.
* - decoding: set by lavc.
* Note, for compatibility its possible to set this instead of
* coded_width/height before decoding *)
width, height: integer;
(*** the number of pictures in a group of pitures, or 0 for intra_only.
* - encoding: set by user.
* - decoding: unused *)
gop_size: integer;
(*** pixel format, see PIX_FMT_xxx.
* - encoding: set by user.
* - decoding: set by lavc. *)
pix_fmt: TAVPixelFormat;
(*** Frame rate emulation. If not zero lower layer (i.e. format handler)
* has to read frames at native frame rate.
* - encoding: set by user.
* - decoding: unused. *)
rate_emu: integer;
(*** if non NULL, 'draw_horiz_band' is called by the libavcodec
* decoder to draw an horizontal band. It improve cache usage. Not
* all codecs can do that. You must check the codec capabilities
* before
* - encoding: unused
* - decoding: set by user.
* @param height the height of the slice
* @param y the y position of the slice
* @param type 1->top field, 2->bottom field, 3->frame
* @param offset offset into the AVFrame.data from which the slice should be read *)
draw_horiz_band: procedure (s: PAVCodecContext;
const src: PAVFrame; offset: PInteger;
y: integer; _type: integer; height: integer); cdecl;
(* audio only *)
sample_rate: integer; ///< samples per sec
channels: integer;
(*** audio sample format.
* - encoding: set by user.
* - decoding: set by lavc. *)
sample_fmt: TSampleFormat; ///< sample format, currenly unused
(* the following data should not be initialized *)
(*** samples per packet. initialized when calling 'init' *)
frame_size: integer;
frame_number: integer; ///< audio or video frame number
real_pict_num: integer; ///< returns the real picture number of previous encoded frame
(*** number of frames the decoded output will be delayed relative to
* the encoded input.
* - encoding: set by lavc.
* - decoding: unused *)
delay: integer;
(* - encoding parameters *)
qcompress: single; ///< amount of qscale change between easy & hard scenes (0.0-1.0)
qblur: single; ///< amount of qscale smoothing over time (0.0-1.0)
(*** minimum quantizer.
* - encoding: set by user.
* - decoding: unused *)
qmin: integer;
(*** maximum quantizer.
* - encoding: set by user.
* - decoding: unused *)
qmax: integer;
(*** maximum quantizer difference etween frames.
* - encoding: set by user.
* - decoding: unused *)
max_qdiff: integer;
(*** maximum number of b frames between non b frames.
* note: the output will be delayed by max_b_frames+1 relative to the input
* - encoding: set by user.
* - decoding: unused *)
max_b_frames: integer;
(*** qscale factor between ip and b frames.
* - encoding: set by user.
* - decoding: unused *)
b_quant_factor: single;
(** obsolete FIXME remove *)
rc_strategy: integer;
b_frame_strategy: integer;
(*** hurry up amount.
* deprecated in favor of skip_idct and skip_frame
* - encoding: unused
* - decoding: set by user. 1-> skip b frames, 2-> skip idct/dequant too, 5-> skip everything except header *)
hurry_up: integer;
codec: PAVCodec;
priv_data: pointer;
(* unused, FIXME remove*)
rtp_mode: integer;
rtp_payload_size: integer; (* The size of the RTP payload: the coder will *)
(* do it's best to deliver a chunk with size *)
(* below rtp_payload_size, the chunk will start *)
(* with a start code on some codecs like H.263 *)
(* This doesn't take account of any particular *)
(* headers inside the transmited RTP payload *)
(* The RTP callback: This function is called *)
(* every time the encoder has a packet to send *)
(* Depends on the encoder if the data starts *)
(* with a Start Code (it should) H.263 does. *)
(* mb_nb contains the number of macroblocks *)
(* encoded in the RTP payload *)
rtp_callback: procedure (avctx: PAVCodecContext; data: pointer;
size: integer; mb_nb: integer); cdecl;
(* statistics, used for 2-pass encoding *)
mv_bits: integer;
header_bits: integer;
i_tex_bits: integer;
p_tex_bits: integer;
i_count: integer;
p_count: integer;
skip_count: integer;
misc_bits: integer;
(*** number of bits used for the previously encoded frame.
* - encoding: set by lavc
* - decoding: unused *)
frame_bits: integer;
(*** private data of the user, can be used to carry app specific stuff.
* - encoding: set by user
* - decoding: set by user *)
opaque: pointer;
codec_name: array [0..31] of char;
codec_type: TCodecType; (* see CODEC_TYPE_xxx *)
codec_id: TCodecID; (* see CODEC_ID_xxx *)
(*** fourcc (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
* this is used to workaround some encoder bugs
* - encoding: set by user, if not then the default based on codec_id will be used
* - decoding: set by user, will be converted to upper case by lavc during init *)
// codec_tag: cardinal; // ����� array [0..3] of char - ����� ����� FOURCC
codec_tag: array [0..3] of char;
(*** workaround bugs in encoders which sometimes cannot be detected automatically.
* - encoding: set by user
* - decoding: set by user *)
workaround_bugs: integer;
(*** luma single coeff elimination threshold.
* - encoding: set by user
* - decoding: unused *)
luma_elim_threshold: integer;
(*** chroma single coeff elimination threshold.
* - encoding: set by user
* - decoding: unused *)
chroma_elim_threshold: integer;
(*** strictly follow the std (MPEG4, ...).
* - encoding: set by user
* - decoding: unused *)
strict_std_compliance: integer;
(*** qscale offset between ip and b frames.
* if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
* if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
* - encoding: set by user.
* - decoding: unused *)
b_quant_offset: single;
(*** error resilience higher values will detect more errors but may missdetect
* some more or less valid parts as errors.
* - encoding: unused
* - decoding: set by user *)
error_resilience: integer;
(*** called at the beginning of each frame to get a buffer for it.
* if pic.reference is set then the frame will be read later by lavc
* avcodec_align_dimensions() should be used to find the required width and
* height, as they normally need to be rounded up to the next multiple of 16
* - encoding: unused
* - decoding: set by lavc, user can override *)
get_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
(*** called to release buffers which where allocated with get_buffer.
* a released buffer can be reused in get_buffer()
* pic.data[*] must be set to NULL
* - encoding: unused
* - decoding: set by lavc, user can override *)
release_buffer: procedure (c: PAVCodecContext; pic: PAVFrame); cdecl;
(*** if 1 the stream has a 1 frame delay during decoding.
* - encoding: set by lavc
* - decoding: set by lavc *)
has_b_frames: integer;
(*** number of bytes per packet if constant and known or 0
* used by some WAV based audio codecs *)
block_align: integer;
parse_only: integer; (* - decoding only: if true, only parsing is done
(function avcodec_parse_frame()). The frame
data is returned. Only MPEG codecs support this now. *)
(*** 0-> h263 quant 1-> mpeg quant.
* - encoding: set by user.
* - decoding: unused *)
mpeg_quant: integer;
(*** pass1 encoding statistics output buffer.
* - encoding: set by lavc
* - decoding: unused *)
stats_out: pchar;
(*** pass2 encoding statistics input buffer.
* concatenated stuff from stats_out of pass1 should be placed here
* - encoding: allocated/set/freed by user
* - decoding: unused *)
stats_in: pchar;
(*** ratecontrol qmin qmax limiting method.
* 0-> clipping, 1-> use a nice continous function to limit qscale wthin qmin/qmax
* - encoding: set by user.
* - decoding: unused *)
rc_qsquish: single;
rc_qmod_amp: single;
rc_qmod_freq: integer;
(*** ratecontrol override, see RcOverride.
* - encoding: allocated/set/freed by user.
* - decoding: unused *)
rc_override: PRcOverride;
rc_override_count: integer;
(*** rate control equation.
* - encoding: set by user
* - decoding: unused *)
rc_eq: pchar;
(*** maximum bitrate.
* - encoding: set by user.
* - decoding: unused *)
rc_max_rate: integer;
(*** minimum bitrate.
* - encoding: set by user.
* - decoding: unused *)
rc_min_rate: integer;
(*** decoder bitstream buffer size.
* - encoding: set by user.
* - decoding: unused *)
rc_buffer_size: integer;
rc_buffer_aggressivity: single;
(*** qscale factor between p and i frames.
* if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
* if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
* - encoding: set by user.
* - decoding: unused *)
i_quant_factor: single;
(*** qscale offset between p and i frames.
* - encoding: set by user.
* - decoding: unused *)
i_quant_offset: single;
(*** initial complexity for pass1 ratecontrol.
* - encoding: set by user.
* - decoding: unused *)
rc_initial_cplx: single;
(*** dct algorithm, see FF_DCT_* below.
* - encoding: set by user
* - decoding: unused *)
dct_algo: integer;
(*** luminance masking (0-> disabled).
* - encoding: set by user
* - decoding: unused *)
lumi_masking: single;
(*** temporary complexity masking (0-> disabled).
* - encoding: set by user
* - decoding: unused *)
temporal_cplx_masking: single;
(*** spatial complexity masking (0-> disabled).
* - encoding: set by user
* - decoding: unused *)
spatial_cplx_masking: single;
(** * p block masking (0-> disabled).
* - encoding: set by user
* - decoding: unused *)
p_masking: single;
(*** darkness masking (0-> disabled).
* - encoding: set by user
* - decoding: unused *)
dark_masking: single;
(* for binary compatibility *)
unused: integer;
(*** idct algorithm, see FF_IDCT_* below.
* - encoding: set by user
* - decoding: set by user *)
idct_algo: integer;
(*** slice count.
* - encoding: set by lavc
* - decoding: set by user (or 0) *)
slice_count: integer;
(*** slice offsets in the frame in bytes.
* - encoding: set/allocated by lavc
* - decoding: set/allocated by user (or NULL) *)
slice_offset: PInteger;
(*** error concealment flags.
* - encoding: unused
* - decoding: set by user *)
error_concealment: integer;
(*** dsp_mask could be add used to disable unwanted CPU features
* CPU features (i.e. MMX, SSE. ...)
*
* with FORCE flag you may instead enable given CPU features
* (Dangerous: usable in case of misdetection, improper usage however will
* result into program crash) *)
dsp_mask: cardinal;
(*** bits per sample/pixel from the demuxer (needed for huffyuv).
* - encoding: set by lavc
* - decoding: set by user *)
bits_per_sample: integer;
(*** prediction method (needed for huffyuv).
* - encoding: set by user
* - decoding: unused *)
prediction_method: integer;
(*** sample aspect ratio (0 if unknown).
* numerator and denominator must be relative prime and smaller then 256 for some video standards
* - encoding: set by user.
* - decoding: set by lavc. *)
sample_aspect_ratio: TAVRational;
(*** the picture in the bitstream.
* - encoding: set by lavc
* - decoding: set by lavc *)
coded_frame: PAVFrame;
(*** debug.
* - encoding: set by user.
* - decoding: set by user. *)
debug: integer;
(*** debug.
* - encoding: set by user.
* - decoding: set by user. *)
debug_mv: integer;
(** error.
* - encoding: set by lavc if flags&CODEC_FLAG_PSNR
* - decoding: unused *)
error: array [0..3] of int64;
(*** minimum MB quantizer.
* - encoding: unused
* - decoding: unused *)
mb_qmin: integer;
(*** maximum MB quantizer.
* - encoding: unused
* - decoding: unused *)
mb_qmax: integer;
(*** motion estimation compare function.
* - encoding: set by user.
* - decoding: unused *)
me_cmp: integer;
(*** subpixel motion estimation compare function.
* - encoding: set by user.
* - decoding: unused *)
me_sub_cmp: integer;
(*** macroblock compare function (not supported yet).
* - encoding: set by user.
* - decoding: unused *)
mb_cmp: integer;
(*** interlaced dct compare function
* - encoding: set by user.
* - decoding: unused *)
ildct_cmp: integer;
(*** ME diamond size & shape.
* - encoding: set by user.
* - decoding: unused *)
dia_size: integer;
(*** amount of previous MV predictors (2a+1 x 2a+1 square).
* - encoding: set by user.
* - decoding: unused *)
last_predictor_count: integer;
(*** pre pass for motion estimation.
* - encoding: set by user.
* - decoding: unused *)
pre_me: integer;
(*** motion estimation pre pass compare function.
* - encoding: set by user.
* - decoding: unused *)
me_pre_cmp: integer;
(*** ME pre pass diamond size & shape.
* - encoding: set by user.
* - decoding: unused *)
pre_dia_size: integer;
(*** subpel ME quality.
* - encoding: set by user.
* - decoding: unused *)
me_subpel_quality: integer;
(*** callback to negotiate the pixelFormat.
* @param fmt is the list of formats which are supported by the codec,
* its terminated by -1 as 0 is a valid format, the formats are ordered by quality
* the first is allways the native one
* @return the choosen format
* - encoding: unused
* - decoding: set by user, if not set then the native format will always be choosen
*)
get_format: function (s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat; cdecl;
(*** DTG active format information (additionnal aspect ratio
* information only used in DVB MPEG2 transport streams). 0 if
* not set.
* - encoding: unused.
* - decoding: set by decoder *)
dtg_active_format: integer;
(*** Maximum motion estimation search range in subpel units.
* if 0 then no limit
* - encoding: set by user.
* - decoding: unused. *)
me_range: integer;
(*** intra quantizer bias.
* - encoding: set by user.
* - decoding: unused *)
intra_quant_bias: integer;
(*** inter quantizer bias.
* - encoding: set by user.
* - decoding: unused *)
inter_quant_bias: integer;
(*** color table ID.
* - encoding: unused.
* - decoding: which clrtable should be used for 8bit RGB images
* table have to be stored somewhere FIXME *)
color_table_id: integer;
(*** internal_buffer count.
* Don't touch, used by lavc default_get_buffer() *)
internal_buffer_count: integer;
(*** internal_buffers.
* Don't touch, used by lavc default_get_buffer() *)
internal_buffer: pointer;
(*** global quality for codecs which cannot change it per frame.
* this should be proportional to MPEG1/2/4 qscale.
* - encoding: set by user.
* - decoding: unused *)
global_quality: integer;
(*** coder type
* - encoding: set by user.
* - decoding: unused *)
coder_type: integer;
(*** context model
* - encoding: set by user.
* - decoding: unused *)
context_model: integer;
(*** slice flags
* - encoding: unused
* - decoding: set by user. *)
slice_flags: integer;
(*** XVideo Motion Acceleration
* - encoding: forbidden
* - decoding: set by decoder *)
xvmc_acceleration: integer;
(*** macroblock decision mode
* - encoding: set by user.
* - decoding: unused *)
mb_decision: integer;
(*** custom intra quantization matrix
* - encoding: set by user, can be NULL
* - decoding: set by lavc *)
intra_matrix: Pword;
(*** custom inter quantization matrix
* - encoding: set by user, can be NULL
* - decoding: set by lavc *)
inter_matrix: Pword;
(*** fourcc from the AVI stream header (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
* this is used to workaround some encoder bugs
* - encoding: unused
* - decoding: set by user, will be converted to upper case by lavc during init *)
stream_codec_tag: array [0..3] of char; //cardinal;
(*** scene change detection threshold.
* 0 is default, larger means fewer detected scene changes
* - encoding: set by user.
* - decoding: unused *)
scenechange_threshold: integer;
(*** minimum lagrange multipler
* - encoding: set by user.
* - decoding: unused *)
lmin: integer;
(*** maximum lagrange multipler
* - encoding: set by user.
* - decoding: unused *)
lmax: integer;
(*** Palette control structure
* - encoding: ??? (no palette-enabled encoder yet)
* - decoding: set by user. *)
palctrl: PAVPaletteControl;
(*** noise reduction strength
* - encoding: set by user.
* - decoding: unused *)
noise_reduction: integer;
(*** called at the beginning of a frame to get cr buffer for it.
* buffer type (size, hints) must be the same. lavc won't check it.
* lavc will pass previous buffer in pic, function should return
* same buffer or new buffer with old frame "painted" into it.
* if pic.data[0] == NULL must behave like get_buffer().
* - encoding: unused
* - decoding: set by lavc, user can override *)
reget_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
(*** number of bits which should be loaded into the rc buffer before decoding starts
* - encoding: set by user.
* - decoding: unused *)
rc_initial_buffer_occupancy: integer;
inter_threshold: integer;
(*** CODEC_FLAG2_*.
* - encoding: set by user.
* - decoding: set by user. *)
flags2: integer;
(*** simulates errors in the bitstream to test error concealment.
* - encoding: set by user.
* - decoding: unused. *)
error_rate: integer;
(*** MP3 antialias algorithm, see FF_AA_* below.
* - encoding: unused
* - decoding: set by user *)
antialias_algo: integer;
(*** Quantizer noise shaping.
* - encoding: set by user
* - decoding: unused *)
quantizer_noise_shaping: integer;
(*** Thread count.
* is used to decide how many independant tasks should be passed to execute()
* - encoding: set by user
* - decoding: set by user *)
thread_count: integer;
(*** the codec may call this to execute several independant things. it will return only after
* finishing all tasks, the user may replace this with some multithreaded implementation, the
* default implementation will execute the parts serially
* @param count the number of things to execute
* - encoding: set by lavc, user can override
* - decoding: set by lavc, user can override *)
execute: function (c: PAVCodecContext; func: pointer; arg: PPointer; ret: PInteger; count: integer): integer; cdecl;
(*** Thread opaque.
* can be used by execute() to store some per AVCodecContext stuff.
* - encoding: set by execute()
* - decoding: set by execute() *)
thread_opaque: pointer;
(*** Motion estimation threshold. under which no motion estimation is
* performed, but instead the user specified motion vectors are used
* - encoding: set by user
* - decoding: unused *)
me_threshold: integer;
(*** Macroblock threshold. under which the user specified macroblock types will be used
* - encoding: set by user
* - decoding: unused *)
mb_threshold: integer;
(*** precision of the intra dc coefficient - 8.
* - encoding: set by user
* - decoding: unused *)
intra_dc_precision: integer;
(*** noise vs. sse weight for the nsse comparsion function.
* - encoding: set by user
* - decoding: unused *)
nsse_weight: integer;
(*** number of macroblock rows at the top which are skipped.
* - encoding: unused
* - decoding: set by user *)
skip_top: integer;
(*** number of macroblock rows at the bottom which are skipped.
* - encoding: unused
* - decoding: set by user *)
skip_bottom: integer;
(*** profile
* - encoding: set by user
* - decoding: set by lavc *)
profile: integer;
(*** level
* - encoding: set by user
* - decoding: set by lavc *)
level: integer;
(*** low resolution decoding. 1-> 1/2 size, 2->1/4 size
* - encoding: unused
* - decoding: set by user *)
lowres: integer;
(*** bitsream width / height. may be different from width/height if lowres
* or other things are used
* - encoding: unused
* - decoding: set by user before init if known, codec should override / dynamically change if needed *)
coded_width, coded_height: integer;
(*** frame skip threshold
* - encoding: set by user
* - decoding: unused *)
frame_skip_threshold: integer;
(*** frame skip factor
* - encoding: set by user
* - decoding: unused *)
frame_skip_factor: integer;
(*** frame skip exponent
* - encoding: set by user
* - decoding: unused *)
frame_skip_exp: integer;
(*** frame skip comparission function
* - encoding: set by user.
* - decoding: unused *)
frame_skip_cmp: integer;
(*** border processing masking. raises the quantizer for mbs on the borders
* of the picture.
* - encoding: set by user
* - decoding: unused *)
border_masking: single;
(*** minimum MB lagrange multipler.
* - encoding: set by user.
* - decoding: unused *)
mb_lmin: integer;
(*** maximum MB lagrange multipler.
* - encoding: set by user.
* - decoding: unused *)
mb_lmax: integer;
(***
* - encoding: set by user.
* - decoding: unused *)
me_penalty_compensation: integer;
(***
* - encoding: unused
* - decoding: set by user. *)
skip_loop_filter: TAVDiscard;
(** *
* - encoding: unused
* - decoding: set by user. *)
skip_idct: TAVDiscard;
(** *
* - encoding: unused
* - decoding: set by user. *)
skip_frame: TAVDiscard;
(** *
* - encoding: set by user.
* - decoding: unused *)
bidir_refine: integer;
(** *
* - encoding: set by user.
* - decoding: unused *)
brd_scale: integer;
(**
* constant rate factor - quality-based VBR - values ~correspond to qps
* - encoding: set by user.
* - decoding: unused *)
crf: integer;
(**
* constant quantization parameter rate control method
* - encoding: set by user.
* - decoding: unused *)
cqp: integer;
(**
* minimum gop size
* - encoding: set by user.
* - decoding: unused *)
keyint_min: integer;
(**
* number of reference frames
* - encoding: set by user.
* - decoding: unused *)
refs: integer;
(**
* chroma qp offset from luma
* - encoding: set by user.
* - decoding: unused *)
chromaoffset: integer;
(**
* influences how often b-frames are used
* - encoding: set by user.
* - decoding: unused *)
bframebias: integer;
(**
* trellis RD quantization
* - encoding: set by user.
* - decoding: unused *)
trellis: integer;
(**
* reduce fluctuations in qp (before curve compression)
* - encoding: set by user.
* - decoding: unused *)
complexityblur: single;
(**
* in-loop deblocking filter alphac0 parameter
* alpha is in the range -6...6
* - encoding: set by user.
* - decoding: unused *)
deblockalpha: integer;
(**
* in-loop deblocking filter beta parameter
* beta is in the range -6...6
* - encoding: set by user.
* - decoding: unused *)
deblockbeta: integer;
(**
* macroblock subpartition sizes to consider - p8x8, p4x4, b8x8, i8x8, i4x4
* - encoding: set by user.
* - decoding: unused *)
partitions: integer;
(**
* direct mv prediction mode - 0 (none), 1 (spatial), 2 (temporal)
* - encoding: set by user.
* - decoding: unused *)
directpred: integer;
(**
* audio cutoff bandwidth (0 means "automatic") . Currently used only by FAAC
* - encoding: set by user.
* - decoding: unused *)
cutoff: integer;
(**
* multiplied by qscale for each frame and added to scene_change_score
* - encoding: set by user.
* - decoding: unused *)
scenechange_factor: integer;
(** *
* note: value depends upon the compare functin used for fullpel ME
* - encoding: set by user.
* - decoding: unused *)
mv0_threshold: integer;
(**
* adjusts sensitivity of b_frame_strategy 1
* - encoding: set by user.
* - decoding: unused *)
b_sensitivity: integer;
(**
* - encoding: set by user.
* - decoding: unused *)
compression_level: integer;
(**
* sets whether to use LPC mode - used by FLAC encoder
* - encoding: set by user.
* - decoding: unused. *)
use_lpc: integer;
(**
* LPC coefficient precision - used by FLAC encoder
* - encoding: set by user.
* - decoding: unused. *)
lpc_coeff_precision: integer;
(**
* - encoding: set by user.
* - decoding: unused. *)
min_prediction_order: integer;
(**
* - encoding: set by user.
* - decoding: unused. *)
max_prediction_order: integer;
(**
* search method for selecting prediction order
* - encoding: set by user.
* - decoding: unused. *)
prediction_order_method: integer;
(**
* - encoding: set by user.
* - decoding: unused. *)
min_partition_order: integer;
(**
* - encoding: set by user.
* - decoding: unused. *)
max_partition_order: integer;
end;
(**
* AVCodec.
*)
TAVCodec = record
name: pchar;
_type: TCodecType;
id: TCodecID;
priv_data_size: integer;
init: function (avctx: pAVCodecContext): integer; cdecl;
encode: function (avctx: PAVCodecContext; buf: pchar; buf_size: integer; data: pointer): integer; cdecl;
close: function (avctx: PAVCodecContext): integer; cdecl;
decode: function (avctx: PAVCodecContext; outdata: pointer; outdata_size: PInteger;
buf: pchar; buf_size: integer): integer; cdecl;
capabilities: integer;
// todo: check this ->
// void *dummy; // FIXME remove next time we break binary compatibility
next: PAVCodec;
flush: procedure (avctx: PAVCodecContext); cdecl;
supported_framerates: PAVRational; ///array of supported framerates, or NULL if any, array is terminated by {0,0}
pix_fmts: PAVPixelFormat; ///array of supported pixel formats, or NULL if unknown, array is terminanted by -1
end;
(**
* four components are given, that's all.
* the last component is alpha
*)
PAVPicture = ^TAVPicture;
TAVPicture = record
data: array [0..3] of pchar;
linesize: array [0..3] of integer; ///< number of bytes per line
end;
(**
* AVPaletteControl
* This structure defines a method for communicating palette changes
* between and demuxer and a decoder.
* this is totally broken, palette changes should be sent as AVPackets
*)
TAVPaletteControl = record
(* demuxer sets this to 1 to indicate the palette has changed;
* decoder resets to 0 *)
palette_changed: integer;
(* 4-byte ARGB palette entries, stored in native byte order; note that
* the individual palette components should be on a 8-bit scale; if
* the palette data comes from a IBM VGA native format, the component
* data is probably 6 bits in size and needs to be scaled *)
palette: array [0..AVPALETTE_COUNT - 1] of cardinal;
end;
PAVSubtitleRect = ^TAVSubtitleRect;
TAVSubtitleRect = record
x: word;
y: word;
w: word;
h: word;
nb_colors: word;
linesize: integer;
rgba_palette: PCardinal;
bitmap: pchar;
end;
PAVSubtitle = ^TAVSubtitle;
TAVSubtitle = record {20}
format: word; (* 0 = graphics *)
start_display_time: cardinal; (* relative to packet pts, in ms *)
end_display_time: cardinal; (* relative to packet pts, in ms *)
num_rects: cardinal;
rects: PAVSubtitleRect;
end;
(* resample.c *)
PReSampleContext = pointer;
PAVResampleContext = pointer;
PImgReSampleContext = pointer;
function audio_resample_init (output_channels: integer; input_channels: integer;
output_rate: integer; input_rate: integer): PReSampleContext;
cdecl; external av__codec;
function audio_resample (s: PReSampleContext; output: PWord; input: PWord; nb_samples: integer): integer;
cdecl; external av__codec;
procedure audio_resample_close (s: PReSampleContext);
cdecl; external av__codec;
function av_resample_init (out_rate: integer; in_rate: integer; filter_length: integer;
log2_phase_count: integer; linear: integer; cutoff: double): PAVResampleContext;
cdecl; external av__codec;
function av_resample (c: PAVResampleContext; dst: PWord; src: PWord; consumed: PInteger;
src_size: integer; dst_size: integer; update_ctx: integer): integer;
cdecl; external av__codec;
procedure av_resample_compensate (c: PAVResampleContext; sample_delta: integer;
compensation_distance: integer);
cdecl; external av__codec;
procedure av_resample_close (c: PAVResampleContext);
cdecl; external av__codec;
(* YUV420 format is assumed ! *)
function img_resample_init (output_width: integer; output_height: integer;
input_width: integer; input_height: integer): PImgReSampleContext;
cdecl; external av__codec;
function img_resample_full_init (owidth: integer; oheight: integer;
iwidth: integer; iheight: integer;
topBand: integer; bottomBand: integer;
leftBand: integer; rightBand: integer;
padtop: integer; padbottom: integer;
padleft: integer; padright: integer): PImgReSampleContext;
cdecl; external av__codec;
procedure img_resample (s: PImgReSampleContext; output: PAVPicture; const input: PAVPicture);
cdecl; external av__codec;
procedure img_resample_close (s: PImgReSampleContext);
cdecl; external av__codec;
(**
* Allocate memory for a picture. Call avpicture_free to free it.
*
* @param picture the picture to be filled in.
* @param pix_fmt the format of the picture.
* @param width the width of the picture.
* @param height the height of the picture.
* @return 0 if successful, -1 if not.
*)
function avpicture_alloc (picture: PAVPicture; pix_fmt: TAVPixelFormat;
width: integer; height: integer): integer;
cdecl; external av__codec;
(* Free a picture previously allocated by avpicture_alloc. *)
procedure avpicture_free (picture: PAVPicture);
cdecl; external av__codec;
function avpicture_fill (picture: PAVPicture; ptr: pointer;
pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
cdecl; external av__codec;
function avpicture_layout (const src: PAVPicture; pix_fmt: TAVPixelFormat;
width: integer; height: integer;
dest: pchar; dest_size: integer): integer;
cdecl; external av__codec;
function avpicture_get_size (pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
cdecl; external av__codec;
procedure avcodec_get_chroma_sub_sample (pix_fmt: TAVPixelFormat; h_shift: Pinteger; v_shift: pinteger);
cdecl; external av__codec;
function avcodec_get_pix_fmt_name(pix_fmt: TAVPixelFormat): pchar;
cdecl; external av__codec;
procedure avcodec_set_dimensions(s: PAVCodecContext; width: integer; height: integer);
cdecl; external av__codec;
function avcodec_get_pix_fmt(const name: pchar): TAVPixelFormat;
cdecl; external av__codec;
function avcodec_pix_fmt_to_codec_tag(p: TAVPixelFormat): cardinal;
cdecl; external av__codec;
function avcodec_get_pix_fmt_loss (dst_pix_fmt: TAVPixelFormat; src_pix_fmt: TAVPixelFormat;
has_alpha: integer): integer;
cdecl; external av__codec;
function avcodec_find_best_pix_fmt (pix_fmt_mask: integer; src_pix_fmt: TAVPixelFormat;
has_alpha: integer; loss_ptr: pinteger): integer;
cdecl; external av__codec;
function img_get_alpha_info (const src: PAVPicture;
pix_fmt: TAVPixelFormat;
width: integer; height: integer): integer;
cdecl; external av__codec;
(* convert among pixel formats *)
function img_convert (dst: PAVPicture; dst_pix_fmt: TAVPixelFormat;
const src: PAVPicture; pix_fmt: TAVPixelFormat;
width: integer; height: integer): integer;
cdecl; external av__codec;
(* deinterlace a picture *)
function avpicture_deinterlace (dst: PAVPicture; const src: PAVPicture;
pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
cdecl; external av__codec;
(* returns LIBAVCODEC_VERSION_INT constant *)
function avcodec_version (): cardinal;
cdecl; external av__codec;
(* returns LIBAVCODEC_BUILD constant *)
function avcodec_build (): cardinal;
cdecl; external av__codec;
procedure avcodec_init ();
cdecl; external av__codec;
procedure register_avcodec (format: PAVCodec);
cdecl; external av__codec;
function avcodec_find_encoder (id: TCodecID): PAVCodec;
cdecl; external av__codec;
function avcodec_find_encoder_by_name (name: pchar): PAVCodec;
cdecl; external av__codec;
function avcodec_find_decoder(id: TCodecID): PAVCodec;
cdecl; external av__codec;
function avcodec_find_decoder_by_name (name: pchar): PAVCodec;
cdecl; external av__codec;
procedure avcodec_string(buf: pchar; buf_size: integer; enc: PAVCodecContext; encode: integer);
cdecl; external av__codec;
procedure avcodec_get_context_defaults (s: PAVCodecContext);
cdecl; external av__codec;
function avcodec_alloc_context (): PAVCodecContext;
cdecl; external av__codec;
procedure avcodec_get_frame_defaults (pic: PAVFrame);
cdecl; external av__codec;
function avcodec_alloc_frame (): PAVFrame;
cdecl; external av__codec;
function avcodec_default_get_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
cdecl; external av__codec;
procedure avcodec_default_release_buffer (s: PAVCodecContext; pic: PAVFrame);
cdecl; external av__codec;
function avcodec_default_reget_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
cdecl; external av__codec;
procedure avcodec_align_dimensions(s: PAVCodecContext; width: Pinteger; height: PInteger);
cdecl; external av__codec;
function avcodec_check_dimensions (av_log_ctx: pointer; w: cardinal; h: cardinal): integer;
cdecl; external av__codec;
function avcodec_default_get_format(s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat;
cdecl; external av__codec;
function avcodec_thread_init (s: PAVCodecContext; thread_count: integer): integer;
cdecl; external av__codec;
procedure avcodec_thread_free (s: PAVCodecContext);
cdecl; external av__codec;
function avcodec_thread_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
cdecl; external av__codec;
function avcodec_default_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
cdecl; external av__codec;
//FIXME func typedef
(**
* opens / inits the AVCodecContext.
* not thread save!
*)
function avcodec_open (avctx: PAVCodecContext; codec: PAVCodec): integer;
cdecl; external av__codec;
(**
* Decode an audio frame.
*
* @param avctx the codec context.
* @param samples output buffer, 16 byte aligned
* @param frame_size_ptr the output buffer size in bytes, zero if no frame could be compressed
* @param buf input buffer, 16 byte aligned
* @param buf_size the input buffer size
* @return 0 if successful, -1 if not.
*)
function avcodec_decode_audio (avctx: PAVCodecContext; samples: Pword;
frame_size_ptr: pinteger;
buf: pchar; buf_size: integer): integer;
cdecl; external av__codec;
(* decode a frame.
* @param buf bitstream buffer, must be FF_INPUT_BUFFER_PADDING_SIZE larger then the actual read bytes
* because some optimized bitstream readers read 32 or 64 bit at once and could read over the end
* @param buf_size the size of the buffer in bytes
* @param got_picture_ptr zero if no frame could be decompressed, Otherwise, it is non zero
* @return -1 if error, otherwise return the number of
* bytes used. *)
function avcodec_decode_video (avctx: PAVCodecContext; picture: PAVFrame;
got_picture_ptr: pinteger;
buf: PByte; buf_size: integer): integer;
cdecl; external av__codec;
function avcodec_decode_subtitle (avctx: PAVCodecContext; sub: PAVSubtitle;
got_sub_ptr: pinteger;
const buf: pchar; buf_size: integer): integer;
cdecl; external av__codec;
function avcodec_parse_frame (avctx: PAVCodecContext; pdata: PPointer;
data_size_ptr: pinteger;
buf: pchar; buf_size: integer): integer;
cdecl; external av__codec;
function avcodec_encode_audio (avctx: PAVCodecContext; buf: PByte;
buf_size: integer; const samples: Pword): integer;
cdecl; external av__codec;
(* avcodec_encode_video: -1 if error *)
function avcodec_encode_video (avctx: PAVCodecContext; buf: pointer;
buf_size: integer; pict: PAVFrame): integer;
cdecl; external av__codec;
function avcodec_encode_subtitle (avctx: PAVCodecContext; buf: pchar;
buf_size: integer; const sub: PAVSubtitle): integer;
cdecl; external av__codec;
function avcodec_close (avctx: PAVCodecContext): integer;
cdecl; external av__codec;
procedure avcodec_register_all ();
cdecl; external av__codec;
procedure avcodec_flush_buffers (avctx: PAVCodecContext);
cdecl; external av__codec;
procedure avcodec_default_free_buffers (s: PAVCodecContext);
cdecl; external av__codec;
(* misc usefull functions *)
(**
* returns a single letter to describe the picture type
*)
function av_get_pict_type_char (pict_type: integer): char;
cdecl; external av__codec;
(**
* returns codec bits per sample
*)
function av_get_bits_per_sample (codec_id: TCodecID): integer;
cdecl; external av__codec;
const
AV_PARSER_PTS_NB = 4;
PARSER_FLAG_COMPLETE_FRAMES = $0001;
type
PAVCodecParserContext = ^TAVCodecParserContext;
PAVCodecParser = ^TAVCodecParser;
TAVCodecParserContext = record
priv_data: pointer;
parser: PAVCodecParser;
frame_offset: int64; (* offset of the current frame *)
cur_offset: int64; (* current offset (incremented by each av_parser_parse()) *)
last_frame_offset: int64; (* offset of the last frame *)
(* video info *)
pict_type: integer; (* XXX: put it back in AVCodecContext *)
repeat_pict: integer; (* XXX: put it back in AVCodecContext *)
pts: int64; (* pts of the current frame *)
dts: int64; (* dts of the current frame *)
(* private data *)
last_pts: int64;
last_dts: int64;
fetch_timestamp: integer;
cur_frame_start_index: integer;
cur_frame_offset: array [0..AV_PARSER_PTS_NB - 1] of int64;
cur_frame_pts: array [0..AV_PARSER_PTS_NB - 1] of int64;
cur_frame_dts: array [0..AV_PARSER_PTS_NB - 1] of int64;
flags: integer;
end;
TAVCodecParser = record
codec_ids: array [0..4] of integer; (* several codec IDs are permitted *)
priv_data_size: integer;
parser_init: function (s: PAVCodecParserContext): integer; cdecl;
parser_parse: function (s: PAVCodecParserContext; avctx: PAVCodecContext;
poutbuf: PPointer; poutbuf_size: PInteger;
const buf: pchar; buf_size: integer): integer; cdecl;
parser_close: procedure (s: PAVCodecParserContext); cdecl;
split: function (avctx: PAVCodecContext; const buf: pchar;
buf_size: integer): integer; cdecl;
next: PAVCodecParser;
end;
procedure av_register_codec_parser (parser: PAVCodecParser); cdecl;
cdecl; external av__codec;
function av_parser_init (codec_id: integer): PAVCodecParserContext;
cdecl; external av__codec;
function av_parser_parse (s: PAVCodecParserContext;
avctx: PAVCodecContext;
poutbuf: PPointer; poutbuf_size: pinteger;
const buf: pchar; buf_size: integer;
pts: int64; dts: int64): integer;
cdecl; external av__codec;
function av_parser_change (s: PAVCodecParserContext;
avctx: PAVCodecContext;
poutbuf: PPointer; poutbuf_size: PInteger;
const buf: pchar; buf_size: integer; keyframe: integer): integer;
cdecl; external av__codec;
procedure av_parser_close (s: PAVCodecParserContext);
cdecl; external av__codec;
type
PAVBitStreamFilterContext = ^TAVBitStreamFilterContext;
PAVBitStreamFilter = ^TAVBitStreamFilter;
TAVBitStreamFilterContext = record
priv_data: pointer;
filter: PAVBitStreamFilter;
parser: PAVCodecParserContext;
next: PAVBitStreamFilterContext;
end;
TAVBitStreamFilter = record
name: pchar;
priv_data_size: integer;
filter: function (bsfc: PAVBitStreamFilterContext;
avctx: PAVCodecContext; args: pchar;
poutbuf: PPointer; poutbuf_size: PInteger;
buf: PByte; buf_size: integer; keyframe: integer): integer; cdecl;
next: PAVBitStreamFilter;
end;
procedure av_register_bitstream_filter (bsf: PAVBitStreamFilter);
cdecl; external av__codec;
function av_bitstream_filter_init (name: pchar): PAVBitStreamFilterContext;
cdecl; external av__codec;
function av_bitstream_filter_filter (bsfc: PAVBitStreamFilterContext;
avctx: PAVCodecContext; args: pchar;
poutbuf: PPointer; poutbuf_size: PInteger;
buf: PByte; buf_size: integer; keyframe: integer): integer;
cdecl; external av__codec;
procedure av_bitstream_filter_close (bsf: PAVBitStreamFilterContext);
cdecl; external av__codec;
(* memory *)
procedure av_fast_realloc (ptr: pointer; size: PCardinal; min_size: Cardinal);
cdecl; external av__codec;
(* for static data only *)
(* call av_free_static to release all staticaly allocated tables *)
procedure av_free_static ();
cdecl; external av__codec;
procedure av_mallocz_static(size: cardinal);
cdecl; external av__codec;
procedure av_realloc_static(ptr: pointer; size: Cardinal);
cdecl; external av__codec;
procedure img_copy (dst: PAVPicture; const src: PAVPicture;
pix_fmt: TAVPixelFormat; width: integer; height: integer);
cdecl; external av__codec;
function img_crop (dst: PAVPicture; const src: PAVPicture;
pix_fmt: TAVPixelFormat; top_band, left_band: integer): integer;
cdecl; external av__codec;
function img_pad (dst: PAVPicture; const src: PAVPicture; height, width: integer;
pix_fmt: TAVPixelFormat; padtop, padbottom, padleft, padright: integer;
color: PInteger): integer;
cdecl; external av__codec;
implementation
end.
