diff options
| -rw-r--r-- | Game/Code/lib/ffmpeg/avformat.pas | 1390 |
1 files changed, 695 insertions, 695 deletions
diff --git a/Game/Code/lib/ffmpeg/avformat.pas b/Game/Code/lib/ffmpeg/avformat.pas index aa74043b..6e30865f 100644 --- a/Game/Code/lib/ffmpeg/avformat.pas +++ b/Game/Code/lib/ffmpeg/avformat.pas @@ -1,701 +1,701 @@ - (* - * 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} + (*
+ * 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} + {$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} +
+ {$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); (* 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. +{$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.
|