fixed the modified ffmpeg headers to compile in lazarus on windows.

this NOW should fix LazWin build.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@518 b956fd51-792f-4845-bead-9b4dfca2ff2c

3 files changed, 2185 insertions, 2180 deletions

diff --git a/Game/Code/lib/ffmpeg/avcodec.pas b/Game/Code/lib/ffmpeg/avcodec.pas
index 9c232fff..bcfe9809 100644
--- a/Game/Code/lib/ffmpeg/avcodec.pas
+++ b/Game/Code/lib/ffmpeg/avcodec.pas
@@ -1,2041 +1,2043 @@
-                                                                              (*
- * 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
-                                                                              *)
-
-(* 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 *)
-
-unit avcodec;
-
-{$IFDEF FPC}
-  {$LINKLIB libavutil}
-  {$LINKLIB libavcodec}
-  {$MODE DELPHI } (* CAT *)
-  {$PACKENUM 4}    (* every enum type variables uses 4 bytes, CAT *)
-  {$PACKRECORDS C}    (* GCC compatible, Record Packing, CAT *)
-{$ENDIF}
-
-interface
-
-uses
-  avutil, rational, opt;  // CAT
-
-const
-{$IFDEF win32}
+                                                                              (*

+ * 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

+                                                                              *)

+

+(* 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 *)

+

+unit avcodec;

+

+{$IFDEF FPC}

+  {$IFNDEF win32}

+  {$LINKLIB libavutil}

+  {$LINKLIB libavcodec}

+  {$ENDIF}

+  {$MODE DELPHI } (* CAT *)

+  {$PACKENUM 4}    (* every enum type variables uses 4 bytes, CAT *)

+  {$PACKRECORDS C}    (* GCC compatible, Record Packing, CAT *)

+{$ENDIF}

+

+interface

+

+uses

+  avutil, rational, opt;  // CAT

+

+const

+{$IFDEF win32}

   av__format = 'avformat-50.dll';

 {$ELSE}

   av__format = 'libavformat.so';   // .0d

 //  av__format = 'libavformat.51';

