Changed DLL/so/dylib constants. Changed TAVFormatContext fiels "pb" from structure to pointer.

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

1 files changed, 706 insertions, 701 deletions

diff --git a/Game/Code/lib/ffmpeg/avformat.pas b/Game/Code/lib/ffmpeg/avformat.pas
index 6e30865f..4b130dd3 100644
--- a/Game/Code/lib/ffmpeg/avformat.pas
+++ b/Game/Code/lib/ffmpeg/avformat.pas
@@ -1,701 +1,706 @@
-                                                                              (*

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

-                                                                              *)

-

-(* This is a part of Pascal porting of ffmpeg.  Originally by Victor Zinetz for Delphi and Free Pascal on Windows.

-For Mac OS X, some modifications were made by The Creative CAT, denoted as CAT

-in the source codes *)

-

-unit avformat;

-

-{$IFDEF FPC}

-  {$IFNDEF win32}

-  {$LINKLIB libavutil}

-  {$LINKLIB libavformat}

-  {$ENDIF}

-

-  {$MODE DELPHI } (* CAT *)

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

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

-{$ENDIF}

-

-interface

-

-uses

-  avcodec,

-  avio,

-  rational,

-  avutil; (* CAT *)

-

-const

-

-

-{$IFDEF win32}

-  av__format = 'avformat-50.dll';

-{$ELSE}

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

-  //av__format = 'libavformat.51'; (* CAT *)

-{$ENDIF}

-

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

-  LIBAVUTIL_VERSION       = '51.12.1';

-  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;

-

-  MAXINT64 = $7fffffffffffffff;

-  MININT64 = $8000000000000000;

-

-  PKT_FLAG_KEY = $0001;

-

-(*************************************************)

-(* input/output formats *)

-

-  AVPROBE_SCORE_MAX   = 100;   ///< max score, half of that is used for file extension based detection

-  AVPROBE_PADDING_SIZE = 32;   ///< extra allocated bytes at the end of the probe buffer

-

-//! demuxer will use url_fopen, no opened file should be provided by the caller

-  AVFMT_NOFILE = $0001;

-  AVFMT_NEEDNUMBER = $0002; (**< needs '%d' in filename *)

-  AVFMT_SHOW_IDS = $0008; (**< show format stream IDs numbers *)

-  AVFMT_RAWPICTURE = $0020; (**< format wants AVPicture structure for

-                                      raw picture data *)

-  AVFMT_GLOBALHEADER = $0040; (**< format wants global header *)

-  AVFMT_NOTIMESTAMPS = $0080; (**< format does not need / have any timestamps *)

-  AVFMT_GENERIC_INDEX = $0100; (**< use generic index building code *)

-

-  AVINDEX_KEYFRAME = $0001;

-

-  MAX_REORDER_DELAY = 4;

-

-  AVFMTCTX_NOHEADER = $0001; (**< signal that no header is present

-                                         (streams are added dynamically) *)

-  MAX_STREAMS = 20;

-  AVFMT_NOOUTPUTLOOP = -1;

-  AVFMT_INFINITEOUTPUTLOOP = 0;

-  AVFMT_FLAG_GENPTS = $0001; ///< generate pts if missing even if it requires parsing future frames

-  AVFMT_FLAG_IGNIDX = $0002; ///< ignore index

-  AVFMT_FLAG_NONBLOCK = $0004; ///< do not block when reading packets from input

-

-type

-  HFILE = THandle; /// (* CAT *)

-  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); cdecl; (* This cannot be var : TAVPacket. 

-										because TAVPacket is not completely defined yet *)

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

-

