(* * copyright (c) 2001 Fabrice Bellard * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA *) unit avformat; interface {$IFDEF FPC} {$MODE Delphi} {$ENDIF} uses {$IFDEF win32} windows, {$ENDIF} avcodec, avio, rational, avutil; const {$IFDEF win32} av__format = 'avformat-50.dll'; {$ELSE} av__format = 'libavformat.so'; // .0d av__codec = 'libavcodec.so'; {$ENDIF} LIBAVUTIL_VERSION_INT = ((49 shl 16) + (0 shl 8) + 1); LIBAVUTIL_VERSION = '49.0.1'; LIBAVUTIL_BUILD = LIBAVUTIL_VERSION_INT; MAXINT64 = $7fffffffffffffff; MININT64 = $8000000000000000; PKT_FLAG_KEY = $0001; (* AVImageFormat.flags field constants *) AVIMAGE_INTERLEAVED = $0001; (* image format support interleaved output *) MAX_STREAMS = 20; type int = integer; PAVPacket = ^TAVPacket; PAVImageFormat = ^TAVImageFormat; PAVFormatContext = ^TAVFormatContext; PAVFormatParameters = ^TAVFormatParameters; PAVOutputFormat = ^TAVOutputFormat; PAVProbeData = ^TAVProbeData; PAVInputFormat = ^TAVInputFormat; PAVIndexEntry = ^TAVIndexEntry; PAVStream = ^TAVStream; PAVPacketList = ^TAVPacketList; PAVImageInfo = ^TAVImageInfo; TAVPacket = record {56} pts: int64; ///< presentation time stamp in time_base units dts: int64; ///< decompression time stamp in time_base units data: PByte; size: integer; stream_index: integer; flags: integer; duration: integer; ///< presentation duration in time_base units (0 if not available) destruct: procedure (p: PAVPacket); priv: pointer; pos: int64; ///< byte position in stream, -1 if unknown end; (*************************************************) (* fractional numbers for exact pts handling *) (* the exact value of the fractional number is: 'val + num / den'. num is assumed to be such as 0 <= num < den *) PAVFrac = ^TAVFrac; TAVFrac = record val, num, den: int64; end; (*************************************************) (* input/output formats *) (* this structure contains the data a format has to probe a file *) TAVProbeData = record {12} filename: pchar; buf: pchar; buf_size: integer; end; TAVFormatParameters = record {56} time_base: TAVRational; (* 8 bytes *) sample_rate: integer; channels: integer; width: integer; height: integer; pix_fmt: TAVPixelFormat; image_format: PAVImageFormat; (* 4 bytes *) channel: integer; (* used to select dv channel *) device: pchar; (* video, audio or DV device *) standard: pchar; (* tv standard, NTSC, PAL, SECAM *) // int mpeg2ts_raw:1; (* force raw MPEG2 transport stream output, if possible *) // int mpeg2ts_compute_pcr:1; (* compute exact PCR for each transport // stream packet (only meaningful if // mpeg2ts_raw is TRUE *) // int initial_pause:1; (* do not begin to play the stream // immediately (RTSP only) *) dummy: byte; video_codec_id: TCodecID; audio_codec_id: TCodecID; end; TAVOutputFormat = record {56} name: pchar; long_name: pchar; mime_type: pchar; extensions: pchar; (* comma separated extensions *) (* size of private data so that it can be allocated in the wrapper *) priv_data_size: integer; (* output support *) audio_codec: TCodecID; (* default audio codec *) video_codec: TCodecID; (* default video codec *) write_header: function (c: PAVFormatContext): integer; cdecl; write_packet: function (c: PAVFormatContext; pkt: PAVPacket): integer; cdecl; write_trailer: function (c: PAVFormatContext): integer; cdecl; (* can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER, AVFMT_GLOBALHEADER *) flags: integer; (* currently only used to set pixel format if not YUV420P *) set_parameters: function (c: PAVFormatContext; f: PAVFormatParameters): integer; cdecl; interleave_packet: function (s: PAVFormatContext; _out: PAVPacket; _in: PAVPacket; flush: integer): integer; cdecl; (* private fields *) next: PAVOutputFormat; end; TAVInputFormat = record {60} name: pchar; long_name: pchar; (* size of private data so that it can be allocated in the wrapper *) priv_data_size: integer; (* tell if a given file has a chance of being parsing by this format *) read_probe: function (p: PAVProbeData): integer; cdecl; (* read the format header and initialize the AVFormatContext structure. Return 0 if OK. 'ap' if non NULL contains additionnal paramters. Only used in raw format right now. 'av_new_stream' should be called to create new streams. *) read_header: function (c: PAVFormatContext; ap: PAVFormatParameters): integer; cdecl; (* read one packet and put it in 'pkt'. pts and flags are also set. 'av_new_stream' can be called only if the flag AVFMTCTX_NOHEADER is used. *) read_packet: function (c: PAVFormatContext; pkt: PAVPacket): integer; cdecl; (* close the stream. The AVFormatContext and AVStreams are not freed by this function *) read_close: function (c: PAVFormatContext): integer; cdecl; (*** seek to a given timestamp relative to the frames in * stream component stream_index * @param stream_index must not be -1 * @param flags selects which direction should be preferred if no exact * match is available *) read_seek: function (c: PAVFormatContext; stream_index: integer; timestamp: int64; flags: integer): integer; cdecl; (*** gets the next timestamp in AV_TIME_BASE units. *) read_timestamp: function (s: PAVFormatContext; stream_index: integer; pos: pint64; pos_limit: int64): integer; cdecl; (* can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER *) flags: integer; (* if extensions are defined, then no probe is done. You should usually not use extension format guessing because it is not reliable enough *) extensions: pchar; (* general purpose read only value that the format can use *) value: integer; (* start/resume playing - only meaningful if using a network based format (RTSP) *) read_play: function (c: PAVFormatContext): integer; cdecl; (* pause playing - only meaningful if using a network based format (RTSP) *) read_pause: function (c: PAVFormatContext): integer; cdecl; (* private fields *) next: PAVInputFormat; end; TAVIndexEntry = record {24} pos: int64; timestamp: int64; (* the following 2 flags indicate that the next/prev keyframe is known, and scaning for it isnt needed *) flags: integer; min_distance: integer; (* min distance between this and the previous keyframe, used to avoid unneeded searching *) end; TAVStream = record {168} index: integer; (* stream index in AVFormatContext *) id: integer; (* format specific stream id *) codec: PAVCodecContext; (* codec context *) (*** real base frame rate of the stream. * for example if the timebase is 1/90000 and all frames have either * approximately 3600 or 1800 timer ticks then r_frame_rate will be 50/1 *) r_frame_rate: TAVRational; priv_data: pointer; (* internal data used in av_find_stream_info() *) codec_info_duration: int64; codec_info_nb_frames: integer; (* encoding: PTS generation when outputing stream *) pts: TAVFrac; (*** this is the fundamental unit of time (in seconds) in terms * of which frame timestamps are represented. for fixed-fps content, * timebase should be 1/framerate and timestamp increments should be * identically 1. *) time_base: TAVRational; pts_wrap_bits: integer; (* number of bits in pts (used for wrapping control) *) (* ffmpeg.c private use *) stream_copy: integer; (* if TRUE, just copy stream *) discard: TAVDiscard; ///< selects which packets can be discarded at will and dont need to be demuxed //FIXME move stuff to a flags field? (* quality, as it has been removed from AVCodecContext and put in AVVideoFrame * MN:dunno if thats the right place, for it *) quality: single; (* decoding: position of the first frame of the component, in AV_TIME_BASE fractional seconds. *) start_time: int64; (* decoding: duration of the stream, in AV_TIME_BASE fractional seconds. *) duration: int64; language: array [0..3] of char; (* ISO 639 3-letter language code (empty string if undefined) *) (* av_read_frame() support *) need_parsing: integer; ///< 1->full parsing needed, 2->only parse headers dont repack parser: PAVCodecParserContext; cur_dts: int64; last_IP_duration: integer; last_IP_pts: int64; (* av_seek_frame() support *) index_entries: PAVIndexEntry; (* only used if the format does not support seeking natively *) nb_index_entries: integer; index_entries_allocated_size: integer; nb_frames: int64; ///< number of frames in this stream if known or 0 pts_buffer: array [0..4] of int64; end; (* format I/O context *) TAVFormatContext = record {3960} av_class: PAVClass; (* set by av_alloc_format_context *) (* can only be iformat or oformat, not both at the same time *) iformat: PAVInputFormat; oformat: PAVOutputFormat; priv_data: pointer; pb: TByteIOContext; nb_streams: cardinal;// integer; streams: array [0..MAX_STREAMS - 1] of PAVStream; filename: array [0..1023] of char; (* input or output filename *) (* stream info *) timestamp: int64; title: array [0..511] of char; author: array [0..511] of char; copyright: array [0..511] of char; comment: array [0..511] of char; album: array [0..511] of char; year: integer; (* ID3 year, 0 if none *) track: integer; (* track number, 0 if none *) genre: array [0..31] of char; (* ID3 genre *) ctx_flags: integer; (* format specific flags, see AVFMTCTX_xx *) (* private data for pts handling (do not modify directly) *) (* This buffer is only needed when packets were already buffered but not decoded, for example to get the codec parameters in mpeg streams *) packet_buffer: PAVPacketList; (* decoding: position of the first frame of the component, in AV_TIME_BASE fractional seconds. NEVER set this value directly: it is deduced from the AVStream values. *) start_time: int64; (* decoding: duration of the stream, in AV_TIME_BASE fractional seconds. NEVER set this value directly: it is deduced from the AVStream values. *) duration: int64; (* decoding: total file size. 0 if unknown *) file_size: int64; (* decoding: total stream bitrate in bit/s, 0 if not available. Never set it directly if the file_size and the duration are known as ffmpeg can compute it automatically. *) bit_rate: integer; (* av_read_frame() support *) cur_st: PAVStream; cur_ptr: pchar; cur_len: integer; cur_pkt: TAVPacket; (* av_seek_frame() support *) data_offset: int64; (* offset of the first packet *) index_built: integer; mux_rate: integer; packet_size: integer; preload: integer; max_delay: integer; (* number of times to loop output in formats that support it *) loop_output: integer; flags: integer; loop_input: integer; (* decoding: size of data to probe; encoding unused *) probesize: cardinal; end; TAVPacketList = record {64} pkt: TAVPacket; next: PAVPacketList; end; (* still image support *) PAVInputImageContext = pointer; // attribute_deprecated; // PAVInputImageContext = pointer; //AVInputImageContext attribute_deprecated; (* still image support *) TAVImageInfo = record {48} pix_fmt: TAVPixelFormat; (* requested pixel format *) width: integer; (* requested width *) height: integer; (* requested height *) interleaved: integer; (* image is interleaved (e.g. interleaved GIF) *) pict: TAVPicture; (* returned allocated image *) end; TAVImageFormat = record {32} name: pchar; extensions: pchar; (* tell if a given file has a chance of being parsing by this format *) img_probe: function (d: PAVProbeData): integer; cdecl; (* read a whole image. 'alloc_cb' is called when the image size is known so that the caller can allocate the image. If 'allo_cb' returns non zero, then the parsing is aborted. Return '0' if OK. *) img_read: function (b: PByteIOContext; alloc_cb: pointer; ptr: pointer): integer; cdecl; (* write the image *) supported_pixel_formats: integer; (* mask of supported formats for output *) img_write: function (b: PByteIOContext; i: PAVImageInfo): integer; cdecl; flags: integer; next: PAVImageFormat; end; {$IFNDEF win32} HFILE = THandle; {$ENDIF} procedure av_destruct_packet_nofree (pkt: PAVPacket); cdecl; external av__format; procedure av_destruct_packet (pkt: PAVPacket); cdecl; external av__format; (* initialize optional fields of a packet *) procedure av_init_packet (pkt: PAVPacket); function av_new_packet(pkt: PAVPacket; size: integer): integer; cdecl; external av__format; function av_get_packet (s: PByteIOContext; pkt: PAVPacket; size: integer): integer; cdecl; external av__format; function av_dup_packet (pkt: PAVPacket): integer; cdecl; external av__format; (** * Free a packet * * @param pkt packet to free *) procedure av_free_packet (pkt: PAVPacket); procedure av_register_image_format (img_fmt: PAVImageFormat); cdecl; external av__format; function av_probe_image_format (pd: PAVProbeData): PAVImageFormat; cdecl; external av__format; function guess_image_format (filename: pchar): PAVImageFormat; cdecl; external av__format; function av_guess_image2_codec(filename: pchar): TCodecID; cdecl; external av__format; function av_read_image (pb: PByteIOContext; filename: pchar; fmt: PAVImageFormat; alloc_cb: pointer; opaque: pointer): integer; cdecl; external av__format; function av_write_image(pb: PByteIOContext; fmt: PAVImageFormat; img: PAVImageInfo): integer; cdecl; external av__format; (* XXX: use automatic init with either ELF sections or C file parser *) (* modules *) //#include "rtp.h" //#include "rtsp.h" (* utils.c *) procedure av_register_input_format (format: PAVInputFormat); cdecl; external av__format; procedure av_register_output_format (format: PAVOutputFormat); cdecl; external av__format; function guess_stream_format (short_name: pchar; filename: pchar; mime_type: pchar): PAVOutputFormat; cdecl; external av__format; function guess_format(short_name: pchar; filename: pchar; mime_type: pchar): PAVOutputFormat; cdecl; external av__format; function av_guess_codec(fmt: PAVOutputFormat; short_name: pchar; filename: pchar; mime_type: pchar; _type: TCodecType): TCodecID; cdecl; external av__format; procedure av_hex_dump (f: HFILE; buf: pchar; size: integer); cdecl; external av__format; procedure av_pkt_dump(f: HFILE; pkt: pAVPacket; dump_payload: integer); cdecl; external av__format; procedure av_register_all (); cdecl; external av__format; (* media file input *) function av_find_input_format (short_name: pchar): PAVInputFormat; cdecl; external av__format; function av_probe_input_format (pd: PAVProbeData; is_opened: integer): PAVInputFormat; cdecl; external av__format; function av_open_input_stream (ic_ptr: PAVFormatContext; pb: PByteIOContext; filename: pchar; fmt: PAVInputFormat; ap: PAVFormatParameters): integer; cdecl; external av__format; (*** Open a media file as input. The codec are not opened. Only the file * header (if present) is read. * * @param ic_ptr the opened media file handle is put here * @param filename filename to open. * @param fmt if non NULL, force the file format to use * @param buf_size optional buffer size (zero if default is OK) * @param ap additionnal parameters needed when opening the file (NULL if default) * @return 0 if OK. AVERROR_xxx otherwise. *) function av_open_input_file (var ic_ptr: PAVFormatContext; filename: pchar; fmt: PAVInputFormat; buf_size: integer; ap: PAVFormatParameters): integer; cdecl; external av__format; (* no av_open for output, so applications will need this: *) function av_alloc_format_context (): PAVFormatContext; cdecl; external av__format; const AVERROR_UNKNOWN =(-1); (* unknown error *) AVERROR_IO =(-2); (* i/o error *) AVERROR_NUMEXPECTED =(-3); (* number syntax expected in filename *) AVERROR_INVALIDDATA =(-4); (* invalid data found *) AVERROR_NOMEM =(-5); (* not enough memory *) AVERROR_NOFMT =(-6); (* unknown format *) AVERROR_NOTSUPP =(-7); (* operation not supported *) (*** Read the beginning of a media file to get stream information. This * is useful for file formats with no headers such as MPEG. This * function also compute the real frame rate in case of mpeg2 repeat * frame mode. * * @param ic media file handle * @return >=0 if OK. AVERROR_xxx if error. * @todo let user decide somehow what information is needed so we dont waste time geting stuff the user doesnt need *) function av_find_stream_info (ic: PAVFormatContext): integer; cdecl; external av__format; function av_read_packet (s: PAVFormatContext; pkt: PAVPacket): integer; cdecl; external av__format; (*** Return the next frame of a stream. * * The returned packet is valid * until the next av_read_frame() or until av_close_input_file() and * must be freed with av_free_packet. For video, the packet contains * exactly one frame. For audio, it contains an integer number of * frames if each frame has a known fixed size (e.g. PCM or ADPCM * data). If the audio frames have a variable size (e.g. MPEG audio), * then it contains one frame. * * pkt->pts, pkt->dts and pkt->duration are always set to correct * values in AV_TIME_BASE unit (and guessed if the format cannot * provided them). pkt->pts can be AV_NOPTS_VALUE if the video format * has B frames, so it is better to rely on pkt->dts if you do not * decompress the payload. * * @return 0 if OK, < 0 if error or end of file. *) function av_read_frame (s: PAVFormatContext; pkt: PAVPacket): integer; cdecl; external av__format; function av_seek_frame (s: PAVFormatContext; stream_index: integer; timestamp: int64; flags: integer): integer; cdecl; external av__format; function av_read_play (s: PAVFormatContext): integer; cdecl; external av__format; function av_read_pause (s: PAVFormatContext): integer; cdecl; external av__format; procedure av_close_input_file (s: PAVFormatContext); cdecl; external av__format; function av_new_stream (s: PAVFormatContext; id: integer): PAVStream; cdecl; external av__format; procedure av_set_pts_info (s: PAVStream; pts_wrap_bits: integer; pts_num: integer; pts_den: integer); cdecl; external av__format; const AVSEEK_FLAG_BACKWARD =1; ///< seek backward AVSEEK_FLAG_BYTE =2; ///< seeking based on position in bytes AVSEEK_FLAG_ANY =4; ///< seek to any frame, even non keyframes function av_find_default_stream_index (s: PAVFormatContext): integer; cdecl; external av__format; function av_index_search_timestamp (st: PAVStream; timestamp: int64; flags: integer): integer; cdecl; external av__format; function av_add_index_entry (st: PAVStream; pos: int64; timestamp: int64; distance: integer; flags: integer): integer; cdecl; external av__format; function av_seek_frame_binary (s: PAVFormatContext; stream_index: integer; target_ts: int64; flags: integer): integer; cdecl; external av__format; procedure av_update_cur_dts (s: PAVFormatContext; ref_st: PAVStream; timestamp: int64); cdecl; external av__format; (* media file output *) function av_set_parameters (s: PAVFormatContext; ap: PAVFormatParameters): integer; cdecl; external av__format; function av_write_header (s: PAVFormatContext): integer; cdecl; external av__format; function av_write_frame(s: PAVFormatContext; pkt: PAVPacket): integer; cdecl; external av__format; function av_interleaved_write_frame (s: PAVFormatContext; pkt: PAVPacket): integer; cdecl; external av__format; function av_interleave_packet_per_dts(s: PAVFormatContext; _out: PAVPacket; pkt: PAVPacket; flush: integer): integer; cdecl; external av__format; function av_write_trailer(s: pAVFormatContext): integer; cdecl; external av__format; procedure dump_format(ic: PAVFormatContext; index: integer; url: pchar; is_output: integer); cdecl; external av__format; function parse_image_size(width_ptr: PInteger; height_ptr: PInteger; str: pchar): integer; cdecl; external av__format; function parse_frame_rate (frame_rate: PInteger; frame_rate_base: PInteger; arg: pchar): integer; cdecl; external av__format; function parse_date(datestr: pchar; duration: integer): int64; cdecl; external av__format; function av_gettime (): int64; cdecl; external av__format; (* ffm specific for ffserver *) const FFM_PACKET_SIZE = 4096; {$IFNDEF FPC} function ffm_read_write_index (fd: integer): int64; cdecl; external av__format; procedure ffm_write_write_index(fd: integer; pos: int64); cdecl; external av__format; procedure ffm_set_write_index (s: PAVFormatContext; pos: int64; file_size: int64); cdecl; external av__format; {$ENDIF} function find_info_tag (arg: pchar; arg_size: integer; tag1: pchar; info: pchar): integer; cdecl; external av__format; {$IFNDEF FPC} function get_frame_filename(buf: pchar; buf_size: integer; path: pchar; number: integer): integer; cdecl; external av__format; function filename_number_test (filename: pchar): integer; cdecl; external av__format; (* grab specific *) function video_grab_init (): integer; cdecl; external av__format; function audio_init (): integer; cdecl; external av__format; (* DV1394 *) function dv1394_init (): integer; cdecl; external av__format; function dc1394_init (): integer; cdecl; external av__format; {$ENDIF} function strstart(str: pchar; val: pchar; ptr: PPointer): integer; cdecl; external av__format; function stristart(str: pchar; val: pchar; ptr: PPointer): integer; cdecl; external av__format; procedure pstrcpy(buf: pchar; buf_size: integer; str: pchar); cdecl; external av__format; function pstrcat(buf: pchar; buf_size: integer; s: pchar): pchar; cdecl; external av__format; procedure __dynarray_add (tab_ptr: PPointer; nb_ptr: PInteger; elem: cardinal); cdecl; external av__format; implementation procedure av_init_packet (pkt: PAVPacket); begin pkt.pts := AV_NOPTS_VALUE; pkt.dts := AV_NOPTS_VALUE; pkt.pos := -1; pkt.duration := 0; pkt.flags := 0; pkt.stream_index := 0; pkt.destruct := @av_destruct_packet_nofree; end; procedure av_free_packet (pkt: PAVPacket); begin if (pkt <> nil) and (@pkt^.destruct <> nil) then pkt^.destruct (pkt); end; end.