-{$ENDIF}
-
-
-  LIBAVUTIL_VERSION_INT   =  ((51 shl 16) + (12 shl 8) + 1);
-  LIBAVUTIL_VERSION       = '51.12.1';
-  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;
-
-  AV_NOPTS_VALUE: int64   = $8000000000000000;
-  AV_TIME_BASE            = 1000000;
-  AV_TIME_BASE_Q          : TAVRational = (num:1; den:AV_TIME_BASE); (* added by CAT *)
-
-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,
-	CODEC_TYPE_NB    (* CAT#3 *)
-  );
-
-//* 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 pbyte;
-    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 pbyte;
-    (*** 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: pbyte;
-    (**
-     * 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 pshortint;
-  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: pbyte;
-    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; (* typo corretion by the Creative CAT *)
-    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;
-(* favourite of The Creative CAT
-  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;
-(* favourite of The Creative CAT
-  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.
- *)
-
-(** This comment was added by the Creative CAT.  frame_size_ptr was changed to
- variable refference.
- 
- * @deprecated Use avcodec_decode_audio2() instead.
- *)
-
-  function avcodec_decode_audio (avctx: PAVCodecContext; samples: Pword;
-                         		 var frame_size_ptr: integer;
-                         		 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_audio2(avctx : PAVCodecContext; samples : PWord;
-								 var frame_size_ptr : integer;
-                         		 buf: pchar; buf_size: integer): integer;
-    cdecl; external av__codec;
-(* Added by The Creative CAT
-/**
- * Decodes a video frame from \p buf into \p picture.
- * The avcodec_decode_video() function decodes a video frame from the input
- * buffer \p buf of size \p buf_size. To decode it, it makes use of the
- * video codec which was coupled with \p avctx using avcodec_open(). The
- * resulting decoded frame is stored in \p picture.
- *
- * @warning The input buffer must be \c FF_INPUT_BUFFER_PADDING_SIZE larger than
- * the actual read bytes because some optimized bitstream readers read 32 or 64
- * bits at once and could read over the end.
- *
- * @warning The end of the input buffer \p buf should be set to 0 to ensure that
- * no overreading happens for damaged MPEG streams.
- *
- * @note You might have to align the input buffer \p buf and output buffer \p
- * samples. The alignment requirements depend on the CPU: on some CPUs it isn't
- * necessary at all, on others it won't work at all if not aligned and on others
- * it will work but it will have an impact on performance. In practice, the
- * bitstream should have 4 byte alignment at minimum and all sample data should
- * be 16 byte aligned unless the CPU doesn't need it (AltiVec and SSE do). If
- * the linesize is not a multiple of 16 then there's no sense in aligning the
- * start of the buffer to 16.
- *
- * @param avctx the codec context
- * @param[out] picture The AVFrame in which the decoded video frame will be stored.
- * @param[in] buf the input buffer
- * @param[in] buf_size the size of the input buffer in bytes
- * @param[in,out] got_picture_ptr Zero if no frame could be decompressed, otherwise, it is nonzero.
- * @return On error a negative value is returned, otherwise the number of bytes
- * used or zero if no frame could be decompressed.
- */
-*)
-
-  function avcodec_decode_video (avctx: PAVCodecContext; picture: PAVFrame;
-                         var got_picture_ptr: integer; (* favour of The Creative CAT *)
-                         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 *)
-  (* type of the second argument is changed by The Creative CAT *)
-  function avcodec_encode_video (avctx: PAVCodecContext; buf: PByte;
-                        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.
+{$ENDIF}

+

+

+  LIBAVUTIL_VERSION_INT   =  ((51 shl 16) + (12 shl 8) + 1);

+  LIBAVUTIL_VERSION       = '51.12.1';

+  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;

+

+  AV_NOPTS_VALUE: int64   = $8000000000000000;

+  AV_TIME_BASE            = 1000000;

+  AV_TIME_BASE_Q          : TAVRational = (num:1; den:AV_TIME_BASE); (* added by CAT *)

+

+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,

+	CODEC_TYPE_NB    (* CAT#3 *)

+  );

+

+//* 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 pbyte;

+    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 pbyte;

+    (*** 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: pbyte;

+    (**

+     * 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 pshortint;

+  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: pbyte;

+    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; (* typo corretion by the Creative CAT *)

+    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;

+(* favourite of The Creative CAT

+  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;

+(* favourite of The Creative CAT

+  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.

+ *)

+

+(** This comment was added by the Creative CAT.  frame_size_ptr was changed to

+ variable refference.

+ 

+ * @deprecated Use avcodec_decode_audio2() instead.

+ *)

+

+  function avcodec_decode_audio (avctx: PAVCodecContext; samples: Pword;

+                         		 var frame_size_ptr: integer;

+                         		 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_audio2(avctx : PAVCodecContext; samples : PWord;

+								 var frame_size_ptr : integer;

+                         		 buf: pchar; buf_size: integer): integer;

+    cdecl; external av__codec;

+(* Added by The Creative CAT

+/**

+ * Decodes a video frame from \p buf into \p picture.

+ * The avcodec_decode_video() function decodes a video frame from the input

+ * buffer \p buf of size \p buf_size. To decode it, it makes use of the

+ * video codec which was coupled with \p avctx using avcodec_open(). The

+ * resulting decoded frame is stored in \p picture.

+ *

+ * @warning The input buffer must be \c FF_INPUT_BUFFER_PADDING_SIZE larger than

+ * the actual read bytes because some optimized bitstream readers read 32 or 64

+ * bits at once and could read over the end.

+ *

+ * @warning The end of the input buffer \p buf should be set to 0 to ensure that

+ * no overreading happens for damaged MPEG streams.

+ *

+ * @note You might have to align the input buffer \p buf and output buffer \p

+ * samples. The alignment requirements depend on the CPU: on some CPUs it isn't

+ * necessary at all, on others it won't work at all if not aligned and on others

+ * it will work but it will have an impact on performance. In practice, the

+ * bitstream should have 4 byte alignment at minimum and all sample data should

+ * be 16 byte aligned unless the CPU doesn't need it (AltiVec and SSE do). If

+ * the linesize is not a multiple of 16 then there's no sense in aligning the

+ * start of the buffer to 16.

+ *

+ * @param avctx the codec context

+ * @param[out] picture The AVFrame in which the decoded video frame will be stored.

+ * @param[in] buf the input buffer

+ * @param[in] buf_size the size of the input buffer in bytes

+ * @param[in,out] got_picture_ptr Zero if no frame could be decompressed, otherwise, it is nonzero.

+ * @return On error a negative value is returned, otherwise the number of bytes

+ * used or zero if no frame could be decompressed.

+ */

+*)

+

+  function avcodec_decode_video (avctx: PAVCodecContext; picture: PAVFrame;

+                         var got_picture_ptr: integer; (* favour of The Creative CAT *)

+                         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 *)

+  (* type of the second argument is changed by The Creative CAT *)

+  function avcodec_encode_video (avctx: PAVCodecContext; buf: PByte;

+                        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.

diff --git a/Game/Code/lib/ffmpeg/avformat.pas b/Game/Code/lib/ffmpeg/avformat.pas
index 26ff0d9b..aa74043b 100644
--- a/Game/Code/lib/ffmpeg/avformat.pas
+++ b/Game/Code/lib/ffmpeg/avformat.pas
@@ -23,8 +23,11 @@ in the source codes *)
 unit avformat;
 
 {$IFDEF FPC}
-  {$LINKLIB libavutil}
+  {$IFNDEF win32}
+  {$LINKLIB libavutil}

   {$LINKLIB libavformat}
+  {$ENDIF}

+
   {$MODE DELPHI } (* CAT *)
   {$PACKENUM 4}    (* every enum type variables uses 4 bytes, CAT *)
   {$PACKRECORDS C}    (* GCC compatible, Record Packing, CAT *)
diff --git a/Game/Code/lib/ffmpeg/avutil.pas b/Game/Code/lib/ffmpeg/avutil.pas
index 8d4fe2f7..0a2078dc 100644
--- a/Game/Code/lib/ffmpeg/avutil.pas
+++ b/Game/Code/lib/ffmpeg/avutil.pas
@@ -1,146 +1,146 @@
-                                                                              (*
- * copyright (c) 2006 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 *)
-
-unit avutil;
-{$IFDEF FPC}
-  {$MODE DELPHI}
-  {$PACKENUM 4}    (* every enum type variables uses 4 bytes, CAT *)
-  {$PACKRECORDS C}    (* GCC compatible, Record Packing, CAT *)
-{$ENDIF}
-
-interface
-
-const
-{$IFDEF win32}
+                                                                              (*

+ * copyright (c) 2006 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 *)

+

+unit avutil;

+{$IFDEF FPC}

+  {$MODE DELPHI}

+  {$PACKENUM 4}    (* every enum type variables uses 4 bytes, CAT *)

+  {$PACKRECORDS C}    (* GCC compatible, Record Packing, CAT *)

+{$ENDIF}

+

+interface

+

+const

+{$IFDEF win32}

   av__util = 'avutil-49.dll';

 {$ELSE}

   av__util = 'libavutil.so';   // .0d

 //  av__util = 'libavutil.49';

-{$ENDIF}
-
-
-  LIBAVUTIL_VERSION_INT   =  ((49 shl 16) + (4 shl 8) + 1);
-  LIBAVUTIL_VERSION       = '49.4.1';
-  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;
-
-type
-(**
- * Pixel format. Notes:
- *
- * PIX_FMT_RGB32 is handled in an endian-specific manner. A RGBA
- * color is put together as:
- *  (A << 24) | (R << 16) | (G << 8) | B
- * This is stored as BGRA on little endian CPU architectures and ARGB on
- * big endian CPUs.
- *
- * When the pixel format is palettized RGB (PIX_FMT_PAL8), the palettized
- * image data is stored in AVFrame.data[0]. The palette is transported in
- * AVFrame.data[1] and, is 1024 bytes long (256 4-byte entries) and is
- * formatted the same as in PIX_FMT_RGB32 described above (i.e., it is
- * also endian-specific). Note also that the individual RGB palette
- * components stored in AVFrame.data[1] should be in the range 0..255.
- * This is important as many custom PAL8 video codecs that were designed
- * to run on the IBM VGA graphics adapter use 6-bit palette components.
- *)
-
-  PAVPixelFormat = ^TAVPixelFormat;
-  TAVPixelFormat = (
-    PIX_FMT_NONE= -1,
-    PIX_FMT_YUV420P,   ///< Planar YUV 4:2:0, 12bpp, (1 Cr & Cb sample per 2x2 Y samples)
-    PIX_FMT_YUYV422,   ///< Packed YUV 4:2:2, 16bpp, Y0 Cb Y1 Cr
-    PIX_FMT_RGB24,     ///< Packed RGB 8:8:8, 24bpp, RGBRGB...
-    PIX_FMT_BGR24,     ///< Packed RGB 8:8:8, 24bpp, BGRBGR...
-    PIX_FMT_YUV422P,   ///< Planar YUV 4:2:2, 16bpp, (1 Cr & Cb sample per 2x1 Y samples)
-    PIX_FMT_YUV444P,   ///< Planar YUV 4:4:4, 24bpp, (1 Cr & Cb sample per 1x1 Y samples)
-    PIX_FMT_RGB32,     ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8R 8G 8B(lsb), in cpu endianness
-    PIX_FMT_YUV410P,   ///< Planar YUV 4:1:0,  9bpp, (1 Cr & Cb sample per 4x4 Y samples)
-    PIX_FMT_YUV411P,   ///< Planar YUV 4:1:1, 12bpp, (1 Cr & Cb sample per 4x1 Y samples)
-    PIX_FMT_RGB565,    ///< Packed RGB 5:6:5, 16bpp, (msb)   5R 6G 5B(lsb), in cpu endianness
-    PIX_FMT_RGB555,    ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5R 5G 5B(lsb), in cpu endianness most significant bit to 1
-    PIX_FMT_GRAY8,     ///<        Y        ,  8bpp
-    PIX_FMT_MONOWHITE, ///<        Y        ,  1bpp, 1 is white
-    PIX_FMT_MONOBLACK, ///<        Y        ,  1bpp, 0 is black
-    PIX_FMT_PAL8,      ///< 8 bit with PIX_FMT_RGB32 palette
-    PIX_FMT_YUVJ420P,  ///< Planar YUV 4:2:0, 12bpp, full scale (jpeg)
-    PIX_FMT_YUVJ422P,  ///< Planar YUV 4:2:2, 16bpp, full scale (jpeg)
-    PIX_FMT_YUVJ444P,  ///< Planar YUV 4:4:4, 24bpp, full scale (jpeg)
-    PIX_FMT_XVMC_MPEG2_MC,///< XVideo Motion Acceleration via common packet passing(xvmc_render.h)
-    PIX_FMT_XVMC_MPEG2_IDCT,
-    PIX_FMT_UYVY422,   ///< Packed YUV 4:2:2, 16bpp, Cb Y0 Cr Y1
-    PIX_FMT_UYYVYY411, ///< Packed YUV 4:1:1, 12bpp, Cb Y0 Y1 Cr Y2 Y3
-    PIX_FMT_BGR32,     ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8B 8G 8R(lsb), in cpu endianness
-    PIX_FMT_BGR565,    ///< Packed RGB 5:6:5, 16bpp, (msb)   5B 6G 5R(lsb), in cpu endianness
-    PIX_FMT_BGR555,    ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5B 5G 5R(lsb), in cpu endianness most significant bit to 1
-    PIX_FMT_BGR8,      ///< Packed RGB 3:3:2,  8bpp, (msb)2B 3G 3R(lsb)
-    PIX_FMT_BGR4,      ///< Packed RGB 1:2:1,  4bpp, (msb)1B 2G 1R(lsb)
-    PIX_FMT_BGR4_BYTE, ///< Packed RGB 1:2:1,  8bpp, (msb)1B 2G 1R(lsb)
-    PIX_FMT_RGB8,      ///< Packed RGB 3:3:2,  8bpp, (msb)2R 3G 3B(lsb)
-    PIX_FMT_RGB4,      ///< Packed RGB 1:2:1,  4bpp, (msb)2R 3G 3B(lsb)
-    PIX_FMT_RGB4_BYTE, ///< Packed RGB 1:2:1,  8bpp, (msb)2R 3G 3B(lsb)
-    PIX_FMT_NV12,      ///< Planar YUV 4:2:0, 12bpp, 1 plane for Y and 1 for UV
-    PIX_FMT_NV21,      ///< as above, but U and V bytes are swapped
-
-    PIX_FMT_RGB32_1,   ///< Packed RGB 8:8:8, 32bpp, (msb)8R 8G 8B 8A(lsb), in cpu endianness
-    PIX_FMT_BGR32_1,   ///< Packed RGB 8:8:8, 32bpp, (msb)8B 8G 8R 8A(lsb), in cpu endianness
-
-    PIX_FMT_NB,        ///< number of pixel formats, DO NOT USE THIS if you want to link with shared libav* because the number of formats might differ between versions
-    PIX_FMT_FACKED = $FFFFF
-  );
-
-const
-{$ifdef WORDS_BIGENDIAN}
-  PIX_FMT_RGBA = PIX_FMT_RGB32_1;
-  PIX_FMT_BGRA = PIX_FMT_BGR32_1;
-  PIX_FMT_ARGB = PIX_FMT_RGB32;
-  PIX_FMT_ABGR = PIX_FMT_BGR32;
-{$else}
-  PIX_FMT_RGBA = PIX_FMT_BGR32;
-  PIX_FMT_BGRA = PIX_FMT_RGB32;
-  PIX_FMT_ARGB = PIX_FMT_BGR32_1;
-  PIX_FMT_ABGR = PIX_FMT_RGB32_1;
-{$endif}                                              
-
-  PIX_FMT_UYVY411 = PIX_FMT_UYYVYY411;
-  PIX_FMT_RGBA32  = PIX_FMT_RGB32;
-  PIX_FMT_YUV422  = PIX_FMT_YUYV422;
-
-(* memory *)
-function av_malloc (size: cardinal): pointer;
-  cdecl; external av__util;
-
-function av_realloc (ptr: pointer; size: cardinal): pointer;
-  cdecl; external av__util;
-
-procedure av_free (ptr: pointer);
-  cdecl; external av__util;
-
-function av_mallocz (size: cardinal): pointer;
-  cdecl; external av__util;
-
-function av_strdup(const s: pchar): pchar;
-  cdecl; external av__util;
-
-procedure av_freep (ptr: pointer);
-  cdecl; external av__util;
-
-implementation
-
-end.
+{$ENDIF}

+

+

+  LIBAVUTIL_VERSION_INT   =  ((49 shl 16) + (4 shl 8) + 1);

+  LIBAVUTIL_VERSION       = '49.4.1';

+  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;

+

+type

+(**

+ * Pixel format. Notes:

+ *

+ * PIX_FMT_RGB32 is handled in an endian-specific manner. A RGBA

+ * color is put together as:

+ *  (A << 24) | (R << 16) | (G << 8) | B

+ * This is stored as BGRA on little endian CPU architectures and ARGB on

+ * big endian CPUs.

+ *

+ * When the pixel format is palettized RGB (PIX_FMT_PAL8), the palettized

+ * image data is stored in AVFrame.data[0]. The palette is transported in

+ * AVFrame.data[1] and, is 1024 bytes long (256 4-byte entries) and is

+ * formatted the same as in PIX_FMT_RGB32 described above (i.e., it is

+ * also endian-specific). Note also that the individual RGB palette

+ * components stored in AVFrame.data[1] should be in the range 0..255.

+ * This is important as many custom PAL8 video codecs that were designed

+ * to run on the IBM VGA graphics adapter use 6-bit palette components.

+ *)

+

+  PAVPixelFormat = ^TAVPixelFormat;

+  TAVPixelFormat = (

+    PIX_FMT_NONE= -1,

+    PIX_FMT_YUV420P,   ///< Planar YUV 4:2:0, 12bpp, (1 Cr & Cb sample per 2x2 Y samples)

+    PIX_FMT_YUYV422,   ///< Packed YUV 4:2:2, 16bpp, Y0 Cb Y1 Cr

+    PIX_FMT_RGB24,     ///< Packed RGB 8:8:8, 24bpp, RGBRGB...

+    PIX_FMT_BGR24,     ///< Packed RGB 8:8:8, 24bpp, BGRBGR...

+    PIX_FMT_YUV422P,   ///< Planar YUV 4:2:2, 16bpp, (1 Cr & Cb sample per 2x1 Y samples)

+    PIX_FMT_YUV444P,   ///< Planar YUV 4:4:4, 24bpp, (1 Cr & Cb sample per 1x1 Y samples)

+    PIX_FMT_RGB32,     ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8R 8G 8B(lsb), in cpu endianness

+    PIX_FMT_YUV410P,   ///< Planar YUV 4:1:0,  9bpp, (1 Cr & Cb sample per 4x4 Y samples)

+    PIX_FMT_YUV411P,   ///< Planar YUV 4:1:1, 12bpp, (1 Cr & Cb sample per 4x1 Y samples)

+    PIX_FMT_RGB565,    ///< Packed RGB 5:6:5, 16bpp, (msb)   5R 6G 5B(lsb), in cpu endianness

+    PIX_FMT_RGB555,    ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5R 5G 5B(lsb), in cpu endianness most significant bit to 1

+    PIX_FMT_GRAY8,     ///<        Y        ,  8bpp

+    PIX_FMT_MONOWHITE, ///<        Y        ,  1bpp, 1 is white

+    PIX_FMT_MONOBLACK, ///<        Y        ,  1bpp, 0 is black

+    PIX_FMT_PAL8,      ///< 8 bit with PIX_FMT_RGB32 palette

+    PIX_FMT_YUVJ420P,  ///< Planar YUV 4:2:0, 12bpp, full scale (jpeg)

+    PIX_FMT_YUVJ422P,  ///< Planar YUV 4:2:2, 16bpp, full scale (jpeg)

+    PIX_FMT_YUVJ444P,  ///< Planar YUV 4:4:4, 24bpp, full scale (jpeg)

+    PIX_FMT_XVMC_MPEG2_MC,///< XVideo Motion Acceleration via common packet passing(xvmc_render.h)

+    PIX_FMT_XVMC_MPEG2_IDCT,

+    PIX_FMT_UYVY422,   ///< Packed YUV 4:2:2, 16bpp, Cb Y0 Cr Y1

+    PIX_FMT_UYYVYY411, ///< Packed YUV 4:1:1, 12bpp, Cb Y0 Y1 Cr Y2 Y3

+    PIX_FMT_BGR32,     ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8B 8G 8R(lsb), in cpu endianness

+    PIX_FMT_BGR565,    ///< Packed RGB 5:6:5, 16bpp, (msb)   5B 6G 5R(lsb), in cpu endianness

+    PIX_FMT_BGR555,    ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5B 5G 5R(lsb), in cpu endianness most significant bit to 1

+    PIX_FMT_BGR8,      ///< Packed RGB 3:3:2,  8bpp, (msb)2B 3G 3R(lsb)

+    PIX_FMT_BGR4,      ///< Packed RGB 1:2:1,  4bpp, (msb)1B 2G 1R(lsb)

+    PIX_FMT_BGR4_BYTE, ///< Packed RGB 1:2:1,  8bpp, (msb)1B 2G 1R(lsb)

+    PIX_FMT_RGB8,      ///< Packed RGB 3:3:2,  8bpp, (msb)2R 3G 3B(lsb)

+    PIX_FMT_RGB4,      ///< Packed RGB 1:2:1,  4bpp, (msb)2R 3G 3B(lsb)

+    PIX_FMT_RGB4_BYTE, ///< Packed RGB 1:2:1,  8bpp, (msb)2R 3G 3B(lsb)

+    PIX_FMT_NV12,      ///< Planar YUV 4:2:0, 12bpp, 1 plane for Y and 1 for UV

+    PIX_FMT_NV21,      ///< as above, but U and V bytes are swapped

+

+    PIX_FMT_RGB32_1,   ///< Packed RGB 8:8:8, 32bpp, (msb)8R 8G 8B 8A(lsb), in cpu endianness

+    PIX_FMT_BGR32_1,   ///< Packed RGB 8:8:8, 32bpp, (msb)8B 8G 8R 8A(lsb), in cpu endianness

+

+    PIX_FMT_NB,        ///< number of pixel formats, DO NOT USE THIS if you want to link with shared libav* because the number of formats might differ between versions

+    PIX_FMT_FACKED = $FFFFF

+  );

+

+const

+{$ifdef WORDS_BIGENDIAN}

+  PIX_FMT_RGBA = PIX_FMT_RGB32_1;

+  PIX_FMT_BGRA = PIX_FMT_BGR32_1;

+  PIX_FMT_ARGB = PIX_FMT_RGB32;

+  PIX_FMT_ABGR = PIX_FMT_BGR32;

+{$else}

+  PIX_FMT_RGBA = PIX_FMT_BGR32;

+  PIX_FMT_BGRA = PIX_FMT_RGB32;

+  PIX_FMT_ARGB = PIX_FMT_BGR32_1;

+  PIX_FMT_ABGR = PIX_FMT_RGB32_1;

+{$endif}                                              

+

+  PIX_FMT_UYVY411 = PIX_FMT_UYYVYY411;

+  PIX_FMT_RGBA32  = PIX_FMT_RGB32;

+  PIX_FMT_YUV422  = PIX_FMT_YUYV422;

+

+(* memory *)

+function av_malloc (size: cardinal): pointer;

+  cdecl; external av__util;

+

+function av_realloc (ptr: pointer; size: cardinal): pointer;

+  cdecl; external av__util;

+

+procedure av_free (ptr: pointer);

+  cdecl; external av__util;

+

+function av_mallocz (size: cardinal): pointer;

+  cdecl; external av__util;

+

+function av_strdup(const s: pchar): pchar;

+  cdecl; external av__util;

+

+procedure av_freep (ptr: pointer);

+  cdecl; external av__util;

+

+implementation

+

+end.