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

8 files changed, 3457 insertions, 3385 deletions

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.