-(* 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 *)}  (* CAT#3 *)

-    channel: integer; (* used to select dv channel *)

-    device: pchar; (* video, audio or DV device, if LIBAVFORMAT_VERSION_INT < (52<<16) *)

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

-//    int prealloced_context:1;

-    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; var pkt: TAVPacket): integer; cdecl; (* CAT#2 *)

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

-

-    (**

-     * list of supported codec_id-codec_tag pairs, ordered by "better choice first"

-     * the arrays are all CODEC_ID_NONE terminated

-     *)

-    //const struct AVCodecTag **codec_tag;

-

-    (* 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; var pkt: TAVPacket): 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;

-

-    //const struct AVCodecTag **codec_tag;

-

-    (* private fields *)

-    next: PAVInputFormat;

-  end;

-

-  TAVStreamParseType = (

-    AVSTREAM_PARSE_NONE,

-    AVSTREAM_PARSE_FULL,       (**< full parsing and repack *)

-    AVSTREAM_PARSE_HEADERS,    (**< only parse headers, don't repack *)

-    AVSTREAM_PARSE_TIMESTAMPS  (**< full parsing and interpolation of timestamps for frames not starting on packet boundary *)

-    );

-

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

-//    int flags:2;

-//    int size:30; //Yeah, trying to keep the size of this small to reduce memory requirements (it is 24 vs 32 byte due to possible 8byte align).

-    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 *) {4-4}

-    id: integer;       (* format specific stream id *)       {4-8}

-    codec: PAVCodecContext; (* codec context *)              {4-12}

-    (*** 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;                               {4*2=8-20}

-    priv_data: pointer;                                      {4-24}

-    (* internal data used in av_find_stream_info() *)

-    codec_info_duration: int64; (* #if LIBAVFORMAT_VERSION_INT < (52<<16) *)  {8-32}

-    codec_info_nb_frames: integer; (* #if LIBAVFORMAT_VERSION_INT < (52<<16) *) {4-38}

-    (* encoding: PTS generation when outputing stream *)

-    pts: TAVFrac;                                            {8*3=24-62}

-

-    (*** 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;                                  {4*2=8-70}

-    pts_wrap_bits: integer; (* number of bits in pts (used for wrapping control) *) {4-74}

-    (* ffmpeg.c private use *)

-    stream_copy: integer; (* if TRUE, just copy stream *)  {4-78}

-    discard: TAVDiscard; ///< selects which packets can be discarded at will and dont need to be demuxed {4-82}

-    //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; {4-86}

-    (* decoding: position of the first frame of the component, in AV_TIME_BASE fractional seconds. *)

-    start_time: int64; {8-92}

-    (* decoding: duration of the stream, in stream time base. *)

-    duration: int64; {8-100}

-

-    language: array [0..3] of char; (* ISO 639 3-letter language code (empty string if undefined) *)(* 101 th byte - 1 base *) {4-104}

-

-    (* av_read_frame() support *)

-    need_parsing: TAVStreamParseType;//CAT#3           ///< 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: cardinal; (* CAT#3 *)

-

-    nb_frames: int64;                 ///< number of frames in this stream if known or 0

-    pts_buffer: array [0..MAX_REORDER_DELAY] 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: cardinal;  (* CAT#3 *)

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

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

-

-    (**

-     * maximum duration in AV_TIME_BASE units over which the input should be analyzed in av_find_stream_info()

-     *)

-    max_analyze_duration: integer;

-

-    key: pbyte;

-    keylen : integer

-  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 (var pkt: TAVPacket); (* CAT#2 *)

-  cdecl; external av__format;

-procedure av_destruct_packet (var pkt: TAVPacket); (* CAT#2 *)

-  cdecl; external av__format;

-

-(* initialize optional fields of a packet *)

-procedure av_init_packet (var pkt: TAVPacket);  (* CAT#2 *)

-

-function av_new_packet(var pkt: TAVPacket; size: integer): integer; (* CAT#2 *)

-  cdecl; external av__format;

-

-function av_get_packet (s: PByteIOContext; var pkt: TAVPacket; size: integer): integer; (* CAT#2 *)

-  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 (var pkt: TAVPacket); (* CAT#2 *)

-

-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; var pkt: TAVPacket; dump_payload: integer); (* CAT#2 *)

-    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; var pkt: TAVPacket): integer; (* CAT#2 *)

-    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; var pkt: TAVPacket): integer; (* CAT#2 *)

-    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; var pkt: TAVPacket): integer;

-    cdecl; external av__format; (* CAT#2 *)

-

-  function av_interleaved_write_frame (s: PAVFormatContext; var pkt: TAVPacket): integer;

-    cdecl; external av__format; (* CAT#2 *)

-

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

-

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

-

-  function find_info_tag (arg: pchar; arg_size: integer; tag1: pchar; info: pchar): integer;

-    cdecl; external av__format;

-

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

-

-  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 (var pkt: TAVPacket);  (* CAT#2 + bug fix *)

-begin

-  with pkt do begin

-    pts   := AV_NOPTS_VALUE;

-    dts   := AV_NOPTS_VALUE;

-    pos   := -1;

-    duration := 0;

-    flags := 0;

-    stream_index := 0;

-    destruct := @av_destruct_packet_nofree

-  end

-end;

-

-procedure av_free_packet (var pkt: TAVPacket); (* CAT#2 *)

-begin

-  if @pkt.destruct <> nil then pkt.destruct (@pkt)

-{  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
+                                                                              *)
+
+(* This is a part of Pascal porting of ffmpeg.  Originally by Victor Zinetz for Delphi and Free Pascal on Windows.
+For Mac OS X, some modifications were made by The Creative CAT, denoted as CAT
+in the source codes *)
+
+unit avformat;
+
+{$IFDEF FPC}
+  {$IFDEF LINUX}
+    {$LINKLIB libavutil}
+    {$LINKLIB libavformat}
+  {$ENDIF}
+
+  {$MODE DELPHI } (* CAT *)
+  {$PACKENUM 4}    (* every enum type variables uses 4 bytes, CAT *)
+  {$PACKRECORDS C}    (* GCC compatible, Record Packing, CAT *)
+{$ENDIF}
+
+interface
+
+uses
+  avcodec,
+  avio,
+  rational,
+  avutil; (* CAT *)
+
+const
+
+{$IFDEF MSWINDOWS}
+  av__format = 'avformat-50.dll';
+{$ENDIF}
+{$IFDEF LINUX}
+  av__format = 'libavformat.so';
+{$ENDIF}
+{$IFDEF DARWIN}
+  av__format = 'libavformat.dylib';
+{$ENDIF}
+
+  LIBAVUTIL_VERSION_INT   =  ((51 shl 16) + (12 shl 8) + 1);
+  LIBAVUTIL_VERSION       = '51.12.1';
+  LIBAVUTIL_BUILD         = LIBAVUTIL_VERSION_INT;
+
+  MAXINT64 = $7fffffffffffffff;
+  MININT64 = $8000000000000000;
+
+  PKT_FLAG_KEY = $0001;
+
+(*************************************************)
+(* input/output formats *)
+
+  AVPROBE_SCORE_MAX   = 100;   ///< max score, half of that is used for file extension based detection
+  AVPROBE_PADDING_SIZE = 32;   ///< extra allocated bytes at the end of the probe buffer
+
+//! demuxer will use url_fopen, no opened file should be provided by the caller
+  AVFMT_NOFILE = $0001;
+  AVFMT_NEEDNUMBER = $0002; (**< needs '%d' in filename *)
+  AVFMT_SHOW_IDS = $0008; (**< show format stream IDs numbers *)
+  AVFMT_RAWPICTURE = $0020; (**< format wants AVPicture structure for
+                                      raw picture data *)
+  AVFMT_GLOBALHEADER = $0040; (**< format wants global header *)
+  AVFMT_NOTIMESTAMPS = $0080; (**< format does not need / have any timestamps *)
+  AVFMT_GENERIC_INDEX = $0100; (**< use generic index building code *)
+
+  AVINDEX_KEYFRAME = $0001;
+
+  MAX_REORDER_DELAY = 4;
+
+  AVFMTCTX_NOHEADER = $0001; (**< signal that no header is present
+                                         (streams are added dynamically) *)
+  MAX_STREAMS = 20;
+  AVFMT_NOOUTPUTLOOP = -1;
+  AVFMT_INFINITEOUTPUTLOOP = 0;
+  AVFMT_FLAG_GENPTS = $0001; ///< generate pts if missing even if it requires parsing future frames
+  AVFMT_FLAG_IGNIDX = $0002; ///< ignore index
+  AVFMT_FLAG_NONBLOCK = $0004; ///< do not block when reading packets from input
+
+type
+  HFILE = THandle; /// (* CAT *)
+  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); cdecl; (* This cannot be var : TAVPacket. 
+										because TAVPacket is not completely defined yet *)
+    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;
+
+(* 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 *)}  (* CAT#3 *)
+    channel: integer; (* used to select dv channel *)
+    device: pchar; (* video, audio or DV device, if LIBAVFORMAT_VERSION_INT < (52<<16) *)
+    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) *)
+//    int prealloced_context:1;
+    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; var pkt: TAVPacket): integer; cdecl; (* CAT#2 *)
+    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;
+
+    (**
+     * list of supported codec_id-codec_tag pairs, ordered by "better choice first"
+     * the arrays are all CODEC_ID_NONE terminated
+     *)
+    //const struct AVCodecTag **codec_tag;
+
+    (* 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; var pkt: TAVPacket): 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;
+
+    //const struct AVCodecTag **codec_tag;
+
+    (* private fields *)
+    next: PAVInputFormat;
+  end;
+
+  TAVStreamParseType = (
+    AVSTREAM_PARSE_NONE,
+    AVSTREAM_PARSE_FULL,       (**< full parsing and repack *)
+    AVSTREAM_PARSE_HEADERS,    (**< only parse headers, don't repack *)
+    AVSTREAM_PARSE_TIMESTAMPS  (**< full parsing and interpolation of timestamps for frames not starting on packet boundary *)
+    );
+
+  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;
+//    int flags:2;
+//    int size:30; //Yeah, trying to keep the size of this small to reduce memory requirements (it is 24 vs 32 byte due to possible 8byte align).
+    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 *) {4-4}
+    id: integer;       (* format specific stream id *)       {4-8}
+    codec: PAVCodecContext; (* codec context *)              {4-12}
+    (*** 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;                               {4*2=8-20}
+    priv_data: pointer;                                      {4-24}
+    (* internal data used in av_find_stream_info() *)
+    codec_info_duration: int64; (* #if LIBAVFORMAT_VERSION_INT < (52<<16) *)  {8-32}
+    codec_info_nb_frames: integer; (* #if LIBAVFORMAT_VERSION_INT < (52<<16) *) {4-38}
+    (* encoding: PTS generation when outputing stream *)
+    pts: TAVFrac;                                            {8*3=24-62}
+
+    (*** 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;                                  {4*2=8-70}
+    pts_wrap_bits: integer; (* number of bits in pts (used for wrapping control) *) {4-74}
+    (* ffmpeg.c private use *)
+    stream_copy: integer; (* if TRUE, just copy stream *)  {4-78}
+    discard: TAVDiscard; ///< selects which packets can be discarded at will and dont need to be demuxed {4-82}
+    //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; {4-86}
+    (* decoding: position of the first frame of the component, in AV_TIME_BASE fractional seconds. *)
+    start_time: int64; {8-92}
+    (* decoding: duration of the stream, in stream time base. *)
+    duration: int64; {8-100}
+
+    language: array [0..3] of char; (* ISO 639 3-letter language code (empty string if undefined) *)(* 101 th byte - 1 base *) {4-104}
+
+    (* av_read_frame() support *)
+    need_parsing: TAVStreamParseType;//CAT#3           ///< 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: cardinal; (* CAT#3 *)
+
+    nb_frames: int64;                 ///< number of frames in this stream if known or 0
+    pts_buffer: array [0..MAX_REORDER_DELAY] 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;
+    pb: Pointer; // eddie: This is a pointer (at least on OS X)
+    
+		nb_streams: cardinal;  (* CAT#3 *)
+    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: pbyte;
+    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;
+
+    (**
+     * maximum duration in AV_TIME_BASE units over which the input should be analyzed in av_find_stream_info()
+     *)
+    max_analyze_duration: integer;
+
+    key: pbyte;
+    keylen : integer
+  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 (var pkt: TAVPacket); (* CAT#2 *)
+  cdecl; external av__format;
+procedure av_destruct_packet (var pkt: TAVPacket); (* CAT#2 *)
+  cdecl; external av__format;
+
+(* initialize optional fields of a packet *)
+procedure av_init_packet (var pkt: TAVPacket);  (* CAT#2 *)
+
+function av_new_packet(var pkt: TAVPacket; size: integer): integer; (* CAT#2 *)
+  cdecl; external av__format;
+
+function av_get_packet (s: PByteIOContext; var pkt: TAVPacket; size: integer): integer; (* CAT#2 *)
+  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 (var pkt: TAVPacket); (* CAT#2 *)
+
+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; var pkt: TAVPacket; dump_payload: integer); (* CAT#2 *)
+    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; var pkt: TAVPacket): integer; (* CAT#2 *)
+    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; var pkt: TAVPacket): integer; (* CAT#2 *)
+    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; var pkt: TAVPacket): integer;
+    cdecl; external av__format; (* CAT#2 *)
+
+  function av_interleaved_write_frame (s: PAVFormatContext; var pkt: TAVPacket): integer;
+    cdecl; external av__format; (* CAT#2 *)
+
+  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;
+
+  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;
+
+  function find_info_tag (arg: pchar; arg_size: integer; tag1: pchar; info: pchar): integer;
+    cdecl; external av__format;
+
+  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;
+
+  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 (var pkt: TAVPacket);  (* CAT#2 + bug fix *)
+begin
+  with pkt do begin
+    pts   := AV_NOPTS_VALUE;
+    dts   := AV_NOPTS_VALUE;
+    pos   := -1;
+    duration := 0;
+    flags := 0;
+    stream_index := 0;
+    destruct := @av_destruct_packet_nofree
+  end
+end;
+
+procedure av_free_packet (var pkt: TAVPacket); (* CAT#2 *)
+begin
+  if @pkt.destruct <> nil then pkt.destruct (@pkt)
+{  if (pkt <> nil) and (@pkt^.destruct <> nil) then
+    pkt^.destruct (pkt)}
+end;
+
+end.