aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--src/lib/ffmpeg/avformat.pas213
1 files changed, 151 insertions, 62 deletions
diff --git a/src/lib/ffmpeg/avformat.pas b/src/lib/ffmpeg/avformat.pas
index 2d790dc3..6a3530c8 100644
--- a/src/lib/ffmpeg/avformat.pas
+++ b/src/lib/ffmpeg/avformat.pas
@@ -23,7 +23,7 @@
*
* Conversion of libavformat/avformat.h
* Min. version: 50.5.0 , revision 6577, Sat Oct 7 15:30:46 2006 UTC
- * Max. version: 52.76.0, revision 24355, Tue Jul 20 21:30:00 2010 CET
+ * Max. version: 52.78.2, revision 24790, Wed Aug 25 23:00:00 2010 CET
*)
unit avformat;
@@ -81,8 +81,8 @@ const
*)
(* Max. supported version by this header *)
LIBAVFORMAT_MAX_VERSION_MAJOR = 52;
- LIBAVFORMAT_MAX_VERSION_MINOR = 76;
- LIBAVFORMAT_MAX_VERSION_RELEASE = 0;
+ LIBAVFORMAT_MAX_VERSION_MINOR = 78;
+ LIBAVFORMAT_MAX_VERSION_RELEASE = 2;
LIBAVFORMAT_MAX_VERSION = (LIBAVFORMAT_MAX_VERSION_MAJOR * VERSION_MAJOR) +
(LIBAVFORMAT_MAX_VERSION_MINOR * VERSION_MINOR) +
(LIBAVFORMAT_MAX_VERSION_RELEASE * VERSION_RELEASE);
@@ -176,6 +176,7 @@ type
{$IF LIBAVFORMAT_VERSION_MAJOR = 52}
(**
* Get a metadata element with matching key.
+ *
* @param prev Set to the previous matching element to find the next.
* If set to NULL the first matching element is returned.
* @param flags Allows case as well as suffix-insensitive comparisons.
@@ -186,9 +187,12 @@ function av_metadata_get(m: PAVMetadata; key: {const} PAnsiChar;
cdecl; external av__format;
(**
- * Set the given tag in m, overwriting an existing tag.
- * @param key tag key to add to m (will be av_strduped)
- * @param value tag value to add to m (will be av_strduped)
+ * Set the given tag in *pm, overwriting an existing tag.
+ *
+ * @param pm pointer to a pointer to a metadata struct. If *pm is NULL
+ * a metadata struct is allocated and put in *pm.
+ * @param key tag key to add to *pm (will be av_strduped)
+ * @param value tag value to add to *pm (will be av_strduped)
* @return >= 0 on success otherwise an error code <0
* @deprecated Use av_metadata_set2() instead.
*)
@@ -201,9 +205,12 @@ function av_metadata_set(var pm: PAVMetadata; key: {const} PAnsiChar; value: {co
{$IF LIBAVFORMAT_VERSION >= 52043000} // >= 52.43.0
(**
- * Set the given tag in m, overwriting an existing tag.
- * @param key tag key to add to m (will be av_strduped depending on flags)
- * @param value tag value to add to m (will be av_strduped depending on flags).
+ * Set the given tag in *pm, overwriting an existing tag.
+ *
+ * @param pm pointer to a pointer to a metadata struct. If *pm is NULL
+ * a metadata struct is allocated and put in *pm.
+ * @param key tag key to add to *pm (will be av_strduped depending on flags)
+ * @param value tag value to add to *pm (will be av_strduped depending on flags).
* Passing a NULL value will cause an existing tag to be deleted.
* @return >= 0 on success otherwise an error code <0
*)
@@ -211,6 +218,20 @@ function av_metadata_set2(var pm: PAVMetadata; key: {const} PAnsiChar; value: {c
cdecl; external av__format;
{$IFEND}
+{$IF LIBAVFORMAT_VERSION >= 52030001} // >= 52.30.1
+(**
+ * Convert all the metadata sets from ctx according to the source and
+ * destination conversion tables. If one of the tables is NULL, then
+ * tags are converted to/from ffmpeg generic tag names.
+ *
+ * @param d_conv destination tags format conversion table
+ * @param s_conv source tags format conversion table
+ *)
+procedure av_metadata_conv(ctx: PAVFormatContext, {const} d_conv: PAVMetadataConv,
+ {const} s_conv: PAVMetadataConv);
+ cdecl; external av__format;
+{$IFEND}
+
(**
* Free all the memory allocated for an AVMetadata struct.
*)
@@ -351,7 +372,9 @@ type
(* input/output formats *)
type
- (** This structure contains the data a format has to probe a file. *)
+ (**
+ * This structure contains the data a format has to probe a file.
+ *)
TAVProbeData = record
filename: PAnsiChar;
buf: PByteArray; (**< Buffer must have AVPROBE_PADDING_SIZE of extra allocated bytes filled with zero. *)
@@ -421,11 +444,13 @@ const
AV_DISPOSITION_COMMENT = $0008;
AV_DISPOSITION_LYRICS = $0010;
AV_DISPOSITION_KARAOKE = $0020;
+
{$IF LIBAVFORMAT_VERSION >= 52073000} // >= 52.73.0
-(** Track should be used during playback by default.
- * Useful for subtitle track that should be displayed
- * even when user did not explicitly ask for subtitles.
- *)
+ (**
+ * Track should be used during playback by default.
+ * Useful for subtitle track that should be displayed
+ * even when user did not explicitly ask for subtitles.
+ *)
AV_DISPOSITION_FORCED = $0040;
{$IFEND}
@@ -478,6 +503,7 @@ type
(**
* Convert all the metadata sets from ctx according to the source and
* destination conversion tables.
+ *
* @param d_conv destination tags format conversion table
* @param s_conv source tags format conversion table
*)
@@ -545,7 +571,9 @@ type
long_name: PAnsiChar;
mime_type: PAnsiChar;
extensions: PAnsiChar; (**< comma-separated filename extensions *)
- (** size of private data so that it can be allocated in the wrapper *)
+ (**
+ * size of private data so that it can be allocated in the wrapper
+ *)
priv_data_size: cint;
(* output support *)
audio_codec: TCodecID; (**< default audio codec *)
@@ -553,9 +581,13 @@ type
write_header: function (c: PAVFormatContext): cint; cdecl;
write_packet: function (c: PAVFormatContext; pkt: PAVPacket): cint; cdecl;
write_trailer: function (c: PAVFormatContext): cint; cdecl;
- (** can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER, AVFMT_GLOBALHEADER *)
+ (**
+ * can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER, AVFMT_GLOBALHEADER
+ *)
flags: cint;
- (** Currently only used to set pixel format if not YUV420P. *)
+ (**
+ * Currently only used to set pixel format if not YUV420P.
+ *)
set_parameters: function (c: PAVFormatContext; f: PAVFormatParameters): cint; cdecl;
interleave_packet: function (s: PAVFormatContext; out_: PAVPacket;
in_: PAVPacket; flush: cint): cint; cdecl;
@@ -581,35 +613,53 @@ type
end;
TAVInputFormat = record
+ (**
+ * A comma separated list of short names for the format. New names
+ * may be appended with a minor bump.
+ *)
name: PAnsiChar;
+
(**
* Descriptive name for the format, meant to be more human-readable
* than name. You should use the NULL_IF_CONFIG_SMALL() macro
* to define it.
*)
long_name: PAnsiChar;
- (** Size of private data so that it can be allocated in the wrapper. *)
+
+ (**
+ * Size of private data so that it can be allocated in the wrapper.
+ *)
priv_data_size: cint;
+
(**
* Tell if a given file has a chance of being parsed as this format.
* The buffer provided is guaranteed to be AVPROBE_PADDING_SIZE bytes
* big so you do not have to check for that unless you need more.
*)
read_probe: function (p: PAVProbeData): cint; cdecl;
- (** Read the format header and initialize the AVFormatContext
- structure. Return 0 if OK. 'ap' if non-NULL contains
- additional parameters. Only used in raw format right
- now. 'av_new_stream' should be called to create new streams. *)
+
+ (**
+ * Read the format header and initialize the AVFormatContext
+ * structure. Return 0 if OK. 'ap' if non-NULL contains
+ * additional parameters. Only used in raw format right
+ * now. 'av_new_stream' should be called to create new streams.
+ *)
read_header: function (c: PAVFormatContext; ap: PAVFormatParameters): cint; 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.
- @return 0 on success, < 0 on error.
- When returning an error, pkt must not have been allocated
- or must be freed before returning *)
+
+ (**
+ * 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.
+ * @return 0 on success, < 0 on error.
+ * When returning an error, pkt must not have been allocated
+ * or must be freed before returning
+ *)
read_packet: function (c: PAVFormatContext; var pkt: TAVPacket): cint; cdecl;
- (** Close the stream. The AVFormatContext and AVStreams are not
- freed by this function *)
+
+ (**
+ * Close the stream. The AVFormatContext and AVStreams are not
+ * freed by this function
+ *)
read_close: function (c: PAVFormatContext): cint; cdecl;
{$IF LIBAVFORMAT_VERSION_MAJOR < 53}
@@ -631,21 +681,34 @@ type
*)
read_timestamp: function (s: PAVFormatContext; stream_index: cint;
pos: pint64; pos_limit: cint64): cint64; cdecl;
- (** Can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER. *)
+
+ (**
+ * Can use flags: AVFMT_NOFILE, AVFMT_NEEDNUMBER.
+ *)
flags: cint;
- (** If extensions are defined, then no probe is done. You should
- usually not use extension format guessing because it is not
- reliable enough *)
+
+ (**
+ * If extensions are defined, then no probe is done. You should
+ * usually not use extension format guessing because it is not
+ * reliable enough
+ *)
extensions: PAnsiChar;
- (** General purpose read-only value that the format can use. *)
+
+ (**
+ * General purpose read-only value that the format can use.
+ *)
value: cint;
- (** Start/resume playing - only meaningful if using a network-based format
- (RTSP). *)
+ (**
+ * Start/resume playing - only meaningful if using a network-based format
+ * (RTSP).
+ *)
read_play: function (c: PAVFormatContext): cint; cdecl;
- (** Pause playing - only meaningful if using a network-based format
- (RTSP). *)
+ (**
+ * Pause playing - only meaningful if using a network-based format
+ * (RTSP).
+ *)
read_pause: function (c: PAVFormatContext): cint; cdecl;
{$IF LIBAVFORMAT_VERSION >= 51008000} // 51.8.0
@@ -724,7 +787,9 @@ type
codec_info_nb_frames: cint;
{$IFEND}
- (** encoding: pts generation when outputting stream *)
+ (**
+ * encoding: pts generation when outputting stream
+ *)
pts: TAVFrac;
(**
* This is the fundamental unit of time (in seconds) in terms
@@ -737,9 +802,12 @@ type
stream_copy: cint; (**< If set, just copy stream. *)
discard: TAVDiscard; ///< Selects which packets can be discarded at will and do not 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, as it has been removed from AVCodecContext and put in AVVideoFrame.
+ * MN:dunno if thats the right place, for it
+ *)
quality: cfloat;
+
(**
* Decoding: pts of the first frame of the stream, in stream time base.
* Only set this if you are absolutely 100% sure that the value you set
@@ -749,6 +817,7 @@ type
* demuxer must NOT set this.
*)
start_time: cint64;
+
(**
* Decoding: duration of the stream, in stream time base.
* If a source file does not specify a duration, but does specify
@@ -757,7 +826,7 @@ type
duration: cint64;
{$IF LIBAVFORMAT_VERSION_MAJOR < 53}
- language: array [0..3] of PAnsiChar; (* ISO 639-2/B 3-letter language code (empty string if undefined) *)
+ language: array [0..3] of PAnsiChar; (**< ISO 639-2/B 3-letter language code (empty string if undefined) *)
{$IFEND}
(* av_read_frame() support *)
@@ -891,25 +960,35 @@ type
ctx_flags: cint; (**< 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. *)
+ (**
+ * 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. *)
+ (**
+ * 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: cint64;
- (** Decoding: duration of the stream, in AV_TIME_BASE fractional
- seconds. Only set this value if you know none of the individual stream
- durations and also dont set any of them. This is deduced from the
- AVStream values if not set. *)
+ (**
+ * Decoding: duration of the stream, in AV_TIME_BASE fractional
+ * seconds. Only set this value if you know none of the individual stream
+ * durations and also dont set any of them. This is deduced from the
+ * AVStream values if not set.
+ *)
duration: cint64;
- (** decoding: total file size, 0 if unknown *)
+ (**
+ * decoding: total file size, 0 if unknown
+ *)
file_size: cint64;
- (** 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. *)
+ (**
+ * 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: cint;
(* av_read_frame() support *)
@@ -921,7 +1000,7 @@ type
{$IFEND}
(* av_seek_frame() support *)
- data_offset: cint64; (* offset of the first packet *)
+ data_offset: cint64; (**< offset of the first packet *)
index_built: cint;
mux_rate: cint;
@@ -933,14 +1012,18 @@ type
preload: cint;
max_delay: cint;
- (* number of times to loop output in formats that support it *)
+ (**
+ * number of times to loop output in formats that support it
+ *)
loop_output: cint;
flags: cint;
loop_input: cint;
{$IF LIBAVFORMAT_VERSION >= 50006000} // 50.6.0
- (** decoding: size of data to probe; encoding: unused. *)
+ (**
+ * decoding: size of data to probe; encoding: unused.
+ *)
probesize: cuint;
{$IFEND}
@@ -966,11 +1049,13 @@ type
* Demuxing: Set by user.
*)
video_codec_id: TCodecID;
+
(**
* Forced audio codec_id.
* Demuxing: Set by user.
*)
audio_codec_id: TCodecID;
+
(**
* Forced subtitle codec_id.
* Demuxing: Set by user.
@@ -1648,7 +1733,9 @@ function av_gen_search(s: PAVFormatContext; stream_index: cint;
cdecl; external av__format;
{$IFEND}
-(* media file output *)
+(**
+ * media file output
+ *)
function av_set_parameters(s: PAVFormatContext; ap: PAVFormatParameters): cint;
cdecl; external av__format;
@@ -1825,7 +1912,9 @@ function parse_frame_rate(frame_rate: PCint; frame_rate_base: PCint;
function parse_date(datestr: PAnsiChar; duration: cint): cint64;
cdecl; external av__format;
-(** Get the current time in microseconds. *)
+(**
+ * Get the current time in microseconds.
+ *)
function av_gettime(): cint64;
cdecl; external av__format;