From 1c3dedbdd8522e63080133197af763d1995f8236 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 19 Sep 2007 23:34:09 +0000
Subject: tested ffmpeg in lazarus - linux.. working :)

just need to make sure development packages are installed for ffmpeg.
such as : libavcodec-dev  & libavformat-dev



git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@405 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/lib/ffmpeg/avcodec.pas     | 3950 +++++++++++++++++-----------------
 Game/Code/lib/ffmpeg/avformat.pas    | 1259 +++++------
 Game/Code/lib/ffmpeg/avio.pas        |  492 ++---
 Game/Code/lib/ffmpeg/avutil.pas      |  270 +--
 Game/Code/lib/ffmpeg/lazarustest.lpi |  420 ++--
 Game/Code/lib/ffmpeg/lazarustest.lpr |   57 +-
 Game/Code/lib/ffmpeg/opt.pas         |  210 +-
 Game/Code/lib/ffmpeg/rational.pas    |  184 +-
 8 files changed, 3457 insertions(+), 3385 deletions(-)

(limited to 'Game/Code/lib/ffmpeg')

diff --git a/Game/Code/lib/ffmpeg/avcodec.pas b/Game/Code/lib/ffmpeg/avcodec.pas
index ce08dcc9..bef5f687 100644
--- a/Game/Code/lib/ffmpeg/avcodec.pas
+++ b/Game/Code/lib/ffmpeg/avcodec.pas
@@ -1,1970 +1,1980 @@
-                                                                              (*
- * copyright (c) 2001 Fabrice Bellard
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
-                                                                              *)
-unit avcodec;
-
-interface
-
-uses
-  windows, avutil, rational, opt;
-
-const
-  av__format = 'avformat-50.dll';
-
-  LIBAVUTIL_VERSION_INT   =  ((51 shl 16) + (16 shl 8) + 0);
-  LIBAVUTIL_VERSION       = '51.16.0';
-  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;
-
-  AV_NOPTS_VALUE: int64   = $8000000000000000;
-  AV_TIME_BASE            = 1000000;
-
-type
-  TCodecID = (
-    CODEC_ID_NONE, CODEC_ID_MPEG1VIDEO,
-    CODEC_ID_MPEG2VIDEO, //* prefered ID for MPEG Video 1 or 2 decoding */
-    CODEC_ID_MPEG2VIDEO_XVMC, CODEC_ID_H261, CODEC_ID_H263, CODEC_ID_RV10,
-    CODEC_ID_RV20, CODEC_ID_MJPEG, CODEC_ID_MJPEGB, CODEC_ID_LJPEG,
-    CODEC_ID_SP5X, CODEC_ID_JPEGLS, CODEC_ID_MPEG4, CODEC_ID_RAWVIDEO,
-    CODEC_ID_MSMPEG4V1, CODEC_ID_MSMPEG4V2, CODEC_ID_MSMPEG4V3,
-    CODEC_ID_WMV1, CODEC_ID_WMV2, CODEC_ID_H263P,
-    CODEC_ID_H263I, CODEC_ID_FLV1, CODEC_ID_SVQ1, CODEC_ID_SVQ3,
-    CODEC_ID_DVVIDEO, CODEC_ID_HUFFYUV, CODEC_ID_CYUV, CODEC_ID_H264,
-    CODEC_ID_INDEO3, CODEC_ID_VP3, CODEC_ID_THEORA, CODEC_ID_ASV1,
-    CODEC_ID_ASV2, CODEC_ID_FFV1, CODEC_ID_4XM, CODEC_ID_VCR1,
-    CODEC_ID_CLJR, CODEC_ID_MDEC, CODEC_ID_ROQ, CODEC_ID_INTERPLAY_VIDEO,
-    CODEC_ID_XAN_WC3, CODEC_ID_XAN_WC4, CODEC_ID_RPZA, CODEC_ID_CINEPAK,
-    CODEC_ID_WS_VQA, CODEC_ID_MSRLE, CODEC_ID_MSVIDEO1, CODEC_ID_IDCIN,
-    CODEC_ID_8BPS, CODEC_ID_SMC, CODEC_ID_FLIC, CODEC_ID_TRUEMOTION1,
-    CODEC_ID_VMDVIDEO, CODEC_ID_MSZH, CODEC_ID_ZLIB, CODEC_ID_QTRLE,
-    CODEC_ID_SNOW, CODEC_ID_TSCC, CODEC_ID_ULTI, CODEC_ID_QDRAW,
-    CODEC_ID_VIXL, CODEC_ID_QPEG, CODEC_ID_XVID, CODEC_ID_PNG,
-    CODEC_ID_PPM, CODEC_ID_PBM, CODEC_ID_PGM, CODEC_ID_PGMYUV,
-    CODEC_ID_PAM, CODEC_ID_FFVHUFF, CODEC_ID_RV30, CODEC_ID_RV40,
-    CODEC_ID_VC1, CODEC_ID_WMV3, CODEC_ID_LOCO, CODEC_ID_WNV1,
-    CODEC_ID_AASC, CODEC_ID_INDEO2, CODEC_ID_FRAPS, CODEC_ID_TRUEMOTION2,
-    CODEC_ID_BMP, CODEC_ID_CSCD, CODEC_ID_MMVIDEO, CODEC_ID_ZMBV,
-    CODEC_ID_AVS, CODEC_ID_SMACKVIDEO, CODEC_ID_NUV, CODEC_ID_KMVC,
-    CODEC_ID_FLASHSV, CODEC_ID_CAVS, CODEC_ID_JPEG2000, CODEC_ID_VMNC,
-    CODEC_ID_VP5, CODEC_ID_VP6, CODEC_ID_VP6F,
-
-    //* various pcm "codecs" */
-    CODEC_ID_PCM_S16LE= $10000,  CODEC_ID_PCM_S16BE, CODEC_ID_PCM_U16LE,
-    CODEC_ID_PCM_U16BE, CODEC_ID_PCM_S8, CODEC_ID_PCM_U8, CODEC_ID_PCM_MULAW,
-    CODEC_ID_PCM_ALAW, CODEC_ID_PCM_S32LE, CODEC_ID_PCM_S32BE, CODEC_ID_PCM_U32LE,
-    CODEC_ID_PCM_U32BE, CODEC_ID_PCM_S24LE, CODEC_ID_PCM_S24BE, CODEC_ID_PCM_U24LE,
-    CODEC_ID_PCM_U24BE, CODEC_ID_PCM_S24DAUD,
-    //* various adpcm codecs */
-    CODEC_ID_ADPCM_IMA_QT= $11000, CODEC_ID_ADPCM_IMA_WAV, CODEC_ID_ADPCM_IMA_DK3,
-    CODEC_ID_ADPCM_IMA_DK4, CODEC_ID_ADPCM_IMA_WS, CODEC_ID_ADPCM_IMA_SMJPEG,
-    CODEC_ID_ADPCM_MS, CODEC_ID_ADPCM_4XM, CODEC_ID_ADPCM_XA, CODEC_ID_ADPCM_ADX,
-    CODEC_ID_ADPCM_EA, CODEC_ID_ADPCM_G726, CODEC_ID_ADPCM_CT, CODEC_ID_ADPCM_SWF,
-    CODEC_ID_ADPCM_YAMAHA, CODEC_ID_ADPCM_SBPRO_4, CODEC_ID_ADPCM_SBPRO_3,
-    CODEC_ID_ADPCM_SBPRO_2,
-    //* AMR */
-    CODEC_ID_AMR_NB= $12000, CODEC_ID_AMR_WB,
-    //* RealAudio codecs*/
-    CODEC_ID_RA_144= $13000, CODEC_ID_RA_288,
-    //* various DPCM codecs */
-    CODEC_ID_ROQ_DPCM= $14000, CODEC_ID_INTERPLAY_DPCM, CODEC_ID_XAN_DPCM,
-    CODEC_ID_SOL_DPCM, CODEC_ID_MP2= $15000,
-    CODEC_ID_MP3, //* prefered ID for MPEG Audio layer 1, 2 or3 decoding */
-    CODEC_ID_AAC, CODEC_ID_MPEG4AAC, CODEC_ID_AC3, CODEC_ID_DTS, CODEC_ID_VORBIS,
-    CODEC_ID_DVAUDIO, CODEC_ID_WMAV1, CODEC_ID_WMAV2, CODEC_ID_MACE3,
-    CODEC_ID_MACE6, CODEC_ID_VMDAUDIO, CODEC_ID_SONIC, CODEC_ID_SONIC_LS,
-    CODEC_ID_FLAC, CODEC_ID_MP3ADU, CODEC_ID_MP3ON4, CODEC_ID_SHORTEN,
-    CODEC_ID_ALAC, CODEC_ID_WESTWOOD_SND1, CODEC_ID_GSM, CODEC_ID_QDM2,
-    CODEC_ID_COOK, CODEC_ID_TRUESPEECH, CODEC_ID_TTA, CODEC_ID_SMACKAUDIO,
-    CODEC_ID_QCELP, CODEC_ID_WAVPACK,
-    //* subtitle codecs */
-    CODEC_ID_DVD_SUBTITLE= $17000, CODEC_ID_DVB_SUBTITLE,
-
-    CODEC_ID_MPEG2TS= $20000 //* _FAKE_ codec to indicate a raw MPEG2 transport
-                              //  stream (only used by libavformat) */
-  );
-
-//* CODEC_ID_MP3LAME is absolete */
-const
-  CODEC_ID_MP3LAME = CODEC_ID_MP3;
-
-  AVPALETTE_SIZE = 1024;
-  AVPALETTE_COUNT = 256;
-
-type
-  TCodecType = (
-    CODEC_TYPE_UNKNOWN = -1,
-    CODEC_TYPE_VIDEO,
-    CODEC_TYPE_AUDIO,
-    CODEC_TYPE_DATA,
-    CODEC_TYPE_SUBTITLE
-  );
-
-//* currently unused, may be used if 24/32 bits samples ever supported */
-//* all in native endian */
-  TSampleFormat = (
-    SAMPLE_FMT_NONE = -1,
-    SAMPLE_FMT_U8,              ///< unsigned 8 bits
-    SAMPLE_FMT_S16,             ///< signed 16 bits
-    SAMPLE_FMT_S24,             ///< signed 24 bits
-    SAMPLE_FMT_S32,             ///< signed 32 bits
-    SAMPLE_FMT_FLT             ///< float
-  );
-
-const
-//* in bytes */
-  AVCODEC_MAX_AUDIO_FRAME_SIZE = 192000; // 1 second of 48khz 32bit audio
-
-(**
- * Required number of additionally allocated bytes at the end of the input bitstream for decoding.
- * this is mainly needed because some optimized bitstream readers read
- * 32 or 64 bit at once and could read over the end<br>
- * Note, if the first 23 bits of the additional bytes are not 0 then damaged
- * MPEG bitstreams could cause overread and segfault
- *)
-  FF_INPUT_BUFFER_PADDING_SIZE = 8;
-
-(**
- * minimum encoding buffer size.
- * used to avoid some checks during header writing
- *)
-  FF_MIN_BUFFER_SIZE = 16384;
-
-type
-//* motion estimation type, EPZS by default */
-  TMotion_Est_ID = (
-    ME_ZERO = 1,
-    ME_FULL,
-    ME_LOG,
-    ME_PHODS,
-    ME_EPZS,
-    ME_X1,
-    ME_HEX,
-    ME_UMH,
-    ME_ITER
-  );
-
-  TAVDiscard = (
-//we leave some space between them for extensions (drop some keyframes for intra only or drop just some bidir frames)
-    AVDISCARD_NONE   = -16, ///< discard nothing
-    AVDISCARD_DEFAULT=  0, ///< discard useless packets like 0 size packets in avi
-    AVDISCARD_NONREF =  8, ///< discard all non reference
-    AVDISCARD_BIDIR  = 16, ///< discard all bidirectional frames
-    AVDISCARD_NONKEY = 32, ///< discard all frames except keyframes
-    AVDISCARD_ALL    = 48, ///< discard all
-    AVDISCARD_FUCK = $FFFFFF
-  );
-
-  PRcOverride = ^TRcOverride;
-  TRcOverride = record {16}
-    start_frame: integer;
-    end_frame: integer;
-    qscale: integer; // if this is 0 then quality_factor will be used instead
-    quality_factor: single;
-  end;
-
-const
-  FF_MAX_B_FRAMES = 16;
-
-(* encoding support
-   these flags can be passed in AVCodecContext.flags before initing
-   Note: not everything is supported yet.
-*)
-
-  CODEC_FLAG_QSCALE = $0002;  ///< use fixed qscale
-  CODEC_FLAG_4MV    = $0004;  ///< 4 MV per MB allowed / Advanced prediction for H263
-  CODEC_FLAG_QPEL   = $0010;  ///< use qpel MC
-  CODEC_FLAG_GMC    = $0020;  ///< use GMC
-  CODEC_FLAG_MV0    = $0040;  ///< always try a MB with MV=<0,0>
-  CODEC_FLAG_PART   = $0080;  ///< use data partitioning
-//* parent program gurantees that the input for b-frame containing streams is not written to
-//   for at least s->max_b_frames+1 frames, if this is not set than the input will be copied */
-  CODEC_FLAG_INPUT_PRESERVED = $0100;
-  CODEC_FLAG_PASS1 = $0200;   ///< use internal 2pass ratecontrol in first  pass mode
-  CODEC_FLAG_PASS2 = $0400;   ///< use internal 2pass ratecontrol in second pass mode
-  CODEC_FLAG_EXTERN_HUFF = $1000; ///< use external huffman table (for mjpeg)
-  CODEC_FLAG_GRAY  = $2000;   ///< only decode/encode grayscale
-  CODEC_FLAG_EMU_EDGE = $4000; ///< don't draw edges
-  CODEC_FLAG_PSNR           = $8000; ///< error[?] variables will be set during encoding
-  CODEC_FLAG_TRUNCATED  = $00010000; //** input bitstream might be truncated at a random location instead
-                                   //         of only at frame boundaries */
-  CODEC_FLAG_NORMALIZE_AQP  = $00020000; ///< normalize adaptive quantization
-  CODEC_FLAG_INTERLACED_DCT = $00040000; ///< use interlaced dct
-  CODEC_FLAG_LOW_DELAY      = $00080000; ///< force low delay
-  CODEC_FLAG_ALT_SCAN       = $00100000; ///< use alternate scan
-  CODEC_FLAG_TRELLIS_QUANT  = $00200000; ///< use trellis quantization
-  CODEC_FLAG_GLOBAL_HEADER  = $00400000; ///< place global headers in extradata instead of every keyframe
-  CODEC_FLAG_BITEXACT       = $00800000; ///< use only bitexact stuff (except (i)dct)
-//* Fx : Flag for h263+ extra options */
-  CODEC_FLAG_H263P_AIC      = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction (remove this)
-  CODEC_FLAG_AC_PRED        = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction
-  CODEC_FLAG_H263P_UMV      = $02000000; ///< Unlimited motion vector
-  CODEC_FLAG_CBP_RD         = $04000000; ///< use rate distortion optimization for cbp
-  CODEC_FLAG_QP_RD          = $08000000; ///< use rate distortion optimization for qp selectioon
-  CODEC_FLAG_H263P_AIV      = $00000008; ///< H263 Alternative inter vlc
-  CODEC_FLAG_OBMC           = $00000001; ///< OBMC
-  CODEC_FLAG_LOOP_FILTER    = $00000800; ///< loop filter
-  CODEC_FLAG_H263P_SLICE_STRUCT = $10000000;
-  CODEC_FLAG_INTERLACED_ME  = $20000000; ///< interlaced motion estimation
-  CODEC_FLAG_SVCD_SCAN_OFFSET = $40000000; ///< will reserve space for SVCD scan offset user data
-  CODEC_FLAG_CLOSED_GOP     = $80000000;
-  CODEC_FLAG2_FAST          = $00000001; ///< allow non spec compliant speedup tricks
-  CODEC_FLAG2_STRICT_GOP    = $00000002; ///< strictly enforce GOP size
-  CODEC_FLAG2_NO_OUTPUT     = $00000004; ///< skip bitstream encoding
-  CODEC_FLAG2_LOCAL_HEADER  = $00000008; ///< place global headers at every keyframe instead of in extradata
-  CODEC_FLAG2_BPYRAMID      = $00000010; ///< H.264 allow b-frames to be used as references
-  CODEC_FLAG2_WPRED         = $00000020; ///< H.264 weighted biprediction for b-frames
-  CODEC_FLAG2_MIXED_REFS    = $00000040; ///< H.264 multiple references per partition
-  CODEC_FLAG2_8X8DCT        = $00000080; ///< H.264 high profile 8x8 transform
-  CODEC_FLAG2_FASTPSKIP     = $00000100; ///< H.264 fast pskip
-  CODEC_FLAG2_AUD           = $00000200; ///< H.264 access unit delimiters
-  CODEC_FLAG2_BRDO          = $00000400; ///< b-frame rate-distortion optimization
-  CODEC_FLAG2_INTRA_VLC     = $00000800; ///< use MPEG-2 intra VLC table
-  CODEC_FLAG2_MEMC_ONLY     = $00001000; ///< only do ME/MC (I frames -> ref, P frame -> ME+MC)
-
-(* Unsupported options :
- *              Syntax Arithmetic coding (SAC)
- *              Reference Picture Selection
- *              Independant Segment Decoding */
-/* /Fx */
-/* codec capabilities *)
-
-const
-  CODEC_CAP_DRAW_HORIZ_BAND = $001; ///< decoder can use draw_horiz_band callback
-(**
- * Codec uses get_buffer() for allocating buffers.
- * direct rendering method 1 *)
-  CODEC_CAP_DR1             = $002;
-(* if 'parse_only' field is true, then avcodec_parse_frame() can be   used *)
-  CODEC_CAP_PARSE_ONLY      = $004;
-  CODEC_CAP_TRUNCATED       = $008;
-//* codec can export data for HW decoding (XvMC) */
-  CODEC_CAP_HWACCEL         = $010;
-
-(**
- * codec has a non zero delay and needs to be feeded with NULL at the end to get the delayed data.
- * if this is not set, the codec is guranteed to never be feeded with NULL data *)
-  CODEC_CAP_DELAY           = $0020;
-(**
- * Codec can be fed a final frame with a smaller size.
- * This can be used to prevent truncation of the last audio samples. *)
-  CODEC_CAP_SMALL_LAST_FRAME = $0040;
-
-//the following defines may change, don't expect compatibility if you use them
-   MB_TYPE_INTRA4x4   = $001;
-   MB_TYPE_INTRA16x16 = $002; //FIXME h264 specific
-   MB_TYPE_INTRA_PCM  = $004; //FIXME h264 specific
-   MB_TYPE_16x16      = $008;
-   MB_TYPE_16x8       = $010;
-   MB_TYPE_8x16       = $020;
-   MB_TYPE_8x8        = $040;
-   MB_TYPE_INTERLACED = $080;
-   MB_TYPE_DIRECT2     = $100; //FIXME
-   MB_TYPE_ACPRED     = $200;
-   MB_TYPE_GMC        = $400;
-   MB_TYPE_SKIP       = $800;
-   MB_TYPE_P0L0       = $1000;
-   MB_TYPE_P1L0       = $2000;
-   MB_TYPE_P0L1       = $4000;
-   MB_TYPE_P1L1       = $8000;
-   MB_TYPE_L0         = (MB_TYPE_P0L0 or MB_TYPE_P1L0);
-   MB_TYPE_L1         = (MB_TYPE_P0L1 or MB_TYPE_P1L1);
-   MB_TYPE_L0L1       = (MB_TYPE_L0   or MB_TYPE_L1);
-   MB_TYPE_QUANT      = $0010000;
-   MB_TYPE_CBP        = $0020000;
-//Note bits 24-31 are reserved for codec specific use (h264 ref0, mpeg1 0mv, ...)
-
-type
-(**
- * Pan Scan area.
- * this specifies the area which should be displayed. Note there may be multiple such areas for one frame *)
-  PAVPanScan = ^TAVPanScan;
-  TAVPanScan = record {24}
-    (*** id.
-     * - encoding: set by user.
-     * - decoding: set by lavc     *)
-    id: integer;
-
-    (*** width and height in 1/16 pel
-     * - encoding: set by user.
-     * - decoding: set by lavc     *)
-    width: integer;
-    height: integer;
-
-    (*** position of the top left corner in 1/16 pel for up to 3 fields/frames.
-     * - encoding: set by user.
-     * - decoding: set by lavc     *)
-    position: array [0..2] of array [0..1] of smallint;
-  end;
-
-const
-  FF_QSCALE_TYPE_MPEG1	= 0;
-  FF_QSCALE_TYPE_MPEG2	= 1;
-
-  FF_BUFFER_TYPE_INTERNAL = 1;
-  FF_BUFFER_TYPE_USER     = 2; ///< Direct rendering buffers (image is (de)allocated by user)
-  FF_BUFFER_TYPE_SHARED   = 4; ///< buffer from somewhere else, don't dealloc image (data/base), all other tables are not shared
-  FF_BUFFER_TYPE_COPY     = 8; ///< just a (modified) copy of some other buffer, don't dealloc anything
-
-
-  FF_I_TYPE = 1; // Intra
-  FF_P_TYPE = 2; // Predicted
-  FF_B_TYPE = 3; // Bi-dir predicted
-  FF_S_TYPE = 4; // S(GMC)-VOP MPEG4
-  FF_SI_TYPE = 5;
-  FF_SP_TYPE = 6;
-
-  FF_BUFFER_HINTS_VALID    = $01; // Buffer hints value is meaningful (if 0 ignore)
-  FF_BUFFER_HINTS_READABLE = $02; // Codec will read from buffer
-  FF_BUFFER_HINTS_PRESERVE = $04; // User must not alter buffer content
-  FF_BUFFER_HINTS_REUSABLE = $08; // Codec will reuse the buffer (update)
-
-type
-  (*** Audio Video Frame. *)
-  PAVFrame = ^TAVFrame;
-  TAVFrame = record {200}
-    (*** pointer to the picture planes.
-     * this might be different from the first allocated byte *)
-    data: array [0..3] of pointer;
-    linesize: array [0..3] of integer;
-    (*** pointer to the first allocated byte of the picture. can be used in get_buffer/release_buffer
-     * this isn't used by lavc unless the default get/release_buffer() is used*)
-    base: array [0..3] of pchar;
-    (*** 1 -> keyframe, 0-> not *)
-    key_frame: integer;
-    (*** picture type of the frame, see ?_TYPE below.*)
-    pict_type: integer;
-    (*** presentation timestamp in time_base units (time when frame should be shown to user)
-     * if AV_NOPTS_VALUE then frame_rate = 1/time_base will be assumed*)
-    pts: int64;
-    (*** picture number in bitstream order.*)
-    coded_picture_number: integer;
-    (*** picture number in display order.*)
-    display_picture_number: integer;
-    (*** quality (between 1 (good) and FF_LAMBDA_MAX (bad)) *)
-    quality: integer;
-    (*** buffer age (1->was last buffer and dint change, 2->..., ...).*)
-    age: integer;
-    (*** is this picture used as reference*)
-    reference: integer;
-    (*** QP table*)
-    qscale_table: pchar;
-    (*** QP store stride*)
-    qstride: integer;
-    (*** mbskip_table[mb]>=1 if MB didnt change*)
-    mbskip_table: pchar;
-    (**
-     * Motion vector table.
-     * @code
-     * example:
-     * int mv_sample_log2= 4 - motion_subsample_log2;
-     * int mb_width= (width+15)>>4;
-     * int mv_stride= (mb_width << mv_sample_log2) + 1;
-     * motion_val[direction][x + y*mv_stride][0->mv_x, 1->mv_y];
-     * @endcode
-     * - encoding: set by user
-     * - decoding: set by lavc     *)
-    motion_val: array [0..1] of pointer;
-    (*** Macroblock type table
-     * mb_type_base + mb_width + 2 *)
-    mb_type: PCardinal;
-    (*** log2 of the size of the block which a single vector in motion_val represents:
-     * (4->16x16, 3->8x8, 2-> 4x4, 1-> 2x2)*)
-    motion_subsample_log2: byte;
-    (*** for some private data of the user*)
-    opaque: pointer;
-    (*** error*)
-    error: array [0..3] of int64;
-    (*** type of the buffer (to keep track of who has to dealloc data[*])
-     * Note: user allocated (direct rendering) & internal buffers can not coexist currently*)
-    _type: integer;
-    (*** when decoding, this signal how much the picture must be delayed.
-     * extra_delay = repeat_pict / (2*fps)*)
-    repeat_pict: integer;
-    qscale_type: Integer;
-    (*** The content of the picture is interlaced.*)
-    interlaced_frame: Integer;
-    (*** if the content is interlaced, is top field displayed first.*)
-    top_field_first: integer;
-    (*** Pan scan.*)
-    pan_scan: PAVPanScan;
-    (*** tell user application that palette has changed from previous frame.*)
-    palette_has_changed: integer;
-    (*** Codec suggestion on buffer type if != 0
-     * - decoding: set by lavc (before get_buffer() call))*)
-    buffer_hints: integer;
-    (*** DCT coeffitients*)
-    dct_coeff: PSmallInt;
-    (*** Motion referece frame index*)
-    ref_index: array [0..1] of pchar;
-  end;
-
-const
-  DEFAULT_FRAME_RATE_BASE = 1001000;
-
-  FF_BUG_AUTODETECT       = 1;  ///< autodetection
-  FF_BUG_OLD_MSMPEG4      = 2;
-  FF_BUG_XVID_ILACE       = 4;
-  FF_BUG_UMP4             = 8;
-  FF_BUG_NO_PADDING       = 16;
-  FF_BUG_AMV              = 32;
-  FF_BUG_AC_VLC           = 0;  ///< will be removed, libavcodec can now handle these non compliant files by default
-  FF_BUG_QPEL_CHROMA      = 64;
-  FF_BUG_STD_QPEL         = 128;
-  FF_BUG_QPEL_CHROMA2     = 256;
-  FF_BUG_DIRECT_BLOCKSIZE = 512;
-  FF_BUG_EDGE             = 1024;
-  FF_BUG_HPEL_CHROMA      = 2048;
-  FF_BUG_DC_CLIP          = 4096;
-  FF_BUG_MS               = 8192; ///< workaround various bugs in microsofts broken decoders
-
-  FF_COMPLIANCE_VERY_STRICT   = 2; ///< strictly conform to a older more strict version of the spec or reference software
-  FF_COMPLIANCE_STRICT        = 1; ///< strictly conform to all the things in the spec no matter what consequences
-  FF_COMPLIANCE_NORMAL        = 0;
-  FF_COMPLIANCE_INOFFICIAL    = -1; ///< allow inofficial extensions
-  FF_COMPLIANCE_EXPERIMENTAL  = -2; ///< allow non standarized experimental things
-
-  FF_ER_CAREFUL         = 1;
-  FF_ER_COMPLIANT       = 2;
-  FF_ER_AGGRESSIVE      = 3;
-  FF_ER_VERY_AGGRESSIVE = 4;
-
-  FF_DCT_AUTO    = 0;
-  FF_DCT_FASTINT = 1;
-  FF_DCT_INT     = 2;
-  FF_DCT_MMX     = 3;
-  FF_DCT_MLIB    = 4;
-  FF_DCT_ALTIVEC = 5;
-  FF_DCT_FAAN    = 6;
-
-  FF_IDCT_AUTO         = 0;
-  FF_IDCT_INT          = 1;
-  FF_IDCT_SIMPLE       = 2;
-  FF_IDCT_SIMPLEMMX    = 3;
-  FF_IDCT_LIBMPEG2MMX  = 4;
-  FF_IDCT_PS2          = 5;
-  FF_IDCT_MLIB         = 6;
-  FF_IDCT_ARM          = 7;
-  FF_IDCT_ALTIVEC      = 8;
-  FF_IDCT_SH4          = 9;
-  FF_IDCT_SIMPLEARM    = 10;
-  FF_IDCT_H264         = 11;
-  FF_IDCT_VP3          = 12;
-  FF_IDCT_IPP          = 13;
-  FF_IDCT_XVIDMMX      = 14;
-
-  FF_EC_GUESS_MVS   = 1;
-  FF_EC_DEBLOCK     = 2;
-
-  FF_MM_FORCE	      = $80000000; (* force usage of selected flags (OR) *)
-    (* lower 16 bits - CPU features *)
-
-  FF_MM_MMX	        = $0001; (* standard MMX *)
-  FF_MM_3DNOW	      = $0004; (* AMD 3DNOW *)
-  FF_MM_MMXEXT	    = $0002; (* SSE integer functions or AMD MMX ext *)
-  FF_MM_SSE	        = $0008; (* SSE functions *)
-  FF_MM_SSE2	      = $0010; (* PIV SSE2 functions *)
-  FF_MM_3DNOWEXT	  = $0020; (* AMD 3DNowExt *)
-  FF_MM_IWMMXT	    = $0100; (* XScale IWMMXT *)
-
-  FF_PRED_LEFT   = 0;
-  FF_PRED_PLANE  = 1;
-  FF_PRED_MEDIAN = 2;
-
-  FF_DEBUG_PICT_INFO    = 1;
-  FF_DEBUG_RC           = 2;
-  FF_DEBUG_BITSTREAM    = 4;
-  FF_DEBUG_MB_TYPE      = 8;
-  FF_DEBUG_QP           = 16;
-  FF_DEBUG_MV           = 32;
-  FF_DEBUG_DCT_COEFF    = $00000040;
-  FF_DEBUG_SKIP         = $00000080;
-  FF_DEBUG_STARTCODE    = $00000100;
-  FF_DEBUG_PTS          = $00000200;
-  FF_DEBUG_ER           = $00000400;
-  FF_DEBUG_MMCO         = $00000800;
-  FF_DEBUG_BUGS         = $00001000;
-  FF_DEBUG_VIS_QP       = $00002000;
-  FF_DEBUG_VIS_MB_TYPE  = $00004000;
-
-  FF_DEBUG_VIS_MV_P_FOR  = $00000001; //visualize forward predicted MVs of P frames
-  FF_DEBUG_VIS_MV_B_FOR  = $00000002; //visualize forward predicted MVs of B frames
-  FF_DEBUG_VIS_MV_B_BACK = $00000004; //visualize backward predicted MVs of B frames
-
-  FF_CMP_SAD  = 0;
-  FF_CMP_SSE  = 1;
-  FF_CMP_SATD = 2;
-  FF_CMP_DCT  = 3;
-  FF_CMP_PSNR = 4;
-  FF_CMP_BIT  = 5;
-  FF_CMP_RD   = 6;
-  FF_CMP_ZERO = 7;
-  FF_CMP_VSAD = 8;
-  FF_CMP_VSSE = 9;
-  FF_CMP_NSSE = 10;
-  FF_CMP_W53  = 11;
-  FF_CMP_W97  = 12;
-  FF_CMP_DCTMAX = 13;
-  FF_CMP_CHROMA = 256;
-
-  FF_DTG_AFD_SAME         = 8;
-  FF_DTG_AFD_4_3          = 9;
-  FF_DTG_AFD_16_9         = 10;
-  FF_DTG_AFD_14_9         = 11;
-  FF_DTG_AFD_4_3_SP_14_9  = 13;
-  FF_DTG_AFD_16_9_SP_14_9 = 14;
-  FF_DTG_AFD_SP_4_3       = 15;
-
-  FF_DEFAULT_QUANT_BIAS   = 999999;
-
-  FF_LAMBDA_SHIFT   = 7;
-  FF_LAMBDA_SCALE   = (1 shl FF_LAMBDA_SHIFT);
-  FF_QP2LAMBDA      = 118; ///< factor to convert from H.263 QP to lambda
-  FF_LAMBDA_MAX     = (256 * 128 - 1);
-
-  FF_QUALITY_SCALE  = FF_LAMBDA_SCALE; //FIXME maybe remove
-
-  FF_CODER_TYPE_VLC   = 0;
-  FF_CODER_TYPE_AC    = 1;
-
-  SLICE_FLAG_CODED_ORDER    = $0001; ///< draw_horiz_band() is called in coded order instead of display
-  SLICE_FLAG_ALLOW_FIELD    = $0002; ///< allow draw_horiz_band() with field slices (MPEG2 field pics)
-  SLICE_FLAG_ALLOW_PLANE    = $0004; ///< allow draw_horiz_band() with 1 component at a time (SVQ1)
-
-  FF_MB_DECISION_SIMPLE = 0;        ///< uses mb_cmp
-  FF_MB_DECISION_BITS   = 1;        ///< chooses the one which needs the fewest bits
-  FF_MB_DECISION_RD     = 2;        ///< rate distoration
-
-  FF_AA_AUTO    = 0;
-  FF_AA_FASTINT = 1; //not implemented yet
-  FF_AA_INT     = 2;
-  FF_AA_FLOAT   = 3;
-
-  FF_PROFILE_UNKNOWN  = -99;
-
-  FF_LEVEL_UNKNOWN    = -99;
-
-  X264_PART_I4X4 = $001;  (* Analyse i4x4 *)
-  X264_PART_I8X8 = $002;  (* Analyse i8x8 (requires 8x8 transform) *)
-  X264_PART_P8X8 = $010;  (* Analyse p16x8, p8x16 and p8x8 *)
-  X264_PART_P4X4 = $020;  (* Analyse p8x4, p4x8, p4x4 *)
-  X264_PART_B8X8 = $100;  (* Analyse b16x8, b8x16 and b8x8 *)
-
-type
-  PAVCLASS = ^TAVCLASS;
-  PAVCodecContext = ^TAVCodecContext;
-  PAVCodec = ^TAVCodec;
-  PAVPaletteControl = ^TAVPaletteControl;
-
-  TAVCLASS = record {12}
-    class_name: pchar;
-    (* actually passing a pointer to an AVCodecContext
-					or AVFormatContext, which begin with an AVClass.
-					Needed because av_log is in libavcodec and has no visibility
-					of AVIn/OutputFormat *)
-    item_name: function (): pchar; cdecl;
-    option: PAVOption;
-  end;
-
-  TAVCodecContext = record {720}
-    (*** Info on struct for av_log
-     * - set by avcodec_alloc_context     *)
-    av_class: PAVClass;
-    (*** the average bitrate.
-     * - encoding: set by user. unused for constant quantizer encoding
-     * - decoding: set by lavc. 0 or some bitrate if this info is available in the stream     *)
-    bit_rate: integer;
-    (*** number of bits the bitstream is allowed to diverge from the reference.
-     *           the reference can be CBR (for CBR pass1) or VBR (for pass2)
-     * - encoding: set by user. unused for constant quantizer encoding
-     * - decoding: unused     *)
-    bit_rate_tolerance: integer;
-    (*** CODEC_FLAG_*.
-     * - encoding: set by user.
-     * - decoding: set by user.     *)
-    flags: integer;
-    (*** some codecs needs additionnal format info. It is stored here
-     * - encoding: set by user.
-     * - decoding: set by lavc. (FIXME is this ok?)     *)
-    sub_id: integer;
-
-    (**
-     * motion estimation algorithm used for video coding.
-     * 1 (zero), 2 (full), 3 (log), 4 (phods), 5 (epzs), 6 (x1), 7 (hex),
-     * 8 (umh), 9 (iter) [7, 8 are x264 specific, 9 is snow specific]
-     * - encoding: MUST be set by user.
-     * - decoding: unused     *)
-    me_method: integer;
-
-    (**
-     * some codecs need / can use extra-data like huffman tables.
-     * mjpeg: huffman tables
-     * rv10: additional flags
-     * mpeg4: global headers (they can be in the bitstream or here)
-     * the allocated memory should be FF_INPUT_BUFFER_PADDING_SIZE bytes larger
-     * then extradata_size to avoid prolems if its read with the bitstream reader
-     * the bytewise contents of extradata must not depend on the architecture or cpu endianness
-     * - encoding: set/allocated/freed by lavc.
-     * - decoding: set/allocated/freed by user.
-     *)
-    extradata: pointer;
-    extradata_size: integer;
-
-    (**
-     * this is the fundamental unit of time (in seconds) in terms
-     * of which frame timestamps are represented. for fixed-fps content,
-     * timebase should be 1/framerate and timestamp increments should be
-     * identically 1.
-     * - encoding: MUST be set by user
-     * - decoding: set by lavc.     *)
-    time_base: TAVRational;
-
-    (* video only *)
-    (*** picture width / height.
-     * - encoding: MUST be set by user.
-     * - decoding: set by lavc.
-     * Note, for compatibility its possible to set this instead of
-     * coded_width/height before decoding     *)
-    width, height: integer;
-    (*** the number of pictures in a group of pitures, or 0 for intra_only.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    gop_size: integer;
-    (*** pixel format, see PIX_FMT_xxx.
-     * - encoding: set by user.
-     * - decoding: set by lavc.     *)
-    pix_fmt: TAVPixelFormat;
-    (*** Frame rate emulation. If not zero lower layer (i.e. format handler)
-     * has to read frames at native frame rate.
-     * - encoding: set by user.
-     * - decoding: unused.     *)
-    rate_emu: integer;
-    (*** if non NULL, 'draw_horiz_band' is called by the libavcodec
-     * decoder to draw an horizontal band. It improve cache usage. Not
-     * all codecs can do that. You must check the codec capabilities
-     * before
-     * - encoding: unused
-     * - decoding: set by user.
-     * @param height the height of the slice
-     * @param y the y position of the slice
-     * @param type 1->top field, 2->bottom field, 3->frame
-     * @param offset offset into the AVFrame.data from which the slice should be read *)
-    draw_horiz_band: procedure (s: PAVCodecContext;
-                                const src: PAVFrame; offset: PInteger;
-                                y: integer; _type: integer; height: integer); cdecl;
-
-    (* audio only *)
-    sample_rate: integer; ///< samples per sec
-    channels: integer;
-    (*** audio sample format.
-     * - encoding: set by user.
-     * - decoding: set by lavc.     *)
-    sample_fmt: TSampleFormat;  ///< sample format, currenly unused
-
-    (* the following data should not be initialized *)
-    (*** samples per packet. initialized when calling 'init'     *)
-    frame_size: integer;
-    frame_number: integer;   ///< audio or video frame number
-    real_pict_num: integer;  ///< returns the real picture number of previous encoded frame
-
-    (*** number of frames the decoded output will be delayed relative to
-     * the encoded input.
-     * - encoding: set by lavc.
-     * - decoding: unused     *)
-    delay: integer;
-
-    (* - encoding parameters *)
-    qcompress: single;  ///< amount of qscale change between easy & hard scenes (0.0-1.0)
-    qblur: single;      ///< amount of qscale smoothing over time (0.0-1.0)
-
-    (*** minimum quantizer.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    qmin: integer;
-
-    (*** maximum quantizer.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    qmax: integer;
-
-    (*** maximum quantizer difference etween frames.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    max_qdiff: integer;
-
-    (*** maximum number of b frames between non b frames.
-     * note: the output will be delayed by max_b_frames+1 relative to the input
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    max_b_frames: integer;
-
-    (*** qscale factor between ip and b frames.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    b_quant_factor: single;
-
-    (** obsolete FIXME remove *)
-    rc_strategy: integer;
-    b_frame_strategy: integer;
-
-    (*** hurry up amount.
-     * deprecated in favor of skip_idct and skip_frame
-     * - encoding: unused
-     * - decoding: set by user. 1-> skip b frames, 2-> skip idct/dequant too, 5-> skip everything except header     *)
-    hurry_up: integer;
-
-    codec: PAVCodec;
-
-    priv_data: pointer;
-
-    (* unused, FIXME remove*)
-    rtp_mode: integer;
-
-    rtp_payload_size: integer;  (* The size of the RTP payload: the coder will  *)
-                                (* do it's best to deliver a chunk with size    *)
-                                (* below rtp_payload_size, the chunk will start *)
-                                (* with a start code on some codecs like H.263  *)
-                                (* This doesn't take account of any particular  *)
-                                (* headers inside the transmited RTP payload    *)
-
-
-    (* The RTP callback: This function is called   *)
-    (* every time the encoder has a packet to send *)
-    (* Depends on the encoder if the data starts   *)
-    (* with a Start Code (it should) H.263 does.   *)
-    (* mb_nb contains the number of macroblocks    *)
-    (* encoded in the RTP payload                  *)
-    rtp_callback: procedure (avctx: PAVCodecContext; data: pointer;
-                             size: integer; mb_nb: integer); cdecl;
-
-    (* statistics, used for 2-pass encoding *)
-    mv_bits: integer;
-    header_bits: integer;
-    i_tex_bits: integer;
-    p_tex_bits: integer;
-    i_count: integer;
-    p_count: integer;
-    skip_count: integer;
-    misc_bits: integer;
-
-    (*** number of bits used for the previously encoded frame.
-     * - encoding: set by lavc
-     * - decoding: unused     *)
-    frame_bits: integer;
-
-    (*** private data of the user, can be used to carry app specific stuff.
-     * - encoding: set by user
-     * - decoding: set by user     *)
-    opaque: pointer;
-
-    codec_name: array [0..31] of char;
-    codec_type: TCodecType; (* see CODEC_TYPE_xxx *)
-    codec_id: TCodecID; (* see CODEC_ID_xxx *)
-
-    (*** fourcc (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
-     * this is used to workaround some encoder bugs
-     * - encoding: set by user, if not then the default based on codec_id will be used
-     * - decoding: set by user, will be converted to upper case by lavc during init     *)
-//    codec_tag: cardinal;  // можно array [0..3] of char - тогда видно FOURCC
-    codec_tag: array [0..3] of char; 
-
-    (*** workaround bugs in encoders which sometimes cannot be detected automatically.
-     * - encoding: set by user
-     * - decoding: set by user     *)
-    workaround_bugs: integer;
-
-    (*** luma single coeff elimination threshold.
-     * - encoding: set by user
-     * - decoding: unused     *)
-    luma_elim_threshold: integer;
-
-    (*** chroma single coeff elimination threshold.
-     * - encoding: set by user
-     * - decoding: unused     *)
-    chroma_elim_threshold: integer;
-
-    (*** strictly follow the std (MPEG4, ...).
-     * - encoding: set by user
-     * - decoding: unused     *)
-    strict_std_compliance: integer;
-
-    (*** qscale offset between ip and b frames.
-     * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
-     * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    b_quant_offset: single;
-
-    (*** error resilience higher values will detect more errors but may missdetect
-     * some more or less valid parts as errors.
-     * - encoding: unused
-     * - decoding: set by user     *)
-    error_resilience: integer;
-
-    (*** called at the beginning of each frame to get a buffer for it.
-     * if pic.reference is set then the frame will be read later by lavc
-     * avcodec_align_dimensions() should be used to find the required width and
-     * height, as they normally need to be rounded up to the next multiple of 16
-     * - encoding: unused
-     * - decoding: set by lavc, user can override     *)
-    get_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
-
-    (*** called to release buffers which where allocated with get_buffer.
-     * a released buffer can be reused in get_buffer()
-     * pic.data[*] must be set to NULL
-     * - encoding: unused
-     * - decoding: set by lavc, user can override     *)
-    release_buffer: procedure (c: PAVCodecContext; pic: PAVFrame); cdecl;
-
-    (*** if 1 the stream has a 1 frame delay during decoding.
-     * - encoding: set by lavc
-     * - decoding: set by lavc     *)
-    has_b_frames: integer;
-
-    (*** number of bytes per packet if constant and known or 0
-     * used by some WAV based audio codecs     *)
-    block_align: integer;
-
-    parse_only: integer; (* - decoding only: if true, only parsing is done
-                       (function avcodec_parse_frame()). The frame
-                       data is returned. Only MPEG codecs support this now. *)
-
-    (*** 0-> h263 quant 1-> mpeg quant.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    mpeg_quant: integer;
-
-    (*** pass1 encoding statistics output buffer.
-     * - encoding: set by lavc
-     * - decoding: unused     *)
-    stats_out: pchar;
-
-    (*** pass2 encoding statistics input buffer.
-     * concatenated stuff from stats_out of pass1 should be placed here
-     * - encoding: allocated/set/freed by user
-     * - decoding: unused     *)
-    stats_in: pchar;
-
-    (*** ratecontrol qmin qmax limiting method.
-     * 0-> clipping, 1-> use a nice continous function to limit qscale wthin qmin/qmax
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    rc_qsquish: single;
-
-    rc_qmod_amp: single;
-    rc_qmod_freq: integer;
-
-    (*** ratecontrol override, see RcOverride.
-     * - encoding: allocated/set/freed by user.
-     * - decoding: unused     *)
-    rc_override: PRcOverride;
-    rc_override_count: integer;
-
-    (*** rate control equation.
-     * - encoding: set by user
-     * - decoding: unused     *)
-    rc_eq: pchar;
-
-    (*** maximum bitrate.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    rc_max_rate: integer;
-
-    (*** minimum bitrate.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    rc_min_rate: integer;
-
-    (*** decoder bitstream buffer size.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    rc_buffer_size: integer;
-    rc_buffer_aggressivity: single;
-
-    (*** qscale factor between p and i frames.
-     * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
-     * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    i_quant_factor: single;
-
-    (*** qscale offset between p and i frames.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    i_quant_offset: single;
-
-    (*** initial complexity for pass1 ratecontrol.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    rc_initial_cplx: single;
-
-    (*** dct algorithm, see FF_DCT_* below.
-     * - encoding: set by user
-     * - decoding: unused     *)
-    dct_algo: integer;
-
-    (*** luminance masking (0-> disabled).
-     * - encoding: set by user
-     * - decoding: unused     *)
-    lumi_masking: single;
-
-    (*** temporary complexity masking (0-> disabled).
-     * - encoding: set by user
-     * - decoding: unused     *)
-    temporal_cplx_masking: single;
-
-    (*** spatial complexity masking (0-> disabled).
-     * - encoding: set by user
-     * - decoding: unused     *)
-    spatial_cplx_masking: single;
-
-    (**     * p block masking (0-> disabled).
-     * - encoding: set by user
-     * - decoding: unused     *)
-    p_masking: single;
-
-    (*** darkness masking (0-> disabled).
-     * - encoding: set by user
-     * - decoding: unused     *)
-    dark_masking: single;
-
-    (* for binary compatibility *)
-    unused: integer;
-
-    (*** idct algorithm, see FF_IDCT_* below.
-     * - encoding: set by user
-     * - decoding: set by user     *)
-    idct_algo: integer;
-
-    (*** slice count.
-     * - encoding: set by lavc
-     * - decoding: set by user (or 0)     *)
-    slice_count: integer;
-
-    (*** slice offsets in the frame in bytes.
-     * - encoding: set/allocated by lavc
-     * - decoding: set/allocated by user (or NULL)     *)
-    slice_offset: PInteger;
-
-    (*** error concealment flags.
-     * - encoding: unused
-     * - decoding: set by user     *)
-    error_concealment: integer;
-
-    (*** dsp_mask could be add used to disable unwanted CPU features
-     * CPU features (i.e. MMX, SSE. ...)
-     *
-     * with FORCE flag you may instead enable given CPU features
-     * (Dangerous: usable in case of misdetection, improper usage however will
-     * result into program crash)     *)
-    dsp_mask: cardinal;
-
-    (*** bits per sample/pixel from the demuxer (needed for huffyuv).
-     * - encoding: set by lavc
-     * - decoding: set by user     *)
-     bits_per_sample: integer;
-
-    (*** prediction method (needed for huffyuv).
-     * - encoding: set by user
-     * - decoding: unused     *)
-     prediction_method: integer;
-
-    (*** sample aspect ratio (0 if unknown).
-     * numerator and denominator must be relative prime and smaller then 256 for some video standards
-     * - encoding: set by user.
-     * - decoding: set by lavc.     *)
-    sample_aspect_ratio: TAVRational;
-
-    (*** the picture in the bitstream.
-     * - encoding: set by lavc
-     * - decoding: set by lavc     *)
-    coded_frame: PAVFrame;
-
-    (*** debug.
-     * - encoding: set by user.
-     * - decoding: set by user.     *)
-    debug: integer;
-
-    (*** debug.
-     * - encoding: set by user.
-     * - decoding: set by user.     *)
-    debug_mv: integer;
-
-    (** error.
-     * - encoding: set by lavc if flags&CODEC_FLAG_PSNR
-     * - decoding: unused     *)
-    error: array [0..3] of int64;
-
-    (*** minimum MB quantizer.
-     * - encoding: unused
-     * - decoding: unused     *)
-    mb_qmin: integer;
-
-    (*** maximum MB quantizer.
-     * - encoding: unused
-     * - decoding: unused     *)
-    mb_qmax: integer;
-
-    (*** motion estimation compare function.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    me_cmp: integer;
-
-    (*** subpixel motion estimation compare function.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    me_sub_cmp: integer;
-    (*** macroblock compare function (not supported yet).
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    mb_cmp: integer;
-    (*** interlaced dct compare function
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    ildct_cmp: integer;
-    (*** ME diamond size & shape.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    dia_size: integer;
-
-    (*** amount of previous MV predictors (2a+1 x 2a+1 square).
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    last_predictor_count: integer;
-
-    (*** pre pass for motion estimation.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    pre_me: integer;
-
-    (*** motion estimation pre pass compare function.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    me_pre_cmp: integer;
-
-    (*** ME pre pass diamond size & shape.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    pre_dia_size: integer;
-
-    (*** subpel ME quality.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    me_subpel_quality: integer;
-
-    (*** callback to negotiate the pixelFormat.
-     * @param fmt is the list of formats which are supported by the codec,
-     * its terminated by -1 as 0 is a valid format, the formats are ordered by quality
-     * the first is allways the native one
-     * @return the choosen format
-     * - encoding: unused
-     * - decoding: set by user, if not set then the native format will always be choosen
-     *)
-    get_format: function (s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat; cdecl;
-
-    (*** DTG active format information (additionnal aspect ratio
-     * information only used in DVB MPEG2 transport streams). 0 if
-     * not set.
-     * - encoding: unused.
-     * - decoding: set by decoder     *)
-    dtg_active_format: integer;
-
-    (*** Maximum motion estimation search range in subpel units.
-     * if 0 then no limit
-     * - encoding: set by user.
-     * - decoding: unused.     *)
-    me_range: integer;
-
-    (*** intra quantizer bias.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    intra_quant_bias: integer;
-
-    (*** inter quantizer bias.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    inter_quant_bias: integer;
-
-    (*** color table ID.
-     * - encoding: unused.
-     * - decoding: which clrtable should be used for 8bit RGB images
-     *             table have to be stored somewhere FIXME     *)
-    color_table_id: integer;
-
-    (*** internal_buffer count.
-     * Don't touch, used by lavc default_get_buffer()     *)
-    internal_buffer_count: integer;
-
-    (*** internal_buffers.
-     * Don't touch, used by lavc default_get_buffer()     *)
-    internal_buffer: pointer;
-
-    (*** global quality for codecs which cannot change it per frame.
-     * this should be proportional to MPEG1/2/4 qscale.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    global_quality: integer;
-
-    (*** coder type
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    coder_type: integer;
-
-    (*** context model
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    context_model: integer;
-
-    (*** slice flags
-     * - encoding: unused
-     * - decoding: set by user.     *)
-    slice_flags: integer;
-
-    (*** XVideo Motion Acceleration
-     * - encoding: forbidden
-     * - decoding: set by decoder     *)
-    xvmc_acceleration: integer;
-
-    (*** macroblock decision mode
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    mb_decision: integer;
-
-    (*** custom intra quantization matrix
-     * - encoding: set by user, can be NULL
-     * - decoding: set by lavc     *)
-    intra_matrix: Pword;
-
-    (*** custom inter quantization matrix
-     * - encoding: set by user, can be NULL
-     * - decoding: set by lavc     *)
-    inter_matrix: Pword;
-
-    (*** fourcc from the AVI stream header (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
-     * this is used to workaround some encoder bugs
-     * - encoding: unused
-     * - decoding: set by user, will be converted to upper case by lavc during init     *)
-    stream_codec_tag: array [0..3] of char; //cardinal;
-
-    (*** scene change detection threshold.
-     * 0 is default, larger means fewer detected scene changes
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    scenechange_threshold: integer;
-
-    (*** minimum lagrange multipler
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    lmin: integer;
-
-    (*** maximum lagrange multipler
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    lmax: integer;
-
-    (*** Palette control structure
-     * - encoding: ??? (no palette-enabled encoder yet)
-     * - decoding: set by user.     *)
-    palctrl: PAVPaletteControl;
-
-    (*** noise reduction strength
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    noise_reduction: integer;
-
-    (*** called at the beginning of a frame to get cr buffer for it.
-     * buffer type (size, hints) must be the same. lavc won't check it.
-     * lavc will pass previous buffer in pic, function should return
-     * same buffer or new buffer with old frame "painted" into it.
-     * if pic.data[0] == NULL must behave like get_buffer().
-     * - encoding: unused
-     * - decoding: set by lavc, user can override     *)
-    reget_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
-
-    (*** number of bits which should be loaded into the rc buffer before decoding starts
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    rc_initial_buffer_occupancy: integer;
-    inter_threshold: integer;
-
-    (*** CODEC_FLAG2_*.
-     * - encoding: set by user.
-     * - decoding: set by user.     *)
-    flags2: integer;
-
-    (*** simulates errors in the bitstream to test error concealment.
-     * - encoding: set by user.
-     * - decoding: unused.     *)
-    error_rate: integer;
-
-    (*** MP3 antialias algorithm, see FF_AA_* below.
-     * - encoding: unused
-     * - decoding: set by user     *)
-    antialias_algo: integer;
-
-    (*** Quantizer noise shaping.
-     * - encoding: set by user
-     * - decoding: unused     *)
-    quantizer_noise_shaping: integer;
-
-    (*** Thread count.
-     * is used to decide how many independant tasks should be passed to execute()
-     * - encoding: set by user
-     * - decoding: set by user     *)
-    thread_count: integer;
-
-    (*** the codec may call this to execute several independant things. it will return only after
-     * finishing all tasks, the user may replace this with some multithreaded implementation, the
-     * default implementation will execute the parts serially
-     * @param count the number of things to execute
-     * - encoding: set by lavc, user can override
-     * - decoding: set by lavc, user can override     *)
-    execute: function (c: PAVCodecContext; func: pointer; arg: PPointer; ret: PInteger; count: integer): integer; cdecl;
-
-    (*** Thread opaque.
-     * can be used by execute() to store some per AVCodecContext stuff.
-     * - encoding: set by execute()
-     * - decoding: set by execute()     *)
-    thread_opaque: pointer;
-
-    (*** Motion estimation threshold. under which no motion estimation is
-     * performed, but instead the user specified motion vectors are used
-     * - encoding: set by user
-     * - decoding: unused     *)
-     me_threshold: integer;
-
-    (*** Macroblock threshold. under which the user specified macroblock types will be used
-     * - encoding: set by user
-     * - decoding: unused    *)
-     mb_threshold: integer;
-
-    (*** precision of the intra dc coefficient - 8.
-     * - encoding: set by user
-     * - decoding: unused     *)
-     intra_dc_precision: integer;
-
-    (*** noise vs. sse weight for the nsse comparsion function.
-     * - encoding: set by user
-     * - decoding: unused     *)
-     nsse_weight: integer;
-
-    (*** number of macroblock rows at the top which are skipped.
-     * - encoding: unused
-     * - decoding: set by user     *)
-     skip_top: integer;
-
-    (*** number of macroblock rows at the bottom which are skipped.
-     * - encoding: unused
-     * - decoding: set by user     *)
-     skip_bottom: integer;
-
-    (*** profile
-     * - encoding: set by user
-     * - decoding: set by lavc     *)
-     profile: integer;
-
-    (*** level
-     * - encoding: set by user
-     * - decoding: set by lavc     *)
-     level: integer;
-
-    (*** low resolution decoding. 1-> 1/2 size, 2->1/4 size
-     * - encoding: unused
-     * - decoding: set by user     *)
-     lowres: integer;
-
-    (*** bitsream width / height. may be different from width/height if lowres
-     * or other things are used
-     * - encoding: unused
-     * - decoding: set by user before init if known, codec should override / dynamically change if needed     *)
-    coded_width, coded_height: integer;
-
-    (*** frame skip threshold
-     * - encoding: set by user
-     * - decoding: unused     *)
-    frame_skip_threshold: integer;
-
-    (*** frame skip factor
-     * - encoding: set by user
-     * - decoding: unused     *)
-    frame_skip_factor: integer;
-
-    (*** frame skip exponent
-     * - encoding: set by user
-     * - decoding: unused     *)
-    frame_skip_exp: integer;
-
-    (*** frame skip comparission function
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    frame_skip_cmp: integer;
-
-    (*** border processing masking. raises the quantizer for mbs on the borders
-     * of the picture.
-     * - encoding: set by user
-     * - decoding: unused     *)
-    border_masking: single;
-
-    (*** minimum MB lagrange multipler.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    mb_lmin: integer;
-
-    (*** maximum MB lagrange multipler.
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    mb_lmax: integer;
-
-    (***
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    me_penalty_compensation: integer;
-
-    (***
-     * - encoding: unused
-     * - decoding: set by user.     *)
-    skip_loop_filter: TAVDiscard;
-
-    (**     *
-     * - encoding: unused
-     * - decoding: set by user.     *)
-    skip_idct: TAVDiscard;
-
-    (**     *
-     * - encoding: unused
-     * - decoding: set by user.     *)
-    skip_frame: TAVDiscard;
-
-    (**     *
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    bidir_refine: integer;
-
-    (**     *
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    brd_scale: integer;
-
-    (**
-     * constant rate factor - quality-based VBR - values ~correspond to qps
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    crf: integer;
-
-    (**
-     * constant quantization parameter rate control method
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    cqp: integer;
-
-    (**
-     * minimum gop size
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    keyint_min: integer;
-
-    (**
-     * number of reference frames
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    refs: integer;
-
-    (**
-     * chroma qp offset from luma
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    chromaoffset: integer;
-
-    (**
-     * influences how often b-frames are used
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    bframebias: integer;
-
-    (**
-     * trellis RD quantization
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    trellis: integer;
-
-    (**
-     * reduce fluctuations in qp (before curve compression)
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    complexityblur: single;
-
-    (**
-     * in-loop deblocking filter alphac0 parameter
-     * alpha is in the range -6...6
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    deblockalpha: integer;
-
-    (**
-     * in-loop deblocking filter beta parameter
-     * beta is in the range -6...6
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    deblockbeta: integer;
-
-    (**
-     * macroblock subpartition sizes to consider - p8x8, p4x4, b8x8, i8x8, i4x4
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    partitions: integer;
-
-    (**
-     * direct mv prediction mode - 0 (none), 1 (spatial), 2 (temporal)
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    directpred: integer;
-
-    (**
-     * audio cutoff bandwidth (0 means "automatic") . Currently used only by FAAC
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    cutoff: integer;
-
-    (**
-     * multiplied by qscale for each frame and added to scene_change_score
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    scenechange_factor: integer;
-
-    (**     *
-     * note: value depends upon the compare functin used for fullpel ME
-     * - encoding: set by user.
-     * - decoding: unused     *)
-    mv0_threshold: integer;
-
-    (**
-     * adjusts sensitivity of b_frame_strategy 1
-     * - encoding: set by user.
-     * - decoding: unused      *)
-    b_sensitivity: integer;
-
-    (**
-     * - encoding: set by user.
-     * - decoding: unused      *)
-    compression_level: integer;
-
-    (**
-     * sets whether to use LPC mode - used by FLAC encoder
-     * - encoding: set by user.
-     * - decoding: unused.     *)
-    use_lpc: integer;
-
-    (**
-     * LPC coefficient precision - used by FLAC encoder
-     * - encoding: set by user.
-     * - decoding: unused.     *)
-    lpc_coeff_precision: integer;
-
-    (**
-     * - encoding: set by user.
-     * - decoding: unused.           *)
-    min_prediction_order: integer;
-
-    (**
-     * - encoding: set by user.
-     * - decoding: unused.            *)
-    max_prediction_order: integer;
-
-    (**
-     * search method for selecting prediction order
-     * - encoding: set by user.
-     * - decoding: unused.            *)
-    prediction_order_method: integer;
-
-    (**
-     * - encoding: set by user.
-     * - decoding: unused.               *)
-    min_partition_order: integer;
-
-    (**
-     * - encoding: set by user.
-     * - decoding: unused.           *)
-    max_partition_order: integer;
-  end;
-
-(**
- * AVCodec.
- *)
-  TAVCodec = record
-    name: pchar;
-    _type: TCodecType;
-    id: TCodecID;
-    priv_data_size: integer;
-    init: function (avctx: pAVCodecContext): integer; cdecl;
-    encode: function (avctx: PAVCodecContext; buf: pchar; buf_size: integer; data: pointer): integer; cdecl;
-    close: function (avctx: PAVCodecContext): integer; cdecl;
-    decode: function (avctx: PAVCodecContext; outdata: pointer; outdata_size: PInteger;
-                  buf: pchar; buf_size: integer): integer; cdecl;
-    capabilities: integer;
-// todo: check this ->
-//    void *dummy; // FIXME remove next time we break binary compatibility
-    next: PAVCodec;
-    flush: procedure (avctx: PAVCodecContext); cdecl;
-    supported_framerates: PAVRational; ///array of supported framerates, or NULL if any, array is terminated by {0,0}
-    pix_fmts: PAVPixelFormat;       ///array of supported pixel formats, or NULL if unknown, array is terminanted by -1
-  end;
-
-(**
- * four components are given, that's all.
- * the last component is alpha
- *)
-  PAVPicture = ^TAVPicture;
-  TAVPicture = record
-    data: array [0..3] of pchar;
-    linesize: array [0..3] of integer;       ///< number of bytes per line
-  end;
-
-(**
- * AVPaletteControl
- * This structure defines a method for communicating palette changes
- * between and demuxer and a decoder.
- * this is totally broken, palette changes should be sent as AVPackets
- *)
-  TAVPaletteControl = record
-    (* demuxer sets this to 1 to indicate the palette has changed;
-     * decoder resets to 0 *)
-    palette_changed: integer;
-
-    (* 4-byte ARGB palette entries, stored in native byte order; note that
-     * the individual palette components should be on a 8-bit scale; if
-     * the palette data comes from a IBM VGA native format, the component
-     * data is probably 6 bits in size and needs to be scaled *)
-    palette: array [0..AVPALETTE_COUNT - 1] of cardinal;
-  end;
-
-  PAVSubtitleRect = ^TAVSubtitleRect;
-  TAVSubtitleRect = record
-    x: word;
-    y: word;
-    w: word;
-    h: word;
-    nb_colors: word;
-    linesize: integer;
-    rgba_palette: PCardinal;
-    bitmap: pchar;
-  end;
-
-  PAVSubtitle = ^TAVSubtitle;
-  TAVSubtitle = record {20}
-    format: word; (* 0 = graphics *)
-    start_display_time: cardinal; (* relative to packet pts, in ms *)
-    end_display_time: cardinal; (* relative to packet pts, in ms *)
-    num_rects: cardinal;
-    rects: PAVSubtitleRect;
-  end;
-
-
-(* resample.c *)
-
-  PReSampleContext = pointer;
-  PAVResampleContext = pointer;
-  PImgReSampleContext = pointer;
-
-function audio_resample_init (output_channels: integer; input_channels: integer;
-                              output_rate: integer; input_rate: integer): PReSampleContext;
-  cdecl; external av__codec;
-
-function audio_resample (s: PReSampleContext; output: PWord; input: PWord; nb_samples: integer): integer;
-  cdecl; external av__codec;
-
-procedure audio_resample_close (s: PReSampleContext);
-  cdecl; external av__codec;
-
-
-function av_resample_init (out_rate: integer; in_rate: integer; filter_length: integer;
-                           log2_phase_count: integer; linear: integer; cutoff: double): PAVResampleContext;
-  cdecl; external av__codec;
-
-function av_resample (c: PAVResampleContext; dst: PWord; src: PWord; consumed: PInteger;
-                      src_size: integer; dst_size: integer; update_ctx: integer): integer;
-  cdecl; external av__codec;
-
-procedure av_resample_compensate (c: PAVResampleContext; sample_delta: integer;
-                                  compensation_distance: integer);
-  cdecl; external av__codec;
-
-procedure av_resample_close (c: PAVResampleContext);
-  cdecl; external av__codec;
-
-
-(* YUV420 format is assumed ! *)
-
-  function img_resample_init (output_width: integer; output_height: integer;
-                             input_width: integer; input_height: integer): PImgReSampleContext;
-    cdecl; external av__codec;
-
-  function img_resample_full_init (owidth: integer; oheight: integer;
-                                      iwidth: integer; iheight: integer;
-                                      topBand: integer; bottomBand: integer;
-                                      leftBand: integer; rightBand: integer;
-                                      padtop: integer; padbottom: integer;
-                                      padleft: integer; padright: integer): PImgReSampleContext;
-    cdecl; external av__codec;
-
-  procedure img_resample (s: PImgReSampleContext; output: PAVPicture; const input: PAVPicture);
-    cdecl; external av__codec;
-
-  procedure img_resample_close (s: PImgReSampleContext);
-    cdecl; external av__codec;
-
-(**
- * Allocate memory for a picture.  Call avpicture_free to free it.
- *
- * @param picture the picture to be filled in.
- * @param pix_fmt the format of the picture.
- * @param width the width of the picture.
- * @param height the height of the picture.
- * @return 0 if successful, -1 if not.
- *)
-  function avpicture_alloc (picture: PAVPicture; pix_fmt: TAVPixelFormat;
-                            width: integer; height: integer): integer;
-    cdecl; external av__codec;
-
-
-(* Free a picture previously allocated by avpicture_alloc. *)
-  procedure avpicture_free (picture: PAVPicture);
-    cdecl; external av__codec;
-
-  function avpicture_fill (picture: PAVPicture; ptr: pointer;
-                   pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
-    cdecl; external av__codec;
-
-  function avpicture_layout (const src: PAVPicture; pix_fmt: TAVPixelFormat;
-                     width: integer; height: integer;
-                     dest: pchar; dest_size: integer): integer;
-    cdecl; external av__codec;
-
-  function avpicture_get_size (pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
-    cdecl; external av__codec;
-
-  procedure avcodec_get_chroma_sub_sample (pix_fmt: TAVPixelFormat; h_shift: Pinteger; v_shift: pinteger);
-    cdecl; external av__codec;
-
-  function avcodec_get_pix_fmt_name(pix_fmt: TAVPixelFormat): pchar;
-    cdecl; external av__codec;
-
-  procedure avcodec_set_dimensions(s: PAVCodecContext; width: integer; height: integer);
-    cdecl; external av__codec;
-
-  function avcodec_get_pix_fmt(const name: pchar): TAVPixelFormat;
-    cdecl; external av__codec;
-
-  function avcodec_pix_fmt_to_codec_tag(p: TAVPixelFormat): cardinal;
-    cdecl; external av__codec;
-
-  function avcodec_get_pix_fmt_loss (dst_pix_fmt: TAVPixelFormat; src_pix_fmt: TAVPixelFormat;
-                             has_alpha: integer): integer;
-    cdecl; external av__codec;
-
-  function avcodec_find_best_pix_fmt (pix_fmt_mask: integer; src_pix_fmt: TAVPixelFormat;
-                              has_alpha: integer; loss_ptr: pinteger): integer;
-    cdecl; external av__codec;
-
-  function img_get_alpha_info (const src: PAVPicture;
-		                           pix_fmt: TAVPixelFormat;
-                               width: integer; height: integer): integer;
-    cdecl; external av__codec;
-
-
-(* convert among pixel formats *)
-  function img_convert (dst: PAVPicture; dst_pix_fmt: TAVPixelFormat;
-                const src: PAVPicture; pix_fmt: TAVPixelFormat;
-                width: integer; height: integer): integer;
-    cdecl; external av__codec;
-
-(* deinterlace a picture *)
-  function avpicture_deinterlace (dst: PAVPicture; const src: PAVPicture;
-                          pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
-    cdecl; external av__codec;
-
-(* returns LIBAVCODEC_VERSION_INT constant *)
-  function avcodec_version (): cardinal;
-    cdecl; external av__codec;
-
-(* returns LIBAVCODEC_BUILD constant *)
-  function avcodec_build (): cardinal;
-    cdecl; external av__codec;
-
-  procedure avcodec_init ();
-    cdecl; external av__codec;
-
-  procedure register_avcodec (format: PAVCodec);
-    cdecl; external av__codec;
-
-  function avcodec_find_encoder (id: TCodecID): PAVCodec;
-    cdecl; external av__codec;
-  function avcodec_find_encoder_by_name (name: pchar): PAVCodec;
-    cdecl; external av__codec;
-  function avcodec_find_decoder(id: TCodecID): PAVCodec;
-    cdecl; external av__codec;
-  function avcodec_find_decoder_by_name (name: pchar): PAVCodec;
-    cdecl; external av__codec;
-  procedure avcodec_string(buf: pchar; buf_size: integer; enc: PAVCodecContext; encode: integer);
-    cdecl; external av__codec;
-
-  procedure avcodec_get_context_defaults (s: PAVCodecContext);
-    cdecl; external av__codec;
-  function avcodec_alloc_context (): PAVCodecContext;
-    cdecl; external av__codec;
-  procedure avcodec_get_frame_defaults (pic: PAVFrame);
-    cdecl; external av__codec;
-  function avcodec_alloc_frame (): PAVFrame;
-    cdecl; external av__codec;
-
-  function avcodec_default_get_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
-    cdecl; external av__codec;
-  procedure avcodec_default_release_buffer (s: PAVCodecContext; pic: PAVFrame);
-    cdecl; external av__codec;
-  function avcodec_default_reget_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
-    cdecl; external av__codec;
-  procedure avcodec_align_dimensions(s: PAVCodecContext; width: Pinteger; height: PInteger);
-    cdecl; external av__codec;
-  function avcodec_check_dimensions (av_log_ctx: pointer; w: cardinal; h: cardinal): integer;
-    cdecl; external av__codec;
-  function avcodec_default_get_format(s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat;
-    cdecl; external av__codec;
-
-  function avcodec_thread_init (s: PAVCodecContext; thread_count: integer): integer;
-    cdecl; external av__codec;
-  procedure avcodec_thread_free (s: PAVCodecContext);
-    cdecl; external av__codec;
-  function avcodec_thread_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
-    cdecl; external av__codec;
-  function avcodec_default_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
-    cdecl; external av__codec;
-
-
-//FIXME func typedef
-
-(**
- * opens / inits the AVCodecContext.
- * not thread save!
- *)
-  function avcodec_open (avctx: PAVCodecContext; codec: PAVCodec): integer;
-    cdecl; external av__codec;
-
-
-(**
- * Decode an audio frame.
- *
- * @param avctx the codec context.
- * @param samples output buffer, 16 byte aligned
- * @param frame_size_ptr the output buffer size in bytes, zero if no frame could be compressed
- * @param buf input buffer, 16 byte aligned
- * @param buf_size the input buffer size
- * @return 0 if successful, -1 if not.
- *)
-
-  function avcodec_decode_audio (avctx: PAVCodecContext; samples: Pword;
-                         frame_size_ptr: pinteger;
-                         buf: pchar; buf_size: integer): integer;
-    cdecl; external av__codec;
-(* decode a frame.
- * @param buf bitstream buffer, must be FF_INPUT_BUFFER_PADDING_SIZE larger then the actual read bytes
- * because some optimized bitstream readers read 32 or 64 bit at once and could read over the end
- * @param buf_size the size of the buffer in bytes
- * @param got_picture_ptr zero if no frame could be decompressed, Otherwise, it is non zero
- * @return -1 if error, otherwise return the number of
- * bytes used. *)
-  function avcodec_decode_video (avctx: PAVCodecContext; picture: PAVFrame;
-                         got_picture_ptr: pinteger;
-                         buf: PByte; buf_size: integer): integer;
-    cdecl; external av__codec;
-
-  function avcodec_decode_subtitle (avctx: PAVCodecContext; sub: PAVSubtitle;
-                            got_sub_ptr: pinteger;
-                            const buf: pchar; buf_size: integer): integer;
-    cdecl; external av__codec;
-
-  {$IFNDEF FPC}
-  function avcodec_parse_frame (avctx: PAVCodecContext; pdata: PPointer;
-                        data_size_ptr: pinteger;
-                        buf: pchar; buf_size: integer): integer;
-    cdecl; external av__codec;
-  {$ENDIF}
-  function avcodec_encode_audio (avctx: PAVCodecContext; buf: PByte;
-                        buf_size: integer; const samples: Pword): integer;
-    cdecl; external av__codec;
-
-  (* avcodec_encode_video: -1 if error *)
-  function avcodec_encode_video (avctx: PAVCodecContext; buf: pointer;
-                        buf_size: integer; pict: PAVFrame): integer;
-    cdecl; external av__codec;
-  function avcodec_encode_subtitle (avctx: PAVCodecContext; buf: pchar;
-                        buf_size: integer; const sub: PAVSubtitle): integer;
-    cdecl; external av__codec;
-  function avcodec_close (avctx: PAVCodecContext): integer;
-    cdecl; external av__codec;
-
-  procedure avcodec_register_all ();
-    cdecl; external av__codec;
-
-  procedure avcodec_flush_buffers (avctx: PAVCodecContext);
-    cdecl; external av__codec;
-  procedure avcodec_default_free_buffers (s: PAVCodecContext);
-    cdecl; external av__codec;
-
-(* misc usefull functions *)
-
-(**
- * returns a single letter to describe the picture type
- *)
-  function av_get_pict_type_char (pict_type: integer): char;
-    cdecl; external av__codec;
-
-
-(**
- * returns codec bits per sample
- *)
-function av_get_bits_per_sample (codec_id: TCodecID): integer;
-  cdecl; external av__codec;
-
-const
-  AV_PARSER_PTS_NB      = 4;
-  PARSER_FLAG_COMPLETE_FRAMES = $0001;
-
-type
-  PAVCodecParserContext = ^TAVCodecParserContext;
-  PAVCodecParser = ^TAVCodecParser;
-
-  TAVCodecParserContext = record
-    priv_data: pointer;
-    parser: PAVCodecParser;
-    frame_offset: int64; (* offset of the current frame *)
-    cur_offset: int64; (* current offset (incremented by each av_parser_parse()) *)
-    last_frame_offset: int64; (* offset of the last frame *)
-    (* video info *)
-    pict_type: integer; (* XXX: put it back in AVCodecContext *)
-    repeat_pict: integer; (* XXX: put it back in AVCodecContext *)
-    pts: int64;     (* pts of the current frame *)
-    dts: int64;     (* dts of the current frame *)
-
-    (* private data *)
-    last_pts: int64;
-    last_dts: int64;
-    fetch_timestamp: integer;
-
-    cur_frame_start_index: integer;
-    cur_frame_offset: array [0..AV_PARSER_PTS_NB - 1] of int64;
-    cur_frame_pts: array [0..AV_PARSER_PTS_NB - 1] of int64;
-    cur_frame_dts: array [0..AV_PARSER_PTS_NB - 1] of int64;
-
-    flags: integer;
-  end;
-
-  TAVCodecParser = record
-    codec_ids: array [0..4] of integer; (* several codec IDs are permitted *)
-    priv_data_size: integer;
-    parser_init: function (s: PAVCodecParserContext): integer; cdecl;
-    parser_parse: function (s: PAVCodecParserContext; avctx: PAVCodecContext;
-                            poutbuf: PPointer; poutbuf_size: PInteger;
-                            const buf: pchar; buf_size: integer): integer; cdecl;
-    parser_close: procedure (s: PAVCodecParserContext); cdecl;
-    split: function (avctx: PAVCodecContext; const buf: pchar;
-                     buf_size: integer): integer; cdecl;
-    next: PAVCodecParser;
-  end;
-
-  procedure av_register_codec_parser (parser: PAVCodecParser); cdecl;
-    cdecl; external av__codec;
-
-  function av_parser_init (codec_id: integer): PAVCodecParserContext;
-    cdecl; external av__codec;
-
-  function av_parser_parse (s: PAVCodecParserContext;
-                    avctx: PAVCodecContext;
-                    poutbuf: PPointer; poutbuf_size: pinteger;
-                    const buf: pchar; buf_size: integer;
-                    pts: int64; dts: int64): integer;
-    cdecl; external av__codec;
-  function av_parser_change (s: PAVCodecParserContext;
-                     avctx: PAVCodecContext;
-                     poutbuf: PPointer; poutbuf_size: PInteger;
-                     const buf: pchar; buf_size: integer; keyframe: integer): integer;
-    cdecl; external av__codec;
-  procedure av_parser_close (s: PAVCodecParserContext);
-    cdecl; external av__codec;
-
-type
-  PAVBitStreamFilterContext = ^TAVBitStreamFilterContext;
-  PAVBitStreamFilter = ^TAVBitStreamFilter;
-
-  TAVBitStreamFilterContext = record
-    priv_data: pointer;
-    filter: PAVBitStreamFilter;
-    parser: PAVCodecParserContext;
-    next: PAVBitStreamFilterContext;
-  end;
-
-  TAVBitStreamFilter = record
-    name: pchar;
-    priv_data_size: integer;
-    filter: function (bsfc: PAVBitStreamFilterContext;
-                  avctx: PAVCodecContext; args: pchar;
-                  poutbuf: PPointer; poutbuf_size: PInteger;
-                  buf: PByte; buf_size: integer; keyframe: integer): integer; cdecl;
-    next: PAVBitStreamFilter;
-  end;
-
-procedure av_register_bitstream_filter (bsf: PAVBitStreamFilter);
-  cdecl; external av__codec;
-
-function av_bitstream_filter_init (name: pchar): PAVBitStreamFilterContext;
-  cdecl; external av__codec;
-
-function av_bitstream_filter_filter (bsfc: PAVBitStreamFilterContext;
-                               avctx: PAVCodecContext; args: pchar;
-                               poutbuf: PPointer; poutbuf_size: PInteger;
-                               buf: PByte; buf_size: integer; keyframe: integer): integer;
-  cdecl; external av__codec;
-procedure av_bitstream_filter_close (bsf: PAVBitStreamFilterContext);
-  cdecl; external av__codec;
-
-
-(* memory *)
-  procedure av_fast_realloc (ptr: pointer; size: PCardinal; min_size: Cardinal);
-    cdecl; external av__codec;
-(* for static data only *)
-(* call av_free_static to release all staticaly allocated tables *)
-  procedure  av_free_static ();
-    cdecl; external av__codec;
-
-  procedure av_mallocz_static(size: cardinal);
-    cdecl; external av__codec;
-
-  procedure av_realloc_static(ptr: pointer; size: Cardinal);
-    cdecl; external av__codec;
-
-  procedure img_copy (dst: PAVPicture; const src: PAVPicture;
-                      pix_fmt: TAVPixelFormat; width: integer; height: integer);
-    cdecl; external av__codec;
-
-  function img_crop (dst: PAVPicture; const src: PAVPicture;
-             pix_fmt: TAVPixelFormat; top_band, left_band: integer): integer;
-    cdecl; external av__codec;
-
-  function img_pad (dst: PAVPicture; const src: PAVPicture; height, width: integer;
-                    pix_fmt: TAVPixelFormat; padtop, padbottom, padleft, padright: integer;
-                    color: PInteger): integer;
-    cdecl; external av__codec;
-
-implementation
-
-end.
+                                                                              (*
+ * copyright (c) 2001 Fabrice Bellard
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+                                                                              *)
+unit avcodec;
+
+interface
+
+uses
+  {$IFDEF win32}
+  windows,
+  {$ENDIF}
+  avutil,
+  rational,
+  opt;
+
+const
+  {$IFDEF win32}
+    av__format = 'avformat-50.dll';
+  {$ELSE}
+    av__format = 'libavformat.so';   // .0d
+  {$ENDIF}
+
+
+  LIBAVUTIL_VERSION_INT   =  ((51 shl 16) + (16 shl 8) + 0);
+  LIBAVUTIL_VERSION       = '51.16.0';
+  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;
+
+  AV_NOPTS_VALUE: int64   = $8000000000000000;
+  AV_TIME_BASE            = 1000000;
+
+type
+  TCodecID = (
+    CODEC_ID_NONE, CODEC_ID_MPEG1VIDEO,
+    CODEC_ID_MPEG2VIDEO, //* prefered ID for MPEG Video 1 or 2 decoding */
+    CODEC_ID_MPEG2VIDEO_XVMC, CODEC_ID_H261, CODEC_ID_H263, CODEC_ID_RV10,
+    CODEC_ID_RV20, CODEC_ID_MJPEG, CODEC_ID_MJPEGB, CODEC_ID_LJPEG,
+    CODEC_ID_SP5X, CODEC_ID_JPEGLS, CODEC_ID_MPEG4, CODEC_ID_RAWVIDEO,
+    CODEC_ID_MSMPEG4V1, CODEC_ID_MSMPEG4V2, CODEC_ID_MSMPEG4V3,
+    CODEC_ID_WMV1, CODEC_ID_WMV2, CODEC_ID_H263P,
+    CODEC_ID_H263I, CODEC_ID_FLV1, CODEC_ID_SVQ1, CODEC_ID_SVQ3,
+    CODEC_ID_DVVIDEO, CODEC_ID_HUFFYUV, CODEC_ID_CYUV, CODEC_ID_H264,
+    CODEC_ID_INDEO3, CODEC_ID_VP3, CODEC_ID_THEORA, CODEC_ID_ASV1,
+    CODEC_ID_ASV2, CODEC_ID_FFV1, CODEC_ID_4XM, CODEC_ID_VCR1,
+    CODEC_ID_CLJR, CODEC_ID_MDEC, CODEC_ID_ROQ, CODEC_ID_INTERPLAY_VIDEO,
+    CODEC_ID_XAN_WC3, CODEC_ID_XAN_WC4, CODEC_ID_RPZA, CODEC_ID_CINEPAK,
+    CODEC_ID_WS_VQA, CODEC_ID_MSRLE, CODEC_ID_MSVIDEO1, CODEC_ID_IDCIN,
+    CODEC_ID_8BPS, CODEC_ID_SMC, CODEC_ID_FLIC, CODEC_ID_TRUEMOTION1,
+    CODEC_ID_VMDVIDEO, CODEC_ID_MSZH, CODEC_ID_ZLIB, CODEC_ID_QTRLE,
+    CODEC_ID_SNOW, CODEC_ID_TSCC, CODEC_ID_ULTI, CODEC_ID_QDRAW,
+    CODEC_ID_VIXL, CODEC_ID_QPEG, CODEC_ID_XVID, CODEC_ID_PNG,
+    CODEC_ID_PPM, CODEC_ID_PBM, CODEC_ID_PGM, CODEC_ID_PGMYUV,
+    CODEC_ID_PAM, CODEC_ID_FFVHUFF, CODEC_ID_RV30, CODEC_ID_RV40,
+    CODEC_ID_VC1, CODEC_ID_WMV3, CODEC_ID_LOCO, CODEC_ID_WNV1,
+    CODEC_ID_AASC, CODEC_ID_INDEO2, CODEC_ID_FRAPS, CODEC_ID_TRUEMOTION2,
+    CODEC_ID_BMP, CODEC_ID_CSCD, CODEC_ID_MMVIDEO, CODEC_ID_ZMBV,
+    CODEC_ID_AVS, CODEC_ID_SMACKVIDEO, CODEC_ID_NUV, CODEC_ID_KMVC,
+    CODEC_ID_FLASHSV, CODEC_ID_CAVS, CODEC_ID_JPEG2000, CODEC_ID_VMNC,
+    CODEC_ID_VP5, CODEC_ID_VP6, CODEC_ID_VP6F,
+
+    //* various pcm "codecs" */
+    CODEC_ID_PCM_S16LE= $10000,  CODEC_ID_PCM_S16BE, CODEC_ID_PCM_U16LE,
+    CODEC_ID_PCM_U16BE, CODEC_ID_PCM_S8, CODEC_ID_PCM_U8, CODEC_ID_PCM_MULAW,
+    CODEC_ID_PCM_ALAW, CODEC_ID_PCM_S32LE, CODEC_ID_PCM_S32BE, CODEC_ID_PCM_U32LE,
+    CODEC_ID_PCM_U32BE, CODEC_ID_PCM_S24LE, CODEC_ID_PCM_S24BE, CODEC_ID_PCM_U24LE,
+    CODEC_ID_PCM_U24BE, CODEC_ID_PCM_S24DAUD,
+    //* various adpcm codecs */
+    CODEC_ID_ADPCM_IMA_QT= $11000, CODEC_ID_ADPCM_IMA_WAV, CODEC_ID_ADPCM_IMA_DK3,
+    CODEC_ID_ADPCM_IMA_DK4, CODEC_ID_ADPCM_IMA_WS, CODEC_ID_ADPCM_IMA_SMJPEG,
+    CODEC_ID_ADPCM_MS, CODEC_ID_ADPCM_4XM, CODEC_ID_ADPCM_XA, CODEC_ID_ADPCM_ADX,
+    CODEC_ID_ADPCM_EA, CODEC_ID_ADPCM_G726, CODEC_ID_ADPCM_CT, CODEC_ID_ADPCM_SWF,
+    CODEC_ID_ADPCM_YAMAHA, CODEC_ID_ADPCM_SBPRO_4, CODEC_ID_ADPCM_SBPRO_3,
+    CODEC_ID_ADPCM_SBPRO_2,
+    //* AMR */
+    CODEC_ID_AMR_NB= $12000, CODEC_ID_AMR_WB,
+    //* RealAudio codecs*/
+    CODEC_ID_RA_144= $13000, CODEC_ID_RA_288,
+    //* various DPCM codecs */
+    CODEC_ID_ROQ_DPCM= $14000, CODEC_ID_INTERPLAY_DPCM, CODEC_ID_XAN_DPCM,
+    CODEC_ID_SOL_DPCM, CODEC_ID_MP2= $15000,
+    CODEC_ID_MP3, //* prefered ID for MPEG Audio layer 1, 2 or3 decoding */
+    CODEC_ID_AAC, CODEC_ID_MPEG4AAC, CODEC_ID_AC3, CODEC_ID_DTS, CODEC_ID_VORBIS,
+    CODEC_ID_DVAUDIO, CODEC_ID_WMAV1, CODEC_ID_WMAV2, CODEC_ID_MACE3,
+    CODEC_ID_MACE6, CODEC_ID_VMDAUDIO, CODEC_ID_SONIC, CODEC_ID_SONIC_LS,
+    CODEC_ID_FLAC, CODEC_ID_MP3ADU, CODEC_ID_MP3ON4, CODEC_ID_SHORTEN,
+    CODEC_ID_ALAC, CODEC_ID_WESTWOOD_SND1, CODEC_ID_GSM, CODEC_ID_QDM2,
+    CODEC_ID_COOK, CODEC_ID_TRUESPEECH, CODEC_ID_TTA, CODEC_ID_SMACKAUDIO,
+    CODEC_ID_QCELP, CODEC_ID_WAVPACK,
+    //* subtitle codecs */
+    CODEC_ID_DVD_SUBTITLE= $17000, CODEC_ID_DVB_SUBTITLE,
+
+    CODEC_ID_MPEG2TS= $20000 //* _FAKE_ codec to indicate a raw MPEG2 transport
+                              //  stream (only used by libavformat) */
+  );
+
+//* CODEC_ID_MP3LAME is absolete */
+const
+  CODEC_ID_MP3LAME = CODEC_ID_MP3;
+
+  AVPALETTE_SIZE = 1024;
+  AVPALETTE_COUNT = 256;
+
+type
+  TCodecType = (
+    CODEC_TYPE_UNKNOWN = -1,
+    CODEC_TYPE_VIDEO,
+    CODEC_TYPE_AUDIO,
+    CODEC_TYPE_DATA,
+    CODEC_TYPE_SUBTITLE
+  );
+
+//* currently unused, may be used if 24/32 bits samples ever supported */
+//* all in native endian */
+  TSampleFormat = (
+    SAMPLE_FMT_NONE = -1,
+    SAMPLE_FMT_U8,              ///< unsigned 8 bits
+    SAMPLE_FMT_S16,             ///< signed 16 bits
+    SAMPLE_FMT_S24,             ///< signed 24 bits
+    SAMPLE_FMT_S32,             ///< signed 32 bits
+    SAMPLE_FMT_FLT             ///< float
+  );
+
+const
+//* in bytes */
+  AVCODEC_MAX_AUDIO_FRAME_SIZE = 192000; // 1 second of 48khz 32bit audio
+
+(**
+ * Required number of additionally allocated bytes at the end of the input bitstream for decoding.
+ * this is mainly needed because some optimized bitstream readers read
+ * 32 or 64 bit at once and could read over the end<br>
+ * Note, if the first 23 bits of the additional bytes are not 0 then damaged
+ * MPEG bitstreams could cause overread and segfault
+ *)
+  FF_INPUT_BUFFER_PADDING_SIZE = 8;
+
+(**
+ * minimum encoding buffer size.
+ * used to avoid some checks during header writing
+ *)
+  FF_MIN_BUFFER_SIZE = 16384;
+
+type
+//* motion estimation type, EPZS by default */
+  TMotion_Est_ID = (
+    ME_ZERO = 1,
+    ME_FULL,
+    ME_LOG,
+    ME_PHODS,
+    ME_EPZS,
+    ME_X1,
+    ME_HEX,
+    ME_UMH,
+    ME_ITER
+  );
+
+  TAVDiscard = (
+//we leave some space between them for extensions (drop some keyframes for intra only or drop just some bidir frames)
+    AVDISCARD_NONE   = -16, ///< discard nothing
+    AVDISCARD_DEFAULT=  0, ///< discard useless packets like 0 size packets in avi
+    AVDISCARD_NONREF =  8, ///< discard all non reference
+    AVDISCARD_BIDIR  = 16, ///< discard all bidirectional frames
+    AVDISCARD_NONKEY = 32, ///< discard all frames except keyframes
+    AVDISCARD_ALL    = 48, ///< discard all
+    AVDISCARD_FUCK = $FFFFFF
+  );
+
+  PRcOverride = ^TRcOverride;
+  TRcOverride = record {16}
+    start_frame: integer;
+    end_frame: integer;
+    qscale: integer; // if this is 0 then quality_factor will be used instead
+    quality_factor: single;
+  end;
+
+const
+  FF_MAX_B_FRAMES = 16;
+
+(* encoding support
+   these flags can be passed in AVCodecContext.flags before initing
+   Note: not everything is supported yet.
+*)
+
+  CODEC_FLAG_QSCALE = $0002;  ///< use fixed qscale
+  CODEC_FLAG_4MV    = $0004;  ///< 4 MV per MB allowed / Advanced prediction for H263
+  CODEC_FLAG_QPEL   = $0010;  ///< use qpel MC
+  CODEC_FLAG_GMC    = $0020;  ///< use GMC
+  CODEC_FLAG_MV0    = $0040;  ///< always try a MB with MV=<0,0>
+  CODEC_FLAG_PART   = $0080;  ///< use data partitioning
+//* parent program gurantees that the input for b-frame containing streams is not written to
+//   for at least s->max_b_frames+1 frames, if this is not set than the input will be copied */
+  CODEC_FLAG_INPUT_PRESERVED = $0100;
+  CODEC_FLAG_PASS1 = $0200;   ///< use internal 2pass ratecontrol in first  pass mode
+  CODEC_FLAG_PASS2 = $0400;   ///< use internal 2pass ratecontrol in second pass mode
+  CODEC_FLAG_EXTERN_HUFF = $1000; ///< use external huffman table (for mjpeg)
+  CODEC_FLAG_GRAY  = $2000;   ///< only decode/encode grayscale
+  CODEC_FLAG_EMU_EDGE = $4000; ///< don't draw edges
+  CODEC_FLAG_PSNR           = $8000; ///< error[?] variables will be set during encoding
+  CODEC_FLAG_TRUNCATED  = $00010000; //** input bitstream might be truncated at a random location instead
+                                   //         of only at frame boundaries */
+  CODEC_FLAG_NORMALIZE_AQP  = $00020000; ///< normalize adaptive quantization
+  CODEC_FLAG_INTERLACED_DCT = $00040000; ///< use interlaced dct
+  CODEC_FLAG_LOW_DELAY      = $00080000; ///< force low delay
+  CODEC_FLAG_ALT_SCAN       = $00100000; ///< use alternate scan
+  CODEC_FLAG_TRELLIS_QUANT  = $00200000; ///< use trellis quantization
+  CODEC_FLAG_GLOBAL_HEADER  = $00400000; ///< place global headers in extradata instead of every keyframe
+  CODEC_FLAG_BITEXACT       = $00800000; ///< use only bitexact stuff (except (i)dct)
+//* Fx : Flag for h263+ extra options */
+  CODEC_FLAG_H263P_AIC      = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction (remove this)
+  CODEC_FLAG_AC_PRED        = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction
+  CODEC_FLAG_H263P_UMV      = $02000000; ///< Unlimited motion vector
+  CODEC_FLAG_CBP_RD         = $04000000; ///< use rate distortion optimization for cbp
+  CODEC_FLAG_QP_RD          = $08000000; ///< use rate distortion optimization for qp selectioon
+  CODEC_FLAG_H263P_AIV      = $00000008; ///< H263 Alternative inter vlc
+  CODEC_FLAG_OBMC           = $00000001; ///< OBMC
+  CODEC_FLAG_LOOP_FILTER    = $00000800; ///< loop filter
+  CODEC_FLAG_H263P_SLICE_STRUCT = $10000000;
+  CODEC_FLAG_INTERLACED_ME  = $20000000; ///< interlaced motion estimation
+  CODEC_FLAG_SVCD_SCAN_OFFSET = $40000000; ///< will reserve space for SVCD scan offset user data
+  CODEC_FLAG_CLOSED_GOP     = $80000000;
+  CODEC_FLAG2_FAST          = $00000001; ///< allow non spec compliant speedup tricks
+  CODEC_FLAG2_STRICT_GOP    = $00000002; ///< strictly enforce GOP size
+  CODEC_FLAG2_NO_OUTPUT     = $00000004; ///< skip bitstream encoding
+  CODEC_FLAG2_LOCAL_HEADER  = $00000008; ///< place global headers at every keyframe instead of in extradata
+  CODEC_FLAG2_BPYRAMID      = $00000010; ///< H.264 allow b-frames to be used as references
+  CODEC_FLAG2_WPRED         = $00000020; ///< H.264 weighted biprediction for b-frames
+  CODEC_FLAG2_MIXED_REFS    = $00000040; ///< H.264 multiple references per partition
+  CODEC_FLAG2_8X8DCT        = $00000080; ///< H.264 high profile 8x8 transform
+  CODEC_FLAG2_FASTPSKIP     = $00000100; ///< H.264 fast pskip
+  CODEC_FLAG2_AUD           = $00000200; ///< H.264 access unit delimiters
+  CODEC_FLAG2_BRDO          = $00000400; ///< b-frame rate-distortion optimization
+  CODEC_FLAG2_INTRA_VLC     = $00000800; ///< use MPEG-2 intra VLC table
+  CODEC_FLAG2_MEMC_ONLY     = $00001000; ///< only do ME/MC (I frames -> ref, P frame -> ME+MC)
+
+(* Unsupported options :
+ *              Syntax Arithmetic coding (SAC)
+ *              Reference Picture Selection
+ *              Independant Segment Decoding */
+/* /Fx */
+/* codec capabilities *)
+
+const
+  CODEC_CAP_DRAW_HORIZ_BAND = $001; ///< decoder can use draw_horiz_band callback
+(**
+ * Codec uses get_buffer() for allocating buffers.
+ * direct rendering method 1 *)
+  CODEC_CAP_DR1             = $002;
+(* if 'parse_only' field is true, then avcodec_parse_frame() can be   used *)
+  CODEC_CAP_PARSE_ONLY      = $004;
+  CODEC_CAP_TRUNCATED       = $008;
+//* codec can export data for HW decoding (XvMC) */
+  CODEC_CAP_HWACCEL         = $010;
+
+(**
+ * codec has a non zero delay and needs to be feeded with NULL at the end to get the delayed data.
+ * if this is not set, the codec is guranteed to never be feeded with NULL data *)
+  CODEC_CAP_DELAY           = $0020;
+(**
+ * Codec can be fed a final frame with a smaller size.
+ * This can be used to prevent truncation of the last audio samples. *)
+  CODEC_CAP_SMALL_LAST_FRAME = $0040;
+
+//the following defines may change, don't expect compatibility if you use them
+   MB_TYPE_INTRA4x4   = $001;
+   MB_TYPE_INTRA16x16 = $002; //FIXME h264 specific
+   MB_TYPE_INTRA_PCM  = $004; //FIXME h264 specific
+   MB_TYPE_16x16      = $008;
+   MB_TYPE_16x8       = $010;
+   MB_TYPE_8x16       = $020;
+   MB_TYPE_8x8        = $040;
+   MB_TYPE_INTERLACED = $080;
+   MB_TYPE_DIRECT2     = $100; //FIXME
+   MB_TYPE_ACPRED     = $200;
+   MB_TYPE_GMC        = $400;
+   MB_TYPE_SKIP       = $800;
+   MB_TYPE_P0L0       = $1000;
+   MB_TYPE_P1L0       = $2000;
+   MB_TYPE_P0L1       = $4000;
+   MB_TYPE_P1L1       = $8000;
+   MB_TYPE_L0         = (MB_TYPE_P0L0 or MB_TYPE_P1L0);
+   MB_TYPE_L1         = (MB_TYPE_P0L1 or MB_TYPE_P1L1);
+   MB_TYPE_L0L1       = (MB_TYPE_L0   or MB_TYPE_L1);
+   MB_TYPE_QUANT      = $0010000;
+   MB_TYPE_CBP        = $0020000;
+//Note bits 24-31 are reserved for codec specific use (h264 ref0, mpeg1 0mv, ...)
+
+type
+(**
+ * Pan Scan area.
+ * this specifies the area which should be displayed. Note there may be multiple such areas for one frame *)
+  PAVPanScan = ^TAVPanScan;
+  TAVPanScan = record {24}
+    (*** id.
+     * - encoding: set by user.
+     * - decoding: set by lavc     *)
+    id: integer;
+
+    (*** width and height in 1/16 pel
+     * - encoding: set by user.
+     * - decoding: set by lavc     *)
+    width: integer;
+    height: integer;
+
+    (*** position of the top left corner in 1/16 pel for up to 3 fields/frames.
+     * - encoding: set by user.
+     * - decoding: set by lavc     *)
+    position: array [0..2] of array [0..1] of smallint;
+  end;
+
+const
+  FF_QSCALE_TYPE_MPEG1	= 0;
+  FF_QSCALE_TYPE_MPEG2	= 1;
+
+  FF_BUFFER_TYPE_INTERNAL = 1;
+  FF_BUFFER_TYPE_USER     = 2; ///< Direct rendering buffers (image is (de)allocated by user)
+  FF_BUFFER_TYPE_SHARED   = 4; ///< buffer from somewhere else, don't dealloc image (data/base), all other tables are not shared
+  FF_BUFFER_TYPE_COPY     = 8; ///< just a (modified) copy of some other buffer, don't dealloc anything
+
+
+  FF_I_TYPE = 1; // Intra
+  FF_P_TYPE = 2; // Predicted
+  FF_B_TYPE = 3; // Bi-dir predicted
+  FF_S_TYPE = 4; // S(GMC)-VOP MPEG4
+  FF_SI_TYPE = 5;
+  FF_SP_TYPE = 6;
+
+  FF_BUFFER_HINTS_VALID    = $01; // Buffer hints value is meaningful (if 0 ignore)
+  FF_BUFFER_HINTS_READABLE = $02; // Codec will read from buffer
+  FF_BUFFER_HINTS_PRESERVE = $04; // User must not alter buffer content
+  FF_BUFFER_HINTS_REUSABLE = $08; // Codec will reuse the buffer (update)
+
+type
+  (*** Audio Video Frame. *)
+  PAVFrame = ^TAVFrame;
+  TAVFrame = record {200}
+    (*** pointer to the picture planes.
+     * this might be different from the first allocated byte *)
+    data: array [0..3] of pointer;
+    linesize: array [0..3] of integer;
+    (*** pointer to the first allocated byte of the picture. can be used in get_buffer/release_buffer
+     * this isn't used by lavc unless the default get/release_buffer() is used*)
+    base: array [0..3] of pchar;
+    (*** 1 -> keyframe, 0-> not *)
+    key_frame: integer;
+    (*** picture type of the frame, see ?_TYPE below.*)
+    pict_type: integer;
+    (*** presentation timestamp in time_base units (time when frame should be shown to user)
+     * if AV_NOPTS_VALUE then frame_rate = 1/time_base will be assumed*)
+    pts: int64;
+    (*** picture number in bitstream order.*)
+    coded_picture_number: integer;
+    (*** picture number in display order.*)
+    display_picture_number: integer;
+    (*** quality (between 1 (good) and FF_LAMBDA_MAX (bad)) *)
+    quality: integer;
+    (*** buffer age (1->was last buffer and dint change, 2->..., ...).*)
+    age: integer;
+    (*** is this picture used as reference*)
+    reference: integer;
+    (*** QP table*)
+    qscale_table: pchar;
+    (*** QP store stride*)
+    qstride: integer;
+    (*** mbskip_table[mb]>=1 if MB didnt change*)
+    mbskip_table: pchar;
+    (**
+     * Motion vector table.
+     * @code
+     * example:
+     * int mv_sample_log2= 4 - motion_subsample_log2;
+     * int mb_width= (width+15)>>4;
+     * int mv_stride= (mb_width << mv_sample_log2) + 1;
+     * motion_val[direction][x + y*mv_stride][0->mv_x, 1->mv_y];
+     * @endcode
+     * - encoding: set by user
+     * - decoding: set by lavc     *)
+    motion_val: array [0..1] of pointer;
+    (*** Macroblock type table
+     * mb_type_base + mb_width + 2 *)
+    mb_type: PCardinal;
+    (*** log2 of the size of the block which a single vector in motion_val represents:
+     * (4->16x16, 3->8x8, 2-> 4x4, 1-> 2x2)*)
+    motion_subsample_log2: byte;
+    (*** for some private data of the user*)
+    opaque: pointer;
+    (*** error*)
+    error: array [0..3] of int64;
+    (*** type of the buffer (to keep track of who has to dealloc data[*])
+     * Note: user allocated (direct rendering) & internal buffers can not coexist currently*)
+    _type: integer;
+    (*** when decoding, this signal how much the picture must be delayed.
+     * extra_delay = repeat_pict / (2*fps)*)
+    repeat_pict: integer;
+    qscale_type: Integer;
+    (*** The content of the picture is interlaced.*)
+    interlaced_frame: Integer;
+    (*** if the content is interlaced, is top field displayed first.*)
+    top_field_first: integer;
+    (*** Pan scan.*)
+    pan_scan: PAVPanScan;
+    (*** tell user application that palette has changed from previous frame.*)
+    palette_has_changed: integer;
+    (*** Codec suggestion on buffer type if != 0
+     * - decoding: set by lavc (before get_buffer() call))*)
+    buffer_hints: integer;
+    (*** DCT coeffitients*)
+    dct_coeff: PSmallInt;
+    (*** Motion referece frame index*)
+    ref_index: array [0..1] of pchar;
+  end;
+
+const
+  DEFAULT_FRAME_RATE_BASE = 1001000;
+
+  FF_BUG_AUTODETECT       = 1;  ///< autodetection
+  FF_BUG_OLD_MSMPEG4      = 2;
+  FF_BUG_XVID_ILACE       = 4;
+  FF_BUG_UMP4             = 8;
+  FF_BUG_NO_PADDING       = 16;
+  FF_BUG_AMV              = 32;
+  FF_BUG_AC_VLC           = 0;  ///< will be removed, libavcodec can now handle these non compliant files by default
+  FF_BUG_QPEL_CHROMA      = 64;
+  FF_BUG_STD_QPEL         = 128;
+  FF_BUG_QPEL_CHROMA2     = 256;
+  FF_BUG_DIRECT_BLOCKSIZE = 512;
+  FF_BUG_EDGE             = 1024;
+  FF_BUG_HPEL_CHROMA      = 2048;
+  FF_BUG_DC_CLIP          = 4096;
+  FF_BUG_MS               = 8192; ///< workaround various bugs in microsofts broken decoders
+
+  FF_COMPLIANCE_VERY_STRICT   = 2; ///< strictly conform to a older more strict version of the spec or reference software
+  FF_COMPLIANCE_STRICT        = 1; ///< strictly conform to all the things in the spec no matter what consequences
+  FF_COMPLIANCE_NORMAL        = 0;
+  FF_COMPLIANCE_INOFFICIAL    = -1; ///< allow inofficial extensions
+  FF_COMPLIANCE_EXPERIMENTAL  = -2; ///< allow non standarized experimental things
+
+  FF_ER_CAREFUL         = 1;
+  FF_ER_COMPLIANT       = 2;
+  FF_ER_AGGRESSIVE      = 3;
+  FF_ER_VERY_AGGRESSIVE = 4;
+
+  FF_DCT_AUTO    = 0;
+  FF_DCT_FASTINT = 1;
+  FF_DCT_INT     = 2;
+  FF_DCT_MMX     = 3;
+  FF_DCT_MLIB    = 4;
+  FF_DCT_ALTIVEC = 5;
+  FF_DCT_FAAN    = 6;
+
+  FF_IDCT_AUTO         = 0;
+  FF_IDCT_INT          = 1;
+  FF_IDCT_SIMPLE       = 2;
+  FF_IDCT_SIMPLEMMX    = 3;
+  FF_IDCT_LIBMPEG2MMX  = 4;
+  FF_IDCT_PS2          = 5;
+  FF_IDCT_MLIB         = 6;
+  FF_IDCT_ARM          = 7;
+  FF_IDCT_ALTIVEC      = 8;
+  FF_IDCT_SH4          = 9;
+  FF_IDCT_SIMPLEARM    = 10;
+  FF_IDCT_H264         = 11;
+  FF_IDCT_VP3          = 12;
+  FF_IDCT_IPP          = 13;
+  FF_IDCT_XVIDMMX      = 14;
+
+  FF_EC_GUESS_MVS   = 1;
+  FF_EC_DEBLOCK     = 2;
+
+  FF_MM_FORCE	      = $80000000; (* force usage of selected flags (OR) *)
+    (* lower 16 bits - CPU features *)
+
+  FF_MM_MMX	        = $0001; (* standard MMX *)
+  FF_MM_3DNOW	      = $0004; (* AMD 3DNOW *)
+  FF_MM_MMXEXT	    = $0002; (* SSE integer functions or AMD MMX ext *)
+  FF_MM_SSE	        = $0008; (* SSE functions *)
+  FF_MM_SSE2	      = $0010; (* PIV SSE2 functions *)
+  FF_MM_3DNOWEXT	  = $0020; (* AMD 3DNowExt *)
+  FF_MM_IWMMXT	    = $0100; (* XScale IWMMXT *)
+
+  FF_PRED_LEFT   = 0;
+  FF_PRED_PLANE  = 1;
+  FF_PRED_MEDIAN = 2;
+
+  FF_DEBUG_PICT_INFO    = 1;
+  FF_DEBUG_RC           = 2;
+  FF_DEBUG_BITSTREAM    = 4;
+  FF_DEBUG_MB_TYPE      = 8;
+  FF_DEBUG_QP           = 16;
+  FF_DEBUG_MV           = 32;
+  FF_DEBUG_DCT_COEFF    = $00000040;
+  FF_DEBUG_SKIP         = $00000080;
+  FF_DEBUG_STARTCODE    = $00000100;
+  FF_DEBUG_PTS          = $00000200;
+  FF_DEBUG_ER           = $00000400;
+  FF_DEBUG_MMCO         = $00000800;
+  FF_DEBUG_BUGS         = $00001000;
+  FF_DEBUG_VIS_QP       = $00002000;
+  FF_DEBUG_VIS_MB_TYPE  = $00004000;
+
+  FF_DEBUG_VIS_MV_P_FOR  = $00000001; //visualize forward predicted MVs of P frames
+  FF_DEBUG_VIS_MV_B_FOR  = $00000002; //visualize forward predicted MVs of B frames
+  FF_DEBUG_VIS_MV_B_BACK = $00000004; //visualize backward predicted MVs of B frames
+
+  FF_CMP_SAD  = 0;
+  FF_CMP_SSE  = 1;
+  FF_CMP_SATD = 2;
+  FF_CMP_DCT  = 3;
+  FF_CMP_PSNR = 4;
+  FF_CMP_BIT  = 5;
+  FF_CMP_RD   = 6;
+  FF_CMP_ZERO = 7;
+  FF_CMP_VSAD = 8;
+  FF_CMP_VSSE = 9;
+  FF_CMP_NSSE = 10;
+  FF_CMP_W53  = 11;
+  FF_CMP_W97  = 12;
+  FF_CMP_DCTMAX = 13;
+  FF_CMP_CHROMA = 256;
+
+  FF_DTG_AFD_SAME         = 8;
+  FF_DTG_AFD_4_3          = 9;
+  FF_DTG_AFD_16_9         = 10;
+  FF_DTG_AFD_14_9         = 11;
+  FF_DTG_AFD_4_3_SP_14_9  = 13;
+  FF_DTG_AFD_16_9_SP_14_9 = 14;
+  FF_DTG_AFD_SP_4_3       = 15;
+
+  FF_DEFAULT_QUANT_BIAS   = 999999;
+
+  FF_LAMBDA_SHIFT   = 7;
+  FF_LAMBDA_SCALE   = (1 shl FF_LAMBDA_SHIFT);
+  FF_QP2LAMBDA      = 118; ///< factor to convert from H.263 QP to lambda
+  FF_LAMBDA_MAX     = (256 * 128 - 1);
+
+  FF_QUALITY_SCALE  = FF_LAMBDA_SCALE; //FIXME maybe remove
+
+  FF_CODER_TYPE_VLC   = 0;
+  FF_CODER_TYPE_AC    = 1;
+
+  SLICE_FLAG_CODED_ORDER    = $0001; ///< draw_horiz_band() is called in coded order instead of display
+  SLICE_FLAG_ALLOW_FIELD    = $0002; ///< allow draw_horiz_band() with field slices (MPEG2 field pics)
+  SLICE_FLAG_ALLOW_PLANE    = $0004; ///< allow draw_horiz_band() with 1 component at a time (SVQ1)
+
+  FF_MB_DECISION_SIMPLE = 0;        ///< uses mb_cmp
+  FF_MB_DECISION_BITS   = 1;        ///< chooses the one which needs the fewest bits
+  FF_MB_DECISION_RD     = 2;        ///< rate distoration
+
+  FF_AA_AUTO    = 0;
+  FF_AA_FASTINT = 1; //not implemented yet
+  FF_AA_INT     = 2;
+  FF_AA_FLOAT   = 3;
+
+  FF_PROFILE_UNKNOWN  = -99;
+
+  FF_LEVEL_UNKNOWN    = -99;
+
+  X264_PART_I4X4 = $001;  (* Analyse i4x4 *)
+  X264_PART_I8X8 = $002;  (* Analyse i8x8 (requires 8x8 transform) *)
+  X264_PART_P8X8 = $010;  (* Analyse p16x8, p8x16 and p8x8 *)
+  X264_PART_P4X4 = $020;  (* Analyse p8x4, p4x8, p4x4 *)
+  X264_PART_B8X8 = $100;  (* Analyse b16x8, b8x16 and b8x8 *)
+
+type
+  PAVCLASS = ^TAVCLASS;
+  PAVCodecContext = ^TAVCodecContext;
+  PAVCodec = ^TAVCodec;
+  PAVPaletteControl = ^TAVPaletteControl;
+
+  TAVCLASS = record {12}
+    class_name: pchar;
+    (* actually passing a pointer to an AVCodecContext
+					or AVFormatContext, which begin with an AVClass.
+					Needed because av_log is in libavcodec and has no visibility
+					of AVIn/OutputFormat *)
+    item_name: function (): pchar; cdecl;
+    option: PAVOption;
+  end;
+
+  TAVCodecContext = record {720}
+    (*** Info on struct for av_log
+     * - set by avcodec_alloc_context     *)
+    av_class: PAVClass;
+    (*** the average bitrate.
+     * - encoding: set by user. unused for constant quantizer encoding
+     * - decoding: set by lavc. 0 or some bitrate if this info is available in the stream     *)
+    bit_rate: integer;
+    (*** number of bits the bitstream is allowed to diverge from the reference.
+     *           the reference can be CBR (for CBR pass1) or VBR (for pass2)
+     * - encoding: set by user. unused for constant quantizer encoding
+     * - decoding: unused     *)
+    bit_rate_tolerance: integer;
+    (*** CODEC_FLAG_*.
+     * - encoding: set by user.
+     * - decoding: set by user.     *)
+    flags: integer;
+    (*** some codecs needs additionnal format info. It is stored here
+     * - encoding: set by user.
+     * - decoding: set by lavc. (FIXME is this ok?)     *)
+    sub_id: integer;
+
+    (**
+     * motion estimation algorithm used for video coding.
+     * 1 (zero), 2 (full), 3 (log), 4 (phods), 5 (epzs), 6 (x1), 7 (hex),
+     * 8 (umh), 9 (iter) [7, 8 are x264 specific, 9 is snow specific]
+     * - encoding: MUST be set by user.
+     * - decoding: unused     *)
+    me_method: integer;
+
+    (**
+     * some codecs need / can use extra-data like huffman tables.
+     * mjpeg: huffman tables
+     * rv10: additional flags
+     * mpeg4: global headers (they can be in the bitstream or here)
+     * the allocated memory should be FF_INPUT_BUFFER_PADDING_SIZE bytes larger
+     * then extradata_size to avoid prolems if its read with the bitstream reader
+     * the bytewise contents of extradata must not depend on the architecture or cpu endianness
+     * - encoding: set/allocated/freed by lavc.
+     * - decoding: set/allocated/freed by user.
+     *)
+    extradata: pointer;
+    extradata_size: integer;
+
+    (**
+     * this is the fundamental unit of time (in seconds) in terms
+     * of which frame timestamps are represented. for fixed-fps content,
+     * timebase should be 1/framerate and timestamp increments should be
+     * identically 1.
+     * - encoding: MUST be set by user
+     * - decoding: set by lavc.     *)
+    time_base: TAVRational;
+
+    (* video only *)
+    (*** picture width / height.
+     * - encoding: MUST be set by user.
+     * - decoding: set by lavc.
+     * Note, for compatibility its possible to set this instead of
+     * coded_width/height before decoding     *)
+    width, height: integer;
+    (*** the number of pictures in a group of pitures, or 0 for intra_only.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    gop_size: integer;
+    (*** pixel format, see PIX_FMT_xxx.
+     * - encoding: set by user.
+     * - decoding: set by lavc.     *)
+    pix_fmt: TAVPixelFormat;
+    (*** Frame rate emulation. If not zero lower layer (i.e. format handler)
+     * has to read frames at native frame rate.
+     * - encoding: set by user.
+     * - decoding: unused.     *)
+    rate_emu: integer;
+    (*** if non NULL, 'draw_horiz_band' is called by the libavcodec
+     * decoder to draw an horizontal band. It improve cache usage. Not
+     * all codecs can do that. You must check the codec capabilities
+     * before
+     * - encoding: unused
+     * - decoding: set by user.
+     * @param height the height of the slice
+     * @param y the y position of the slice
+     * @param type 1->top field, 2->bottom field, 3->frame
+     * @param offset offset into the AVFrame.data from which the slice should be read *)
+    draw_horiz_band: procedure (s: PAVCodecContext;
+                                const src: PAVFrame; offset: PInteger;
+                                y: integer; _type: integer; height: integer); cdecl;
+
+    (* audio only *)
+    sample_rate: integer; ///< samples per sec
+    channels: integer;
+    (*** audio sample format.
+     * - encoding: set by user.
+     * - decoding: set by lavc.     *)
+    sample_fmt: TSampleFormat;  ///< sample format, currenly unused
+
+    (* the following data should not be initialized *)
+    (*** samples per packet. initialized when calling 'init'     *)
+    frame_size: integer;
+    frame_number: integer;   ///< audio or video frame number
+    real_pict_num: integer;  ///< returns the real picture number of previous encoded frame
+
+    (*** number of frames the decoded output will be delayed relative to
+     * the encoded input.
+     * - encoding: set by lavc.
+     * - decoding: unused     *)
+    delay: integer;
+
+    (* - encoding parameters *)
+    qcompress: single;  ///< amount of qscale change between easy & hard scenes (0.0-1.0)
+    qblur: single;      ///< amount of qscale smoothing over time (0.0-1.0)
+
+    (*** minimum quantizer.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    qmin: integer;
+
+    (*** maximum quantizer.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    qmax: integer;
+
+    (*** maximum quantizer difference etween frames.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    max_qdiff: integer;
+
+    (*** maximum number of b frames between non b frames.
+     * note: the output will be delayed by max_b_frames+1 relative to the input
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    max_b_frames: integer;
+
+    (*** qscale factor between ip and b frames.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    b_quant_factor: single;
+
+    (** obsolete FIXME remove *)
+    rc_strategy: integer;
+    b_frame_strategy: integer;
+
+    (*** hurry up amount.
+     * deprecated in favor of skip_idct and skip_frame
+     * - encoding: unused
+     * - decoding: set by user. 1-> skip b frames, 2-> skip idct/dequant too, 5-> skip everything except header     *)
+    hurry_up: integer;
+
+    codec: PAVCodec;
+
+    priv_data: pointer;
+
+    (* unused, FIXME remove*)
+    rtp_mode: integer;
+
+    rtp_payload_size: integer;  (* The size of the RTP payload: the coder will  *)
+                                (* do it's best to deliver a chunk with size    *)
+                                (* below rtp_payload_size, the chunk will start *)
+                                (* with a start code on some codecs like H.263  *)
+                                (* This doesn't take account of any particular  *)
+                                (* headers inside the transmited RTP payload    *)
+
+
+    (* The RTP callback: This function is called   *)
+    (* every time the encoder has a packet to send *)
+    (* Depends on the encoder if the data starts   *)
+    (* with a Start Code (it should) H.263 does.   *)
+    (* mb_nb contains the number of macroblocks    *)
+    (* encoded in the RTP payload                  *)
+    rtp_callback: procedure (avctx: PAVCodecContext; data: pointer;
+                             size: integer; mb_nb: integer); cdecl;
+
+    (* statistics, used for 2-pass encoding *)
+    mv_bits: integer;
+    header_bits: integer;
+    i_tex_bits: integer;
+    p_tex_bits: integer;
+    i_count: integer;
+    p_count: integer;
+    skip_count: integer;
+    misc_bits: integer;
+
+    (*** number of bits used for the previously encoded frame.
+     * - encoding: set by lavc
+     * - decoding: unused     *)
+    frame_bits: integer;
+
+    (*** private data of the user, can be used to carry app specific stuff.
+     * - encoding: set by user
+     * - decoding: set by user     *)
+    opaque: pointer;
+
+    codec_name: array [0..31] of char;
+    codec_type: TCodecType; (* see CODEC_TYPE_xxx *)
+    codec_id: TCodecID; (* see CODEC_ID_xxx *)
+
+    (*** fourcc (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
+     * this is used to workaround some encoder bugs
+     * - encoding: set by user, if not then the default based on codec_id will be used
+     * - decoding: set by user, will be converted to upper case by lavc during init     *)
+//    codec_tag: cardinal;  // можно array [0..3] of char - тогда видно FOURCC
+    codec_tag: array [0..3] of char; 
+
+    (*** workaround bugs in encoders which sometimes cannot be detected automatically.
+     * - encoding: set by user
+     * - decoding: set by user     *)
+    workaround_bugs: integer;
+
+    (*** luma single coeff elimination threshold.
+     * - encoding: set by user
+     * - decoding: unused     *)
+    luma_elim_threshold: integer;
+
+    (*** chroma single coeff elimination threshold.
+     * - encoding: set by user
+     * - decoding: unused     *)
+    chroma_elim_threshold: integer;
+
+    (*** strictly follow the std (MPEG4, ...).
+     * - encoding: set by user
+     * - decoding: unused     *)
+    strict_std_compliance: integer;
+
+    (*** qscale offset between ip and b frames.
+     * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
+     * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    b_quant_offset: single;
+
+    (*** error resilience higher values will detect more errors but may missdetect
+     * some more or less valid parts as errors.
+     * - encoding: unused
+     * - decoding: set by user     *)
+    error_resilience: integer;
+
+    (*** called at the beginning of each frame to get a buffer for it.
+     * if pic.reference is set then the frame will be read later by lavc
+     * avcodec_align_dimensions() should be used to find the required width and
+     * height, as they normally need to be rounded up to the next multiple of 16
+     * - encoding: unused
+     * - decoding: set by lavc, user can override     *)
+    get_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
+
+    (*** called to release buffers which where allocated with get_buffer.
+     * a released buffer can be reused in get_buffer()
+     * pic.data[*] must be set to NULL
+     * - encoding: unused
+     * - decoding: set by lavc, user can override     *)
+    release_buffer: procedure (c: PAVCodecContext; pic: PAVFrame); cdecl;
+
+    (*** if 1 the stream has a 1 frame delay during decoding.
+     * - encoding: set by lavc
+     * - decoding: set by lavc     *)
+    has_b_frames: integer;
+
+    (*** number of bytes per packet if constant and known or 0
+     * used by some WAV based audio codecs     *)
+    block_align: integer;
+
+    parse_only: integer; (* - decoding only: if true, only parsing is done
+                       (function avcodec_parse_frame()). The frame
+                       data is returned. Only MPEG codecs support this now. *)
+
+    (*** 0-> h263 quant 1-> mpeg quant.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    mpeg_quant: integer;
+
+    (*** pass1 encoding statistics output buffer.
+     * - encoding: set by lavc
+     * - decoding: unused     *)
+    stats_out: pchar;
+
+    (*** pass2 encoding statistics input buffer.
+     * concatenated stuff from stats_out of pass1 should be placed here
+     * - encoding: allocated/set/freed by user
+     * - decoding: unused     *)
+    stats_in: pchar;
+
+    (*** ratecontrol qmin qmax limiting method.
+     * 0-> clipping, 1-> use a nice continous function to limit qscale wthin qmin/qmax
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    rc_qsquish: single;
+
+    rc_qmod_amp: single;
+    rc_qmod_freq: integer;
+
+    (*** ratecontrol override, see RcOverride.
+     * - encoding: allocated/set/freed by user.
+     * - decoding: unused     *)
+    rc_override: PRcOverride;
+    rc_override_count: integer;
+
+    (*** rate control equation.
+     * - encoding: set by user
+     * - decoding: unused     *)
+    rc_eq: pchar;
+
+    (*** maximum bitrate.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    rc_max_rate: integer;
+
+    (*** minimum bitrate.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    rc_min_rate: integer;
+
+    (*** decoder bitstream buffer size.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    rc_buffer_size: integer;
+    rc_buffer_aggressivity: single;
+
+    (*** qscale factor between p and i frames.
+     * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
+     * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    i_quant_factor: single;
+
+    (*** qscale offset between p and i frames.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    i_quant_offset: single;
+
+    (*** initial complexity for pass1 ratecontrol.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    rc_initial_cplx: single;
+
+    (*** dct algorithm, see FF_DCT_* below.
+     * - encoding: set by user
+     * - decoding: unused     *)
+    dct_algo: integer;
+
+    (*** luminance masking (0-> disabled).
+     * - encoding: set by user
+     * - decoding: unused     *)
+    lumi_masking: single;
+
+    (*** temporary complexity masking (0-> disabled).
+     * - encoding: set by user
+     * - decoding: unused     *)
+    temporal_cplx_masking: single;
+
+    (*** spatial complexity masking (0-> disabled).
+     * - encoding: set by user
+     * - decoding: unused     *)
+    spatial_cplx_masking: single;
+
+    (**     * p block masking (0-> disabled).
+     * - encoding: set by user
+     * - decoding: unused     *)
+    p_masking: single;
+
+    (*** darkness masking (0-> disabled).
+     * - encoding: set by user
+     * - decoding: unused     *)
+    dark_masking: single;
+
+    (* for binary compatibility *)
+    unused: integer;
+
+    (*** idct algorithm, see FF_IDCT_* below.
+     * - encoding: set by user
+     * - decoding: set by user     *)
+    idct_algo: integer;
+
+    (*** slice count.
+     * - encoding: set by lavc
+     * - decoding: set by user (or 0)     *)
+    slice_count: integer;
+
+    (*** slice offsets in the frame in bytes.
+     * - encoding: set/allocated by lavc
+     * - decoding: set/allocated by user (or NULL)     *)
+    slice_offset: PInteger;
+
+    (*** error concealment flags.
+     * - encoding: unused
+     * - decoding: set by user     *)
+    error_concealment: integer;
+
+    (*** dsp_mask could be add used to disable unwanted CPU features
+     * CPU features (i.e. MMX, SSE. ...)
+     *
+     * with FORCE flag you may instead enable given CPU features
+     * (Dangerous: usable in case of misdetection, improper usage however will
+     * result into program crash)     *)
+    dsp_mask: cardinal;
+
+    (*** bits per sample/pixel from the demuxer (needed for huffyuv).
+     * - encoding: set by lavc
+     * - decoding: set by user     *)
+     bits_per_sample: integer;
+
+    (*** prediction method (needed for huffyuv).
+     * - encoding: set by user
+     * - decoding: unused     *)
+     prediction_method: integer;
+
+    (*** sample aspect ratio (0 if unknown).
+     * numerator and denominator must be relative prime and smaller then 256 for some video standards
+     * - encoding: set by user.
+     * - decoding: set by lavc.     *)
+    sample_aspect_ratio: TAVRational;
+
+    (*** the picture in the bitstream.
+     * - encoding: set by lavc
+     * - decoding: set by lavc     *)
+    coded_frame: PAVFrame;
+
+    (*** debug.
+     * - encoding: set by user.
+     * - decoding: set by user.     *)
+    debug: integer;
+
+    (*** debug.
+     * - encoding: set by user.
+     * - decoding: set by user.     *)
+    debug_mv: integer;
+
+    (** error.
+     * - encoding: set by lavc if flags&CODEC_FLAG_PSNR
+     * - decoding: unused     *)
+    error: array [0..3] of int64;
+
+    (*** minimum MB quantizer.
+     * - encoding: unused
+     * - decoding: unused     *)
+    mb_qmin: integer;
+
+    (*** maximum MB quantizer.
+     * - encoding: unused
+     * - decoding: unused     *)
+    mb_qmax: integer;
+
+    (*** motion estimation compare function.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    me_cmp: integer;
+
+    (*** subpixel motion estimation compare function.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    me_sub_cmp: integer;
+    (*** macroblock compare function (not supported yet).
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    mb_cmp: integer;
+    (*** interlaced dct compare function
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    ildct_cmp: integer;
+    (*** ME diamond size & shape.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    dia_size: integer;
+
+    (*** amount of previous MV predictors (2a+1 x 2a+1 square).
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    last_predictor_count: integer;
+
+    (*** pre pass for motion estimation.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    pre_me: integer;
+
+    (*** motion estimation pre pass compare function.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    me_pre_cmp: integer;
+
+    (*** ME pre pass diamond size & shape.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    pre_dia_size: integer;
+
+    (*** subpel ME quality.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    me_subpel_quality: integer;
+
+    (*** callback to negotiate the pixelFormat.
+     * @param fmt is the list of formats which are supported by the codec,
+     * its terminated by -1 as 0 is a valid format, the formats are ordered by quality
+     * the first is allways the native one
+     * @return the choosen format
+     * - encoding: unused
+     * - decoding: set by user, if not set then the native format will always be choosen
+     *)
+    get_format: function (s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat; cdecl;
+
+    (*** DTG active format information (additionnal aspect ratio
+     * information only used in DVB MPEG2 transport streams). 0 if
+     * not set.
+     * - encoding: unused.
+     * - decoding: set by decoder     *)
+    dtg_active_format: integer;
+
+    (*** Maximum motion estimation search range in subpel units.
+     * if 0 then no limit
+     * - encoding: set by user.
+     * - decoding: unused.     *)
+    me_range: integer;
+
+    (*** intra quantizer bias.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    intra_quant_bias: integer;
+
+    (*** inter quantizer bias.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    inter_quant_bias: integer;
+
+    (*** color table ID.
+     * - encoding: unused.
+     * - decoding: which clrtable should be used for 8bit RGB images
+     *             table have to be stored somewhere FIXME     *)
+    color_table_id: integer;
+
+    (*** internal_buffer count.
+     * Don't touch, used by lavc default_get_buffer()     *)
+    internal_buffer_count: integer;
+
+    (*** internal_buffers.
+     * Don't touch, used by lavc default_get_buffer()     *)
+    internal_buffer: pointer;
+
+    (*** global quality for codecs which cannot change it per frame.
+     * this should be proportional to MPEG1/2/4 qscale.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    global_quality: integer;
+
+    (*** coder type
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    coder_type: integer;
+
+    (*** context model
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    context_model: integer;
+
+    (*** slice flags
+     * - encoding: unused
+     * - decoding: set by user.     *)
+    slice_flags: integer;
+
+    (*** XVideo Motion Acceleration
+     * - encoding: forbidden
+     * - decoding: set by decoder     *)
+    xvmc_acceleration: integer;
+
+    (*** macroblock decision mode
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    mb_decision: integer;
+
+    (*** custom intra quantization matrix
+     * - encoding: set by user, can be NULL
+     * - decoding: set by lavc     *)
+    intra_matrix: Pword;
+
+    (*** custom inter quantization matrix
+     * - encoding: set by user, can be NULL
+     * - decoding: set by lavc     *)
+    inter_matrix: Pword;
+
+    (*** fourcc from the AVI stream header (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
+     * this is used to workaround some encoder bugs
+     * - encoding: unused
+     * - decoding: set by user, will be converted to upper case by lavc during init     *)
+    stream_codec_tag: array [0..3] of char; //cardinal;
+
+    (*** scene change detection threshold.
+     * 0 is default, larger means fewer detected scene changes
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    scenechange_threshold: integer;
+
+    (*** minimum lagrange multipler
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    lmin: integer;
+
+    (*** maximum lagrange multipler
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    lmax: integer;
+
+    (*** Palette control structure
+     * - encoding: ??? (no palette-enabled encoder yet)
+     * - decoding: set by user.     *)
+    palctrl: PAVPaletteControl;
+
+    (*** noise reduction strength
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    noise_reduction: integer;
+
+    (*** called at the beginning of a frame to get cr buffer for it.
+     * buffer type (size, hints) must be the same. lavc won't check it.
+     * lavc will pass previous buffer in pic, function should return
+     * same buffer or new buffer with old frame "painted" into it.
+     * if pic.data[0] == NULL must behave like get_buffer().
+     * - encoding: unused
+     * - decoding: set by lavc, user can override     *)
+    reget_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
+
+    (*** number of bits which should be loaded into the rc buffer before decoding starts
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    rc_initial_buffer_occupancy: integer;
+    inter_threshold: integer;
+
+    (*** CODEC_FLAG2_*.
+     * - encoding: set by user.
+     * - decoding: set by user.     *)
+    flags2: integer;
+
+    (*** simulates errors in the bitstream to test error concealment.
+     * - encoding: set by user.
+     * - decoding: unused.     *)
+    error_rate: integer;
+
+    (*** MP3 antialias algorithm, see FF_AA_* below.
+     * - encoding: unused
+     * - decoding: set by user     *)
+    antialias_algo: integer;
+
+    (*** Quantizer noise shaping.
+     * - encoding: set by user
+     * - decoding: unused     *)
+    quantizer_noise_shaping: integer;
+
+    (*** Thread count.
+     * is used to decide how many independant tasks should be passed to execute()
+     * - encoding: set by user
+     * - decoding: set by user     *)
+    thread_count: integer;
+
+    (*** the codec may call this to execute several independant things. it will return only after
+     * finishing all tasks, the user may replace this with some multithreaded implementation, the
+     * default implementation will execute the parts serially
+     * @param count the number of things to execute
+     * - encoding: set by lavc, user can override
+     * - decoding: set by lavc, user can override     *)
+    execute: function (c: PAVCodecContext; func: pointer; arg: PPointer; ret: PInteger; count: integer): integer; cdecl;
+
+    (*** Thread opaque.
+     * can be used by execute() to store some per AVCodecContext stuff.
+     * - encoding: set by execute()
+     * - decoding: set by execute()     *)
+    thread_opaque: pointer;
+
+    (*** Motion estimation threshold. under which no motion estimation is
+     * performed, but instead the user specified motion vectors are used
+     * - encoding: set by user
+     * - decoding: unused     *)
+     me_threshold: integer;
+
+    (*** Macroblock threshold. under which the user specified macroblock types will be used
+     * - encoding: set by user
+     * - decoding: unused    *)
+     mb_threshold: integer;
+
+    (*** precision of the intra dc coefficient - 8.
+     * - encoding: set by user
+     * - decoding: unused     *)
+     intra_dc_precision: integer;
+
+    (*** noise vs. sse weight for the nsse comparsion function.
+     * - encoding: set by user
+     * - decoding: unused     *)
+     nsse_weight: integer;
+
+    (*** number of macroblock rows at the top which are skipped.
+     * - encoding: unused
+     * - decoding: set by user     *)
+     skip_top: integer;
+
+    (*** number of macroblock rows at the bottom which are skipped.
+     * - encoding: unused
+     * - decoding: set by user     *)
+     skip_bottom: integer;
+
+    (*** profile
+     * - encoding: set by user
+     * - decoding: set by lavc     *)
+     profile: integer;
+
+    (*** level
+     * - encoding: set by user
+     * - decoding: set by lavc     *)
+     level: integer;
+
+    (*** low resolution decoding. 1-> 1/2 size, 2->1/4 size
+     * - encoding: unused
+     * - decoding: set by user     *)
+     lowres: integer;
+
+    (*** bitsream width / height. may be different from width/height if lowres
+     * or other things are used
+     * - encoding: unused
+     * - decoding: set by user before init if known, codec should override / dynamically change if needed     *)
+    coded_width, coded_height: integer;
+
+    (*** frame skip threshold
+     * - encoding: set by user
+     * - decoding: unused     *)
+    frame_skip_threshold: integer;
+
+    (*** frame skip factor
+     * - encoding: set by user
+     * - decoding: unused     *)
+    frame_skip_factor: integer;
+
+    (*** frame skip exponent
+     * - encoding: set by user
+     * - decoding: unused     *)
+    frame_skip_exp: integer;
+
+    (*** frame skip comparission function
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    frame_skip_cmp: integer;
+
+    (*** border processing masking. raises the quantizer for mbs on the borders
+     * of the picture.
+     * - encoding: set by user
+     * - decoding: unused     *)
+    border_masking: single;
+
+    (*** minimum MB lagrange multipler.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    mb_lmin: integer;
+
+    (*** maximum MB lagrange multipler.
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    mb_lmax: integer;
+
+    (***
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    me_penalty_compensation: integer;
+
+    (***
+     * - encoding: unused
+     * - decoding: set by user.     *)
+    skip_loop_filter: TAVDiscard;
+
+    (**     *
+     * - encoding: unused
+     * - decoding: set by user.     *)
+    skip_idct: TAVDiscard;
+
+    (**     *
+     * - encoding: unused
+     * - decoding: set by user.     *)
+    skip_frame: TAVDiscard;
+
+    (**     *
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    bidir_refine: integer;
+
+    (**     *
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    brd_scale: integer;
+
+    (**
+     * constant rate factor - quality-based VBR - values ~correspond to qps
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    crf: integer;
+
+    (**
+     * constant quantization parameter rate control method
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    cqp: integer;
+
+    (**
+     * minimum gop size
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    keyint_min: integer;
+
+    (**
+     * number of reference frames
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    refs: integer;
+
+    (**
+     * chroma qp offset from luma
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    chromaoffset: integer;
+
+    (**
+     * influences how often b-frames are used
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    bframebias: integer;
+
+    (**
+     * trellis RD quantization
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    trellis: integer;
+
+    (**
+     * reduce fluctuations in qp (before curve compression)
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    complexityblur: single;
+
+    (**
+     * in-loop deblocking filter alphac0 parameter
+     * alpha is in the range -6...6
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    deblockalpha: integer;
+
+    (**
+     * in-loop deblocking filter beta parameter
+     * beta is in the range -6...6
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    deblockbeta: integer;
+
+    (**
+     * macroblock subpartition sizes to consider - p8x8, p4x4, b8x8, i8x8, i4x4
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    partitions: integer;
+
+    (**
+     * direct mv prediction mode - 0 (none), 1 (spatial), 2 (temporal)
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    directpred: integer;
+
+    (**
+     * audio cutoff bandwidth (0 means "automatic") . Currently used only by FAAC
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    cutoff: integer;
+
+    (**
+     * multiplied by qscale for each frame and added to scene_change_score
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    scenechange_factor: integer;
+
+    (**     *
+     * note: value depends upon the compare functin used for fullpel ME
+     * - encoding: set by user.
+     * - decoding: unused     *)
+    mv0_threshold: integer;
+
+    (**
+     * adjusts sensitivity of b_frame_strategy 1
+     * - encoding: set by user.
+     * - decoding: unused      *)
+    b_sensitivity: integer;
+
+    (**
+     * - encoding: set by user.
+     * - decoding: unused      *)
+    compression_level: integer;
+
+    (**
+     * sets whether to use LPC mode - used by FLAC encoder
+     * - encoding: set by user.
+     * - decoding: unused.     *)
+    use_lpc: integer;
+
+    (**
+     * LPC coefficient precision - used by FLAC encoder
+     * - encoding: set by user.
+     * - decoding: unused.     *)
+    lpc_coeff_precision: integer;
+
+    (**
+     * - encoding: set by user.
+     * - decoding: unused.           *)
+    min_prediction_order: integer;
+
+    (**
+     * - encoding: set by user.
+     * - decoding: unused.            *)
+    max_prediction_order: integer;
+
+    (**
+     * search method for selecting prediction order
+     * - encoding: set by user.
+     * - decoding: unused.            *)
+    prediction_order_method: integer;
+
+    (**
+     * - encoding: set by user.
+     * - decoding: unused.               *)
+    min_partition_order: integer;
+
+    (**
+     * - encoding: set by user.
+     * - decoding: unused.           *)
+    max_partition_order: integer;
+  end;
+
+(**
+ * AVCodec.
+ *)
+  TAVCodec = record
+    name: pchar;
+    _type: TCodecType;
+    id: TCodecID;
+    priv_data_size: integer;
+    init: function (avctx: pAVCodecContext): integer; cdecl;
+    encode: function (avctx: PAVCodecContext; buf: pchar; buf_size: integer; data: pointer): integer; cdecl;
+    close: function (avctx: PAVCodecContext): integer; cdecl;
+    decode: function (avctx: PAVCodecContext; outdata: pointer; outdata_size: PInteger;
+                  buf: pchar; buf_size: integer): integer; cdecl;
+    capabilities: integer;
+// todo: check this ->
+//    void *dummy; // FIXME remove next time we break binary compatibility
+    next: PAVCodec;
+    flush: procedure (avctx: PAVCodecContext); cdecl;
+    supported_framerates: PAVRational; ///array of supported framerates, or NULL if any, array is terminated by {0,0}
+    pix_fmts: PAVPixelFormat;       ///array of supported pixel formats, or NULL if unknown, array is terminanted by -1
+  end;
+
+(**
+ * four components are given, that's all.
+ * the last component is alpha
+ *)
+  PAVPicture = ^TAVPicture;
+  TAVPicture = record
+    data: array [0..3] of pchar;
+    linesize: array [0..3] of integer;       ///< number of bytes per line
+  end;
+
+(**
+ * AVPaletteControl
+ * This structure defines a method for communicating palette changes
+ * between and demuxer and a decoder.
+ * this is totally broken, palette changes should be sent as AVPackets
+ *)
+  TAVPaletteControl = record
+    (* demuxer sets this to 1 to indicate the palette has changed;
+     * decoder resets to 0 *)
+    palette_changed: integer;
+
+    (* 4-byte ARGB palette entries, stored in native byte order; note that
+     * the individual palette components should be on a 8-bit scale; if
+     * the palette data comes from a IBM VGA native format, the component
+     * data is probably 6 bits in size and needs to be scaled *)
+    palette: array [0..AVPALETTE_COUNT - 1] of cardinal;
+  end;
+
+  PAVSubtitleRect = ^TAVSubtitleRect;
+  TAVSubtitleRect = record
+    x: word;
+    y: word;
+    w: word;
+    h: word;
+    nb_colors: word;
+    linesize: integer;
+    rgba_palette: PCardinal;
+    bitmap: pchar;
+  end;
+
+  PAVSubtitle = ^TAVSubtitle;
+  TAVSubtitle = record {20}
+    format: word; (* 0 = graphics *)
+    start_display_time: cardinal; (* relative to packet pts, in ms *)
+    end_display_time: cardinal; (* relative to packet pts, in ms *)
+    num_rects: cardinal;
+    rects: PAVSubtitleRect;
+  end;
+
+
+(* resample.c *)
+
+  PReSampleContext = pointer;
+  PAVResampleContext = pointer;
+  PImgReSampleContext = pointer;
+
+function audio_resample_init (output_channels: integer; input_channels: integer;
+                              output_rate: integer; input_rate: integer): PReSampleContext;
+  cdecl; external av__codec;
+
+function audio_resample (s: PReSampleContext; output: PWord; input: PWord; nb_samples: integer): integer;
+  cdecl; external av__codec;
+
+procedure audio_resample_close (s: PReSampleContext);
+  cdecl; external av__codec;
+
+
+function av_resample_init (out_rate: integer; in_rate: integer; filter_length: integer;
+                           log2_phase_count: integer; linear: integer; cutoff: double): PAVResampleContext;
+  cdecl; external av__codec;
+
+function av_resample (c: PAVResampleContext; dst: PWord; src: PWord; consumed: PInteger;
+                      src_size: integer; dst_size: integer; update_ctx: integer): integer;
+  cdecl; external av__codec;
+
+procedure av_resample_compensate (c: PAVResampleContext; sample_delta: integer;
+                                  compensation_distance: integer);
+  cdecl; external av__codec;
+
+procedure av_resample_close (c: PAVResampleContext);
+  cdecl; external av__codec;
+
+
+(* YUV420 format is assumed ! *)
+
+  function img_resample_init (output_width: integer; output_height: integer;
+                             input_width: integer; input_height: integer): PImgReSampleContext;
+    cdecl; external av__codec;
+
+  function img_resample_full_init (owidth: integer; oheight: integer;
+                                      iwidth: integer; iheight: integer;
+                                      topBand: integer; bottomBand: integer;
+                                      leftBand: integer; rightBand: integer;
+                                      padtop: integer; padbottom: integer;
+                                      padleft: integer; padright: integer): PImgReSampleContext;
+    cdecl; external av__codec;
+
+  procedure img_resample (s: PImgReSampleContext; output: PAVPicture; const input: PAVPicture);
+    cdecl; external av__codec;
+
+  procedure img_resample_close (s: PImgReSampleContext);
+    cdecl; external av__codec;
+
+(**
+ * Allocate memory for a picture.  Call avpicture_free to free it.
+ *
+ * @param picture the picture to be filled in.
+ * @param pix_fmt the format of the picture.
+ * @param width the width of the picture.
+ * @param height the height of the picture.
+ * @return 0 if successful, -1 if not.
+ *)
+  function avpicture_alloc (picture: PAVPicture; pix_fmt: TAVPixelFormat;
+                            width: integer; height: integer): integer;
+    cdecl; external av__codec;
+
+
+(* Free a picture previously allocated by avpicture_alloc. *)
+  procedure avpicture_free (picture: PAVPicture);
+    cdecl; external av__codec;
+
+  function avpicture_fill (picture: PAVPicture; ptr: pointer;
+                   pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
+    cdecl; external av__codec;
+
+  function avpicture_layout (const src: PAVPicture; pix_fmt: TAVPixelFormat;
+                     width: integer; height: integer;
+                     dest: pchar; dest_size: integer): integer;
+    cdecl; external av__codec;
+
+  function avpicture_get_size (pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
+    cdecl; external av__codec;
+
+  procedure avcodec_get_chroma_sub_sample (pix_fmt: TAVPixelFormat; h_shift: Pinteger; v_shift: pinteger);
+    cdecl; external av__codec;
+
+  function avcodec_get_pix_fmt_name(pix_fmt: TAVPixelFormat): pchar;
+    cdecl; external av__codec;
+
+  procedure avcodec_set_dimensions(s: PAVCodecContext; width: integer; height: integer);
+    cdecl; external av__codec;
+
+  function avcodec_get_pix_fmt(const name: pchar): TAVPixelFormat;
+    cdecl; external av__codec;
+
+  function avcodec_pix_fmt_to_codec_tag(p: TAVPixelFormat): cardinal;
+    cdecl; external av__codec;
+
+  function avcodec_get_pix_fmt_loss (dst_pix_fmt: TAVPixelFormat; src_pix_fmt: TAVPixelFormat;
+                             has_alpha: integer): integer;
+    cdecl; external av__codec;
+
+  function avcodec_find_best_pix_fmt (pix_fmt_mask: integer; src_pix_fmt: TAVPixelFormat;
+                              has_alpha: integer; loss_ptr: pinteger): integer;
+    cdecl; external av__codec;
+
+  function img_get_alpha_info (const src: PAVPicture;
+		                           pix_fmt: TAVPixelFormat;
+                               width: integer; height: integer): integer;
+    cdecl; external av__codec;
+
+
+(* convert among pixel formats *)
+  function img_convert (dst: PAVPicture; dst_pix_fmt: TAVPixelFormat;
+                const src: PAVPicture; pix_fmt: TAVPixelFormat;
+                width: integer; height: integer): integer;
+    cdecl; external av__codec;
+
+(* deinterlace a picture *)
+  function avpicture_deinterlace (dst: PAVPicture; const src: PAVPicture;
+                          pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
+    cdecl; external av__codec;
+
+(* returns LIBAVCODEC_VERSION_INT constant *)
+  function avcodec_version (): cardinal;
+    cdecl; external av__codec;
+
+(* returns LIBAVCODEC_BUILD constant *)
+  function avcodec_build (): cardinal;
+    cdecl; external av__codec;
+
+  procedure avcodec_init ();
+    cdecl; external av__codec;
+
+  procedure register_avcodec (format: PAVCodec);
+    cdecl; external av__codec;
+
+  function avcodec_find_encoder (id: TCodecID): PAVCodec;
+    cdecl; external av__codec;
+  function avcodec_find_encoder_by_name (name: pchar): PAVCodec;
+    cdecl; external av__codec;
+  function avcodec_find_decoder(id: TCodecID): PAVCodec;
+    cdecl; external av__codec;
+  function avcodec_find_decoder_by_name (name: pchar): PAVCodec;
+    cdecl; external av__codec;
+  procedure avcodec_string(buf: pchar; buf_size: integer; enc: PAVCodecContext; encode: integer);
+    cdecl; external av__codec;
+
+  procedure avcodec_get_context_defaults (s: PAVCodecContext);
+    cdecl; external av__codec;
+  function avcodec_alloc_context (): PAVCodecContext;
+    cdecl; external av__codec;
+  procedure avcodec_get_frame_defaults (pic: PAVFrame);
+    cdecl; external av__codec;
+  function avcodec_alloc_frame (): PAVFrame;
+    cdecl; external av__codec;
+
+  function avcodec_default_get_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
+    cdecl; external av__codec;
+  procedure avcodec_default_release_buffer (s: PAVCodecContext; pic: PAVFrame);
+    cdecl; external av__codec;
+  function avcodec_default_reget_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
+    cdecl; external av__codec;
+  procedure avcodec_align_dimensions(s: PAVCodecContext; width: Pinteger; height: PInteger);
+    cdecl; external av__codec;
+  function avcodec_check_dimensions (av_log_ctx: pointer; w: cardinal; h: cardinal): integer;
+    cdecl; external av__codec;
+  function avcodec_default_get_format(s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat;
+    cdecl; external av__codec;
+
+  function avcodec_thread_init (s: PAVCodecContext; thread_count: integer): integer;
+    cdecl; external av__codec;
+  procedure avcodec_thread_free (s: PAVCodecContext);
+    cdecl; external av__codec;
+  function avcodec_thread_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
+    cdecl; external av__codec;
+  function avcodec_default_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
+    cdecl; external av__codec;
+
+
+//FIXME func typedef
+
+(**
+ * opens / inits the AVCodecContext.
+ * not thread save!
+ *)
+  function avcodec_open (avctx: PAVCodecContext; codec: PAVCodec): integer;
+    cdecl; external av__codec;
+
+
+(**
+ * Decode an audio frame.
+ *
+ * @param avctx the codec context.
+ * @param samples output buffer, 16 byte aligned
+ * @param frame_size_ptr the output buffer size in bytes, zero if no frame could be compressed
+ * @param buf input buffer, 16 byte aligned
+ * @param buf_size the input buffer size
+ * @return 0 if successful, -1 if not.
+ *)
+
+  function avcodec_decode_audio (avctx: PAVCodecContext; samples: Pword;
+                         frame_size_ptr: pinteger;
+                         buf: pchar; buf_size: integer): integer;
+    cdecl; external av__codec;
+(* decode a frame.
+ * @param buf bitstream buffer, must be FF_INPUT_BUFFER_PADDING_SIZE larger then the actual read bytes
+ * because some optimized bitstream readers read 32 or 64 bit at once and could read over the end
+ * @param buf_size the size of the buffer in bytes
+ * @param got_picture_ptr zero if no frame could be decompressed, Otherwise, it is non zero
+ * @return -1 if error, otherwise return the number of
+ * bytes used. *)
+  function avcodec_decode_video (avctx: PAVCodecContext; picture: PAVFrame;
+                         got_picture_ptr: pinteger;
+                         buf: PByte; buf_size: integer): integer;
+    cdecl; external av__codec;
+
+  function avcodec_decode_subtitle (avctx: PAVCodecContext; sub: PAVSubtitle;
+                            got_sub_ptr: pinteger;
+                            const buf: pchar; buf_size: integer): integer;
+    cdecl; external av__codec;
+
+  {$IFNDEF FPC}
+  function avcodec_parse_frame (avctx: PAVCodecContext; pdata: PPointer;
+                        data_size_ptr: pinteger;
+                        buf: pchar; buf_size: integer): integer;
+    cdecl; external av__codec;
+  {$ENDIF}
+  function avcodec_encode_audio (avctx: PAVCodecContext; buf: PByte;
+                        buf_size: integer; const samples: Pword): integer;
+    cdecl; external av__codec;
+
+  (* avcodec_encode_video: -1 if error *)
+  function avcodec_encode_video (avctx: PAVCodecContext; buf: pointer;
+                        buf_size: integer; pict: PAVFrame): integer;
+    cdecl; external av__codec;
+  function avcodec_encode_subtitle (avctx: PAVCodecContext; buf: pchar;
+                        buf_size: integer; const sub: PAVSubtitle): integer;
+    cdecl; external av__codec;
+  function avcodec_close (avctx: PAVCodecContext): integer;
+    cdecl; external av__codec;
+
+  procedure avcodec_register_all ();
+    cdecl; external av__codec;
+
+  procedure avcodec_flush_buffers (avctx: PAVCodecContext);
+    cdecl; external av__codec;
+  procedure avcodec_default_free_buffers (s: PAVCodecContext);
+    cdecl; external av__codec;
+
+(* misc usefull functions *)
+
+(**
+ * returns a single letter to describe the picture type
+ *)
+  function av_get_pict_type_char (pict_type: integer): char;
+    cdecl; external av__codec;
+
+
+(**
+ * returns codec bits per sample
+ *)
+function av_get_bits_per_sample (codec_id: TCodecID): integer;
+  cdecl; external av__codec;
+
+const
+  AV_PARSER_PTS_NB      = 4;
+  PARSER_FLAG_COMPLETE_FRAMES = $0001;
+
+type
+  PAVCodecParserContext = ^TAVCodecParserContext;
+  PAVCodecParser = ^TAVCodecParser;
+
+  TAVCodecParserContext = record
+    priv_data: pointer;
+    parser: PAVCodecParser;
+    frame_offset: int64; (* offset of the current frame *)
+    cur_offset: int64; (* current offset (incremented by each av_parser_parse()) *)
+    last_frame_offset: int64; (* offset of the last frame *)
+    (* video info *)
+    pict_type: integer; (* XXX: put it back in AVCodecContext *)
+    repeat_pict: integer; (* XXX: put it back in AVCodecContext *)
+    pts: int64;     (* pts of the current frame *)
+    dts: int64;     (* dts of the current frame *)
+
+    (* private data *)
+    last_pts: int64;
+    last_dts: int64;
+    fetch_timestamp: integer;
+
+    cur_frame_start_index: integer;
+    cur_frame_offset: array [0..AV_PARSER_PTS_NB - 1] of int64;
+    cur_frame_pts: array [0..AV_PARSER_PTS_NB - 1] of int64;
+    cur_frame_dts: array [0..AV_PARSER_PTS_NB - 1] of int64;
+
+    flags: integer;
+  end;
+
+  TAVCodecParser = record
+    codec_ids: array [0..4] of integer; (* several codec IDs are permitted *)
+    priv_data_size: integer;
+    parser_init: function (s: PAVCodecParserContext): integer; cdecl;
+    parser_parse: function (s: PAVCodecParserContext; avctx: PAVCodecContext;
+                            poutbuf: PPointer; poutbuf_size: PInteger;
+                            const buf: pchar; buf_size: integer): integer; cdecl;
+    parser_close: procedure (s: PAVCodecParserContext); cdecl;
+    split: function (avctx: PAVCodecContext; const buf: pchar;
+                     buf_size: integer): integer; cdecl;
+    next: PAVCodecParser;
+  end;
+
+  procedure av_register_codec_parser (parser: PAVCodecParser); cdecl;
+    cdecl; external av__codec;
+
+  function av_parser_init (codec_id: integer): PAVCodecParserContext;
+    cdecl; external av__codec;
+
+  function av_parser_parse (s: PAVCodecParserContext;
+                    avctx: PAVCodecContext;
+                    poutbuf: PPointer; poutbuf_size: pinteger;
+                    const buf: pchar; buf_size: integer;
+                    pts: int64; dts: int64): integer;
+    cdecl; external av__codec;
+  function av_parser_change (s: PAVCodecParserContext;
+                     avctx: PAVCodecContext;
+                     poutbuf: PPointer; poutbuf_size: PInteger;
+                     const buf: pchar; buf_size: integer; keyframe: integer): integer;
+    cdecl; external av__codec;
+  procedure av_parser_close (s: PAVCodecParserContext);
+    cdecl; external av__codec;
+
+type
+  PAVBitStreamFilterContext = ^TAVBitStreamFilterContext;
+  PAVBitStreamFilter = ^TAVBitStreamFilter;
+
+  TAVBitStreamFilterContext = record
+    priv_data: pointer;
+    filter: PAVBitStreamFilter;
+    parser: PAVCodecParserContext;
+    next: PAVBitStreamFilterContext;
+  end;
+
+  TAVBitStreamFilter = record
+    name: pchar;
+    priv_data_size: integer;
+    filter: function (bsfc: PAVBitStreamFilterContext;
+                  avctx: PAVCodecContext; args: pchar;
+                  poutbuf: PPointer; poutbuf_size: PInteger;
+                  buf: PByte; buf_size: integer; keyframe: integer): integer; cdecl;
+    next: PAVBitStreamFilter;
+  end;
+
+procedure av_register_bitstream_filter (bsf: PAVBitStreamFilter);
+  cdecl; external av__codec;
+
+function av_bitstream_filter_init (name: pchar): PAVBitStreamFilterContext;
+  cdecl; external av__codec;
+
+function av_bitstream_filter_filter (bsfc: PAVBitStreamFilterContext;
+                               avctx: PAVCodecContext; args: pchar;
+                               poutbuf: PPointer; poutbuf_size: PInteger;
+                               buf: PByte; buf_size: integer; keyframe: integer): integer;
+  cdecl; external av__codec;
+procedure av_bitstream_filter_close (bsf: PAVBitStreamFilterContext);
+  cdecl; external av__codec;
+
+
+(* memory *)
+  procedure av_fast_realloc (ptr: pointer; size: PCardinal; min_size: Cardinal);
+    cdecl; external av__codec;
+(* for static data only *)
+(* call av_free_static to release all staticaly allocated tables *)
+  procedure  av_free_static ();
+    cdecl; external av__codec;
+
+  procedure av_mallocz_static(size: cardinal);
+    cdecl; external av__codec;
+
+  procedure av_realloc_static(ptr: pointer; size: Cardinal);
+    cdecl; external av__codec;
+
+  procedure img_copy (dst: PAVPicture; const src: PAVPicture;
+                      pix_fmt: TAVPixelFormat; width: integer; height: integer);
+    cdecl; external av__codec;
+
+  function img_crop (dst: PAVPicture; const src: PAVPicture;
+             pix_fmt: TAVPixelFormat; top_band, left_band: integer): integer;
+    cdecl; external av__codec;
+
+  function img_pad (dst: PAVPicture; const src: PAVPicture; height, width: integer;
+                    pix_fmt: TAVPixelFormat; padtop, padbottom, padleft, padright: integer;
+                    color: PInteger): integer;
+    cdecl; external av__codec;
+
+implementation
+
+end.
diff --git a/Game/Code/lib/ffmpeg/avformat.pas b/Game/Code/lib/ffmpeg/avformat.pas
index 6d13bcdf..6e9c5934 100644
--- a/Game/Code/lib/ffmpeg/avformat.pas
+++ b/Game/Code/lib/ffmpeg/avformat.pas
@@ -1,629 +1,630 @@
-                                                                              (*
- * 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 Street, Fifth Floor, Boston, MA 02110-1301 USA
-                                                                              *)
-unit avformat;
-
-interface
-
-{$IFDEF FPC}
-  {$MODE Delphi}
-{$ENDIF}
-
-uses
-  windows, avcodec, avio, rational, avutil;
-
-const
-  av__format = 'avformat-50.dll';
-
-  LIBAVUTIL_VERSION_INT   =  ((49 shl 16) + (0 shl 8) + 1);
-  LIBAVUTIL_VERSION       = '49.0.1';
-  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;
-
-  MAXINT64 = $7fffffffffffffff;
-  MININT64 = $8000000000000000;
-
-  PKT_FLAG_KEY = $0001;
-
-  (* AVImageFormat.flags field constants *)
-  AVIMAGE_INTERLEAVED = $0001; (* image format support interleaved output *)
-  MAX_STREAMS         = 20;
-type
-  int = integer;
-
-  PAVPacket = ^TAVPacket;
-  PAVImageFormat = ^TAVImageFormat;
-  PAVFormatContext = ^TAVFormatContext;
-  PAVFormatParameters = ^TAVFormatParameters;
-  PAVOutputFormat = ^TAVOutputFormat;
-  PAVProbeData = ^TAVProbeData;
-  PAVInputFormat = ^TAVInputFormat;
-  PAVIndexEntry = ^TAVIndexEntry;
-  PAVStream = ^TAVStream;
-  PAVPacketList = ^TAVPacketList;
-  PAVImageInfo = ^TAVImageInfo;
-
-  TAVPacket = record {56}
-    pts: int64;                            ///< presentation time stamp in time_base units
-    dts: int64;                            ///< decompression time stamp in time_base units
-    data: PByte;
-    size: integer;
-    stream_index: integer;
-    flags: integer;
-    duration: integer;                         ///< presentation duration in time_base units (0 if not available)
-    destruct: procedure (p: PAVPacket);
-    priv: pointer;
-    pos: int64;                            ///< byte position in stream, -1 if unknown
-  end;
-
-(*************************************************)
-(* fractional numbers for exact pts handling *)
-
-(* the exact value of the fractional number is: 'val + num / den'. num
-   is assumed to be such as 0 <= num < den *)
-  PAVFrac = ^TAVFrac;
-  TAVFrac = record
-    val, num, den: int64;
-  end;
-
-(*************************************************)
-(* input/output formats *)
-
-(* this structure contains the data a format has to probe a file *)
-  TAVProbeData = record {12}
-    filename: pchar;
-    buf: pchar;
-    buf_size: integer;
-  end;
-
-  TAVFormatParameters = record {56}
-    time_base: TAVRational; (* 8 bytes *)
-    sample_rate: integer;
-    channels: integer;
-    width: integer;
-    height: integer;
-    pix_fmt: TAVPixelFormat;
-    image_format: PAVImageFormat; (* 4 bytes *)
-    channel: integer; (* used to select dv channel *)
-    device: pchar; (* video, audio or DV device *)
-    standard: pchar; (* tv standard, NTSC, PAL, SECAM *)
-//    int mpeg2ts_raw:1;  (* force raw MPEG2 transport stream output, if possible *)
-//    int mpeg2ts_compute_pcr:1; (* compute exact PCR for each transport
-//                                  stream packet (only meaningful if
-//                                  mpeg2ts_raw is TRUE *)
-//    int initial_pause:1;       (* do not begin to play the stream
-//                                  immediately (RTSP only) *)
-    dummy: byte;
-    video_codec_id: TCodecID;
-    audio_codec_id: TCodecID;
-  end;
-
-  TAVOutputFormat = record {56}
-    name: pchar;
-    long_name: pchar;
-    mime_type: pchar;
-    extensions: pchar; (* comma separated extensions *)
-    (* size of private data so that it can be allocated in the wrapper *)
-    priv_data_size: integer;
-    (* output support *)
-    audio_codec: TCodecID; (* default audio codec *)
-    video_codec: TCodecID; (* default video codec *)
-    write_header: function (c: PAVFormatContext): integer; cdecl;
-    write_packet: function (c: PAVFormatContext; pkt: PAVPacket): integer; cdecl;
-    write_trailer: function (c: PAVFormatContext): integer; cdecl;
-    (* can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER, AVFMT_GLOBALHEADER *)
-    flags: integer;
-    (* currently only used to set pixel format if not YUV420P *)
-    set_parameters: function (c: PAVFormatContext; f: PAVFormatParameters): integer; cdecl;
-    interleave_packet: function (s: PAVFormatContext; _out: PAVPacket; _in: PAVPacket; flush: integer): integer; cdecl;
-    (* private fields *)
-    next: PAVOutputFormat;
-  end;
-
-  TAVInputFormat = record {60}
-    name: pchar;
-    long_name: pchar;
-    (* size of private data so that it can be allocated in the wrapper *)
-    priv_data_size: integer;
-    (* tell if a given file has a chance of being parsing by this format *)
-    read_probe: function (p: PAVProbeData): integer; cdecl;
-    (* read the format header and initialize the AVFormatContext
-       structure. Return 0 if OK. 'ap' if non NULL contains
-       additionnal paramters. Only used in raw format right
-       now. 'av_new_stream' should be called to create new streams.  *)
-    read_header: function (c: PAVFormatContext; ap: PAVFormatParameters): integer; cdecl;
-    (* read one packet and put it in 'pkt'. pts and flags are also
-       set. 'av_new_stream' can be called only if the flag
-       AVFMTCTX_NOHEADER is used. *)
-    read_packet: function (c: PAVFormatContext; pkt: PAVPacket): integer; cdecl;
-    (* close the stream. The AVFormatContext and AVStreams are not
-       freed by this function *)
-    read_close: function (c: PAVFormatContext): integer; cdecl;
-    (*** seek to a given timestamp relative to the frames in
-     * stream component stream_index
-     * @param stream_index must not be -1
-     * @param flags selects which direction should be preferred if no exact
-     *              match is available     *)
-    read_seek: function (c: PAVFormatContext; stream_index: integer;
-                  timestamp: int64; flags: integer): integer; cdecl;
-    (*** gets the next timestamp in AV_TIME_BASE units.     *)
-    read_timestamp: function (s: PAVFormatContext; stream_index: integer;
-                              pos: pint64; pos_limit: int64): integer; cdecl;
-    (* can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER *)
-    flags: integer;
-    (* if extensions are defined, then no probe is done. You should
-       usually not use extension format guessing because it is not
-       reliable enough *)
-    extensions: pchar;
-    (* general purpose read only value that the format can use *)
-    value: integer;
-
-    (* start/resume playing - only meaningful if using a network based format (RTSP) *)
-    read_play: function (c: PAVFormatContext): integer; cdecl;
-
-    (* pause playing - only meaningful if using a network based format  (RTSP) *)
-    read_pause: function (c: PAVFormatContext): integer; cdecl;
-
-    (* private fields *)
-    next: PAVInputFormat;
-  end;
-
-  TAVIndexEntry = record {24}
-    pos: int64;
-    timestamp: int64;
-(* the following 2 flags indicate that the next/prev keyframe is known, and scaning for it isnt needed *)
-    flags: integer;
-    min_distance: integer;         (* min distance between this and the previous keyframe, used to avoid unneeded searching *)
-  end;
-
-  TAVStream = record {168}
-    index: integer;    (* stream index in AVFormatContext *)
-    id: integer;       (* format specific stream id *)
-    codec: PAVCodecContext; (* codec context *)
-    (*** real base frame rate of the stream.
-     * for example if the timebase is 1/90000 and all frames have either
-     * approximately 3600 or 1800 timer ticks then r_frame_rate will be 50/1     *)
-    r_frame_rate: TAVRational;
-    priv_data: pointer;
-    (* internal data used in av_find_stream_info() *)
-    codec_info_duration: int64;
-    codec_info_nb_frames: integer;
-    (* encoding: PTS generation when outputing stream *)
-    pts: TAVFrac;
-
-    (*** 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.     *)
-    time_base: TAVRational;
-    pts_wrap_bits: integer; (* number of bits in pts (used for wrapping control) *)
-    (* ffmpeg.c private use *)
-    stream_copy: integer; (* if TRUE, just copy stream *)
-    discard: TAVDiscard; ///< selects which packets can be discarded at will and dont need to be demuxed
-    //FIXME move stuff to a flags field?
-    (* quality, as it has been removed from AVCodecContext and put in AVVideoFrame
-     * MN:dunno if thats the right place, for it *)
-    quality: single;
-    (* decoding: position of the first frame of the component, in AV_TIME_BASE fractional seconds. *)
-    start_time: int64;
-    (* decoding: duration of the stream, in AV_TIME_BASE fractional seconds. *)
-    duration: int64;
-
-    language: array [0..3] of char; (* ISO 639 3-letter language code (empty string if undefined) *)
-
-    (* av_read_frame() support *)
-    need_parsing: integer;                  ///< 1->full parsing needed, 2->only parse headers dont repack
-    parser: PAVCodecParserContext;
-
-    cur_dts: int64;
-    last_IP_duration: integer;
-    last_IP_pts: int64;
-    (* av_seek_frame() support *)
-    index_entries: PAVIndexEntry; (* only used if the format does not support seeking natively *)
-    nb_index_entries: integer;
-    index_entries_allocated_size: integer;
-
-    nb_frames: int64;                 ///< number of frames in this stream if known or 0
-    pts_buffer: array [0..4] of int64;
-  end;
-
-(* format I/O context *)
-  TAVFormatContext = record {3960}
-    av_class: PAVClass; (* set by av_alloc_format_context *)
-    (* can only be iformat or oformat, not both at the same time *)
-    iformat: PAVInputFormat;
-    oformat: PAVOutputFormat;
-    priv_data: pointer;
-    pb: TByteIOContext;
-    nb_streams: integer;
-    streams: array [0..MAX_STREAMS - 1] of PAVStream;
-    filename: array [0..1023] of char; (* input or output filename *)
-    (* stream info *)
-    timestamp: int64;
-    title: array [0..511] of char;
-    author: array [0..511] of char;
-    copyright: array [0..511] of char;
-    comment: array [0..511] of char;
-    album: array [0..511] of char;
-    year: integer;  (* ID3 year, 0 if none *)
-    track: integer; (* track number, 0 if none *)
-    genre: array [0..31] of char; (* ID3 genre *)
-
-    ctx_flags: integer; (* format specific flags, see AVFMTCTX_xx *)
-    (* private data for pts handling (do not modify directly) *)
-    (* This buffer is only needed when packets were already buffered but
-       not decoded, for example to get the codec parameters in mpeg
-       streams *)
-    packet_buffer: PAVPacketList;
-
-    (* decoding: position of the first frame of the component, in
-       AV_TIME_BASE fractional seconds. NEVER set this value directly:
-       it is deduced from the AVStream values.  *)
-    start_time: int64;
-    (* decoding: duration of the stream, in AV_TIME_BASE fractional
-       seconds. NEVER set this value directly: it is deduced from the
-       AVStream values.  *)
-    duration: int64;
-    (* decoding: total file size. 0 if unknown *)
-    file_size: int64;
-    (* decoding: total stream bitrate in bit/s, 0 if not
-       available. Never set it directly if the file_size and the
-       duration are known as ffmpeg can compute it automatically. *)
-    bit_rate: integer;
-
-    (* av_read_frame() support *)
-    cur_st: PAVStream;
-    cur_ptr: pchar;
-    cur_len: integer;
-    cur_pkt: TAVPacket;
-
-    (* av_seek_frame() support *)
-    data_offset: int64; (* offset of the first packet *)
-    index_built: integer;
-
-    mux_rate: integer;
-    packet_size: integer;
-    preload: integer;
-    max_delay: integer;
-
-    (* number of times to loop output in formats that support it *)
-    loop_output: integer;
-
-    flags: integer;
-    loop_input: integer;
-    (* decoding: size of data to probe; encoding unused *)
-    probesize: cardinal;
-  end;
-
-  TAVPacketList = record {64}
-    pkt: TAVPacket;
-    next: PAVPacketList;
-  end;
-
-(* still image support *)
-  PAVInputImageContext = pointer; // attribute_deprecated;
-//  PAVInputImageContext = pointer; //AVInputImageContext attribute_deprecated;
-
-(* still image support *)
-  TAVImageInfo = record {48}
-    pix_fmt: TAVPixelFormat; (* requested pixel format *)
-    width: integer; (* requested width *)
-    height: integer; (* requested height *)
-    interleaved: integer; (* image is interleaved (e.g. interleaved GIF) *)
-    pict: TAVPicture; (* returned allocated image *)
-  end;
-
-  TAVImageFormat = record {32}
-    name: pchar;
-    extensions: pchar;
-    (* tell if a given file has a chance of being parsing by this format *)
-    img_probe: function (d: PAVProbeData): integer; cdecl;
-    (* read a whole image. 'alloc_cb' is called when the image size is
-       known so that the caller can allocate the image. If 'allo_cb'
-       returns non zero, then the parsing is aborted. Return '0' if
-       OK. *)
-    img_read: function (b: PByteIOContext; alloc_cb: pointer; ptr: pointer): integer; cdecl;
-    (* write the image *)
-    supported_pixel_formats: integer; (* mask of supported formats for output *)
-    img_write: function (b: PByteIOContext; i: PAVImageInfo): integer; cdecl;
-    flags: integer;
-    next: PAVImageFormat;
-  end;
-
-procedure av_destruct_packet_nofree (pkt: PAVPacket);
-  cdecl; external av__format;
-procedure av_destruct_packet (pkt: PAVPacket);
-  cdecl; external av__format;
-
-(* initialize optional fields of a packet *)
-procedure av_init_packet (pkt: PAVPacket);
-
-function av_new_packet(pkt: PAVPacket; size: integer): integer;
-  cdecl; external av__format;
-
-function av_get_packet (s: PByteIOContext; pkt: PAVPacket; size: integer): integer;
-  cdecl; external av__format;
-
-function av_dup_packet (pkt: PAVPacket): integer;
-  cdecl; external av__format;
-
-(** * Free a packet
- *
- * @param pkt packet to free *)
-procedure av_free_packet (pkt: PAVPacket);
-
-procedure av_register_image_format (img_fmt: PAVImageFormat);
-    cdecl; external av__format;
-
-function av_probe_image_format (pd: PAVProbeData): PAVImageFormat;
-    cdecl; external av__format;
-
-function guess_image_format (filename: pchar): PAVImageFormat;
-    cdecl; external av__format;
-
-function av_guess_image2_codec(filename: pchar): TCodecID;
-    cdecl; external av__format;
-
-function av_read_image (pb: PByteIOContext; filename: pchar;
-                  fmt: PAVImageFormat;
-                  alloc_cb: pointer; opaque: pointer): integer;
-    cdecl; external av__format;
-
-function av_write_image(pb: PByteIOContext; fmt: PAVImageFormat; img: PAVImageInfo): integer;
-    cdecl; external av__format;
-
-(* XXX: use automatic init with either ELF sections or C file parser *)
-(* modules *)
-
-//#include "rtp.h"
-
-//#include "rtsp.h"
-
-(* utils.c *)
-  procedure av_register_input_format (format: PAVInputFormat);
-    cdecl; external av__format;
-
-  procedure av_register_output_format (format: PAVOutputFormat);
-    cdecl; external av__format;
-
-  function guess_stream_format (short_name: pchar; filename: pchar; mime_type: pchar): PAVOutputFormat;
-    cdecl; external av__format;
-
-  function guess_format(short_name: pchar; filename: pchar; mime_type: pchar): PAVOutputFormat;
-    cdecl; external av__format;
-
-  function av_guess_codec(fmt: PAVOutputFormat; short_name: pchar;
-                          filename: pchar; mime_type: pchar; _type: TCodecType): TCodecID;
-    cdecl; external av__format;
-
-  procedure av_hex_dump (f: HFILE; buf: pchar; size: integer);
-    cdecl; external av__format;
-  procedure av_pkt_dump(f: HFILE; pkt: pAVPacket; dump_payload: integer);
-    cdecl; external av__format;
-
-  procedure av_register_all ();
-    cdecl; external av__format;
-
-
-(* media file input *)
-  function av_find_input_format (short_name: pchar): PAVInputFormat;
-    cdecl; external av__format;
-  function av_probe_input_format (pd: PAVProbeData; is_opened: integer): PAVInputFormat;
-    cdecl; external av__format;
-  function av_open_input_stream (ic_ptr: PAVFormatContext;
-                         pb: PByteIOContext; filename: pchar;
-                         fmt: PAVInputFormat; ap: PAVFormatParameters): integer;
-    cdecl; external av__format;
-(*** Open a media file as input. The codec are not opened. Only the file
- * header (if present) is read.
- *
- * @param ic_ptr the opened media file handle is put here
- * @param filename filename to open.
- * @param fmt if non NULL, force the file format to use
- * @param buf_size optional buffer size (zero if default is OK)
- * @param ap additionnal parameters needed when opening the file (NULL if default)
- * @return 0 if OK. AVERROR_xxx otherwise. *)
-
-  function av_open_input_file (var ic_ptr: PAVFormatContext; filename: pchar;
-                       fmt: PAVInputFormat; buf_size: integer;
-                       ap: PAVFormatParameters): integer;
-    cdecl; external av__format;
-
-  (* no av_open for output, so applications will need this: *)
-  function av_alloc_format_context (): PAVFormatContext;
-    cdecl; external av__format;
-
-const
-  AVERROR_UNKNOWN     =(-1);  (* unknown error *)
-  AVERROR_IO          =(-2);  (* i/o error *)
-  AVERROR_NUMEXPECTED =(-3);  (* number syntax expected in filename *)
-  AVERROR_INVALIDDATA =(-4);  (* invalid data found *)
-  AVERROR_NOMEM       =(-5);  (* not enough memory *)
-  AVERROR_NOFMT       =(-6);  (* unknown format *)
-  AVERROR_NOTSUPP     =(-7);  (* operation not supported *)
-
-(*** Read the beginning of a media file to get stream information. This
- * is useful for file formats with no headers such as MPEG. This
- * function also compute the real frame rate in case of mpeg2 repeat
- * frame mode.
- *
- * @param ic media file handle
- * @return >=0 if OK. AVERROR_xxx if error.
- * @todo let user decide somehow what information is needed so we dont waste time geting stuff the user doesnt need *)
-
-  function av_find_stream_info (ic: PAVFormatContext): integer;
-    cdecl; external av__format;
-  function av_read_packet (s: PAVFormatContext; pkt: PAVPacket): integer;
-    cdecl; external av__format;
-(*** Return the next frame of a stream.
- *
- * The returned packet is valid
- * until the next av_read_frame() or until av_close_input_file() and
- * must be freed with av_free_packet. For video, the packet contains
- * exactly one frame. For audio, it contains an integer number of
- * frames if each frame has a known fixed size (e.g. PCM or ADPCM
- * data). If the audio frames have a variable size (e.g. MPEG audio),
- * then it contains one frame.
- *
- * pkt->pts, pkt->dts and pkt->duration are always set to correct
- * values in AV_TIME_BASE unit (and guessed if the format cannot
- * provided them). pkt->pts can be AV_NOPTS_VALUE if the video format
- * has B frames, so it is better to rely on pkt->dts if you do not
- * decompress the payload.
- *
- * @return 0 if OK, < 0 if error or end of file. *)
-
-  function av_read_frame (s: PAVFormatContext; pkt: PAVPacket): integer;
-    cdecl; external av__format;
-  function av_seek_frame (s: PAVFormatContext; stream_index: integer; timestamp: int64; flags: integer): integer;
-    cdecl; external av__format;
-  function av_read_play (s: PAVFormatContext): integer;
-    cdecl; external av__format;
-  function av_read_pause (s: PAVFormatContext): integer;
-    cdecl; external av__format;
-  procedure av_close_input_file (s: PAVFormatContext);
-    cdecl; external av__format;
-  function av_new_stream (s: PAVFormatContext; id: integer): PAVStream;
-    cdecl; external av__format;
-  procedure av_set_pts_info (s: PAVStream; pts_wrap_bits: integer;
-                     pts_num: integer; pts_den: integer);
-    cdecl; external av__format;
-
-const
-  AVSEEK_FLAG_BACKWARD =1; ///< seek backward
-  AVSEEK_FLAG_BYTE     =2; ///< seeking based on position in bytes
-  AVSEEK_FLAG_ANY      =4; ///< seek to any frame, even non keyframes
-
-  function av_find_default_stream_index (s: PAVFormatContext): integer;
-    cdecl; external av__format;
-  function av_index_search_timestamp (st: PAVStream; timestamp: int64; flags: integer): integer;
-    cdecl; external av__format;
-  function av_add_index_entry (st: PAVStream; pos: int64; timestamp: int64;
-                    distance: integer; flags: integer): integer;
-    cdecl; external av__format;
-  function av_seek_frame_binary (s: PAVFormatContext; stream_index: integer;
-                   target_ts: int64; flags: integer): integer;
-    cdecl; external av__format;
-
-  procedure av_update_cur_dts (s: PAVFormatContext; ref_st: PAVStream;
-                               timestamp: int64);
-    cdecl; external av__format;
-
-(* media file output *)
-  function av_set_parameters (s: PAVFormatContext; ap: PAVFormatParameters): integer;
-    cdecl; external av__format;
-
-  function av_write_header (s: PAVFormatContext): integer;
-    cdecl; external av__format;
-
-  function av_write_frame(s: PAVFormatContext; pkt: PAVPacket): integer;
-    cdecl; external av__format;
-
-  function av_interleaved_write_frame (s: PAVFormatContext; pkt: PAVPacket): integer;
-    cdecl; external av__format;
-
-  function av_interleave_packet_per_dts(s: PAVFormatContext; _out: PAVPacket;
-                                        pkt: PAVPacket; flush: integer): integer;
-    cdecl; external av__format;
-  function av_write_trailer(s: pAVFormatContext): integer;
-    cdecl; external av__format;
-
-  procedure dump_format(ic: PAVFormatContext; index: integer; url: pchar;
-                 is_output: integer);
-    cdecl; external av__format;
-
-  function parse_image_size(width_ptr: PInteger; height_ptr: PInteger; str: pchar): integer;
-    cdecl; external av__format;
-  function parse_frame_rate (frame_rate: PInteger; frame_rate_base: PInteger; arg: pchar): integer;
-    cdecl; external av__format;
-  function parse_date(datestr: pchar; duration: integer): int64;
-    cdecl; external av__format;
-  function av_gettime (): int64;
-    cdecl; external av__format;
-
-(* ffm specific for ffserver *)
-const
-  FFM_PACKET_SIZE = 4096;
-
-  {$IFNDEF FPC}
-  function ffm_read_write_index (fd: integer): int64;
-    cdecl; external av__format;
-
-  procedure ffm_write_write_index(fd: integer; pos: int64);
-    cdecl; external av__format;
-
-  procedure ffm_set_write_index (s: PAVFormatContext; pos: int64; file_size: int64);
-    cdecl; external av__format;
-  {$ENDIF}
-  
-  function find_info_tag (arg: pchar; arg_size: integer; tag1: pchar; info: pchar): integer;
-    cdecl; external av__format;
-
-  {$IFNDEF FPC}
-  function get_frame_filename(buf: pchar; buf_size: integer;
-                       path: pchar; number: integer): integer;
-    cdecl; external av__format;
-
-  function filename_number_test (filename: pchar): integer;
-    cdecl; external av__format;
-
-(* grab specific *)
-  function video_grab_init (): integer;
-    cdecl; external av__format;
-
-  function audio_init (): integer;
-    cdecl; external av__format;
-
-(* DV1394 *)
-  function dv1394_init (): integer;
-    cdecl; external av__format;
-  function dc1394_init (): integer;
-    cdecl; external av__format;
-  {$ENDIF}
-
-  function strstart(str: pchar; val: pchar; ptr: PPointer): integer;
-    cdecl; external av__format;
-  function stristart(str: pchar; val: pchar; ptr: PPointer): integer;
-    cdecl; external av__format;
-  procedure pstrcpy(buf: pchar; buf_size: integer; str: pchar);
-    cdecl; external av__format;
-  function pstrcat(buf: pchar; buf_size: integer; s: pchar): pchar;
-    cdecl; external av__format;
-
-  procedure __dynarray_add (tab_ptr: PPointer; nb_ptr: PInteger; elem: cardinal);
-    cdecl; external av__format;
-
-
-implementation
-
-procedure av_init_packet (pkt: PAVPacket);
-begin
-  pkt.pts   := AV_NOPTS_VALUE;
-  pkt.dts   := AV_NOPTS_VALUE;
-  pkt.pos   := -1;
-  pkt.duration := 0;
-  pkt.flags := 0;
-  pkt.stream_index := 0;
-  pkt.destruct := @av_destruct_packet_nofree;
-end;
-
-procedure av_free_packet (pkt: PAVPacket);
-begin
-  if (pkt <> nil) and (@pkt^.destruct <> nil) then
-    pkt^.destruct (pkt);
-end;
-
-end.
+                                                                              (*
+ * 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 Street, Fifth Floor, Boston, MA 02110-1301 USA
+                                                                              *)
+unit avformat;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+uses
+  {$IFDEF win32}
+  windows,
+  {$ENDIF}
+  avcodec,
+  avio,
+  rational,
+  avutil;
+
+const
+  {$IFDEF win32}
+    av__format = 'avformat-50.dll';
+  {$ELSE}
+    av__format = 'libavformat.so';   // .0d
+    av__codec   = 'libavcodec.so';
+  {$ENDIF}
+
+  LIBAVUTIL_VERSION_INT   =  ((49 shl 16) + (0 shl 8) + 1);
+  LIBAVUTIL_VERSION       = '49.0.1';
+  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;
+
+  MAXINT64 = $7fffffffffffffff;
+  MININT64 = $8000000000000000;
+
+  PKT_FLAG_KEY = $0001;
+
+  (* AVImageFormat.flags field constants *)
+  AVIMAGE_INTERLEAVED = $0001; (* image format support interleaved output *)
+  MAX_STREAMS         = 20;
+type
+  int = integer;
+
+  PAVPacket = ^TAVPacket;
+  PAVImageFormat = ^TAVImageFormat;
+  PAVFormatContext = ^TAVFormatContext;
+  PAVFormatParameters = ^TAVFormatParameters;
+  PAVOutputFormat = ^TAVOutputFormat;
+  PAVProbeData = ^TAVProbeData;
+  PAVInputFormat = ^TAVInputFormat;
+  PAVIndexEntry = ^TAVIndexEntry;
+  PAVStream = ^TAVStream;
+  PAVPacketList = ^TAVPacketList;
+  PAVImageInfo = ^TAVImageInfo;
+
+  TAVPacket = record {56}
+    pts: int64;                            ///< presentation time stamp in time_base units
+    dts: int64;                            ///< decompression time stamp in time_base units
+    data: PByte;
+    size: integer;
+    stream_index: integer;
+    flags: integer;
+    duration: integer;                         ///< presentation duration in time_base units (0 if not available)
+    destruct: procedure (p: PAVPacket);
+    priv: pointer;
+    pos: int64;                            ///< byte position in stream, -1 if unknown
+  end;
+
+(*************************************************)
+(* fractional numbers for exact pts handling *)
+
+(* the exact value of the fractional number is: 'val + num / den'. num
+   is assumed to be such as 0 <= num < den *)
+  PAVFrac = ^TAVFrac;
+  TAVFrac = record
+    val, num, den: int64;
+  end;
+
+(*************************************************)
+(* input/output formats *)
+
+(* this structure contains the data a format has to probe a file *)
+  TAVProbeData = record {12}
+    filename: pchar;
+    buf: pchar;
+    buf_size: integer;
+  end;
+
+  TAVFormatParameters = record {56}
+    time_base: TAVRational; (* 8 bytes *)
+    sample_rate: integer;
+    channels: integer;
+    width: integer;
+    height: integer;
+    pix_fmt: TAVPixelFormat;
+    image_format: PAVImageFormat; (* 4 bytes *)
+    channel: integer; (* used to select dv channel *)
+    device: pchar; (* video, audio or DV device *)
+    standard: pchar; (* tv standard, NTSC, PAL, SECAM *)
+//    int mpeg2ts_raw:1;  (* force raw MPEG2 transport stream output, if possible *)
+//    int mpeg2ts_compute_pcr:1; (* compute exact PCR for each transport
+//                                  stream packet (only meaningful if
+//                                  mpeg2ts_raw is TRUE *)
+//    int initial_pause:1;       (* do not begin to play the stream
+//                                  immediately (RTSP only) *)
+    dummy: byte;
+    video_codec_id: TCodecID;
+    audio_codec_id: TCodecID;
+  end;
+
+  TAVOutputFormat = record {56}
+    name: pchar;
+    long_name: pchar;
+    mime_type: pchar;
+    extensions: pchar; (* comma separated extensions *)
+    (* size of private data so that it can be allocated in the wrapper *)
+    priv_data_size: integer;
+    (* output support *)
+    audio_codec: TCodecID; (* default audio codec *)
+    video_codec: TCodecID; (* default video codec *)
+    write_header: function (c: PAVFormatContext): integer; cdecl;
+    write_packet: function (c: PAVFormatContext; pkt: PAVPacket): integer; cdecl;
+    write_trailer: function (c: PAVFormatContext): integer; cdecl;
+    (* can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER, AVFMT_GLOBALHEADER *)
+    flags: integer;
+    (* currently only used to set pixel format if not YUV420P *)
+    set_parameters: function (c: PAVFormatContext; f: PAVFormatParameters): integer; cdecl;
+    interleave_packet: function (s: PAVFormatContext; _out: PAVPacket; _in: PAVPacket; flush: integer): integer; cdecl;
+    (* private fields *)
+    next: PAVOutputFormat;
+  end;
+
+  TAVInputFormat = record {60}
+    name: pchar;
+    long_name: pchar;
+    (* size of private data so that it can be allocated in the wrapper *)
+    priv_data_size: integer;
+    (* tell if a given file has a chance of being parsing by this format *)
+    read_probe: function (p: PAVProbeData): integer; cdecl;
+    (* read the format header and initialize the AVFormatContext
+       structure. Return 0 if OK. 'ap' if non NULL contains
+       additionnal paramters. Only used in raw format right
+       now. 'av_new_stream' should be called to create new streams.  *)
+    read_header: function (c: PAVFormatContext; ap: PAVFormatParameters): integer; cdecl;
+    (* read one packet and put it in 'pkt'. pts and flags are also
+       set. 'av_new_stream' can be called only if the flag
+       AVFMTCTX_NOHEADER is used. *)
+    read_packet: function (c: PAVFormatContext; pkt: PAVPacket): integer; cdecl;
+    (* close the stream. The AVFormatContext and AVStreams are not
+       freed by this function *)
+    read_close: function (c: PAVFormatContext): integer; cdecl;
+    (*** seek to a given timestamp relative to the frames in
+     * stream component stream_index
+     * @param stream_index must not be -1
+     * @param flags selects which direction should be preferred if no exact
+     *              match is available     *)
+    read_seek: function (c: PAVFormatContext; stream_index: integer;
+                  timestamp: int64; flags: integer): integer; cdecl;
+    (*** gets the next timestamp in AV_TIME_BASE units.     *)
+    read_timestamp: function (s: PAVFormatContext; stream_index: integer;
+                              pos: pint64; pos_limit: int64): integer; cdecl;
+    (* can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER *)
+    flags: integer;
+    (* if extensions are defined, then no probe is done. You should
+       usually not use extension format guessing because it is not
+       reliable enough *)
+    extensions: pchar;
+    (* general purpose read only value that the format can use *)
+    value: integer;
+
+    (* start/resume playing - only meaningful if using a network based format (RTSP) *)
+    read_play: function (c: PAVFormatContext): integer; cdecl;
+
+    (* pause playing - only meaningful if using a network based format  (RTSP) *)
+    read_pause: function (c: PAVFormatContext): integer; cdecl;
+
+    (* private fields *)
+    next: PAVInputFormat;
+  end;
+
+  TAVIndexEntry = record {24}
+    pos: int64;
+    timestamp: int64;
+(* the following 2 flags indicate that the next/prev keyframe is known, and scaning for it isnt needed *)
+    flags: integer;
+    min_distance: integer;         (* min distance between this and the previous keyframe, used to avoid unneeded searching *)
+  end;
+
+  TAVStream = record {168}
+    index: integer;    (* stream index in AVFormatContext *)
+    id: integer;       (* format specific stream id *)
+    codec: PAVCodecContext; (* codec context *)
+    (*** real base frame rate of the stream.
+     * for example if the timebase is 1/90000 and all frames have either
+     * approximately 3600 or 1800 timer ticks then r_frame_rate will be 50/1     *)
+    r_frame_rate: TAVRational;
+    priv_data: pointer;
+    (* internal data used in av_find_stream_info() *)
+    codec_info_duration: int64;
+    codec_info_nb_frames: integer;
+    (* encoding: PTS generation when outputing stream *)
+    pts: TAVFrac;
+
+    (*** 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.     *)
+    time_base: TAVRational;
+    pts_wrap_bits: integer; (* number of bits in pts (used for wrapping control) *)
+    (* ffmpeg.c private use *)
+    stream_copy: integer; (* if TRUE, just copy stream *)
+    discard: TAVDiscard; ///< selects which packets can be discarded at will and dont need to be demuxed
+    //FIXME move stuff to a flags field?
+    (* quality, as it has been removed from AVCodecContext and put in AVVideoFrame
+     * MN:dunno if thats the right place, for it *)
+    quality: single;
+    (* decoding: position of the first frame of the component, in AV_TIME_BASE fractional seconds. *)
+    start_time: int64;
+    (* decoding: duration of the stream, in AV_TIME_BASE fractional seconds. *)
+    duration: int64;
+
+    language: array [0..3] of char; (* ISO 639 3-letter language code (empty string if undefined) *)
+
+    (* av_read_frame() support *)
+    need_parsing: integer;                  ///< 1->full parsing needed, 2->only parse headers dont repack
+    parser: PAVCodecParserContext;
+
+    cur_dts: int64;
+    last_IP_duration: integer;
+    last_IP_pts: int64;
+    (* av_seek_frame() support *)
+    index_entries: PAVIndexEntry; (* only used if the format does not support seeking natively *)
+    nb_index_entries: integer;
+    index_entries_allocated_size: integer;
+
+    nb_frames: int64;                 ///< number of frames in this stream if known or 0
+    pts_buffer: array [0..4] of int64;
+  end;
+
+(* format I/O context *)
+  TAVFormatContext = record {3960}
+    av_class: PAVClass; (* set by av_alloc_format_context *)
+    (* can only be iformat or oformat, not both at the same time *)
+    iformat: PAVInputFormat;
+    oformat: PAVOutputFormat;
+    priv_data: pointer;
+    pb: TByteIOContext;
+    nb_streams: integer;
+    streams: array [0..MAX_STREAMS - 1] of PAVStream;
+    filename: array [0..1023] of char; (* input or output filename *)
+    (* stream info *)
+    timestamp: int64;
+    title: array [0..511] of char;
+    author: array [0..511] of char;
+    copyright: array [0..511] of char;
+    comment: array [0..511] of char;
+    album: array [0..511] of char;
+    year: integer;  (* ID3 year, 0 if none *)
+    track: integer; (* track number, 0 if none *)
+    genre: array [0..31] of char; (* ID3 genre *)
+
+    ctx_flags: integer; (* format specific flags, see AVFMTCTX_xx *)
+    (* private data for pts handling (do not modify directly) *)
+    (* This buffer is only needed when packets were already buffered but
+       not decoded, for example to get the codec parameters in mpeg
+       streams *)
+    packet_buffer: PAVPacketList;
+
+    (* decoding: position of the first frame of the component, in
+       AV_TIME_BASE fractional seconds. NEVER set this value directly:
+       it is deduced from the AVStream values.  *)
+    start_time: int64;
+    (* decoding: duration of the stream, in AV_TIME_BASE fractional
+       seconds. NEVER set this value directly: it is deduced from the
+       AVStream values.  *)
+    duration: int64;
+    (* decoding: total file size. 0 if unknown *)
+    file_size: int64;
+    (* decoding: total stream bitrate in bit/s, 0 if not
+       available. Never set it directly if the file_size and the
+       duration are known as ffmpeg can compute it automatically. *)
+    bit_rate: integer;
+
+    (* av_read_frame() support *)
+    cur_st: PAVStream;
+    cur_ptr: pchar;
+    cur_len: integer;
+    cur_pkt: TAVPacket;
+
+    (* av_seek_frame() support *)
+    data_offset: int64; (* offset of the first packet *)
+    index_built: integer;
+
+    mux_rate: integer;
+    packet_size: integer;
+    preload: integer;
+    max_delay: integer;
+
+    (* number of times to loop output in formats that support it *)
+    loop_output: integer;
+
+    flags: integer;
+    loop_input: integer;
+    (* decoding: size of data to probe; encoding unused *)
+    probesize: cardinal;
+  end;
+
+  TAVPacketList = record {64}
+    pkt: TAVPacket;
+    next: PAVPacketList;
+  end;
+
+(* still image support *)
+  PAVInputImageContext = pointer; // attribute_deprecated;
+//  PAVInputImageContext = pointer; //AVInputImageContext attribute_deprecated;
+
+(* still image support *)
+  TAVImageInfo = record {48}
+    pix_fmt: TAVPixelFormat; (* requested pixel format *)
+    width: integer; (* requested width *)
+    height: integer; (* requested height *)
+    interleaved: integer; (* image is interleaved (e.g. interleaved GIF) *)
+    pict: TAVPicture; (* returned allocated image *)
+  end;
+
+  TAVImageFormat = record {32}
+    name: pchar;
+    extensions: pchar;
+    (* tell if a given file has a chance of being parsing by this format *)
+    img_probe: function (d: PAVProbeData): integer; cdecl;
+    (* read a whole image. 'alloc_cb' is called when the image size is
+       known so that the caller can allocate the image. If 'allo_cb'
+       returns non zero, then the parsing is aborted. Return '0' if
+       OK. *)
+    img_read: function (b: PByteIOContext; alloc_cb: pointer; ptr: pointer): integer; cdecl;
+    (* write the image *)
+    supported_pixel_formats: integer; (* mask of supported formats for output *)
+    img_write: function (b: PByteIOContext; i: PAVImageInfo): integer; cdecl;
+    flags: integer;
+    next: PAVImageFormat;
+  end;
+  
+  {$IFNDEF win32}
+  HFILE = THandle;
+  {$ENDIF}
+
+procedure av_destruct_packet_nofree (pkt: PAVPacket);
+  cdecl; external av__format;
+procedure av_destruct_packet (pkt: PAVPacket);
+  cdecl; external av__format;
+
+(* initialize optional fields of a packet *)
+procedure av_init_packet (pkt: PAVPacket);
+
+function av_new_packet(pkt: PAVPacket; size: integer): integer;
+  cdecl; external av__format;
+
+function av_get_packet (s: PByteIOContext; pkt: PAVPacket; size: integer): integer;
+  cdecl; external av__format;
+
+function av_dup_packet (pkt: PAVPacket): integer;
+  cdecl; external av__format;
+
+(** * Free a packet
+ *
+ * @param pkt packet to free *)
+procedure av_free_packet (pkt: PAVPacket);
+
+procedure av_register_image_format (img_fmt: PAVImageFormat);
+    cdecl; external av__format;
+
+function av_probe_image_format (pd: PAVProbeData): PAVImageFormat;
+    cdecl; external av__format;
+
+function guess_image_format (filename: pchar): PAVImageFormat;
+    cdecl; external av__format;
+
+function av_guess_image2_codec(filename: pchar): TCodecID;
+    cdecl; external av__format;
+
+function av_read_image (pb: PByteIOContext; filename: pchar;
+                  fmt: PAVImageFormat;
+                  alloc_cb: pointer; opaque: pointer): integer;
+    cdecl; external av__format;
+
+function av_write_image(pb: PByteIOContext; fmt: PAVImageFormat; img: PAVImageInfo): integer;
+    cdecl; external av__format;
+
+(* XXX: use automatic init with either ELF sections or C file parser *)
+(* modules *)
+
+//#include "rtp.h"
+
+//#include "rtsp.h"
+
+(* utils.c *)
+  procedure av_register_input_format (format: PAVInputFormat); cdecl; external av__format;
+  procedure av_register_output_format (format: PAVOutputFormat); cdecl; external av__format;
+  function guess_stream_format (short_name: pchar; filename: pchar; mime_type: pchar): PAVOutputFormat; cdecl; external av__format;
+  function guess_format(short_name: pchar; filename: pchar; mime_type: pchar): PAVOutputFormat; cdecl; external av__format;
+  function av_guess_codec(fmt: PAVOutputFormat; short_name: pchar;
+                          filename: pchar; mime_type: pchar; _type: TCodecType): TCodecID; cdecl; external av__format;
+  procedure av_hex_dump (f: HFILE; buf: pchar; size: integer); cdecl; external av__format;
+  procedure av_pkt_dump(f: HFILE; pkt: pAVPacket; dump_payload: integer); cdecl; external av__format;
+  procedure av_register_all (); cdecl; external av__format;
+
+
+(* media file input *)
+  function av_find_input_format (short_name: pchar): PAVInputFormat;
+    cdecl; external av__format;
+  function av_probe_input_format (pd: PAVProbeData; is_opened: integer): PAVInputFormat;
+    cdecl; external av__format;
+  function av_open_input_stream (ic_ptr: PAVFormatContext;
+                         pb: PByteIOContext; filename: pchar;
+                         fmt: PAVInputFormat; ap: PAVFormatParameters): integer;
+    cdecl; external av__format;
+(*** Open a media file as input. The codec are not opened. Only the file
+ * header (if present) is read.
+ *
+ * @param ic_ptr the opened media file handle is put here
+ * @param filename filename to open.
+ * @param fmt if non NULL, force the file format to use
+ * @param buf_size optional buffer size (zero if default is OK)
+ * @param ap additionnal parameters needed when opening the file (NULL if default)
+ * @return 0 if OK. AVERROR_xxx otherwise. *)
+
+  function av_open_input_file (var ic_ptr: PAVFormatContext; filename: pchar;
+                       fmt: PAVInputFormat; buf_size: integer;
+                       ap: PAVFormatParameters): integer;
+    cdecl; external av__format;
+
+  (* no av_open for output, so applications will need this: *)
+  function av_alloc_format_context (): PAVFormatContext;
+    cdecl; external av__format;
+
+const
+  AVERROR_UNKNOWN     =(-1);  (* unknown error *)
+  AVERROR_IO          =(-2);  (* i/o error *)
+  AVERROR_NUMEXPECTED =(-3);  (* number syntax expected in filename *)
+  AVERROR_INVALIDDATA =(-4);  (* invalid data found *)
+  AVERROR_NOMEM       =(-5);  (* not enough memory *)
+  AVERROR_NOFMT       =(-6);  (* unknown format *)
+  AVERROR_NOTSUPP     =(-7);  (* operation not supported *)
+
+(*** Read the beginning of a media file to get stream information. This
+ * is useful for file formats with no headers such as MPEG. This
+ * function also compute the real frame rate in case of mpeg2 repeat
+ * frame mode.
+ *
+ * @param ic media file handle
+ * @return >=0 if OK. AVERROR_xxx if error.
+ * @todo let user decide somehow what information is needed so we dont waste time geting stuff the user doesnt need *)
+
+  function av_find_stream_info (ic: PAVFormatContext): integer;
+    cdecl; external av__format;
+  function av_read_packet (s: PAVFormatContext; pkt: PAVPacket): integer;
+    cdecl; external av__format;
+(*** Return the next frame of a stream.
+ *
+ * The returned packet is valid
+ * until the next av_read_frame() or until av_close_input_file() and
+ * must be freed with av_free_packet. For video, the packet contains
+ * exactly one frame. For audio, it contains an integer number of
+ * frames if each frame has a known fixed size (e.g. PCM or ADPCM
+ * data). If the audio frames have a variable size (e.g. MPEG audio),
+ * then it contains one frame.
+ *
+ * pkt->pts, pkt->dts and pkt->duration are always set to correct
+ * values in AV_TIME_BASE unit (and guessed if the format cannot
+ * provided them). pkt->pts can be AV_NOPTS_VALUE if the video format
+ * has B frames, so it is better to rely on pkt->dts if you do not
+ * decompress the payload.
+ *
+ * @return 0 if OK, < 0 if error or end of file. *)
+
+  function av_read_frame (s: PAVFormatContext; pkt: PAVPacket): integer;
+    cdecl; external av__format;
+  function av_seek_frame (s: PAVFormatContext; stream_index: integer; timestamp: int64; flags: integer): integer;
+    cdecl; external av__format;
+  function av_read_play (s: PAVFormatContext): integer;
+    cdecl; external av__format;
+  function av_read_pause (s: PAVFormatContext): integer;
+    cdecl; external av__format;
+  procedure av_close_input_file (s: PAVFormatContext);
+    cdecl; external av__format;
+  function av_new_stream (s: PAVFormatContext; id: integer): PAVStream;
+    cdecl; external av__format;
+  procedure av_set_pts_info (s: PAVStream; pts_wrap_bits: integer;
+                     pts_num: integer; pts_den: integer);
+    cdecl; external av__format;
+
+const
+  AVSEEK_FLAG_BACKWARD =1; ///< seek backward
+  AVSEEK_FLAG_BYTE     =2; ///< seeking based on position in bytes
+  AVSEEK_FLAG_ANY      =4; ///< seek to any frame, even non keyframes
+
+  function av_find_default_stream_index (s: PAVFormatContext): integer;
+    cdecl; external av__format;
+  function av_index_search_timestamp (st: PAVStream; timestamp: int64; flags: integer): integer;
+    cdecl; external av__format;
+  function av_add_index_entry (st: PAVStream; pos: int64; timestamp: int64;
+                    distance: integer; flags: integer): integer;
+    cdecl; external av__format;
+  function av_seek_frame_binary (s: PAVFormatContext; stream_index: integer;
+                   target_ts: int64; flags: integer): integer;
+    cdecl; external av__format;
+
+  procedure av_update_cur_dts (s: PAVFormatContext; ref_st: PAVStream;
+                               timestamp: int64);
+    cdecl; external av__format;
+
+(* media file output *)
+  function av_set_parameters (s: PAVFormatContext; ap: PAVFormatParameters): integer;
+    cdecl; external av__format;
+
+  function av_write_header (s: PAVFormatContext): integer;
+    cdecl; external av__format;
+
+  function av_write_frame(s: PAVFormatContext; pkt: PAVPacket): integer;
+    cdecl; external av__format;
+
+  function av_interleaved_write_frame (s: PAVFormatContext; pkt: PAVPacket): integer;
+    cdecl; external av__format;
+
+  function av_interleave_packet_per_dts(s: PAVFormatContext; _out: PAVPacket;
+                                        pkt: PAVPacket; flush: integer): integer;
+    cdecl; external av__format;
+  function av_write_trailer(s: pAVFormatContext): integer;
+    cdecl; external av__format;
+
+  procedure dump_format(ic: PAVFormatContext; index: integer; url: pchar;
+                 is_output: integer);
+    cdecl; external av__format;
+
+  function parse_image_size(width_ptr: PInteger; height_ptr: PInteger; str: pchar): integer;
+    cdecl; external av__format;
+  function parse_frame_rate (frame_rate: PInteger; frame_rate_base: PInteger; arg: pchar): integer;
+    cdecl; external av__format;
+  function parse_date(datestr: pchar; duration: integer): int64;
+    cdecl; external av__format;
+  function av_gettime (): int64;
+    cdecl; external av__format;
+
+(* ffm specific for ffserver *)
+const
+  FFM_PACKET_SIZE = 4096;
+
+  {$IFNDEF FPC}
+  function ffm_read_write_index (fd: integer): int64;
+    cdecl; external av__format;
+
+  procedure ffm_write_write_index(fd: integer; pos: int64);
+    cdecl; external av__format;
+
+  procedure ffm_set_write_index (s: PAVFormatContext; pos: int64; file_size: int64);
+    cdecl; external av__format;
+  {$ENDIF}
+  
+  function find_info_tag (arg: pchar; arg_size: integer; tag1: pchar; info: pchar): integer;
+    cdecl; external av__format;
+
+  {$IFNDEF FPC}
+  function get_frame_filename(buf: pchar; buf_size: integer;
+                       path: pchar; number: integer): integer;
+    cdecl; external av__format;
+
+  function filename_number_test (filename: pchar): integer;
+    cdecl; external av__format;
+
+(* grab specific *)
+  function video_grab_init (): integer;
+    cdecl; external av__format;
+
+  function audio_init (): integer;
+    cdecl; external av__format;
+
+(* DV1394 *)
+  function dv1394_init (): integer;
+    cdecl; external av__format;
+  function dc1394_init (): integer;
+    cdecl; external av__format;
+  {$ENDIF}
+
+  function strstart(str: pchar; val: pchar; ptr: PPointer): integer;
+    cdecl; external av__format;
+  function stristart(str: pchar; val: pchar; ptr: PPointer): integer;
+    cdecl; external av__format;
+  procedure pstrcpy(buf: pchar; buf_size: integer; str: pchar);
+    cdecl; external av__format;
+  function pstrcat(buf: pchar; buf_size: integer; s: pchar): pchar;
+    cdecl; external av__format;
+
+  procedure __dynarray_add (tab_ptr: PPointer; nb_ptr: PInteger; elem: cardinal);
+    cdecl; external av__format;
+
+
+implementation
+
+procedure av_init_packet (pkt: PAVPacket);
+begin
+  pkt.pts   := AV_NOPTS_VALUE;
+  pkt.dts   := AV_NOPTS_VALUE;
+  pkt.pos   := -1;
+  pkt.duration := 0;
+  pkt.flags := 0;
+  pkt.stream_index := 0;
+  pkt.destruct := @av_destruct_packet_nofree;
+end;
+
+procedure av_free_packet (pkt: PAVPacket);
+begin
+  if (pkt <> nil) and (@pkt^.destruct <> nil) then
+    pkt^.destruct (pkt);
+end;
+
+end.
diff --git a/Game/Code/lib/ffmpeg/avio.pas b/Game/Code/lib/ffmpeg/avio.pas
index 7d0e8c04..84622f0d 100644
--- a/Game/Code/lib/ffmpeg/avio.pas
+++ b/Game/Code/lib/ffmpeg/avio.pas
@@ -1,243 +1,249 @@
-                                                                              (*
- * unbuffered io for ffmpeg system
- * 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 Street, Fifth Floor, Boston, MA 02110-1301 USA
-                                                                              *)
-unit avio;
-
-interface
-
-uses
-  windows;
-
-const
-  av__format = 'avformat-50.dll';
-
-  URL_RDONLY = 0;
-  URL_WRONLY = 1;
-  URL_RDWR   = 2;
-
-(* output byte stream handling *)
-
-type
-  offset_t = int64;
-  int = integer;
-
-(* unbuffered I/O *)
-  PURLProtocol = ^TURLProtocol;
-  PURLContext = ^TURLContext;
-  TURLContext = record
-    prot: PURLProtocol;
-    flags: int;
-    is_streamed: int;  //* true if streamed (no seek possible), default = false */
-    max_packet_size: int;  //* if non zero, the stream is packetized with this max packet size */
-    priv_data: pointer;
-    filename: array [0..0] of char; (* specified filename *)
-  end;
-
-  PURLPollEntry = ^TURLPollEntry;
-  TURLPollEntry = record
-    handle: PURLContext;
-    events: integer;
-    revents: integer;
-  end;
-
-  TURLProtocol = record
-    name: pchar;
-    url_open: function (h: PURLContext; const filename: pchar; flags: integer): integer; cdecl;
-    url_read: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl;
-    url_write: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl;
-    url_seek: function (h: PURLContext; pos: int64; whence: integer): int64; cdecl;
-    url_close: function (h: PURLContext): integer; cdecl;
-    next: PURLProtocol;
-  end;
-
-  PByteIOContext = ^TByteIOContext;
-  TByteIOContext = record
-    buffer: pchar;
-    buffer_size: integer;
-    buf_ptr: pchar;
-    buf_end: pchar;
-    opaque: pointer;
-    read_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl;
-    write_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl;
-    seek: function (opaque: pointer; offset: int64; whence: integer): int64; cdecl;
-    pos: int64; (* position in the file of the current buffer *)
-    must_flush: integer; (* true if the next seek should flush *)
-    eof_reached: integer; (* true if eof reached *)
-    write_flag: integer;  (* true if open for writing *)
-    is_streamed: integer;
-    max_packet_size: integer;
-    checksum: longword;
-    checksum_ptr: pchar;
-    update_checksum: function (checksum: cardinal; const buf: pchar; size: cardinal): LongWord; cdecl;
-    error: integer;         ///< contains the error code or 0 if no error happened
-  end;
-
-  function url_open(h: PPointer; const filename: pchar; flags: integer): integer;
-    cdecl; external av__format;
-  function url_read (h: PURLContext; buf: pchar; size: integer): integer;
-    cdecl; external av__format;
-  function url_write (h: PURLContext; buf: pchar; size: integer): integer;
-    cdecl; external av__format;
-  function url_seek (h: PURLContext; pos: int64; whence: integer): int64;
-    cdecl; external av__format;
-  function url_close (h: PURLContext): integer;
-    cdecl; external av__format;
-  function url_exist(const filename: pchar): integer;
-    cdecl; external av__format;
-  function url_filesize (h: PURLContext): int64;
-    cdecl; external av__format;
-  function url_get_max_packet_size(h: PURLContext): integer;
-    cdecl; external av__format;
-  procedure url_get_filename(h: PURLContext; buf: pchar; buf_size: integer);
-    cdecl; external av__format;
-
-(* the callback is called in blocking functions to test regulary if
-   asynchronous interruption is needed. -EINTR is returned in this
-   case by the interrupted function. 'NULL' means no interrupt
-   callback is given. *)
-  procedure url_set_interrupt_cb (interrupt_cb: pinteger);
-    cdecl; external av__format;
-
-(* not implemented *)
-//int url_poll(URLPollEntry *poll_table, int n, int timeout);
-
-  function register_protocol (protocol: PURLProtocol): integer;
-    cdecl; external av__format;
-
-  function init_put_byte(s: PByteIOContext;
-                  buffer: pchar;
-                  buffer_size: integer; write_flag: integer;
-                  opaque: pointer;
-                  read_packet: pointer; //int (*read_packet)(void *opaque, uint8_t *buf, int buf_size),
-                  write_packet: pointer; //int (*write_packet)(void *opaque, uint8_t *buf, int buf_size),
-                  seek: pointer //offset_t (*seek)(void *opaque, offset_t offset, int whence)
-                  ): integer;
-    cdecl; external av__format;
-  procedure put_byte(s: PByteIOContext; b: integer);
-    cdecl; external av__format;
-  procedure put_buffer (s: PByteIOContext; const buf: pchar; size: integer);
-    cdecl; external av__format;
-  procedure put_le64(s: PByteIOContext; val: int64);
-    cdecl; external av__format;
-  procedure put_be64(s: PByteIOContext; val: int64);
-    cdecl; external av__format;
-  procedure put_le32(s: PByteIOContext; val: cardinal);
-    cdecl; external av__format;
-  procedure put_be32(s: PByteIOContext; val: cardinal);
-    cdecl; external av__format;
-  procedure put_be24(s: PByteIOContext; val: cardinal);
-    cdecl; external av__format;
-  procedure put_le16(s: PByteIOContext; val: cardinal);
-    cdecl; external av__format;
-  procedure put_be16(s: PByteIOContext; val: cardinal);
-    cdecl; external av__format;
-  procedure put_tag(s: PByteIOContext; const tag: pchar);
-    cdecl; external av__format;
-
-  procedure put_strz(s: PByteIOContext; const buf: pchar);
-    cdecl; external av__format;
-
-  function url_fseek(s: PByteIOContext; offset: int64; whence: integer): int64;
-    cdecl; external av__format;
-  procedure url_fskip(s: PByteIOContext; offset: int64);
-    cdecl; external av__format;
-  function url_ftell(s: PByteIOContext): int64;
-    cdecl; external av__format;
-  function url_fsize(s: PByteIOContext): int64;
-    cdecl; external av__format;
-  function url_feof(s: PByteIOContext): integer;
-    cdecl; external av__format;
-  function url_ferror(s: PByteIOContext): integer;
-    cdecl; external av__format;
-
-  procedure put_flush_packet (s: PByteIOContext);
-    cdecl; external av__format;
-  function get_buffer(s: PByteIOContext; buf: pchar; size: integer): integer;
-    cdecl; external av__format;
-  function get_partial_buffer(s: PByteIOContext; buf: pchar; size: integer): integer;
-    cdecl; external av__format;
-  function get_byte(s: PByteIOContext): integer;
-    cdecl; external av__format;
-  function get_le32(s: PByteIOContext): cardinal;
-    cdecl; external av__format;
-  function get_le64(s: PByteIOContext): int64;
-    cdecl; external av__format;
-  function get_le16(s: PByteIOContext): cardinal;
-    cdecl; external av__format;
-
-  function get_strz(s: PByteIOContext; buf: pchar; maxlen: integer): pchar;
-    cdecl; external av__format;
-  function get_be16(s: PByteIOContext): cardinal;
-    cdecl; external av__format;
-  function get_be24(s: PByteIOContext): cardinal;
-    cdecl; external av__format;
-  function get_be32(s: PByteIOContext): cardinal;
-    cdecl; external av__format;
-  function get_be64(s: PByteIOContext): int64;
-    cdecl; external av__format;
-
-  function url_is_streamed(s: PByteIOContext): integer;
-
-  function url_fdopen (s: PByteIOContext; h: PURLContext): integer;
-    cdecl; external av__format;
-  function url_setbufsize (s: PByteIOContext; buf_size: integer): integer;
-    cdecl; external av__format;
-  function url_fopen(s: PByteIOContext; const filename: pchar; flags: integer): integer;
-    cdecl; external av__format;
-  function url_fclose(s: PByteIOContext): integer;
-    cdecl; external av__format;
-
-  function url_fileno(s: PByteIOContext): PURLContext;
-    cdecl; external av__format;
-  function url_fget_max_packet_size (s: PByteIOContext): integer;
-    cdecl; external av__format;
-  function url_open_buf(s: PByteIOContext; buf: pchar; buf_size: integer; flags: integer): integer;
-    cdecl; external av__format;
-  function url_close_buf(s: PByteIOContext): integer;
-    cdecl; external av__format;
-
-  function url_open_dyn_buf(s: PByteIOContext): integer;
-    cdecl; external av__format;
-  function url_open_dyn_packet_buf(s: PByteIOContext; max_packet_size: integer): integer;
-    cdecl; external av__format;
-  function url_close_dyn_buf(s: PByteIOContext; pbuffer:PPointer): integer;
-    cdecl; external av__format;
-
-  function get_checksum(s: PByteIOContext): cardinal;
-    cdecl; external av__format;
-
-  procedure init_checksum (s: PByteIOContext; update_checksum: pointer; checksum: cardinal);
-    cdecl; external av__format;
-
-  {$IFNDEF FPC}
-  function udp_set_remote_url(h: PURLContext; const uri: pchar): integer;
-    cdecl; external av__format;
-  function udp_get_local_port(h: PURLContext): integer;
-    cdecl; external av__format;
-  function udp_get_file_handle(h: PURLContext): integer;
-    cdecl; external av__format;
-  {$ENDIF}
-
-implementation
-
-function url_is_streamed(s: PByteIOContext): integer;
-begin
-  Result := s^.is_streamed;
-end;
-
-end.
+                                                                              (*
+ * unbuffered io for ffmpeg system
+ * 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 Street, Fifth Floor, Boston, MA 02110-1301 USA
+                                                                              *)
+unit avio;
+
+interface
+
+{$IFDEF win32}
+uses
+  windows;
+{$ENDIF}
+
+const
+  {$IFDEF win32}
+    av__format = 'avformat-50.dll';
+  {$ELSE}
+    av__format = 'libavformat.so';   // .0d
+  {$ENDIF}
+
+  URL_RDONLY = 0;
+  URL_WRONLY = 1;
+  URL_RDWR   = 2;
+
+(* output byte stream handling *)
+
+type
+  offset_t = int64;
+  int = integer;
+
+(* unbuffered I/O *)
+  PURLProtocol = ^TURLProtocol;
+  PURLContext = ^TURLContext;
+  TURLContext = record
+    prot: PURLProtocol;
+    flags: int;
+    is_streamed: int;  //* true if streamed (no seek possible), default = false */
+    max_packet_size: int;  //* if non zero, the stream is packetized with this max packet size */
+    priv_data: pointer;
+    filename: array [0..0] of char; (* specified filename *)
+  end;
+
+  PURLPollEntry = ^TURLPollEntry;
+  TURLPollEntry = record
+    handle: PURLContext;
+    events: integer;
+    revents: integer;
+  end;
+
+  TURLProtocol = record
+    name: pchar;
+    url_open: function (h: PURLContext; const filename: pchar; flags: integer): integer; cdecl;
+    url_read: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl;
+    url_write: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl;
+    url_seek: function (h: PURLContext; pos: int64; whence: integer): int64; cdecl;
+    url_close: function (h: PURLContext): integer; cdecl;
+    next: PURLProtocol;
+  end;
+
+  PByteIOContext = ^TByteIOContext;
+  TByteIOContext = record
+    buffer: pchar;
+    buffer_size: integer;
+    buf_ptr: pchar;
+    buf_end: pchar;
+    opaque: pointer;
+    read_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl;
+    write_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl;
+    seek: function (opaque: pointer; offset: int64; whence: integer): int64; cdecl;
+    pos: int64; (* position in the file of the current buffer *)
+    must_flush: integer; (* true if the next seek should flush *)
+    eof_reached: integer; (* true if eof reached *)
+    write_flag: integer;  (* true if open for writing *)
+    is_streamed: integer;
+    max_packet_size: integer;
+    checksum: longword;
+    checksum_ptr: pchar;
+    update_checksum: function (checksum: cardinal; const buf: pchar; size: cardinal): LongWord; cdecl;
+    error: integer;         ///< contains the error code or 0 if no error happened
+  end;
+
+  function url_open(h: PPointer; const filename: pchar; flags: integer): integer;
+    cdecl; external av__format;
+  function url_read (h: PURLContext; buf: pchar; size: integer): integer;
+    cdecl; external av__format;
+  function url_write (h: PURLContext; buf: pchar; size: integer): integer;
+    cdecl; external av__format;
+  function url_seek (h: PURLContext; pos: int64; whence: integer): int64;
+    cdecl; external av__format;
+  function url_close (h: PURLContext): integer;
+    cdecl; external av__format;
+  function url_exist(const filename: pchar): integer;
+    cdecl; external av__format;
+  function url_filesize (h: PURLContext): int64;
+    cdecl; external av__format;
+  function url_get_max_packet_size(h: PURLContext): integer;
+    cdecl; external av__format;
+  procedure url_get_filename(h: PURLContext; buf: pchar; buf_size: integer);
+    cdecl; external av__format;
+
+(* the callback is called in blocking functions to test regulary if
+   asynchronous interruption is needed. -EINTR is returned in this
+   case by the interrupted function. 'NULL' means no interrupt
+   callback is given. *)
+  procedure url_set_interrupt_cb (interrupt_cb: pinteger);
+    cdecl; external av__format;
+
+(* not implemented *)
+//int url_poll(URLPollEntry *poll_table, int n, int timeout);
+
+  function register_protocol (protocol: PURLProtocol): integer;
+    cdecl; external av__format;
+
+  function init_put_byte(s: PByteIOContext;
+                  buffer: pchar;
+                  buffer_size: integer; write_flag: integer;
+                  opaque: pointer;
+                  read_packet: pointer; //int (*read_packet)(void *opaque, uint8_t *buf, int buf_size),
+                  write_packet: pointer; //int (*write_packet)(void *opaque, uint8_t *buf, int buf_size),
+                  seek: pointer //offset_t (*seek)(void *opaque, offset_t offset, int whence)
+                  ): integer;
+    cdecl; external av__format;
+  procedure put_byte(s: PByteIOContext; b: integer);
+    cdecl; external av__format;
+  procedure put_buffer (s: PByteIOContext; const buf: pchar; size: integer);
+    cdecl; external av__format;
+  procedure put_le64(s: PByteIOContext; val: int64);
+    cdecl; external av__format;
+  procedure put_be64(s: PByteIOContext; val: int64);
+    cdecl; external av__format;
+  procedure put_le32(s: PByteIOContext; val: cardinal);
+    cdecl; external av__format;
+  procedure put_be32(s: PByteIOContext; val: cardinal);
+    cdecl; external av__format;
+  procedure put_be24(s: PByteIOContext; val: cardinal);
+    cdecl; external av__format;
+  procedure put_le16(s: PByteIOContext; val: cardinal);
+    cdecl; external av__format;
+  procedure put_be16(s: PByteIOContext; val: cardinal);
+    cdecl; external av__format;
+  procedure put_tag(s: PByteIOContext; const tag: pchar);
+    cdecl; external av__format;
+
+  procedure put_strz(s: PByteIOContext; const buf: pchar);
+    cdecl; external av__format;
+
+  function url_fseek(s: PByteIOContext; offset: int64; whence: integer): int64;
+    cdecl; external av__format;
+  procedure url_fskip(s: PByteIOContext; offset: int64);
+    cdecl; external av__format;
+  function url_ftell(s: PByteIOContext): int64;
+    cdecl; external av__format;
+  function url_fsize(s: PByteIOContext): int64;
+    cdecl; external av__format;
+  function url_feof(s: PByteIOContext): integer;
+    cdecl; external av__format;
+  function url_ferror(s: PByteIOContext): integer;
+    cdecl; external av__format;
+
+  procedure put_flush_packet (s: PByteIOContext);
+    cdecl; external av__format;
+  function get_buffer(s: PByteIOContext; buf: pchar; size: integer): integer;
+    cdecl; external av__format;
+  function get_partial_buffer(s: PByteIOContext; buf: pchar; size: integer): integer;
+    cdecl; external av__format;
+  function get_byte(s: PByteIOContext): integer;
+    cdecl; external av__format;
+  function get_le32(s: PByteIOContext): cardinal;
+    cdecl; external av__format;
+  function get_le64(s: PByteIOContext): int64;
+    cdecl; external av__format;
+  function get_le16(s: PByteIOContext): cardinal;
+    cdecl; external av__format;
+
+  function get_strz(s: PByteIOContext; buf: pchar; maxlen: integer): pchar;
+    cdecl; external av__format;
+  function get_be16(s: PByteIOContext): cardinal;
+    cdecl; external av__format;
+  function get_be24(s: PByteIOContext): cardinal;
+    cdecl; external av__format;
+  function get_be32(s: PByteIOContext): cardinal;
+    cdecl; external av__format;
+  function get_be64(s: PByteIOContext): int64;
+    cdecl; external av__format;
+
+  function url_is_streamed(s: PByteIOContext): integer;
+
+  function url_fdopen (s: PByteIOContext; h: PURLContext): integer;
+    cdecl; external av__format;
+  function url_setbufsize (s: PByteIOContext; buf_size: integer): integer;
+    cdecl; external av__format;
+  function url_fopen(s: PByteIOContext; const filename: pchar; flags: integer): integer;
+    cdecl; external av__format;
+  function url_fclose(s: PByteIOContext): integer;
+    cdecl; external av__format;
+
+  function url_fileno(s: PByteIOContext): PURLContext;
+    cdecl; external av__format;
+  function url_fget_max_packet_size (s: PByteIOContext): integer;
+    cdecl; external av__format;
+  function url_open_buf(s: PByteIOContext; buf: pchar; buf_size: integer; flags: integer): integer;
+    cdecl; external av__format;
+  function url_close_buf(s: PByteIOContext): integer;
+    cdecl; external av__format;
+
+  function url_open_dyn_buf(s: PByteIOContext): integer;
+    cdecl; external av__format;
+  function url_open_dyn_packet_buf(s: PByteIOContext; max_packet_size: integer): integer;
+    cdecl; external av__format;
+  function url_close_dyn_buf(s: PByteIOContext; pbuffer:PPointer): integer;
+    cdecl; external av__format;
+
+  function get_checksum(s: PByteIOContext): cardinal;
+    cdecl; external av__format;
+
+  procedure init_checksum (s: PByteIOContext; update_checksum: pointer; checksum: cardinal);
+    cdecl; external av__format;
+
+  {$IFNDEF FPC}
+  function udp_set_remote_url(h: PURLContext; const uri: pchar): integer;
+    cdecl; external av__format;
+  function udp_get_local_port(h: PURLContext): integer;
+    cdecl; external av__format;
+  function udp_get_file_handle(h: PURLContext): integer;
+    cdecl; external av__format;
+  {$ENDIF}
+
+implementation
+
+function url_is_streamed(s: PByteIOContext): integer;
+begin
+  Result := s^.is_streamed;
+end;
+
+end.
diff --git a/Game/Code/lib/ffmpeg/avutil.pas b/Game/Code/lib/ffmpeg/avutil.pas
index d947a3f0..7c5926ab 100644
--- a/Game/Code/lib/ffmpeg/avutil.pas
+++ b/Game/Code/lib/ffmpeg/avutil.pas
@@ -1,133 +1,137 @@
-                                                                              (*
- * 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
-                                                                              *)
-
-unit avutil;
-
-interface
-
-
-const
-  av__util = 'avutil-49.dll';
-
-  LIBAVUTIL_VERSION_INT   =  ((49 shl 16) + (0 shl 8) + 1);
-  LIBAVUTIL_VERSION       = '49.0.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.
+                                                                              (*
+ * 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
+                                                                              *)
+
+unit avutil;
+
+interface
+
+
+const
+  {$IFDEF win32}
+    av__util = 'avutil-49.dll';
+  {$ELSE}
+    av__util = 'libavutil.so';   // .0d
+  {$ENDIF}
+
+  LIBAVUTIL_VERSION_INT   =  ((49 shl 16) + (0 shl 8) + 1);
+  LIBAVUTIL_VERSION       = '49.0.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.
diff --git a/Game/Code/lib/ffmpeg/lazarustest.lpi b/Game/Code/lib/ffmpeg/lazarustest.lpi
index 3cd1c3de..399b8b7e 100644
--- a/Game/Code/lib/ffmpeg/lazarustest.lpi
+++ b/Game/Code/lib/ffmpeg/lazarustest.lpi
@@ -1,194 +1,226 @@
-<?xml version="1.0"?>
-<CONFIG>
-  <ProjectOptions>
-    <PathDelim Value="\"/>
-    <Version Value="5"/>
-    <General>
-      <MainUnit Value="0"/>
-      <IconPath Value="./"/>
-      <TargetFileExt Value=".exe"/>
-      <ActiveEditorIndexAtStart Value="1"/>
-    </General>
-    <VersionInfo>
-      <ProjectVersion Value=""/>
-      <Language Value=""/>
-      <CharSet Value=""/>
-    </VersionInfo>
-    <PublishOptions>
-      <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
-      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
-    </PublishOptions>
-    <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
-      </local>
-    </RunParams>
-    <Units Count="5">
-      <Unit0>
-        <Filename Value="lazarustest.lpr"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="lazarustest"/>
-        <CursorPos X="26" Y="8"/>
-        <TopLine Value="1"/>
-        <EditorIndex Value="0"/>
-        <UsageCount Value="22"/>
-        <Loaded Value="True"/>
-      </Unit0>
-      <Unit1>
-        <Filename Value="delphi\bass.pas"/>
-        <UnitName Value="Bass"/>
-        <CursorPos X="12" Y="539"/>
-        <TopLine Value="589"/>
-        <UsageCount Value="10"/>
-      </Unit1>
-      <Unit2>
-        <Filename Value="avformat.pas"/>
-        <UnitName Value="avformat"/>
-        <CursorPos X="38" Y="594"/>
-        <TopLine Value="567"/>
-        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
-        <Loaded Value="True"/>
-      </Unit2>
-      <Unit3>
-        <Filename Value="avcodec.pas"/>
-        <UnitName Value="avcodec"/>
-        <CursorPos X="3" Y="1796"/>
-        <TopLine Value="1775"/>
-        <EditorIndex Value="2"/>
-        <UsageCount Value="11"/>
-        <Loaded Value="True"/>
-      </Unit3>
-      <Unit4>
-        <Filename Value="avio.pas"/>
-        <UnitName Value="avio"/>
-        <CursorPos X="1" Y="1"/>
-        <TopLine Value="1"/>
-        <EditorIndex Value="3"/>
-        <UsageCount Value="11"/>
-        <Loaded Value="True"/>
-      </Unit4>
-    </Units>
-    <JumpHistory Count="24" HistoryIndex="23">
-      <Position1>
-        <Filename Value="lazarustest.lpr"/>
-        <Caret Line="16" Column="18" TopLine="1"/>
-      </Position1>
-      <Position2>
-        <Filename Value="avio.pas"/>
-        <Caret Line="28" Column="38" TopLine="36"/>
-      </Position2>
-      <Position3>
-        <Filename Value="avio.pas"/>
-        <Caret Line="29" Column="7" TopLine="9"/>
-      </Position3>
-      <Position4>
-        <Filename Value="avio.pas"/>
-        <Caret Line="30" Column="7" TopLine="10"/>
-      </Position4>
-      <Position5>
-        <Filename Value="avio.pas"/>
-        <Caret Line="31" Column="7" TopLine="11"/>
-      </Position5>
-      <Position6>
-        <Filename Value="avio.pas"/>
-        <Caret Line="44" Column="10" TopLine="40"/>
-      </Position6>
-      <Position7>
-        <Filename Value="avio.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position7>
-      <Position8>
-        <Filename Value="avio.pas"/>
-        <Caret Line="23" Column="5" TopLine="3"/>
-      </Position8>
-      <Position9>
-        <Filename Value="avio.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position9>
-      <Position10>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="567" Column="24" TopLine="560"/>
-      </Position10>
-      <Position11>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="1968" Column="5" TopLine="1928"/>
-      </Position11>
-      <Position12>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="22" Column="31" TopLine="6"/>
-      </Position12>
-      <Position13>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="247" Column="14" TopLine="227"/>
-      </Position13>
-      <Position14>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="546" Column="46" TopLine="526"/>
-      </Position14>
-      <Position15>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="20" Column="26" TopLine="1"/>
-      </Position15>
-      <Position16>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="250" Column="59" TopLine="230"/>
-      </Position16>
-      <Position17>
-        <Filename Value="avcodec.pas"/>
-        <Caret Line="841" Column="53" TopLine="821"/>
-      </Position17>
-      <Position18>
-        <Filename Value="avio.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position18>
-      <Position19>
-        <Filename Value="avio.pas"/>
-        <Caret Line="236" Column="8" TopLine="205"/>
-      </Position19>
-      <Position20>
-        <Filename Value="avformat.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position20>
-      <Position21>
-        <Filename Value="avformat.pas"/>
-        <Caret Line="568" Column="3" TopLine="541"/>
-      </Position21>
-      <Position22>
-        <Filename Value="avformat.pas"/>
-        <Caret Line="41" Column="17" TopLine="25"/>
-      </Position22>
-      <Position23>
-        <Filename Value="avformat.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
-      </Position23>
-      <Position24>
-        <Filename Value="avformat.pas"/>
-        <Caret Line="588" Column="1" TopLine="557"/>
-      </Position24>
-    </JumpHistory>
-  </ProjectOptions>
-  <CompilerOptions>
-    <Version Value="5"/>
-    <PathDelim Value="\"/>
-    <CodeGeneration>
-      <Generate Value="Faster"/>
-    </CodeGeneration>
-    <Other>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
-  </CompilerOptions>
-  <Debugging>
-    <Exceptions Count="2">
-      <Item1>
-        <Name Value="ECodetoolError"/>
-      </Item1>
-      <Item2>
-        <Name Value="EFOpenError"/>
-      </Item2>
-    </Exceptions>
-  </Debugging>
-</CONFIG>
+<?xml version="1.0"?>
+<CONFIG>
+  <ProjectOptions>
+    <PathDelim Value="/"/>
+    <Version Value="5"/>
+    <General>
+      <MainUnit Value="0"/>
+      <IconPath Value="./"/>
+      <TargetFileExt Value=".exe"/>
+      <ActiveEditorIndexAtStart Value="0"/>
+    </General>
+    <VersionInfo>
+      <ProjectVersion Value=""/>
+      <Language Value=""/>
+      <CharSet Value=""/>
+    </VersionInfo>
+    <PublishOptions>
+      <Version Value="2"/>
+      <IgnoreBinaries Value="False"/>
+      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
+      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
+    </PublishOptions>
+    <RunParams>
+      <local>
+        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+      </local>
+    </RunParams>
+    <Units Count="6">
+      <Unit0>
+        <Filename Value="lazarustest.lpr"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="lazarustest"/>
+        <CursorPos X="37" Y="24"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="0"/>
+        <UsageCount Value="23"/>
+        <Loaded Value="True"/>
+      </Unit0>
+      <Unit1>
+        <Filename Value="delphi/bass.pas"/>
+        <UnitName Value="Bass"/>
+        <CursorPos X="12" Y="539"/>
+        <TopLine Value="589"/>
+        <UsageCount Value="10"/>
+      </Unit1>
+      <Unit2>
+        <Filename Value="avformat.pas"/>
+        <UnitName Value="avformat"/>
+        <CursorPos X="8" Y="40"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="2"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit2>
+      <Unit3>
+        <Filename Value="avcodec.pas"/>
+        <UnitName Value="avcodec"/>
+        <CursorPos X="13" Y="34"/>
+        <TopLine Value="12"/>
+        <EditorIndex Value="3"/>
+        <UsageCount Value="11"/>
+        <Loaded Value="True"/>
+      </Unit3>
+      <Unit4>
+        <Filename Value="avio.pas"/>
+        <UnitName Value="avio"/>
+        <CursorPos X="1" Y="1"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="4"/>
+        <UsageCount Value="11"/>
+        <Loaded Value="True"/>
+      </Unit4>
+      <Unit5>
+        <Filename Value="avutil.pas"/>
+        <UnitName Value="avutil"/>
+        <CursorPos X="5" Y="28"/>
+        <TopLine Value="1"/>
+        <EditorIndex Value="1"/>
+        <UsageCount Value="10"/>
+        <Loaded Value="True"/>
+      </Unit5>
+    </Units>
+    <JumpHistory Count="30" HistoryIndex="29">
+      <Position1>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="433" Column="65" TopLine="411"/>
+      </Position1>
+      <Position2>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="577" Column="30" TopLine="555"/>
+      </Position2>
+      <Position3>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="578" Column="23" TopLine="556"/>
+      </Position3>
+      <Position4>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="583" Column="48" TopLine="561"/>
+      </Position4>
+      <Position5>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="585" Column="39" TopLine="563"/>
+      </Position5>
+      <Position6>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="591" Column="11" TopLine="569"/>
+      </Position6>
+      <Position7>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="593" Column="24" TopLine="571"/>
+      </Position7>
+      <Position8>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="664" Column="68" TopLine="642"/>
+      </Position8>
+      <Position9>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="674" Column="44" TopLine="652"/>
+      </Position9>
+      <Position10>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="738" Column="20" TopLine="716"/>
+      </Position10>
+      <Position11>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="759" Column="45" TopLine="737"/>
+      </Position11>
+      <Position12>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="828" Column="15" TopLine="806"/>
+      </Position12>
+      <Position13>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="832" Column="38" TopLine="810"/>
+      </Position13>
+      <Position14>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="839" Column="43" TopLine="817"/>
+      </Position14>
+      <Position15>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="851" Column="41" TopLine="829"/>
+      </Position15>
+      <Position16>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="1085" Column="38" TopLine="1063"/>
+      </Position16>
+      <Position17>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="1204" Column="40" TopLine="1182"/>
+      </Position17>
+      <Position18>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="1244" Column="35" TopLine="1222"/>
+      </Position18>
+      <Position19>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="1247" Column="58" TopLine="1225"/>
+      </Position19>
+      <Position20>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="32" Column="15" TopLine="1"/>
+      </Position20>
+      <Position21>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="34" Column="15" TopLine="12"/>
+      </Position21>
+      <Position22>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
+      </Position22>
+      <Position23>
+        <Filename Value="avcodec.pas"/>
+        <Caret Line="32" Column="15" TopLine="10"/>
+      </Position23>
+      <Position24>
+        <Filename Value="avformat.pas"/>
+        <Caret Line="37" Column="15" TopLine="1"/>
+      </Position24>
+      <Position25>
+        <Filename Value="avformat.pas"/>
+        <Caret Line="39" Column="15" TopLine="17"/>
+      </Position25>
+      <Position26>
+        <Filename Value="avformat.pas"/>
+        <Caret Line="361" Column="58" TopLine="339"/>
+      </Position26>
+      <Position27>
+        <Filename Value="avformat.pas"/>
+        <Caret Line="373" Column="51" TopLine="281"/>
+      </Position27>
+      <Position28>
+        <Filename Value="lazarustest.lpr"/>
+        <Caret Line="25" Column="27" TopLine="1"/>
+      </Position28>
+      <Position29>
+        <Filename Value="lazarustest.lpr"/>
+        <Caret Line="26" Column="1" TopLine="1"/>
+      </Position29>
+      <Position30>
+        <Filename Value="lazarustest.lpr"/>
+        <Caret Line="1" Column="1" TopLine="1"/>
+      </Position30>
+    </JumpHistory>
+  </ProjectOptions>
+  <CompilerOptions>
+    <Version Value="5"/>
+    <CodeGeneration>
+      <Generate Value="Faster"/>
+    </CodeGeneration>
+    <Other>
+      <CompilerPath Value="$(CompPath)"/>
+    </Other>
+  </CompilerOptions>
+  <Debugging>
+    <Exceptions Count="2">
+      <Item1>
+        <Name Value="ECodetoolError"/>
+      </Item1>
+      <Item2>
+        <Name Value="EFOpenError"/>
+      </Item2>
+    </Exceptions>
+  </Debugging>
+</CONFIG>
diff --git a/Game/Code/lib/ffmpeg/lazarustest.lpr b/Game/Code/lib/ffmpeg/lazarustest.lpr
index 56efac75..10b59b9c 100644
--- a/Game/Code/lib/ffmpeg/lazarustest.lpr
+++ b/Game/Code/lib/ffmpeg/lazarustest.lpr
@@ -1,27 +1,30 @@
-program lazarustest;
-
-{$MODE Delphi}
-
-uses
-
-  avcodec      in 'avcodec.pas',
-  avformat     in 'avformat.pas',
-  avutil       in 'avutil.pas',
-  rational     in 'rational.pas',
-  opt          in 'opt.pas',
-  avio         in 'avio.pas',
-  sysutils;
-
-begin
-  // This compiles with all units in..
-  // but I cant run it, if its compiled with lazarus or delphi
-  // I get errors about not finding functions in dll's
-
-  try
-//    av_register_all();
-    writeln( 'If you see this then ffmpeg is probably lazarus compatible' );
-  except
-    writeln( 'ffmpeg is NOT lazarus compatible' );
-  end;
-end.
-
+program lazarustest;
+
+{$MODE Delphi}
+
+uses
+
+  avcodec      in 'avcodec.pas',
+  avformat     in 'avformat.pas',
+  avutil       in 'avutil.pas',
+  rational     in 'rational.pas',
+  opt          in 'opt.pas',
+  avio         in 'avio.pas',
+  sysutils;
+
+begin
+  // This compiles with all units in..
+  // but I cant run it, if its compiled with lazarus or delphi
+  // I get errors about not finding functions in dll's
+  
+  // ON LINUX - Ubuntu .. you will probably need to
+  // sudo apt-get install libavcodec-dev libavformat-dev
+
+  try
+    av_register_all();
+    writeln( 'YES - If you see this then ffmpeg is probably lazarus compatible' );
+  except
+    writeln( 'NO  - ffmpeg is NOT lazarus compatible' );
+  end;
+end.
+
diff --git a/Game/Code/lib/ffmpeg/opt.pas b/Game/Code/lib/ffmpeg/opt.pas
index f78ef201..c8b72479 100644
--- a/Game/Code/lib/ffmpeg/opt.pas
+++ b/Game/Code/lib/ffmpeg/opt.pas
@@ -1,101 +1,109 @@
-(*
- * AVOptions
- * copyright (c) 2005 Michael Niedermayer <michaelni@gmx.at>
- *
- * This library is free software; you can redistribute it and/or
- * modify it under the terms of the GNU Lesser General Public
- * License as published by the Free Software Foundation; either
- * version 2 of the License, or (at your option) any later version.
- *
- * This library is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
- * Lesser General Public License for more details.
- *
- * You should have received a copy of the GNU Lesser General Public
- * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
-*)
-unit opt;
-
-interface
-
-uses
-  windows, rational;
-
-type
-  TAVOptionType = (
-    FF_OPT_TYPE_FLAGS,
-    FF_OPT_TYPE_INT,
-    FF_OPT_TYPE_INT64,
-    FF_OPT_TYPE_DOUBLE,
-    FF_OPT_TYPE_FLOAT,
-    FF_OPT_TYPE_STRING,
-    FF_OPT_TYPE_RATIONAL,
-    FF_OPT_TYPE_CONST = 128
-  );
-
-const
-  av__codec = 'avcodec-51.dll';
-
-  AV_OPT_FLAG_ENCODING_PARAM  = 1;   ///< a generic parameter which can be set by the user for muxing or encoding
-  AV_OPT_FLAG_DECODING_PARAM  = 2;   ///< a generic parameter which can be set by the user for demuxing or decoding
-  AV_OPT_FLAG_METADATA        = 4;   ///< some data extracted or inserted into the file like title, comment, ...
-  AV_OPT_FLAG_AUDIO_PARAM     = 8;
-  AV_OPT_FLAG_VIDEO_PARAM     = 16;
-  AV_OPT_FLAG_SUBTITLE_PARAM  = 32;
-
-type
-  PAVOption = ^TAVOption;
-  TAVOption = record
-    name: pchar;
-    help: pchar;
-    offset: integer;             ///< offset to context structure where the parsed value should be stored
-    _type: TAVOptionType;
-
-    default_val: double;
-    min: double;
-    max: double;
-
-    flags: integer;
-//FIXME think about enc-audio, ... style flags
-    _unit: pchar;
-  end;
-
-
-function av_set_string (obj: pointer; name: pchar; val: pchar): PAVOption;
-  cdecl; external av__codec;
-
-function av_set_double (obj: pointer; name: pchar; n: double): PAVOption;
-  cdecl; external av__codec;
-
-function av_set_q (obj: pointer; name: pchar; n: TAVRational): PAVOption;
-  cdecl; external av__codec;
-
-function av_set_int (obj: pointer; name: pchar; n: int64): PAVOption;
-  cdecl; external av__codec;
-
-function av_get_double (obj: pointer; name: pchar; o_out: PPointer): double;
-  cdecl; external av__codec;
-
-function av_get_q (obj: pointer; name: pchar; o_out: PPointer): TAVRational;
-  cdecl; external av__codec;
-
-function av_get_int (obj: pointer; name: pchar; o_out: PPointer): int64;
-  cdecl; external av__codec;
-
-function av_get_string (obj: pointer; name: pchar; o_out: PPOinter; buf: pchar; buf_len: integer): pchar;
-  cdecl; external av__codec;
-
-function av_next_option (obj: pointer; last: PAVOption): PAVOption;
-  cdecl; external av__codec;
-
-function av_opt_show (obj: pointer; av_log_obj: pointer): integer;
-  cdecl; external av__codec;
-
-procedure av_opt_set_defaults (s: pointer);
-  cdecl; external av__codec;
-
-implementation
-
-end.
+(*
+ * AVOptions
+ * copyright (c) 2005 Michael Niedermayer <michaelni@gmx.at>
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+*)
+unit opt;
+
+interface
+
+uses
+  {$IFDEF win32}
+  windows,
+  {$ENDIF}
+  rational;
+
+type
+  TAVOptionType = (
+    FF_OPT_TYPE_FLAGS,
+    FF_OPT_TYPE_INT,
+    FF_OPT_TYPE_INT64,
+    FF_OPT_TYPE_DOUBLE,
+    FF_OPT_TYPE_FLOAT,
+    FF_OPT_TYPE_STRING,
+    FF_OPT_TYPE_RATIONAL,
+    FF_OPT_TYPE_CONST = 128
+  );
+
+const
+
+  {$IFDEF win32}
+    av__codec = 'avcodec-51.dll';
+  {$ELSE}
+    av__codec = 'avcodec.so'; // .0d
+  {$ENDIF}
+
+  AV_OPT_FLAG_ENCODING_PARAM  = 1;   ///< a generic parameter which can be set by the user for muxing or encoding
+  AV_OPT_FLAG_DECODING_PARAM  = 2;   ///< a generic parameter which can be set by the user for demuxing or decoding
+  AV_OPT_FLAG_METADATA        = 4;   ///< some data extracted or inserted into the file like title, comment, ...
+  AV_OPT_FLAG_AUDIO_PARAM     = 8;
+  AV_OPT_FLAG_VIDEO_PARAM     = 16;
+  AV_OPT_FLAG_SUBTITLE_PARAM  = 32;
+
+type
+  PAVOption = ^TAVOption;
+  TAVOption = record
+    name: pchar;
+    help: pchar;
+    offset: integer;             ///< offset to context structure where the parsed value should be stored
+    _type: TAVOptionType;
+
+    default_val: double;
+    min: double;
+    max: double;
+
+    flags: integer;
+//FIXME think about enc-audio, ... style flags
+    _unit: pchar;
+  end;
+
+
+function av_set_string (obj: pointer; name: pchar; val: pchar): PAVOption;
+  cdecl; external av__codec;
+
+function av_set_double (obj: pointer; name: pchar; n: double): PAVOption;
+  cdecl; external av__codec;
+
+function av_set_q (obj: pointer; name: pchar; n: TAVRational): PAVOption;
+  cdecl; external av__codec;
+
+function av_set_int (obj: pointer; name: pchar; n: int64): PAVOption;
+  cdecl; external av__codec;
+
+function av_get_double (obj: pointer; name: pchar; o_out: PPointer): double;
+  cdecl; external av__codec;
+
+function av_get_q (obj: pointer; name: pchar; o_out: PPointer): TAVRational;
+  cdecl; external av__codec;
+
+function av_get_int (obj: pointer; name: pchar; o_out: PPointer): int64;
+  cdecl; external av__codec;
+
+function av_get_string (obj: pointer; name: pchar; o_out: PPOinter; buf: pchar; buf_len: integer): pchar;
+  cdecl; external av__codec;
+
+function av_next_option (obj: pointer; last: PAVOption): PAVOption;
+  cdecl; external av__codec;
+
+function av_opt_show (obj: pointer; av_log_obj: pointer): integer;
+  cdecl; external av__codec;
+
+procedure av_opt_set_defaults (s: pointer);
+  cdecl; external av__codec;
+
+implementation
+
+end.
diff --git a/Game/Code/lib/ffmpeg/rational.pas b/Game/Code/lib/ffmpeg/rational.pas
index a996e1df..40d1f093 100644
--- a/Game/Code/lib/ffmpeg/rational.pas
+++ b/Game/Code/lib/ffmpeg/rational.pas
@@ -1,88 +1,96 @@
-(*
- * Rational numbers
- * Copyright (c) 2003 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
- *)
-unit rational;
-
-interface
-
-uses
-  windows;
-
-const
-  av__util = 'avutil-49.dll';
-
-type
-
-(*
- * Rational number num/den. *)
-  PAVRational = ^TAVRational;
-  TAVRational = record
-    num: integer; ///< numerator
-    den: integer; ///< denominator
-  end;
-
-(**
- * returns 0 if a==b, 1 if a>b and -1 if a<b.
- *)
-function av_cmp_q(a: TAVRational; b: TAVRational): integer;
-
-(**
- * converts the given AVRational to a double.
- *)
-function av_q2d(a: TAVRational): double;
-
-(**
- * reduce a fraction.
- * this is usefull for framerate calculations
- * @param max the maximum allowed for dst_nom & dst_den
- * @return 1 if exact, 0 otherwise
- *)
-function av_reduce(dst_nom: pinteger; dst_den: PInteger; nom: int64; den: int64; max: int64): integer;
-  cdecl; external av__util;
-
-function av_mul_q(b: TAVRational; c: TAVRational): TAVRational;
-  cdecl; external av__util;
-function av_div_q(b: TAVRational; c: TAVRational): TAVRational;
-  cdecl; external av__util;
-function av_add_q(b: TAVRational; c: TAVRational): TAVRational;
-  cdecl; external av__util;
-function av_sub_q(b: TAVRational; c: TAVRational): TAVRational;
-  cdecl; external av__util;
-function av_d2q(d: double; max: integer): TAVRational;
-  cdecl; external av__util;
-
-implementation
-
-function av_cmp_q (a: TAVRational; b: TAVRational): integer;
-var
-  tmp: int64;
-begin
-  tmp := a.num * b.den - b.num * a.den;
-
-  if tmp = 0 then
-    Result := (tmp shr 63) or 1
-  else
-    Result := 0;
-end;
-
-function av_q2d(a: TAVRational): double;
-begin
-  Result := a.num / a.den;
-end;
-
-end.
+(*
+ * Rational numbers
+ * Copyright (c) 2003 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
+ *)
+unit rational;
+
+interface
+
+{$IFDEF win32}
+uses
+  windows;
+{$endif}
+
+const
+
+  {$IFDEF win32}
+    av__util = 'avutil-49.dll';
+  {$ELSE}
+    av__util = 'libavutil.so';  // .0d
+  {$ENDIF}
+
+
+type
+
+(*
+ * Rational number num/den. *)
+  PAVRational = ^TAVRational;
+  TAVRational = record
+    num: integer; ///< numerator
+    den: integer; ///< denominator
+  end;
+
+(**
+ * returns 0 if a==b, 1 if a>b and -1 if a<b.
+ *)
+function av_cmp_q(a: TAVRational; b: TAVRational): integer;
+
+(**
+ * converts the given AVRational to a double.
+ *)
+function av_q2d(a: TAVRational): double;
+
+(**
+ * reduce a fraction.
+ * this is usefull for framerate calculations
+ * @param max the maximum allowed for dst_nom & dst_den
+ * @return 1 if exact, 0 otherwise
+ *)
+function av_reduce(dst_nom: pinteger; dst_den: PInteger; nom: int64; den: int64; max: int64): integer;
+  cdecl; external av__util;
+
+function av_mul_q(b: TAVRational; c: TAVRational): TAVRational;
+  cdecl; external av__util;
+function av_div_q(b: TAVRational; c: TAVRational): TAVRational;
+  cdecl; external av__util;
+function av_add_q(b: TAVRational; c: TAVRational): TAVRational;
+  cdecl; external av__util;
+function av_sub_q(b: TAVRational; c: TAVRational): TAVRational;
+  cdecl; external av__util;
+function av_d2q(d: double; max: integer): TAVRational;
+  cdecl; external av__util;
+
+implementation
+
+function av_cmp_q (a: TAVRational; b: TAVRational): integer;
+var
+  tmp: int64;
+begin
+  tmp := a.num * b.den - b.num * a.den;
+
+  if tmp = 0 then
+    Result := (tmp shr 63) or 1
+  else
+    Result := 0;
+end;
+
+function av_q2d(a: TAVRational): double;
+begin
+  Result := a.num / a.den;
+end;
+
+end.
-- 
cgit v1.2.3