mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-15 15:55:53 +01:00
310 lines
12 KiB
ObjectPascal
310 lines
12 KiB
ObjectPascal
(*
|
|
* Copyright (C) 2011-2013 Michael Niedermayer (michaelni@gmx.at)
|
|
*
|
|
* This file is part of libswresample
|
|
*
|
|
* libswresample 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.1 of the License, or (at your option) any later version.
|
|
*
|
|
* libswresample 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 libswresample; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*)
|
|
unit ffm.swresample;
|
|
|
|
{$i ffmpeg.inc}
|
|
|
|
interface
|
|
(*
|
|
* @defgroup lswr Libswresample
|
|
* @{
|
|
*
|
|
* Libswresample (lswr) is a library that handles audio resampling, sample
|
|
* format conversion and mixing.
|
|
*
|
|
* Interaction with lswr is done through SwrContext, which is
|
|
* allocated with swr_alloc() or swr_alloc_set_opts(). It is opaque, so all parameters
|
|
* must be set with the @ref avoptions API.
|
|
*
|
|
* For example the following code will setup conversion from planar float sample
|
|
* format to interleaved signed 16-bit integer, downsampling from 48kHz to
|
|
* 44.1kHz and downmixing from 5.1 channels to stereo (using the default mixing
|
|
* matrix):
|
|
* @code
|
|
* SwrContext *swr = swr_alloc();
|
|
* av_opt_set_channel_layout(swr, "in_channel_layout", AV_CH_LAYOUT_5POINT1, 0);
|
|
* av_opt_set_channel_layout(swr, "out_channel_layout", AV_CH_LAYOUT_STEREO, 0);
|
|
* av_opt_set_int(swr, "in_sample_rate", 48000, 0);
|
|
* av_opt_set_int(swr, "out_sample_rate", 44100, 0);
|
|
* av_opt_set_sample_fmt(swr, "in_sample_fmt", AV_SAMPLE_FMT_FLTP, 0);
|
|
* av_opt_set_sample_fmt(swr, "out_sample_fmt", AV_SAMPLE_FMT_S16, 0);
|
|
* @endcode
|
|
*
|
|
* Once all values have been set, it must be initialized with swr_init(). If
|
|
* you need to change the conversion parameters, you can change the parameters
|
|
* as described above, or by using swr_alloc_set_opts(), then call swr_init()
|
|
* again.
|
|
*
|
|
* The conversion itself is done by repeatedly calling swr_convert().
|
|
* Note that the samples may get buffered in swr if you provide insufficient
|
|
* output space or if sample rate conversion is done, which requires "future"
|
|
* samples. Samples that do not require future input can be retrieved at any
|
|
* time by using swr_convert() (in_count can be set to 0).
|
|
* At the end of conversion the resampling buffer can be flushed by calling
|
|
* swr_convert() with NULL in and 0 in_count.
|
|
*
|
|
* The delay between input and output, can at any time be found by using
|
|
* swr_get_delay().
|
|
*
|
|
* The following code demonstrates the conversion loop assuming the parameters
|
|
* from above and caller-defined functions get_input() and handle_output():
|
|
* @code
|
|
* uint8_t **input;
|
|
* int in_samples;
|
|
*
|
|
* while (get_input(&input, &in_samples)) {
|
|
* uint8_t *output;
|
|
* int out_samples = av_rescale_rnd(swr_get_delay(swr, 48000) +
|
|
* in_samples, 44100, 48000, AV_ROUND_UP);
|
|
* av_samples_alloc(&output, NULL, 2, out_samples,
|
|
* AV_SAMPLE_FMT_S16, 0);
|
|
* out_samples = swr_convert(swr, &output, out_samples,
|
|
* input, in_samples);
|
|
* handle_output(output, out_samples);
|
|
* av_freep(&output);
|
|
* }
|
|
* @endcode
|
|
*
|
|
* When the conversion is finished, the conversion
|
|
* context and everything associated with it must be freed with swr_free().
|
|
* There will be no memory leak if the data is not completely flushed before
|
|
* swr_free().
|
|
*)
|
|
|
|
//#if LIBSWRESAMPLE_VERSION_MAJOR < 1
|
|
//#define SWR_CH_MAX 32 ///< Maximum number of channels
|
|
//#endif
|
|
|
|
//#define SWR_FLAG_RESAMPLE 1 ///< Force resampling even if equal sample rate
|
|
//TODO use int resample ?
|
|
//long term TODO can we enable this dynamically?
|
|
|
|
//enum SwrDitherType {
|
|
// SWR_DITHER_NONE = 0,
|
|
// SWR_DITHER_RECTANGULAR,
|
|
// SWR_DITHER_TRIANGULAR,
|
|
// SWR_DITHER_TRIANGULAR_HIGHPASS,
|
|
//
|
|
// SWR_DITHER_NS = 64, ///< not part of API/ABI
|
|
// SWR_DITHER_NS_LIPSHITZ,
|
|
// SWR_DITHER_NS_F_WEIGHTED,
|
|
// SWR_DITHER_NS_MODIFIED_E_WEIGHTED,
|
|
// SWR_DITHER_NS_IMPROVED_E_WEIGHTED,
|
|
// SWR_DITHER_NS_SHIBATA,
|
|
// SWR_DITHER_NS_LOW_SHIBATA,
|
|
// SWR_DITHER_NS_HIGH_SHIBATA,
|
|
// SWR_DITHER_NB, ///< not part of API/ABI
|
|
//};
|
|
//
|
|
//(* Resampling Engines *)
|
|
//enum SwrEngine {
|
|
// SWR_ENGINE_SWR, (*< SW Resampler *)
|
|
// SWR_ENGINE_SOXR, (*< SoX Resampler *)
|
|
// SWR_ENGINE_NB, ///< not part of API/ABI
|
|
//};
|
|
//
|
|
//(* Resampling Filter Types *)
|
|
//enum SwrFilterType {
|
|
// SWR_FILTER_TYPE_CUBIC, (*< Cubic *)
|
|
// SWR_FILTER_TYPE_BLACKMAN_NUTTALL, (*< Blackman Nuttall Windowed Sinc *)
|
|
// SWR_FILTER_TYPE_KAISER, (*< Kaiser Windowed Sinc *)
|
|
//};
|
|
Type
|
|
//typedef struct SwrContext SwrContext;
|
|
pSwrContext = ^TSwrContext;
|
|
TSwrContext = record
|
|
|
|
end;
|
|
|
|
(*
|
|
* Get the AVClass for swrContext. It can be used in combination with
|
|
* AV_OPT_SEARCH_FAKE_OBJ for examining options.
|
|
*
|
|
* @see av_opt_find().
|
|
*)
|
|
//const AVClass *swr_get_class(void);
|
|
|
|
(*
|
|
* Allocate SwrContext.
|
|
*
|
|
* If you use this function you will need to set the parameters (manually or
|
|
* with swr_alloc_set_opts()) before calling swr_init().
|
|
*
|
|
* @see swr_alloc_set_opts(), swr_init(), swr_free()
|
|
* @return NULL on error, allocated context otherwise
|
|
*)
|
|
//struct SwrContext *swr_alloc(void);
|
|
|
|
(*
|
|
* Initialize context after user parameters have been set.
|
|
*
|
|
* @return AVERROR error code in case of failure.
|
|
*)
|
|
//int swr_init(struct SwrContext *s);
|
|
|
|
(*
|
|
* Allocate SwrContext if needed and set/reset common parameters.
|
|
*
|
|
* This function does not require s to be allocated with swr_alloc(). On the
|
|
* other hand, swr_alloc() can use swr_alloc_set_opts() to set the parameters
|
|
* on the allocated context.
|
|
*
|
|
* @param s Swr context, can be NULL
|
|
* @param out_ch_layout output channel layout (AV_CH_LAYOUT_* )
|
|
* @param out_sample_fmt output sample format (AV_SAMPLE_FMT_* ).
|
|
* @param out_sample_rate output sample rate (frequency in Hz)
|
|
* @param in_ch_layout input channel layout (AV_CH_LAYOUT_* )
|
|
* @param in_sample_fmt input sample format (AV_SAMPLE_FMT_* ).
|
|
* @param in_sample_rate input sample rate (frequency in Hz)
|
|
* @param log_offset logging level offset
|
|
* @param log_ctx parent logging context, can be NULL
|
|
*
|
|
* @see swr_init(), swr_free()
|
|
* @return NULL on error, allocated context otherwise
|
|
*)
|
|
//struct SwrContext *swr_alloc_set_opts(struct SwrContext *s,
|
|
// int64_t out_ch_layout, enum AVSampleFormat out_sample_fmt, int out_sample_rate,
|
|
// int64_t in_ch_layout, enum AVSampleFormat in_sample_fmt, int in_sample_rate,
|
|
// int log_offset, void *log_ctx);
|
|
|
|
(*
|
|
* Free the given SwrContext and set the pointer to NULL.
|
|
*)
|
|
//void swr_free(struct SwrContext **s);
|
|
|
|
(*
|
|
* Convert audio.
|
|
*
|
|
* in and in_count can be set to 0 to flush the last few samples out at the
|
|
* end.
|
|
*
|
|
* If more input is provided than output space then the input will be buffered.
|
|
* You can avoid this buffering by providing more output space than input.
|
|
* Convertion will run directly without copying whenever possible.
|
|
*
|
|
* @param s allocated Swr context, with parameters set
|
|
* @param out output buffers, only the first one need be set in case of packed audio
|
|
* @param out_count amount of space available for output in samples per channel
|
|
* @param in input buffers, only the first one need to be set in case of packed audio
|
|
* @param in_count number of input samples available in one channel
|
|
*
|
|
* @return number of samples output per channel, negative value on error
|
|
*)
|
|
//int swr_convert(struct SwrContext *s, uint8_t **out, int out_count,
|
|
// const uint8_t **in , int in_count);
|
|
function swr_convert(s:pSwrContext; Var out_:PByte; out_count:Integer;
|
|
const in_:pByte;in_count:Integer):Integer;cdecl;
|
|
|
|
(*
|
|
* Convert the next timestamp from input to output
|
|
* timestamps are in 1/(in_sample_rate * out_sample_rate) units.
|
|
*
|
|
* @note There are 2 slightly differently behaving modes.
|
|
* First is when automatic timestamp compensation is not used, (min_compensation >= FLT_MAX)
|
|
* in this case timestamps will be passed through with delays compensated
|
|
* Second is when automatic timestamp compensation is used, (min_compensation < FLT_MAX)
|
|
* in this case the output timestamps will match output sample numbers
|
|
*
|
|
* @param pts timestamp for the next input sample, INT64_MIN if unknown
|
|
* @return the output timestamp for the next output sample
|
|
*)
|
|
//int64_t swr_next_pts(struct SwrContext *s, int64_t pts);
|
|
|
|
(*
|
|
* Activate resampling compensation.
|
|
*)
|
|
//int swr_set_compensation(struct SwrContext *s, int sample_delta, int compensation_distance);
|
|
|
|
(*
|
|
* Set a customized input channel mapping.
|
|
*
|
|
* @param s allocated Swr context, not yet initialized
|
|
* @param channel_map customized input channel mapping (array of channel
|
|
* indexes, -1 for a muted channel)
|
|
* @return AVERROR error code in case of failure.
|
|
*)
|
|
//int swr_set_channel_mapping(struct SwrContext *s, const int *channel_map);
|
|
|
|
(*
|
|
* Set a customized remix matrix.
|
|
*
|
|
* @param s allocated Swr context, not yet initialized
|
|
* @param matrix remix coefficients; matrix[i + stride * o] is
|
|
* the weight of input channel i in output channel o
|
|
* @param stride offset between lines of the matrix
|
|
* @return AVERROR error code in case of failure.
|
|
*)
|
|
//int swr_set_matrix(struct SwrContext *s, const double *matrix, int stride);
|
|
|
|
(*
|
|
* Drops the specified number of output samples.
|
|
*)
|
|
//int swr_drop_output(struct SwrContext *s, int count);
|
|
|
|
(*
|
|
* Injects the specified number of silence samples.
|
|
*)
|
|
//int swr_inject_silence(struct SwrContext *s, int count);
|
|
|
|
(*
|
|
* Gets the delay the next input sample will experience relative to the next output sample.
|
|
*
|
|
* Swresample can buffer data if more input has been provided than available
|
|
* output space, also converting between sample rates needs a delay.
|
|
* This function returns the sum of all such delays.
|
|
* The exact delay is not necessarily an integer value in either input or
|
|
* output sample rate. Especially when downsampling by a large value, the
|
|
* output sample rate may be a poor choice to represent the delay, similarly
|
|
* for upsampling and the input sample rate.
|
|
*
|
|
* @param s swr context
|
|
* @param base timebase in which the returned delay will be
|
|
* if its set to 1 the returned delay is in seconds
|
|
* if its set to 1000 the returned delay is in milli seconds
|
|
* if its set to the input sample rate then the returned delay is in input samples
|
|
* if its set to the output sample rate then the returned delay is in output samples
|
|
* an exact rounding free delay can be found by using LCM(in_sample_rate, out_sample_rate)
|
|
* @returns the delay in 1/base units.
|
|
*)
|
|
//int64_t swr_get_delay(struct SwrContext *s, int64_t base);
|
|
|
|
(*
|
|
* Return the LIBSWRESAMPLE_VERSION_INT constant.
|
|
*)
|
|
//unsigned swresample_version(void);
|
|
|
|
(*
|
|
* Return the swr build-time configuration.
|
|
*)
|
|
//const char *swresample_configuration(void);
|
|
|
|
(*
|
|
* Return the swr license.
|
|
*)
|
|
//const char *swresample_license(void);
|
|
|
|
implementation
|
|
|
|
uses ffm.lib;
|
|
|
|
function swr_convert; external swscale_dll;
|
|
|
|
end.
|