diff options
Diffstat (limited to '')
-rw-r--r-- | Game/Code/lib/ffmpeg/avcodec.pas | 3950 | ||||
-rw-r--r-- | Game/Code/lib/ffmpeg/avformat.pas | 1259 | ||||
-rw-r--r-- | Game/Code/lib/ffmpeg/avio.pas | 492 | ||||
-rw-r--r-- | Game/Code/lib/ffmpeg/avutil.pas | 270 | ||||
-rw-r--r-- | Game/Code/lib/ffmpeg/lazarustest.lpi | 420 | ||||
-rw-r--r-- | Game/Code/lib/ffmpeg/lazarustest.lpr | 57 | ||||
-rw-r--r-- | Game/Code/lib/ffmpeg/opt.pas | 210 | ||||
-rw-r--r-- | Game/Code/lib/ffmpeg/rational.pas | 184 |
8 files changed, 3457 insertions, 3385 deletions
diff --git a/Game/Code/lib/ffmpeg/avcodec.pas b/Game/Code/lib/ffmpeg/avcodec.pas index ce08dcc9..bef5f687 100644 --- a/Game/Code/lib/ffmpeg/avcodec.pas +++ b/Game/Code/lib/ffmpeg/avcodec.pas @@ -1,1970 +1,1980 @@ - (*
- * 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 St, Fifth Floor, Boston, MA 02110-1301 USA
- *)
-unit avcodec;
-
-interface
-
-uses
- windows, avutil, rational, opt;
-
-const
- av__format = 'avformat-50.dll';
-
- LIBAVUTIL_VERSION_INT = ((51 shl 16) + (16 shl 8) + 0);
- LIBAVUTIL_VERSION = '51.16.0';
- LIBAVUTIL_BUILD = LIBAVUTIL_VERSION_INT;
-
- AV_NOPTS_VALUE: int64 = $8000000000000000;
- AV_TIME_BASE = 1000000;
-
-type
- TCodecID = (
- CODEC_ID_NONE, CODEC_ID_MPEG1VIDEO,
- CODEC_ID_MPEG2VIDEO, //* prefered ID for MPEG Video 1 or 2 decoding */
- CODEC_ID_MPEG2VIDEO_XVMC, CODEC_ID_H261, CODEC_ID_H263, CODEC_ID_RV10,
- CODEC_ID_RV20, CODEC_ID_MJPEG, CODEC_ID_MJPEGB, CODEC_ID_LJPEG,
- CODEC_ID_SP5X, CODEC_ID_JPEGLS, CODEC_ID_MPEG4, CODEC_ID_RAWVIDEO,
- CODEC_ID_MSMPEG4V1, CODEC_ID_MSMPEG4V2, CODEC_ID_MSMPEG4V3,
- CODEC_ID_WMV1, CODEC_ID_WMV2, CODEC_ID_H263P,
- CODEC_ID_H263I, CODEC_ID_FLV1, CODEC_ID_SVQ1, CODEC_ID_SVQ3,
- CODEC_ID_DVVIDEO, CODEC_ID_HUFFYUV, CODEC_ID_CYUV, CODEC_ID_H264,
- CODEC_ID_INDEO3, CODEC_ID_VP3, CODEC_ID_THEORA, CODEC_ID_ASV1,
- CODEC_ID_ASV2, CODEC_ID_FFV1, CODEC_ID_4XM, CODEC_ID_VCR1,
- CODEC_ID_CLJR, CODEC_ID_MDEC, CODEC_ID_ROQ, CODEC_ID_INTERPLAY_VIDEO,
- CODEC_ID_XAN_WC3, CODEC_ID_XAN_WC4, CODEC_ID_RPZA, CODEC_ID_CINEPAK,
- CODEC_ID_WS_VQA, CODEC_ID_MSRLE, CODEC_ID_MSVIDEO1, CODEC_ID_IDCIN,
- CODEC_ID_8BPS, CODEC_ID_SMC, CODEC_ID_FLIC, CODEC_ID_TRUEMOTION1,
- CODEC_ID_VMDVIDEO, CODEC_ID_MSZH, CODEC_ID_ZLIB, CODEC_ID_QTRLE,
- CODEC_ID_SNOW, CODEC_ID_TSCC, CODEC_ID_ULTI, CODEC_ID_QDRAW,
- CODEC_ID_VIXL, CODEC_ID_QPEG, CODEC_ID_XVID, CODEC_ID_PNG,
- CODEC_ID_PPM, CODEC_ID_PBM, CODEC_ID_PGM, CODEC_ID_PGMYUV,
- CODEC_ID_PAM, CODEC_ID_FFVHUFF, CODEC_ID_RV30, CODEC_ID_RV40,
- CODEC_ID_VC1, CODEC_ID_WMV3, CODEC_ID_LOCO, CODEC_ID_WNV1,
- CODEC_ID_AASC, CODEC_ID_INDEO2, CODEC_ID_FRAPS, CODEC_ID_TRUEMOTION2,
- CODEC_ID_BMP, CODEC_ID_CSCD, CODEC_ID_MMVIDEO, CODEC_ID_ZMBV,
- CODEC_ID_AVS, CODEC_ID_SMACKVIDEO, CODEC_ID_NUV, CODEC_ID_KMVC,
- CODEC_ID_FLASHSV, CODEC_ID_CAVS, CODEC_ID_JPEG2000, CODEC_ID_VMNC,
- CODEC_ID_VP5, CODEC_ID_VP6, CODEC_ID_VP6F,
-
- //* various pcm "codecs" */
- CODEC_ID_PCM_S16LE= $10000, CODEC_ID_PCM_S16BE, CODEC_ID_PCM_U16LE,
- CODEC_ID_PCM_U16BE, CODEC_ID_PCM_S8, CODEC_ID_PCM_U8, CODEC_ID_PCM_MULAW,
- CODEC_ID_PCM_ALAW, CODEC_ID_PCM_S32LE, CODEC_ID_PCM_S32BE, CODEC_ID_PCM_U32LE,
- CODEC_ID_PCM_U32BE, CODEC_ID_PCM_S24LE, CODEC_ID_PCM_S24BE, CODEC_ID_PCM_U24LE,
- CODEC_ID_PCM_U24BE, CODEC_ID_PCM_S24DAUD,
- //* various adpcm codecs */
- CODEC_ID_ADPCM_IMA_QT= $11000, CODEC_ID_ADPCM_IMA_WAV, CODEC_ID_ADPCM_IMA_DK3,
- CODEC_ID_ADPCM_IMA_DK4, CODEC_ID_ADPCM_IMA_WS, CODEC_ID_ADPCM_IMA_SMJPEG,
- CODEC_ID_ADPCM_MS, CODEC_ID_ADPCM_4XM, CODEC_ID_ADPCM_XA, CODEC_ID_ADPCM_ADX,
- CODEC_ID_ADPCM_EA, CODEC_ID_ADPCM_G726, CODEC_ID_ADPCM_CT, CODEC_ID_ADPCM_SWF,
- CODEC_ID_ADPCM_YAMAHA, CODEC_ID_ADPCM_SBPRO_4, CODEC_ID_ADPCM_SBPRO_3,
- CODEC_ID_ADPCM_SBPRO_2,
- //* AMR */
- CODEC_ID_AMR_NB= $12000, CODEC_ID_AMR_WB,
- //* RealAudio codecs*/
- CODEC_ID_RA_144= $13000, CODEC_ID_RA_288,
- //* various DPCM codecs */
- CODEC_ID_ROQ_DPCM= $14000, CODEC_ID_INTERPLAY_DPCM, CODEC_ID_XAN_DPCM,
- CODEC_ID_SOL_DPCM, CODEC_ID_MP2= $15000,
- CODEC_ID_MP3, //* prefered ID for MPEG Audio layer 1, 2 or3 decoding */
- CODEC_ID_AAC, CODEC_ID_MPEG4AAC, CODEC_ID_AC3, CODEC_ID_DTS, CODEC_ID_VORBIS,
- CODEC_ID_DVAUDIO, CODEC_ID_WMAV1, CODEC_ID_WMAV2, CODEC_ID_MACE3,
- CODEC_ID_MACE6, CODEC_ID_VMDAUDIO, CODEC_ID_SONIC, CODEC_ID_SONIC_LS,
- CODEC_ID_FLAC, CODEC_ID_MP3ADU, CODEC_ID_MP3ON4, CODEC_ID_SHORTEN,
- CODEC_ID_ALAC, CODEC_ID_WESTWOOD_SND1, CODEC_ID_GSM, CODEC_ID_QDM2,
- CODEC_ID_COOK, CODEC_ID_TRUESPEECH, CODEC_ID_TTA, CODEC_ID_SMACKAUDIO,
- CODEC_ID_QCELP, CODEC_ID_WAVPACK,
- //* subtitle codecs */
- CODEC_ID_DVD_SUBTITLE= $17000, CODEC_ID_DVB_SUBTITLE,
-
- CODEC_ID_MPEG2TS= $20000 //* _FAKE_ codec to indicate a raw MPEG2 transport
- // stream (only used by libavformat) */
- );
-
-//* CODEC_ID_MP3LAME is absolete */
-const
- CODEC_ID_MP3LAME = CODEC_ID_MP3;
-
- AVPALETTE_SIZE = 1024;
- AVPALETTE_COUNT = 256;
-
-type
- TCodecType = (
- CODEC_TYPE_UNKNOWN = -1,
- CODEC_TYPE_VIDEO,
- CODEC_TYPE_AUDIO,
- CODEC_TYPE_DATA,
- CODEC_TYPE_SUBTITLE
- );
-
-//* currently unused, may be used if 24/32 bits samples ever supported */
-//* all in native endian */
- TSampleFormat = (
- SAMPLE_FMT_NONE = -1,
- SAMPLE_FMT_U8, ///< unsigned 8 bits
- SAMPLE_FMT_S16, ///< signed 16 bits
- SAMPLE_FMT_S24, ///< signed 24 bits
- SAMPLE_FMT_S32, ///< signed 32 bits
- SAMPLE_FMT_FLT ///< float
- );
-
-const
-//* in bytes */
- AVCODEC_MAX_AUDIO_FRAME_SIZE = 192000; // 1 second of 48khz 32bit audio
-
-(**
- * Required number of additionally allocated bytes at the end of the input bitstream for decoding.
- * this is mainly needed because some optimized bitstream readers read
- * 32 or 64 bit at once and could read over the end<br>
- * Note, if the first 23 bits of the additional bytes are not 0 then damaged
- * MPEG bitstreams could cause overread and segfault
- *)
- FF_INPUT_BUFFER_PADDING_SIZE = 8;
-
-(**
- * minimum encoding buffer size.
- * used to avoid some checks during header writing
- *)
- FF_MIN_BUFFER_SIZE = 16384;
-
-type
-//* motion estimation type, EPZS by default */
- TMotion_Est_ID = (
- ME_ZERO = 1,
- ME_FULL,
- ME_LOG,
- ME_PHODS,
- ME_EPZS,
- ME_X1,
- ME_HEX,
- ME_UMH,
- ME_ITER
- );
-
- TAVDiscard = (
-//we leave some space between them for extensions (drop some keyframes for intra only or drop just some bidir frames)
- AVDISCARD_NONE = -16, ///< discard nothing
- AVDISCARD_DEFAULT= 0, ///< discard useless packets like 0 size packets in avi
- AVDISCARD_NONREF = 8, ///< discard all non reference
- AVDISCARD_BIDIR = 16, ///< discard all bidirectional frames
- AVDISCARD_NONKEY = 32, ///< discard all frames except keyframes
- AVDISCARD_ALL = 48, ///< discard all
- AVDISCARD_FUCK = $FFFFFF
- );
-
- PRcOverride = ^TRcOverride;
- TRcOverride = record {16}
- start_frame: integer;
- end_frame: integer;
- qscale: integer; // if this is 0 then quality_factor will be used instead
- quality_factor: single;
- end;
-
-const
- FF_MAX_B_FRAMES = 16;
-
-(* encoding support
- these flags can be passed in AVCodecContext.flags before initing
- Note: not everything is supported yet.
-*)
-
- CODEC_FLAG_QSCALE = $0002; ///< use fixed qscale
- CODEC_FLAG_4MV = $0004; ///< 4 MV per MB allowed / Advanced prediction for H263
- CODEC_FLAG_QPEL = $0010; ///< use qpel MC
- CODEC_FLAG_GMC = $0020; ///< use GMC
- CODEC_FLAG_MV0 = $0040; ///< always try a MB with MV=<0,0>
- CODEC_FLAG_PART = $0080; ///< use data partitioning
-//* parent program gurantees that the input for b-frame containing streams is not written to
-// for at least s->max_b_frames+1 frames, if this is not set than the input will be copied */
- CODEC_FLAG_INPUT_PRESERVED = $0100;
- CODEC_FLAG_PASS1 = $0200; ///< use internal 2pass ratecontrol in first pass mode
- CODEC_FLAG_PASS2 = $0400; ///< use internal 2pass ratecontrol in second pass mode
- CODEC_FLAG_EXTERN_HUFF = $1000; ///< use external huffman table (for mjpeg)
- CODEC_FLAG_GRAY = $2000; ///< only decode/encode grayscale
- CODEC_FLAG_EMU_EDGE = $4000; ///< don't draw edges
- CODEC_FLAG_PSNR = $8000; ///< error[?] variables will be set during encoding
- CODEC_FLAG_TRUNCATED = $00010000; //** input bitstream might be truncated at a random location instead
- // of only at frame boundaries */
- CODEC_FLAG_NORMALIZE_AQP = $00020000; ///< normalize adaptive quantization
- CODEC_FLAG_INTERLACED_DCT = $00040000; ///< use interlaced dct
- CODEC_FLAG_LOW_DELAY = $00080000; ///< force low delay
- CODEC_FLAG_ALT_SCAN = $00100000; ///< use alternate scan
- CODEC_FLAG_TRELLIS_QUANT = $00200000; ///< use trellis quantization
- CODEC_FLAG_GLOBAL_HEADER = $00400000; ///< place global headers in extradata instead of every keyframe
- CODEC_FLAG_BITEXACT = $00800000; ///< use only bitexact stuff (except (i)dct)
-//* Fx : Flag for h263+ extra options */
- CODEC_FLAG_H263P_AIC = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction (remove this)
- CODEC_FLAG_AC_PRED = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction
- CODEC_FLAG_H263P_UMV = $02000000; ///< Unlimited motion vector
- CODEC_FLAG_CBP_RD = $04000000; ///< use rate distortion optimization for cbp
- CODEC_FLAG_QP_RD = $08000000; ///< use rate distortion optimization for qp selectioon
- CODEC_FLAG_H263P_AIV = $00000008; ///< H263 Alternative inter vlc
- CODEC_FLAG_OBMC = $00000001; ///< OBMC
- CODEC_FLAG_LOOP_FILTER = $00000800; ///< loop filter
- CODEC_FLAG_H263P_SLICE_STRUCT = $10000000;
- CODEC_FLAG_INTERLACED_ME = $20000000; ///< interlaced motion estimation
- CODEC_FLAG_SVCD_SCAN_OFFSET = $40000000; ///< will reserve space for SVCD scan offset user data
- CODEC_FLAG_CLOSED_GOP = $80000000;
- CODEC_FLAG2_FAST = $00000001; ///< allow non spec compliant speedup tricks
- CODEC_FLAG2_STRICT_GOP = $00000002; ///< strictly enforce GOP size
- CODEC_FLAG2_NO_OUTPUT = $00000004; ///< skip bitstream encoding
- CODEC_FLAG2_LOCAL_HEADER = $00000008; ///< place global headers at every keyframe instead of in extradata
- CODEC_FLAG2_BPYRAMID = $00000010; ///< H.264 allow b-frames to be used as references
- CODEC_FLAG2_WPRED = $00000020; ///< H.264 weighted biprediction for b-frames
- CODEC_FLAG2_MIXED_REFS = $00000040; ///< H.264 multiple references per partition
- CODEC_FLAG2_8X8DCT = $00000080; ///< H.264 high profile 8x8 transform
- CODEC_FLAG2_FASTPSKIP = $00000100; ///< H.264 fast pskip
- CODEC_FLAG2_AUD = $00000200; ///< H.264 access unit delimiters
- CODEC_FLAG2_BRDO = $00000400; ///< b-frame rate-distortion optimization
- CODEC_FLAG2_INTRA_VLC = $00000800; ///< use MPEG-2 intra VLC table
- CODEC_FLAG2_MEMC_ONLY = $00001000; ///< only do ME/MC (I frames -> ref, P frame -> ME+MC)
-
-(* Unsupported options :
- * Syntax Arithmetic coding (SAC)
- * Reference Picture Selection
- * Independant Segment Decoding */
-/* /Fx */
-/* codec capabilities *)
-
-const
- CODEC_CAP_DRAW_HORIZ_BAND = $001; ///< decoder can use draw_horiz_band callback
-(**
- * Codec uses get_buffer() for allocating buffers.
- * direct rendering method 1 *)
- CODEC_CAP_DR1 = $002;
-(* if 'parse_only' field is true, then avcodec_parse_frame() can be used *)
- CODEC_CAP_PARSE_ONLY = $004;
- CODEC_CAP_TRUNCATED = $008;
-//* codec can export data for HW decoding (XvMC) */
- CODEC_CAP_HWACCEL = $010;
-
-(**
- * codec has a non zero delay and needs to be feeded with NULL at the end to get the delayed data.
- * if this is not set, the codec is guranteed to never be feeded with NULL data *)
- CODEC_CAP_DELAY = $0020;
-(**
- * Codec can be fed a final frame with a smaller size.
- * This can be used to prevent truncation of the last audio samples. *)
- CODEC_CAP_SMALL_LAST_FRAME = $0040;
-
-//the following defines may change, don't expect compatibility if you use them
- MB_TYPE_INTRA4x4 = $001;
- MB_TYPE_INTRA16x16 = $002; //FIXME h264 specific
- MB_TYPE_INTRA_PCM = $004; //FIXME h264 specific
- MB_TYPE_16x16 = $008;
- MB_TYPE_16x8 = $010;
- MB_TYPE_8x16 = $020;
- MB_TYPE_8x8 = $040;
- MB_TYPE_INTERLACED = $080;
- MB_TYPE_DIRECT2 = $100; //FIXME
- MB_TYPE_ACPRED = $200;
- MB_TYPE_GMC = $400;
- MB_TYPE_SKIP = $800;
- MB_TYPE_P0L0 = $1000;
- MB_TYPE_P1L0 = $2000;
- MB_TYPE_P0L1 = $4000;
- MB_TYPE_P1L1 = $8000;
- MB_TYPE_L0 = (MB_TYPE_P0L0 or MB_TYPE_P1L0);
- MB_TYPE_L1 = (MB_TYPE_P0L1 or MB_TYPE_P1L1);
- MB_TYPE_L0L1 = (MB_TYPE_L0 or MB_TYPE_L1);
- MB_TYPE_QUANT = $0010000;
- MB_TYPE_CBP = $0020000;
-//Note bits 24-31 are reserved for codec specific use (h264 ref0, mpeg1 0mv, ...)
-
-type
-(**
- * Pan Scan area.
- * this specifies the area which should be displayed. Note there may be multiple such areas for one frame *)
- PAVPanScan = ^TAVPanScan;
- TAVPanScan = record {24}
- (*** id.
- * - encoding: set by user.
- * - decoding: set by lavc *)
- id: integer;
-
- (*** width and height in 1/16 pel
- * - encoding: set by user.
- * - decoding: set by lavc *)
- width: integer;
- height: integer;
-
- (*** position of the top left corner in 1/16 pel for up to 3 fields/frames.
- * - encoding: set by user.
- * - decoding: set by lavc *)
- position: array [0..2] of array [0..1] of smallint;
- end;
-
-const
- FF_QSCALE_TYPE_MPEG1 = 0;
- FF_QSCALE_TYPE_MPEG2 = 1;
-
- FF_BUFFER_TYPE_INTERNAL = 1;
- FF_BUFFER_TYPE_USER = 2; ///< Direct rendering buffers (image is (de)allocated by user)
- FF_BUFFER_TYPE_SHARED = 4; ///< buffer from somewhere else, don't dealloc image (data/base), all other tables are not shared
- FF_BUFFER_TYPE_COPY = 8; ///< just a (modified) copy of some other buffer, don't dealloc anything
-
-
- FF_I_TYPE = 1; // Intra
- FF_P_TYPE = 2; // Predicted
- FF_B_TYPE = 3; // Bi-dir predicted
- FF_S_TYPE = 4; // S(GMC)-VOP MPEG4
- FF_SI_TYPE = 5;
- FF_SP_TYPE = 6;
-
- FF_BUFFER_HINTS_VALID = $01; // Buffer hints value is meaningful (if 0 ignore)
- FF_BUFFER_HINTS_READABLE = $02; // Codec will read from buffer
- FF_BUFFER_HINTS_PRESERVE = $04; // User must not alter buffer content
- FF_BUFFER_HINTS_REUSABLE = $08; // Codec will reuse the buffer (update)
-
-type
- (*** Audio Video Frame. *)
- PAVFrame = ^TAVFrame;
- TAVFrame = record {200}
- (*** pointer to the picture planes.
- * this might be different from the first allocated byte *)
- data: array [0..3] of pointer;
- linesize: array [0..3] of integer;
- (*** pointer to the first allocated byte of the picture. can be used in get_buffer/release_buffer
- * this isn't used by lavc unless the default get/release_buffer() is used*)
- base: array [0..3] of pchar;
- (*** 1 -> keyframe, 0-> not *)
- key_frame: integer;
- (*** picture type of the frame, see ?_TYPE below.*)
- pict_type: integer;
- (*** presentation timestamp in time_base units (time when frame should be shown to user)
- * if AV_NOPTS_VALUE then frame_rate = 1/time_base will be assumed*)
- pts: int64;
- (*** picture number in bitstream order.*)
- coded_picture_number: integer;
- (*** picture number in display order.*)
- display_picture_number: integer;
- (*** quality (between 1 (good) and FF_LAMBDA_MAX (bad)) *)
- quality: integer;
- (*** buffer age (1->was last buffer and dint change, 2->..., ...).*)
- age: integer;
- (*** is this picture used as reference*)
- reference: integer;
- (*** QP table*)
- qscale_table: pchar;
- (*** QP store stride*)
- qstride: integer;
- (*** mbskip_table[mb]>=1 if MB didnt change*)
- mbskip_table: pchar;
- (**
- * Motion vector table.
- * @code
- * example:
- * int mv_sample_log2= 4 - motion_subsample_log2;
- * int mb_width= (width+15)>>4;
- * int mv_stride= (mb_width << mv_sample_log2) + 1;
- * motion_val[direction][x + y*mv_stride][0->mv_x, 1->mv_y];
- * @endcode
- * - encoding: set by user
- * - decoding: set by lavc *)
- motion_val: array [0..1] of pointer;
- (*** Macroblock type table
- * mb_type_base + mb_width + 2 *)
- mb_type: PCardinal;
- (*** log2 of the size of the block which a single vector in motion_val represents:
- * (4->16x16, 3->8x8, 2-> 4x4, 1-> 2x2)*)
- motion_subsample_log2: byte;
- (*** for some private data of the user*)
- opaque: pointer;
- (*** error*)
- error: array [0..3] of int64;
- (*** type of the buffer (to keep track of who has to dealloc data[*])
- * Note: user allocated (direct rendering) & internal buffers can not coexist currently*)
- _type: integer;
- (*** when decoding, this signal how much the picture must be delayed.
- * extra_delay = repeat_pict / (2*fps)*)
- repeat_pict: integer;
- qscale_type: Integer;
- (*** The content of the picture is interlaced.*)
- interlaced_frame: Integer;
- (*** if the content is interlaced, is top field displayed first.*)
- top_field_first: integer;
- (*** Pan scan.*)
- pan_scan: PAVPanScan;
- (*** tell user application that palette has changed from previous frame.*)
- palette_has_changed: integer;
- (*** Codec suggestion on buffer type if != 0
- * - decoding: set by lavc (before get_buffer() call))*)
- buffer_hints: integer;
- (*** DCT coeffitients*)
- dct_coeff: PSmallInt;
- (*** Motion referece frame index*)
- ref_index: array [0..1] of pchar;
- end;
-
-const
- DEFAULT_FRAME_RATE_BASE = 1001000;
-
- FF_BUG_AUTODETECT = 1; ///< autodetection
- FF_BUG_OLD_MSMPEG4 = 2;
- FF_BUG_XVID_ILACE = 4;
- FF_BUG_UMP4 = 8;
- FF_BUG_NO_PADDING = 16;
- FF_BUG_AMV = 32;
- FF_BUG_AC_VLC = 0; ///< will be removed, libavcodec can now handle these non compliant files by default
- FF_BUG_QPEL_CHROMA = 64;
- FF_BUG_STD_QPEL = 128;
- FF_BUG_QPEL_CHROMA2 = 256;
- FF_BUG_DIRECT_BLOCKSIZE = 512;
- FF_BUG_EDGE = 1024;
- FF_BUG_HPEL_CHROMA = 2048;
- FF_BUG_DC_CLIP = 4096;
- FF_BUG_MS = 8192; ///< workaround various bugs in microsofts broken decoders
-
- FF_COMPLIANCE_VERY_STRICT = 2; ///< strictly conform to a older more strict version of the spec or reference software
- FF_COMPLIANCE_STRICT = 1; ///< strictly conform to all the things in the spec no matter what consequences
- FF_COMPLIANCE_NORMAL = 0;
- FF_COMPLIANCE_INOFFICIAL = -1; ///< allow inofficial extensions
- FF_COMPLIANCE_EXPERIMENTAL = -2; ///< allow non standarized experimental things
-
- FF_ER_CAREFUL = 1;
- FF_ER_COMPLIANT = 2;
- FF_ER_AGGRESSIVE = 3;
- FF_ER_VERY_AGGRESSIVE = 4;
-
- FF_DCT_AUTO = 0;
- FF_DCT_FASTINT = 1;
- FF_DCT_INT = 2;
- FF_DCT_MMX = 3;
- FF_DCT_MLIB = 4;
- FF_DCT_ALTIVEC = 5;
- FF_DCT_FAAN = 6;
-
- FF_IDCT_AUTO = 0;
- FF_IDCT_INT = 1;
- FF_IDCT_SIMPLE = 2;
- FF_IDCT_SIMPLEMMX = 3;
- FF_IDCT_LIBMPEG2MMX = 4;
- FF_IDCT_PS2 = 5;
- FF_IDCT_MLIB = 6;
- FF_IDCT_ARM = 7;
- FF_IDCT_ALTIVEC = 8;
- FF_IDCT_SH4 = 9;
- FF_IDCT_SIMPLEARM = 10;
- FF_IDCT_H264 = 11;
- FF_IDCT_VP3 = 12;
- FF_IDCT_IPP = 13;
- FF_IDCT_XVIDMMX = 14;
-
- FF_EC_GUESS_MVS = 1;
- FF_EC_DEBLOCK = 2;
-
- FF_MM_FORCE = $80000000; (* force usage of selected flags (OR) *)
- (* lower 16 bits - CPU features *)
-
- FF_MM_MMX = $0001; (* standard MMX *)
- FF_MM_3DNOW = $0004; (* AMD 3DNOW *)
- FF_MM_MMXEXT = $0002; (* SSE integer functions or AMD MMX ext *)
- FF_MM_SSE = $0008; (* SSE functions *)
- FF_MM_SSE2 = $0010; (* PIV SSE2 functions *)
- FF_MM_3DNOWEXT = $0020; (* AMD 3DNowExt *)
- FF_MM_IWMMXT = $0100; (* XScale IWMMXT *)
-
- FF_PRED_LEFT = 0;
- FF_PRED_PLANE = 1;
- FF_PRED_MEDIAN = 2;
-
- FF_DEBUG_PICT_INFO = 1;
- FF_DEBUG_RC = 2;
- FF_DEBUG_BITSTREAM = 4;
- FF_DEBUG_MB_TYPE = 8;
- FF_DEBUG_QP = 16;
- FF_DEBUG_MV = 32;
- FF_DEBUG_DCT_COEFF = $00000040;
- FF_DEBUG_SKIP = $00000080;
- FF_DEBUG_STARTCODE = $00000100;
- FF_DEBUG_PTS = $00000200;
- FF_DEBUG_ER = $00000400;
- FF_DEBUG_MMCO = $00000800;
- FF_DEBUG_BUGS = $00001000;
- FF_DEBUG_VIS_QP = $00002000;
- FF_DEBUG_VIS_MB_TYPE = $00004000;
-
- FF_DEBUG_VIS_MV_P_FOR = $00000001; //visualize forward predicted MVs of P frames
- FF_DEBUG_VIS_MV_B_FOR = $00000002; //visualize forward predicted MVs of B frames
- FF_DEBUG_VIS_MV_B_BACK = $00000004; //visualize backward predicted MVs of B frames
-
- FF_CMP_SAD = 0;
- FF_CMP_SSE = 1;
- FF_CMP_SATD = 2;
- FF_CMP_DCT = 3;
- FF_CMP_PSNR = 4;
- FF_CMP_BIT = 5;
- FF_CMP_RD = 6;
- FF_CMP_ZERO = 7;
- FF_CMP_VSAD = 8;
- FF_CMP_VSSE = 9;
- FF_CMP_NSSE = 10;
- FF_CMP_W53 = 11;
- FF_CMP_W97 = 12;
- FF_CMP_DCTMAX = 13;
- FF_CMP_CHROMA = 256;
-
- FF_DTG_AFD_SAME = 8;
- FF_DTG_AFD_4_3 = 9;
- FF_DTG_AFD_16_9 = 10;
- FF_DTG_AFD_14_9 = 11;
- FF_DTG_AFD_4_3_SP_14_9 = 13;
- FF_DTG_AFD_16_9_SP_14_9 = 14;
- FF_DTG_AFD_SP_4_3 = 15;
-
- FF_DEFAULT_QUANT_BIAS = 999999;
-
- FF_LAMBDA_SHIFT = 7;
- FF_LAMBDA_SCALE = (1 shl FF_LAMBDA_SHIFT);
- FF_QP2LAMBDA = 118; ///< factor to convert from H.263 QP to lambda
- FF_LAMBDA_MAX = (256 * 128 - 1);
-
- FF_QUALITY_SCALE = FF_LAMBDA_SCALE; //FIXME maybe remove
-
- FF_CODER_TYPE_VLC = 0;
- FF_CODER_TYPE_AC = 1;
-
- SLICE_FLAG_CODED_ORDER = $0001; ///< draw_horiz_band() is called in coded order instead of display
- SLICE_FLAG_ALLOW_FIELD = $0002; ///< allow draw_horiz_band() with field slices (MPEG2 field pics)
- SLICE_FLAG_ALLOW_PLANE = $0004; ///< allow draw_horiz_band() with 1 component at a time (SVQ1)
-
- FF_MB_DECISION_SIMPLE = 0; ///< uses mb_cmp
- FF_MB_DECISION_BITS = 1; ///< chooses the one which needs the fewest bits
- FF_MB_DECISION_RD = 2; ///< rate distoration
-
- FF_AA_AUTO = 0;
- FF_AA_FASTINT = 1; //not implemented yet
- FF_AA_INT = 2;
- FF_AA_FLOAT = 3;
-
- FF_PROFILE_UNKNOWN = -99;
-
- FF_LEVEL_UNKNOWN = -99;
-
- X264_PART_I4X4 = $001; (* Analyse i4x4 *)
- X264_PART_I8X8 = $002; (* Analyse i8x8 (requires 8x8 transform) *)
- X264_PART_P8X8 = $010; (* Analyse p16x8, p8x16 and p8x8 *)
- X264_PART_P4X4 = $020; (* Analyse p8x4, p4x8, p4x4 *)
- X264_PART_B8X8 = $100; (* Analyse b16x8, b8x16 and b8x8 *)
-
-type
- PAVCLASS = ^TAVCLASS;
- PAVCodecContext = ^TAVCodecContext;
- PAVCodec = ^TAVCodec;
- PAVPaletteControl = ^TAVPaletteControl;
-
- TAVCLASS = record {12}
- class_name: pchar;
- (* actually passing a pointer to an AVCodecContext
- or AVFormatContext, which begin with an AVClass.
- Needed because av_log is in libavcodec and has no visibility
- of AVIn/OutputFormat *)
- item_name: function (): pchar; cdecl;
- option: PAVOption;
- end;
-
- TAVCodecContext = record {720}
- (*** Info on struct for av_log
- * - set by avcodec_alloc_context *)
- av_class: PAVClass;
- (*** the average bitrate.
- * - encoding: set by user. unused for constant quantizer encoding
- * - decoding: set by lavc. 0 or some bitrate if this info is available in the stream *)
- bit_rate: integer;
- (*** number of bits the bitstream is allowed to diverge from the reference.
- * the reference can be CBR (for CBR pass1) or VBR (for pass2)
- * - encoding: set by user. unused for constant quantizer encoding
- * - decoding: unused *)
- bit_rate_tolerance: integer;
- (*** CODEC_FLAG_*.
- * - encoding: set by user.
- * - decoding: set by user. *)
- flags: integer;
- (*** some codecs needs additionnal format info. It is stored here
- * - encoding: set by user.
- * - decoding: set by lavc. (FIXME is this ok?) *)
- sub_id: integer;
-
- (**
- * motion estimation algorithm used for video coding.
- * 1 (zero), 2 (full), 3 (log), 4 (phods), 5 (epzs), 6 (x1), 7 (hex),
- * 8 (umh), 9 (iter) [7, 8 are x264 specific, 9 is snow specific]
- * - encoding: MUST be set by user.
- * - decoding: unused *)
- me_method: integer;
-
- (**
- * some codecs need / can use extra-data like huffman tables.
- * mjpeg: huffman tables
- * rv10: additional flags
- * mpeg4: global headers (they can be in the bitstream or here)
- * the allocated memory should be FF_INPUT_BUFFER_PADDING_SIZE bytes larger
- * then extradata_size to avoid prolems if its read with the bitstream reader
- * the bytewise contents of extradata must not depend on the architecture or cpu endianness
- * - encoding: set/allocated/freed by lavc.
- * - decoding: set/allocated/freed by user.
- *)
- extradata: pointer;
- extradata_size: integer;
-
- (**
- * 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.
- * - encoding: MUST be set by user
- * - decoding: set by lavc. *)
- time_base: TAVRational;
-
- (* video only *)
- (*** picture width / height.
- * - encoding: MUST be set by user.
- * - decoding: set by lavc.
- * Note, for compatibility its possible to set this instead of
- * coded_width/height before decoding *)
- width, height: integer;
- (*** the number of pictures in a group of pitures, or 0 for intra_only.
- * - encoding: set by user.
- * - decoding: unused *)
- gop_size: integer;
- (*** pixel format, see PIX_FMT_xxx.
- * - encoding: set by user.
- * - decoding: set by lavc. *)
- pix_fmt: TAVPixelFormat;
- (*** Frame rate emulation. If not zero lower layer (i.e. format handler)
- * has to read frames at native frame rate.
- * - encoding: set by user.
- * - decoding: unused. *)
- rate_emu: integer;
- (*** if non NULL, 'draw_horiz_band' is called by the libavcodec
- * decoder to draw an horizontal band. It improve cache usage. Not
- * all codecs can do that. You must check the codec capabilities
- * before
- * - encoding: unused
- * - decoding: set by user.
- * @param height the height of the slice
- * @param y the y position of the slice
- * @param type 1->top field, 2->bottom field, 3->frame
- * @param offset offset into the AVFrame.data from which the slice should be read *)
- draw_horiz_band: procedure (s: PAVCodecContext;
- const src: PAVFrame; offset: PInteger;
- y: integer; _type: integer; height: integer); cdecl;
-
- (* audio only *)
- sample_rate: integer; ///< samples per sec
- channels: integer;
- (*** audio sample format.
- * - encoding: set by user.
- * - decoding: set by lavc. *)
- sample_fmt: TSampleFormat; ///< sample format, currenly unused
-
- (* the following data should not be initialized *)
- (*** samples per packet. initialized when calling 'init' *)
- frame_size: integer;
- frame_number: integer; ///< audio or video frame number
- real_pict_num: integer; ///< returns the real picture number of previous encoded frame
-
- (*** number of frames the decoded output will be delayed relative to
- * the encoded input.
- * - encoding: set by lavc.
- * - decoding: unused *)
- delay: integer;
-
- (* - encoding parameters *)
- qcompress: single; ///< amount of qscale change between easy & hard scenes (0.0-1.0)
- qblur: single; ///< amount of qscale smoothing over time (0.0-1.0)
-
- (*** minimum quantizer.
- * - encoding: set by user.
- * - decoding: unused *)
- qmin: integer;
-
- (*** maximum quantizer.
- * - encoding: set by user.
- * - decoding: unused *)
- qmax: integer;
-
- (*** maximum quantizer difference etween frames.
- * - encoding: set by user.
- * - decoding: unused *)
- max_qdiff: integer;
-
- (*** maximum number of b frames between non b frames.
- * note: the output will be delayed by max_b_frames+1 relative to the input
- * - encoding: set by user.
- * - decoding: unused *)
- max_b_frames: integer;
-
- (*** qscale factor between ip and b frames.
- * - encoding: set by user.
- * - decoding: unused *)
- b_quant_factor: single;
-
- (** obsolete FIXME remove *)
- rc_strategy: integer;
- b_frame_strategy: integer;
-
- (*** hurry up amount.
- * deprecated in favor of skip_idct and skip_frame
- * - encoding: unused
- * - decoding: set by user. 1-> skip b frames, 2-> skip idct/dequant too, 5-> skip everything except header *)
- hurry_up: integer;
-
- codec: PAVCodec;
-
- priv_data: pointer;
-
- (* unused, FIXME remove*)
- rtp_mode: integer;
-
- rtp_payload_size: integer; (* The size of the RTP payload: the coder will *)
- (* do it's best to deliver a chunk with size *)
- (* below rtp_payload_size, the chunk will start *)
- (* with a start code on some codecs like H.263 *)
- (* This doesn't take account of any particular *)
- (* headers inside the transmited RTP payload *)
-
-
- (* The RTP callback: This function is called *)
- (* every time the encoder has a packet to send *)
- (* Depends on the encoder if the data starts *)
- (* with a Start Code (it should) H.263 does. *)
- (* mb_nb contains the number of macroblocks *)
- (* encoded in the RTP payload *)
- rtp_callback: procedure (avctx: PAVCodecContext; data: pointer;
- size: integer; mb_nb: integer); cdecl;
-
- (* statistics, used for 2-pass encoding *)
- mv_bits: integer;
- header_bits: integer;
- i_tex_bits: integer;
- p_tex_bits: integer;
- i_count: integer;
- p_count: integer;
- skip_count: integer;
- misc_bits: integer;
-
- (*** number of bits used for the previously encoded frame.
- * - encoding: set by lavc
- * - decoding: unused *)
- frame_bits: integer;
-
- (*** private data of the user, can be used to carry app specific stuff.
- * - encoding: set by user
- * - decoding: set by user *)
- opaque: pointer;
-
- codec_name: array [0..31] of char;
- codec_type: TCodecType; (* see CODEC_TYPE_xxx *)
- codec_id: TCodecID; (* see CODEC_ID_xxx *)
-
- (*** fourcc (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
- * this is used to workaround some encoder bugs
- * - encoding: set by user, if not then the default based on codec_id will be used
- * - decoding: set by user, will be converted to upper case by lavc during init *)
-// codec_tag: cardinal; // ����� array [0..3] of char - ����� ����� FOURCC
- codec_tag: array [0..3] of char;
-
- (*** workaround bugs in encoders which sometimes cannot be detected automatically.
- * - encoding: set by user
- * - decoding: set by user *)
- workaround_bugs: integer;
-
- (*** luma single coeff elimination threshold.
- * - encoding: set by user
- * - decoding: unused *)
- luma_elim_threshold: integer;
-
- (*** chroma single coeff elimination threshold.
- * - encoding: set by user
- * - decoding: unused *)
- chroma_elim_threshold: integer;
-
- (*** strictly follow the std (MPEG4, ...).
- * - encoding: set by user
- * - decoding: unused *)
- strict_std_compliance: integer;
-
- (*** qscale offset between ip and b frames.
- * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
- * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
- * - encoding: set by user.
- * - decoding: unused *)
- b_quant_offset: single;
-
- (*** error resilience higher values will detect more errors but may missdetect
- * some more or less valid parts as errors.
- * - encoding: unused
- * - decoding: set by user *)
- error_resilience: integer;
-
- (*** called at the beginning of each frame to get a buffer for it.
- * if pic.reference is set then the frame will be read later by lavc
- * avcodec_align_dimensions() should be used to find the required width and
- * height, as they normally need to be rounded up to the next multiple of 16
- * - encoding: unused
- * - decoding: set by lavc, user can override *)
- get_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
-
- (*** called to release buffers which where allocated with get_buffer.
- * a released buffer can be reused in get_buffer()
- * pic.data[*] must be set to NULL
- * - encoding: unused
- * - decoding: set by lavc, user can override *)
- release_buffer: procedure (c: PAVCodecContext; pic: PAVFrame); cdecl;
-
- (*** if 1 the stream has a 1 frame delay during decoding.
- * - encoding: set by lavc
- * - decoding: set by lavc *)
- has_b_frames: integer;
-
- (*** number of bytes per packet if constant and known or 0
- * used by some WAV based audio codecs *)
- block_align: integer;
-
- parse_only: integer; (* - decoding only: if true, only parsing is done
- (function avcodec_parse_frame()). The frame
- data is returned. Only MPEG codecs support this now. *)
-
- (*** 0-> h263 quant 1-> mpeg quant.
- * - encoding: set by user.
- * - decoding: unused *)
- mpeg_quant: integer;
-
- (*** pass1 encoding statistics output buffer.
- * - encoding: set by lavc
- * - decoding: unused *)
- stats_out: pchar;
-
- (*** pass2 encoding statistics input buffer.
- * concatenated stuff from stats_out of pass1 should be placed here
- * - encoding: allocated/set/freed by user
- * - decoding: unused *)
- stats_in: pchar;
-
- (*** ratecontrol qmin qmax limiting method.
- * 0-> clipping, 1-> use a nice continous function to limit qscale wthin qmin/qmax
- * - encoding: set by user.
- * - decoding: unused *)
- rc_qsquish: single;
-
- rc_qmod_amp: single;
- rc_qmod_freq: integer;
-
- (*** ratecontrol override, see RcOverride.
- * - encoding: allocated/set/freed by user.
- * - decoding: unused *)
- rc_override: PRcOverride;
- rc_override_count: integer;
-
- (*** rate control equation.
- * - encoding: set by user
- * - decoding: unused *)
- rc_eq: pchar;
-
- (*** maximum bitrate.
- * - encoding: set by user.
- * - decoding: unused *)
- rc_max_rate: integer;
-
- (*** minimum bitrate.
- * - encoding: set by user.
- * - decoding: unused *)
- rc_min_rate: integer;
-
- (*** decoder bitstream buffer size.
- * - encoding: set by user.
- * - decoding: unused *)
- rc_buffer_size: integer;
- rc_buffer_aggressivity: single;
-
- (*** qscale factor between p and i frames.
- * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset)
- * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset)
- * - encoding: set by user.
- * - decoding: unused *)
- i_quant_factor: single;
-
- (*** qscale offset between p and i frames.
- * - encoding: set by user.
- * - decoding: unused *)
- i_quant_offset: single;
-
- (*** initial complexity for pass1 ratecontrol.
- * - encoding: set by user.
- * - decoding: unused *)
- rc_initial_cplx: single;
-
- (*** dct algorithm, see FF_DCT_* below.
- * - encoding: set by user
- * - decoding: unused *)
- dct_algo: integer;
-
- (*** luminance masking (0-> disabled).
- * - encoding: set by user
- * - decoding: unused *)
- lumi_masking: single;
-
- (*** temporary complexity masking (0-> disabled).
- * - encoding: set by user
- * - decoding: unused *)
- temporal_cplx_masking: single;
-
- (*** spatial complexity masking (0-> disabled).
- * - encoding: set by user
- * - decoding: unused *)
- spatial_cplx_masking: single;
-
- (** * p block masking (0-> disabled).
- * - encoding: set by user
- * - decoding: unused *)
- p_masking: single;
-
- (*** darkness masking (0-> disabled).
- * - encoding: set by user
- * - decoding: unused *)
- dark_masking: single;
-
- (* for binary compatibility *)
- unused: integer;
-
- (*** idct algorithm, see FF_IDCT_* below.
- * - encoding: set by user
- * - decoding: set by user *)
- idct_algo: integer;
-
- (*** slice count.
- * - encoding: set by lavc
- * - decoding: set by user (or 0) *)
- slice_count: integer;
-
- (*** slice offsets in the frame in bytes.
- * - encoding: set/allocated by lavc
- * - decoding: set/allocated by user (or NULL) *)
- slice_offset: PInteger;
-
- (*** error concealment flags.
- * - encoding: unused
- * - decoding: set by user *)
- error_concealment: integer;
-
- (*** dsp_mask could be add used to disable unwanted CPU features
- * CPU features (i.e. MMX, SSE. ...)
- *
- * with FORCE flag you may instead enable given CPU features
- * (Dangerous: usable in case of misdetection, improper usage however will
- * result into program crash) *)
- dsp_mask: cardinal;
-
- (*** bits per sample/pixel from the demuxer (needed for huffyuv).
- * - encoding: set by lavc
- * - decoding: set by user *)
- bits_per_sample: integer;
-
- (*** prediction method (needed for huffyuv).
- * - encoding: set by user
- * - decoding: unused *)
- prediction_method: integer;
-
- (*** sample aspect ratio (0 if unknown).
- * numerator and denominator must be relative prime and smaller then 256 for some video standards
- * - encoding: set by user.
- * - decoding: set by lavc. *)
- sample_aspect_ratio: TAVRational;
-
- (*** the picture in the bitstream.
- * - encoding: set by lavc
- * - decoding: set by lavc *)
- coded_frame: PAVFrame;
-
- (*** debug.
- * - encoding: set by user.
- * - decoding: set by user. *)
- debug: integer;
-
- (*** debug.
- * - encoding: set by user.
- * - decoding: set by user. *)
- debug_mv: integer;
-
- (** error.
- * - encoding: set by lavc if flags&CODEC_FLAG_PSNR
- * - decoding: unused *)
- error: array [0..3] of int64;
-
- (*** minimum MB quantizer.
- * - encoding: unused
- * - decoding: unused *)
- mb_qmin: integer;
-
- (*** maximum MB quantizer.
- * - encoding: unused
- * - decoding: unused *)
- mb_qmax: integer;
-
- (*** motion estimation compare function.
- * - encoding: set by user.
- * - decoding: unused *)
- me_cmp: integer;
-
- (*** subpixel motion estimation compare function.
- * - encoding: set by user.
- * - decoding: unused *)
- me_sub_cmp: integer;
- (*** macroblock compare function (not supported yet).
- * - encoding: set by user.
- * - decoding: unused *)
- mb_cmp: integer;
- (*** interlaced dct compare function
- * - encoding: set by user.
- * - decoding: unused *)
- ildct_cmp: integer;
- (*** ME diamond size & shape.
- * - encoding: set by user.
- * - decoding: unused *)
- dia_size: integer;
-
- (*** amount of previous MV predictors (2a+1 x 2a+1 square).
- * - encoding: set by user.
- * - decoding: unused *)
- last_predictor_count: integer;
-
- (*** pre pass for motion estimation.
- * - encoding: set by user.
- * - decoding: unused *)
- pre_me: integer;
-
- (*** motion estimation pre pass compare function.
- * - encoding: set by user.
- * - decoding: unused *)
- me_pre_cmp: integer;
-
- (*** ME pre pass diamond size & shape.
- * - encoding: set by user.
- * - decoding: unused *)
- pre_dia_size: integer;
-
- (*** subpel ME quality.
- * - encoding: set by user.
- * - decoding: unused *)
- me_subpel_quality: integer;
-
- (*** callback to negotiate the pixelFormat.
- * @param fmt is the list of formats which are supported by the codec,
- * its terminated by -1 as 0 is a valid format, the formats are ordered by quality
- * the first is allways the native one
- * @return the choosen format
- * - encoding: unused
- * - decoding: set by user, if not set then the native format will always be choosen
- *)
- get_format: function (s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat; cdecl;
-
- (*** DTG active format information (additionnal aspect ratio
- * information only used in DVB MPEG2 transport streams). 0 if
- * not set.
- * - encoding: unused.
- * - decoding: set by decoder *)
- dtg_active_format: integer;
-
- (*** Maximum motion estimation search range in subpel units.
- * if 0 then no limit
- * - encoding: set by user.
- * - decoding: unused. *)
- me_range: integer;
-
- (*** intra quantizer bias.
- * - encoding: set by user.
- * - decoding: unused *)
- intra_quant_bias: integer;
-
- (*** inter quantizer bias.
- * - encoding: set by user.
- * - decoding: unused *)
- inter_quant_bias: integer;
-
- (*** color table ID.
- * - encoding: unused.
- * - decoding: which clrtable should be used for 8bit RGB images
- * table have to be stored somewhere FIXME *)
- color_table_id: integer;
-
- (*** internal_buffer count.
- * Don't touch, used by lavc default_get_buffer() *)
- internal_buffer_count: integer;
-
- (*** internal_buffers.
- * Don't touch, used by lavc default_get_buffer() *)
- internal_buffer: pointer;
-
- (*** global quality for codecs which cannot change it per frame.
- * this should be proportional to MPEG1/2/4 qscale.
- * - encoding: set by user.
- * - decoding: unused *)
- global_quality: integer;
-
- (*** coder type
- * - encoding: set by user.
- * - decoding: unused *)
- coder_type: integer;
-
- (*** context model
- * - encoding: set by user.
- * - decoding: unused *)
- context_model: integer;
-
- (*** slice flags
- * - encoding: unused
- * - decoding: set by user. *)
- slice_flags: integer;
-
- (*** XVideo Motion Acceleration
- * - encoding: forbidden
- * - decoding: set by decoder *)
- xvmc_acceleration: integer;
-
- (*** macroblock decision mode
- * - encoding: set by user.
- * - decoding: unused *)
- mb_decision: integer;
-
- (*** custom intra quantization matrix
- * - encoding: set by user, can be NULL
- * - decoding: set by lavc *)
- intra_matrix: Pword;
-
- (*** custom inter quantization matrix
- * - encoding: set by user, can be NULL
- * - decoding: set by lavc *)
- inter_matrix: Pword;
-
- (*** fourcc from the AVI stream header (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A').
- * this is used to workaround some encoder bugs
- * - encoding: unused
- * - decoding: set by user, will be converted to upper case by lavc during init *)
- stream_codec_tag: array [0..3] of char; //cardinal;
-
- (*** scene change detection threshold.
- * 0 is default, larger means fewer detected scene changes
- * - encoding: set by user.
- * - decoding: unused *)
- scenechange_threshold: integer;
-
- (*** minimum lagrange multipler
- * - encoding: set by user.
- * - decoding: unused *)
- lmin: integer;
-
- (*** maximum lagrange multipler
- * - encoding: set by user.
- * - decoding: unused *)
- lmax: integer;
-
- (*** Palette control structure
- * - encoding: ??? (no palette-enabled encoder yet)
- * - decoding: set by user. *)
- palctrl: PAVPaletteControl;
-
- (*** noise reduction strength
- * - encoding: set by user.
- * - decoding: unused *)
- noise_reduction: integer;
-
- (*** called at the beginning of a frame to get cr buffer for it.
- * buffer type (size, hints) must be the same. lavc won't check it.
- * lavc will pass previous buffer in pic, function should return
- * same buffer or new buffer with old frame "painted" into it.
- * if pic.data[0] == NULL must behave like get_buffer().
- * - encoding: unused
- * - decoding: set by lavc, user can override *)
- reget_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl;
-
- (*** number of bits which should be loaded into the rc buffer before decoding starts
- * - encoding: set by user.
- * - decoding: unused *)
- rc_initial_buffer_occupancy: integer;
- inter_threshold: integer;
-
- (*** CODEC_FLAG2_*.
- * - encoding: set by user.
- * - decoding: set by user. *)
- flags2: integer;
-
- (*** simulates errors in the bitstream to test error concealment.
- * - encoding: set by user.
- * - decoding: unused. *)
- error_rate: integer;
-
- (*** MP3 antialias algorithm, see FF_AA_* below.
- * - encoding: unused
- * - decoding: set by user *)
- antialias_algo: integer;
-
- (*** Quantizer noise shaping.
- * - encoding: set by user
- * - decoding: unused *)
- quantizer_noise_shaping: integer;
-
- (*** Thread count.
- * is used to decide how many independant tasks should be passed to execute()
- * - encoding: set by user
- * - decoding: set by user *)
- thread_count: integer;
-
- (*** the codec may call this to execute several independant things. it will return only after
- * finishing all tasks, the user may replace this with some multithreaded implementation, the
- * default implementation will execute the parts serially
- * @param count the number of things to execute
- * - encoding: set by lavc, user can override
- * - decoding: set by lavc, user can override *)
- execute: function (c: PAVCodecContext; func: pointer; arg: PPointer; ret: PInteger; count: integer): integer; cdecl;
-
- (*** Thread opaque.
- * can be used by execute() to store some per AVCodecContext stuff.
- * - encoding: set by execute()
- * - decoding: set by execute() *)
- thread_opaque: pointer;
-
- (*** Motion estimation threshold. under which no motion estimation is
- * performed, but instead the user specified motion vectors are used
- * - encoding: set by user
- * - decoding: unused *)
- me_threshold: integer;
-
- (*** Macroblock threshold. under which the user specified macroblock types will be used
- * - encoding: set by user
- * - decoding: unused *)
- mb_threshold: integer;
-
- (*** precision of the intra dc coefficient - 8.
- * - encoding: set by user
- * - decoding: unused *)
- intra_dc_precision: integer;
-
- (*** noise vs. sse weight for the nsse comparsion function.
- * - encoding: set by user
- * - decoding: unused *)
- nsse_weight: integer;
-
- (*** number of macroblock rows at the top which are skipped.
- * - encoding: unused
- * - decoding: set by user *)
- skip_top: integer;
-
- (*** number of macroblock rows at the bottom which are skipped.
- * - encoding: unused
- * - decoding: set by user *)
- skip_bottom: integer;
-
- (*** profile
- * - encoding: set by user
- * - decoding: set by lavc *)
- profile: integer;
-
- (*** level
- * - encoding: set by user
- * - decoding: set by lavc *)
- level: integer;
-
- (*** low resolution decoding. 1-> 1/2 size, 2->1/4 size
- * - encoding: unused
- * - decoding: set by user *)
- lowres: integer;
-
- (*** bitsream width / height. may be different from width/height if lowres
- * or other things are used
- * - encoding: unused
- * - decoding: set by user before init if known, codec should override / dynamically change if needed *)
- coded_width, coded_height: integer;
-
- (*** frame skip threshold
- * - encoding: set by user
- * - decoding: unused *)
- frame_skip_threshold: integer;
-
- (*** frame skip factor
- * - encoding: set by user
- * - decoding: unused *)
- frame_skip_factor: integer;
-
- (*** frame skip exponent
- * - encoding: set by user
- * - decoding: unused *)
- frame_skip_exp: integer;
-
- (*** frame skip comparission function
- * - encoding: set by user.
- * - decoding: unused *)
- frame_skip_cmp: integer;
-
- (*** border processing masking. raises the quantizer for mbs on the borders
- * of the picture.
- * - encoding: set by user
- * - decoding: unused *)
- border_masking: single;
-
- (*** minimum MB lagrange multipler.
- * - encoding: set by user.
- * - decoding: unused *)
- mb_lmin: integer;
-
- (*** maximum MB lagrange multipler.
- * - encoding: set by user.
- * - decoding: unused *)
- mb_lmax: integer;
-
- (***
- * - encoding: set by user.
- * - decoding: unused *)
- me_penalty_compensation: integer;
-
- (***
- * - encoding: unused
- * - decoding: set by user. *)
- skip_loop_filter: TAVDiscard;
-
- (** *
- * - encoding: unused
- * - decoding: set by user. *)
- skip_idct: TAVDiscard;
-
- (** *
- * - encoding: unused
- * - decoding: set by user. *)
- skip_frame: TAVDiscard;
-
- (** *
- * - encoding: set by user.
- * - decoding: unused *)
- bidir_refine: integer;
-
- (** *
- * - encoding: set by user.
- * - decoding: unused *)
- brd_scale: integer;
-
- (**
- * constant rate factor - quality-based VBR - values ~correspond to qps
- * - encoding: set by user.
- * - decoding: unused *)
- crf: integer;
-
- (**
- * constant quantization parameter rate control method
- * - encoding: set by user.
- * - decoding: unused *)
- cqp: integer;
-
- (**
- * minimum gop size
- * - encoding: set by user.
- * - decoding: unused *)
- keyint_min: integer;
-
- (**
- * number of reference frames
- * - encoding: set by user.
- * - decoding: unused *)
- refs: integer;
-
- (**
- * chroma qp offset from luma
- * - encoding: set by user.
- * - decoding: unused *)
- chromaoffset: integer;
-
- (**
- * influences how often b-frames are used
- * - encoding: set by user.
- * - decoding: unused *)
- bframebias: integer;
-
- (**
- * trellis RD quantization
- * - encoding: set by user.
- * - decoding: unused *)
- trellis: integer;
-
- (**
- * reduce fluctuations in qp (before curve compression)
- * - encoding: set by user.
- * - decoding: unused *)
- complexityblur: single;
-
- (**
- * in-loop deblocking filter alphac0 parameter
- * alpha is in the range -6...6
- * - encoding: set by user.
- * - decoding: unused *)
- deblockalpha: integer;
-
- (**
- * in-loop deblocking filter beta parameter
- * beta is in the range -6...6
- * - encoding: set by user.
- * - decoding: unused *)
- deblockbeta: integer;
-
- (**
- * macroblock subpartition sizes to consider - p8x8, p4x4, b8x8, i8x8, i4x4
- * - encoding: set by user.
- * - decoding: unused *)
- partitions: integer;
-
- (**
- * direct mv prediction mode - 0 (none), 1 (spatial), 2 (temporal)
- * - encoding: set by user.
- * - decoding: unused *)
- directpred: integer;
-
- (**
- * audio cutoff bandwidth (0 means "automatic") . Currently used only by FAAC
- * - encoding: set by user.
- * - decoding: unused *)
- cutoff: integer;
-
- (**
- * multiplied by qscale for each frame and added to scene_change_score
- * - encoding: set by user.
- * - decoding: unused *)
- scenechange_factor: integer;
-
- (** *
- * note: value depends upon the compare functin used for fullpel ME
- * - encoding: set by user.
- * - decoding: unused *)
- mv0_threshold: integer;
-
- (**
- * adjusts sensitivity of b_frame_strategy 1
- * - encoding: set by user.
- * - decoding: unused *)
- b_sensitivity: integer;
-
- (**
- * - encoding: set by user.
- * - decoding: unused *)
- compression_level: integer;
-
- (**
- * sets whether to use LPC mode - used by FLAC encoder
- * - encoding: set by user.
- * - decoding: unused. *)
- use_lpc: integer;
-
- (**
- * LPC coefficient precision - used by FLAC encoder
- * - encoding: set by user.
- * - decoding: unused. *)
- lpc_coeff_precision: integer;
-
- (**
- * - encoding: set by user.
- * - decoding: unused. *)
- min_prediction_order: integer;
-
- (**
- * - encoding: set by user.
- * - decoding: unused. *)
- max_prediction_order: integer;
-
- (**
- * search method for selecting prediction order
- * - encoding: set by user.
- * - decoding: unused. *)
- prediction_order_method: integer;
-
- (**
- * - encoding: set by user.
- * - decoding: unused. *)
- min_partition_order: integer;
-
- (**
- * - encoding: set by user.
- * - decoding: unused. *)
- max_partition_order: integer;
- end;
-
-(**
- * AVCodec.
- *)
- TAVCodec = record
- name: pchar;
- _type: TCodecType;
- id: TCodecID;
- priv_data_size: integer;
- init: function (avctx: pAVCodecContext): integer; cdecl;
- encode: function (avctx: PAVCodecContext; buf: pchar; buf_size: integer; data: pointer): integer; cdecl;
- close: function (avctx: PAVCodecContext): integer; cdecl;
- decode: function (avctx: PAVCodecContext; outdata: pointer; outdata_size: PInteger;
- buf: pchar; buf_size: integer): integer; cdecl;
- capabilities: integer;
-// todo: check this ->
-// void *dummy; // FIXME remove next time we break binary compatibility
- next: PAVCodec;
- flush: procedure (avctx: PAVCodecContext); cdecl;
- supported_framerates: PAVRational; ///array of supported framerates, or NULL if any, array is terminated by {0,0}
- pix_fmts: PAVPixelFormat; ///array of supported pixel formats, or NULL if unknown, array is terminanted by -1
- end;
-
-(**
- * four components are given, that's all.
- * the last component is alpha
- *)
- PAVPicture = ^TAVPicture;
- TAVPicture = record
- data: array [0..3] of pchar;
- linesize: array [0..3] of integer; ///< number of bytes per line
- end;
-
-(**
- * AVPaletteControl
- * This structure defines a method for communicating palette changes
- * between and demuxer and a decoder.
- * this is totally broken, palette changes should be sent as AVPackets
- *)
- TAVPaletteControl = record
- (* demuxer sets this to 1 to indicate the palette has changed;
- * decoder resets to 0 *)
- palette_changed: integer;
-
- (* 4-byte ARGB palette entries, stored in native byte order; note that
- * the individual palette components should be on a 8-bit scale; if
- * the palette data comes from a IBM VGA native format, the component
- * data is probably 6 bits in size and needs to be scaled *)
- palette: array [0..AVPALETTE_COUNT - 1] of cardinal;
- end;
-
- PAVSubtitleRect = ^TAVSubtitleRect;
- TAVSubtitleRect = record
- x: word;
- y: word;
- w: word;
- h: word;
- nb_colors: word;
- linesize: integer;
- rgba_palette: PCardinal;
- bitmap: pchar;
- end;
-
- PAVSubtitle = ^TAVSubtitle;
- TAVSubtitle = record {20}
- format: word; (* 0 = graphics *)
- start_display_time: cardinal; (* relative to packet pts, in ms *)
- end_display_time: cardinal; (* relative to packet pts, in ms *)
- num_rects: cardinal;
- rects: PAVSubtitleRect;
- end;
-
-
-(* resample.c *)
-
- PReSampleContext = pointer;
- PAVResampleContext = pointer;
- PImgReSampleContext = pointer;
-
-function audio_resample_init (output_channels: integer; input_channels: integer;
- output_rate: integer; input_rate: integer): PReSampleContext;
- cdecl; external av__codec;
-
-function audio_resample (s: PReSampleContext; output: PWord; input: PWord; nb_samples: integer): integer;
- cdecl; external av__codec;
-
-procedure audio_resample_close (s: PReSampleContext);
- cdecl; external av__codec;
-
-
-function av_resample_init (out_rate: integer; in_rate: integer; filter_length: integer;
- log2_phase_count: integer; linear: integer; cutoff: double): PAVResampleContext;
- cdecl; external av__codec;
-
-function av_resample (c: PAVResampleContext; dst: PWord; src: PWord; consumed: PInteger;
- src_size: integer; dst_size: integer; update_ctx: integer): integer;
- cdecl; external av__codec;
-
-procedure av_resample_compensate (c: PAVResampleContext; sample_delta: integer;
- compensation_distance: integer);
- cdecl; external av__codec;
-
-procedure av_resample_close (c: PAVResampleContext);
- cdecl; external av__codec;
-
-
-(* YUV420 format is assumed ! *)
-
- function img_resample_init (output_width: integer; output_height: integer;
- input_width: integer; input_height: integer): PImgReSampleContext;
- cdecl; external av__codec;
-
- function img_resample_full_init (owidth: integer; oheight: integer;
- iwidth: integer; iheight: integer;
- topBand: integer; bottomBand: integer;
- leftBand: integer; rightBand: integer;
- padtop: integer; padbottom: integer;
- padleft: integer; padright: integer): PImgReSampleContext;
- cdecl; external av__codec;
-
- procedure img_resample (s: PImgReSampleContext; output: PAVPicture; const input: PAVPicture);
- cdecl; external av__codec;
-
- procedure img_resample_close (s: PImgReSampleContext);
- cdecl; external av__codec;
-
-(**
- * Allocate memory for a picture. Call avpicture_free to free it.
- *
- * @param picture the picture to be filled in.
- * @param pix_fmt the format of the picture.
- * @param width the width of the picture.
- * @param height the height of the picture.
- * @return 0 if successful, -1 if not.
- *)
- function avpicture_alloc (picture: PAVPicture; pix_fmt: TAVPixelFormat;
- width: integer; height: integer): integer;
- cdecl; external av__codec;
-
-
-(* Free a picture previously allocated by avpicture_alloc. *)
- procedure avpicture_free (picture: PAVPicture);
- cdecl; external av__codec;
-
- function avpicture_fill (picture: PAVPicture; ptr: pointer;
- pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
- cdecl; external av__codec;
-
- function avpicture_layout (const src: PAVPicture; pix_fmt: TAVPixelFormat;
- width: integer; height: integer;
- dest: pchar; dest_size: integer): integer;
- cdecl; external av__codec;
-
- function avpicture_get_size (pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
- cdecl; external av__codec;
-
- procedure avcodec_get_chroma_sub_sample (pix_fmt: TAVPixelFormat; h_shift: Pinteger; v_shift: pinteger);
- cdecl; external av__codec;
-
- function avcodec_get_pix_fmt_name(pix_fmt: TAVPixelFormat): pchar;
- cdecl; external av__codec;
-
- procedure avcodec_set_dimensions(s: PAVCodecContext; width: integer; height: integer);
- cdecl; external av__codec;
-
- function avcodec_get_pix_fmt(const name: pchar): TAVPixelFormat;
- cdecl; external av__codec;
-
- function avcodec_pix_fmt_to_codec_tag(p: TAVPixelFormat): cardinal;
- cdecl; external av__codec;
-
- function avcodec_get_pix_fmt_loss (dst_pix_fmt: TAVPixelFormat; src_pix_fmt: TAVPixelFormat;
- has_alpha: integer): integer;
- cdecl; external av__codec;
-
- function avcodec_find_best_pix_fmt (pix_fmt_mask: integer; src_pix_fmt: TAVPixelFormat;
- has_alpha: integer; loss_ptr: pinteger): integer;
- cdecl; external av__codec;
-
- function img_get_alpha_info (const src: PAVPicture;
- pix_fmt: TAVPixelFormat;
- width: integer; height: integer): integer;
- cdecl; external av__codec;
-
-
-(* convert among pixel formats *)
- function img_convert (dst: PAVPicture; dst_pix_fmt: TAVPixelFormat;
- const src: PAVPicture; pix_fmt: TAVPixelFormat;
- width: integer; height: integer): integer;
- cdecl; external av__codec;
-
-(* deinterlace a picture *)
- function avpicture_deinterlace (dst: PAVPicture; const src: PAVPicture;
- pix_fmt: TAVPixelFormat; width: integer; height: integer): integer;
- cdecl; external av__codec;
-
-(* returns LIBAVCODEC_VERSION_INT constant *)
- function avcodec_version (): cardinal;
- cdecl; external av__codec;
-
-(* returns LIBAVCODEC_BUILD constant *)
- function avcodec_build (): cardinal;
- cdecl; external av__codec;
-
- procedure avcodec_init ();
- cdecl; external av__codec;
-
- procedure register_avcodec (format: PAVCodec);
- cdecl; external av__codec;
-
- function avcodec_find_encoder (id: TCodecID): PAVCodec;
- cdecl; external av__codec;
- function avcodec_find_encoder_by_name (name: pchar): PAVCodec;
- cdecl; external av__codec;
- function avcodec_find_decoder(id: TCodecID): PAVCodec;
- cdecl; external av__codec;
- function avcodec_find_decoder_by_name (name: pchar): PAVCodec;
- cdecl; external av__codec;
- procedure avcodec_string(buf: pchar; buf_size: integer; enc: PAVCodecContext; encode: integer);
- cdecl; external av__codec;
-
- procedure avcodec_get_context_defaults (s: PAVCodecContext);
- cdecl; external av__codec;
- function avcodec_alloc_context (): PAVCodecContext;
- cdecl; external av__codec;
- procedure avcodec_get_frame_defaults (pic: PAVFrame);
- cdecl; external av__codec;
- function avcodec_alloc_frame (): PAVFrame;
- cdecl; external av__codec;
-
- function avcodec_default_get_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
- cdecl; external av__codec;
- procedure avcodec_default_release_buffer (s: PAVCodecContext; pic: PAVFrame);
- cdecl; external av__codec;
- function avcodec_default_reget_buffer (s: PAVCodecContext; pic: PAVFrame): integer;
- cdecl; external av__codec;
- procedure avcodec_align_dimensions(s: PAVCodecContext; width: Pinteger; height: PInteger);
- cdecl; external av__codec;
- function avcodec_check_dimensions (av_log_ctx: pointer; w: cardinal; h: cardinal): integer;
- cdecl; external av__codec;
- function avcodec_default_get_format(s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat;
- cdecl; external av__codec;
-
- function avcodec_thread_init (s: PAVCodecContext; thread_count: integer): integer;
- cdecl; external av__codec;
- procedure avcodec_thread_free (s: PAVCodecContext);
- cdecl; external av__codec;
- function avcodec_thread_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
- cdecl; external av__codec;
- function avcodec_default_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer;
- cdecl; external av__codec;
-
-
-//FIXME func typedef
-
-(**
- * opens / inits the AVCodecContext.
- * not thread save!
- *)
- function avcodec_open (avctx: PAVCodecContext; codec: PAVCodec): integer;
- cdecl; external av__codec;
-
-
-(**
- * Decode an audio frame.
- *
- * @param avctx the codec context.
- * @param samples output buffer, 16 byte aligned
- * @param frame_size_ptr the output buffer size in bytes, zero if no frame could be compressed
- * @param buf input buffer, 16 byte aligned
- * @param buf_size the input buffer size
- * @return 0 if successful, -1 if not.
- *)
-
- function avcodec_decode_audio (avctx: PAVCodecContext; samples: Pword;
- frame_size_ptr: pinteger;
- buf: pchar; buf_size: integer): integer;
- cdecl; external av__codec;
-(* decode a frame.
- * @param buf bitstream buffer, must be FF_INPUT_BUFFER_PADDING_SIZE larger then the actual read bytes
- * because some optimized bitstream readers read 32 or 64 bit at once and could read over the end
- * @param buf_size the size of the buffer in bytes
- * @param got_picture_ptr zero if no frame could be decompressed, Otherwise, it is non zero
- * @return -1 if error, otherwise return the number of
- * bytes used. *)
- function avcodec_decode_video (avctx: PAVCodecContext; picture: PAVFrame;
- got_picture_ptr: pinteger;
- buf: PByte; buf_size: integer): integer;
- cdecl; external av__codec;
-
- function avcodec_decode_subtitle (avctx: PAVCodecContext; sub: PAVSubtitle;
- got_sub_ptr: pinteger;
- const buf: pchar; buf_size: integer): integer;
- cdecl; external av__codec;
-
- {$IFNDEF FPC}
- function avcodec_parse_frame (avctx: PAVCodecContext; pdata: PPointer;
- data_size_ptr: pinteger;
- buf: pchar; buf_size: integer): integer;
- cdecl; external av__codec;
- {$ENDIF}
- function avcodec_encode_audio (avctx: PAVCodecContext; buf: PByte;
- buf_size: integer; const samples: Pword): integer;
- cdecl; external av__codec;
-
- (* avcodec_encode_video: -1 if error *)
- function avcodec_encode_video (avctx: PAVCodecContext; buf: pointer;
- buf_size: integer; pict: PAVFrame): integer;
- cdecl; external av__codec;
- function avcodec_encode_subtitle (avctx: PAVCodecContext; buf: pchar;
- buf_size: integer; const sub: PAVSubtitle): integer;
- cdecl; external av__codec;
- function avcodec_close (avctx: PAVCodecContext): integer;
- cdecl; external av__codec;
-
- procedure avcodec_register_all ();
- cdecl; external av__codec;
-
- procedure avcodec_flush_buffers (avctx: PAVCodecContext);
- cdecl; external av__codec;
- procedure avcodec_default_free_buffers (s: PAVCodecContext);
- cdecl; external av__codec;
-
-(* misc usefull functions *)
-
-(**
- * returns a single letter to describe the picture type
- *)
- function av_get_pict_type_char (pict_type: integer): char;
- cdecl; external av__codec;
-
-
-(**
- * returns codec bits per sample
- *)
-function av_get_bits_per_sample (codec_id: TCodecID): integer;
- cdecl; external av__codec;
-
-const
- AV_PARSER_PTS_NB = 4;
- PARSER_FLAG_COMPLETE_FRAMES = $0001;
-
-type
- PAVCodecParserContext = ^TAVCodecParserContext;
- PAVCodecParser = ^TAVCodecParser;
-
- TAVCodecParserContext = record
- priv_data: pointer;
- parser: PAVCodecParser;
- frame_offset: int64; (* offset of the current frame *)
- cur_offset: int64; (* current offset (incremented by each av_parser_parse()) *)
- last_frame_offset: int64; (* offset of the last frame *)
- (* video info *)
- pict_type: integer; (* XXX: put it back in AVCodecContext *)
- repeat_pict: integer; (* XXX: put it back in AVCodecContext *)
- pts: int64; (* pts of the current frame *)
- dts: int64; (* dts of the current frame *)
-
- (* private data *)
- last_pts: int64;
- last_dts: int64;
- fetch_timestamp: integer;
-
- cur_frame_start_index: integer;
- cur_frame_offset: array [0..AV_PARSER_PTS_NB - 1] of int64;
- cur_frame_pts: array [0..AV_PARSER_PTS_NB - 1] of int64;
- cur_frame_dts: array [0..AV_PARSER_PTS_NB - 1] of int64;
-
- flags: integer;
- end;
-
- TAVCodecParser = record
- codec_ids: array [0..4] of integer; (* several codec IDs are permitted *)
- priv_data_size: integer;
- parser_init: function (s: PAVCodecParserContext): integer; cdecl;
- parser_parse: function (s: PAVCodecParserContext; avctx: PAVCodecContext;
- poutbuf: PPointer; poutbuf_size: PInteger;
- const buf: pchar; buf_size: integer): integer; cdecl;
- parser_close: procedure (s: PAVCodecParserContext); cdecl;
- split: function (avctx: PAVCodecContext; const buf: pchar;
- buf_size: integer): integer; cdecl;
- next: PAVCodecParser;
- end;
-
- procedure av_register_codec_parser (parser: PAVCodecParser); cdecl;
- cdecl; external av__codec;
-
- function av_parser_init (codec_id: integer): PAVCodecParserContext;
- cdecl; external av__codec;
-
- function av_parser_parse (s: PAVCodecParserContext;
- avctx: PAVCodecContext;
- poutbuf: PPointer; poutbuf_size: pinteger;
- const buf: pchar; buf_size: integer;
- pts: int64; dts: int64): integer;
- cdecl; external av__codec;
- function av_parser_change (s: PAVCodecParserContext;
- avctx: PAVCodecContext;
- poutbuf: PPointer; poutbuf_size: PInteger;
- const buf: pchar; buf_size: integer; keyframe: integer): integer;
- cdecl; external av__codec;
- procedure av_parser_close (s: PAVCodecParserContext);
- cdecl; external av__codec;
-
-type
- PAVBitStreamFilterContext = ^TAVBitStreamFilterContext;
- PAVBitStreamFilter = ^TAVBitStreamFilter;
-
- TAVBitStreamFilterContext = record
- priv_data: pointer;
- filter: PAVBitStreamFilter;
- parser: PAVCodecParserContext;
- next: PAVBitStreamFilterContext;
- end;
-
- TAVBitStreamFilter = record
- name: pchar;
- priv_data_size: integer;
- filter: function (bsfc: PAVBitStreamFilterContext;
- avctx: PAVCodecContext; args: pchar;
- poutbuf: PPointer; poutbuf_size: PInteger;
- buf: PByte; buf_size: integer; keyframe: integer): integer; cdecl;
- next: PAVBitStreamFilter;
- end;
-
-procedure av_register_bitstream_filter (bsf: PAVBitStreamFilter);
- cdecl; external av__codec;
-
-function av_bitstream_filter_init (name: pchar): PAVBitStreamFilterContext;
- cdecl; external av__codec;
-
-function av_bitstream_filter_filter (bsfc: PAVBitStreamFilterContext;
- avctx: PAVCodecContext; args: pchar;
- poutbuf: PPointer; poutbuf_size: PInteger;
- buf: PByte; buf_size: integer; keyframe: integer): integer;
- cdecl; external av__codec;
-procedure av_bitstream_filter_close (bsf: PAVBitStreamFilterContext);
- cdecl; external av__codec;
-
-
-(* memory *)
- procedure av_fast_realloc (ptr: pointer; size: PCardinal; min_size: Cardinal);
- cdecl; external av__codec;
-(* for static data only *)
-(* call av_free_static to release all staticaly allocated tables *)
- procedure av_free_static ();
- cdecl; external av__codec;
-
- procedure av_mallocz_static(size: cardinal);
- cdecl; external av__codec;
-
- procedure av_realloc_static(ptr: pointer; size: Cardinal);
- cdecl; external av__codec;
-
- procedure img_copy (dst: PAVPicture; const src: PAVPicture;
- pix_fmt: TAVPixelFormat; width: integer; height: integer);
- cdecl; external av__codec;
-
- function img_crop (dst: PAVPicture; const src: PAVPicture;
- pix_fmt: TAVPixelFormat; top_band, left_band: integer): integer;
- cdecl; external av__codec;
-
- function img_pad (dst: PAVPicture; const src: PAVPicture; height, width: integer;
- pix_fmt: TAVPixelFormat; padtop, padbottom, padleft, padright: integer;
- color: PInteger): integer;
- cdecl; external av__codec;
-
-implementation
-
-end.
+ (* + * copyright (c) 2001 Fabrice Bellard + * + * This library is free software; you can redistribute it and/or + * modify it under the terms of the GNU Lesser General Public + * License as published by the Free Software Foundation; either + * version 2 of the License, or (at your option) any later version. + * + * This library is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + * Lesser General Public License for more details. + * + * You should have received a copy of the GNU Lesser General Public + * License along with this library; if not, write to the Free Software + * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA + *) +unit avcodec; + +interface + +uses + {$IFDEF win32} + windows, + {$ENDIF} + avutil, + rational, + opt; + +const + {$IFDEF win32} + av__format = 'avformat-50.dll'; + {$ELSE} + av__format = 'libavformat.so'; // .0d + {$ENDIF} + + + LIBAVUTIL_VERSION_INT = ((51 shl 16) + (16 shl 8) + 0); + LIBAVUTIL_VERSION = '51.16.0'; + LIBAVUTIL_BUILD = LIBAVUTIL_VERSION_INT; + + AV_NOPTS_VALUE: int64 = $8000000000000000; + AV_TIME_BASE = 1000000; + +type + TCodecID = ( + CODEC_ID_NONE, CODEC_ID_MPEG1VIDEO, + CODEC_ID_MPEG2VIDEO, //* prefered ID for MPEG Video 1 or 2 decoding */ + CODEC_ID_MPEG2VIDEO_XVMC, CODEC_ID_H261, CODEC_ID_H263, CODEC_ID_RV10, + CODEC_ID_RV20, CODEC_ID_MJPEG, CODEC_ID_MJPEGB, CODEC_ID_LJPEG, + CODEC_ID_SP5X, CODEC_ID_JPEGLS, CODEC_ID_MPEG4, CODEC_ID_RAWVIDEO, + CODEC_ID_MSMPEG4V1, CODEC_ID_MSMPEG4V2, CODEC_ID_MSMPEG4V3, + CODEC_ID_WMV1, CODEC_ID_WMV2, CODEC_ID_H263P, + CODEC_ID_H263I, CODEC_ID_FLV1, CODEC_ID_SVQ1, CODEC_ID_SVQ3, + CODEC_ID_DVVIDEO, CODEC_ID_HUFFYUV, CODEC_ID_CYUV, CODEC_ID_H264, + CODEC_ID_INDEO3, CODEC_ID_VP3, CODEC_ID_THEORA, CODEC_ID_ASV1, + CODEC_ID_ASV2, CODEC_ID_FFV1, CODEC_ID_4XM, CODEC_ID_VCR1, + CODEC_ID_CLJR, CODEC_ID_MDEC, CODEC_ID_ROQ, CODEC_ID_INTERPLAY_VIDEO, + CODEC_ID_XAN_WC3, CODEC_ID_XAN_WC4, CODEC_ID_RPZA, CODEC_ID_CINEPAK, + CODEC_ID_WS_VQA, CODEC_ID_MSRLE, CODEC_ID_MSVIDEO1, CODEC_ID_IDCIN, + CODEC_ID_8BPS, CODEC_ID_SMC, CODEC_ID_FLIC, CODEC_ID_TRUEMOTION1, + CODEC_ID_VMDVIDEO, CODEC_ID_MSZH, CODEC_ID_ZLIB, CODEC_ID_QTRLE, + CODEC_ID_SNOW, CODEC_ID_TSCC, CODEC_ID_ULTI, CODEC_ID_QDRAW, + CODEC_ID_VIXL, CODEC_ID_QPEG, CODEC_ID_XVID, CODEC_ID_PNG, + CODEC_ID_PPM, CODEC_ID_PBM, CODEC_ID_PGM, CODEC_ID_PGMYUV, + CODEC_ID_PAM, CODEC_ID_FFVHUFF, CODEC_ID_RV30, CODEC_ID_RV40, + CODEC_ID_VC1, CODEC_ID_WMV3, CODEC_ID_LOCO, CODEC_ID_WNV1, + CODEC_ID_AASC, CODEC_ID_INDEO2, CODEC_ID_FRAPS, CODEC_ID_TRUEMOTION2, + CODEC_ID_BMP, CODEC_ID_CSCD, CODEC_ID_MMVIDEO, CODEC_ID_ZMBV, + CODEC_ID_AVS, CODEC_ID_SMACKVIDEO, CODEC_ID_NUV, CODEC_ID_KMVC, + CODEC_ID_FLASHSV, CODEC_ID_CAVS, CODEC_ID_JPEG2000, CODEC_ID_VMNC, + CODEC_ID_VP5, CODEC_ID_VP6, CODEC_ID_VP6F, + + //* various pcm "codecs" */ + CODEC_ID_PCM_S16LE= $10000, CODEC_ID_PCM_S16BE, CODEC_ID_PCM_U16LE, + CODEC_ID_PCM_U16BE, CODEC_ID_PCM_S8, CODEC_ID_PCM_U8, CODEC_ID_PCM_MULAW, + CODEC_ID_PCM_ALAW, CODEC_ID_PCM_S32LE, CODEC_ID_PCM_S32BE, CODEC_ID_PCM_U32LE, + CODEC_ID_PCM_U32BE, CODEC_ID_PCM_S24LE, CODEC_ID_PCM_S24BE, CODEC_ID_PCM_U24LE, + CODEC_ID_PCM_U24BE, CODEC_ID_PCM_S24DAUD, + //* various adpcm codecs */ + CODEC_ID_ADPCM_IMA_QT= $11000, CODEC_ID_ADPCM_IMA_WAV, CODEC_ID_ADPCM_IMA_DK3, + CODEC_ID_ADPCM_IMA_DK4, CODEC_ID_ADPCM_IMA_WS, CODEC_ID_ADPCM_IMA_SMJPEG, + CODEC_ID_ADPCM_MS, CODEC_ID_ADPCM_4XM, CODEC_ID_ADPCM_XA, CODEC_ID_ADPCM_ADX, + CODEC_ID_ADPCM_EA, CODEC_ID_ADPCM_G726, CODEC_ID_ADPCM_CT, CODEC_ID_ADPCM_SWF, + CODEC_ID_ADPCM_YAMAHA, CODEC_ID_ADPCM_SBPRO_4, CODEC_ID_ADPCM_SBPRO_3, + CODEC_ID_ADPCM_SBPRO_2, + //* AMR */ + CODEC_ID_AMR_NB= $12000, CODEC_ID_AMR_WB, + //* RealAudio codecs*/ + CODEC_ID_RA_144= $13000, CODEC_ID_RA_288, + //* various DPCM codecs */ + CODEC_ID_ROQ_DPCM= $14000, CODEC_ID_INTERPLAY_DPCM, CODEC_ID_XAN_DPCM, + CODEC_ID_SOL_DPCM, CODEC_ID_MP2= $15000, + CODEC_ID_MP3, //* prefered ID for MPEG Audio layer 1, 2 or3 decoding */ + CODEC_ID_AAC, CODEC_ID_MPEG4AAC, CODEC_ID_AC3, CODEC_ID_DTS, CODEC_ID_VORBIS, + CODEC_ID_DVAUDIO, CODEC_ID_WMAV1, CODEC_ID_WMAV2, CODEC_ID_MACE3, + CODEC_ID_MACE6, CODEC_ID_VMDAUDIO, CODEC_ID_SONIC, CODEC_ID_SONIC_LS, + CODEC_ID_FLAC, CODEC_ID_MP3ADU, CODEC_ID_MP3ON4, CODEC_ID_SHORTEN, + CODEC_ID_ALAC, CODEC_ID_WESTWOOD_SND1, CODEC_ID_GSM, CODEC_ID_QDM2, + CODEC_ID_COOK, CODEC_ID_TRUESPEECH, CODEC_ID_TTA, CODEC_ID_SMACKAUDIO, + CODEC_ID_QCELP, CODEC_ID_WAVPACK, + //* subtitle codecs */ + CODEC_ID_DVD_SUBTITLE= $17000, CODEC_ID_DVB_SUBTITLE, + + CODEC_ID_MPEG2TS= $20000 //* _FAKE_ codec to indicate a raw MPEG2 transport + // stream (only used by libavformat) */ + ); + +//* CODEC_ID_MP3LAME is absolete */ +const + CODEC_ID_MP3LAME = CODEC_ID_MP3; + + AVPALETTE_SIZE = 1024; + AVPALETTE_COUNT = 256; + +type + TCodecType = ( + CODEC_TYPE_UNKNOWN = -1, + CODEC_TYPE_VIDEO, + CODEC_TYPE_AUDIO, + CODEC_TYPE_DATA, + CODEC_TYPE_SUBTITLE + ); + +//* currently unused, may be used if 24/32 bits samples ever supported */ +//* all in native endian */ + TSampleFormat = ( + SAMPLE_FMT_NONE = -1, + SAMPLE_FMT_U8, ///< unsigned 8 bits + SAMPLE_FMT_S16, ///< signed 16 bits + SAMPLE_FMT_S24, ///< signed 24 bits + SAMPLE_FMT_S32, ///< signed 32 bits + SAMPLE_FMT_FLT ///< float + ); + +const +//* in bytes */ + AVCODEC_MAX_AUDIO_FRAME_SIZE = 192000; // 1 second of 48khz 32bit audio + +(** + * Required number of additionally allocated bytes at the end of the input bitstream for decoding. + * this is mainly needed because some optimized bitstream readers read + * 32 or 64 bit at once and could read over the end<br> + * Note, if the first 23 bits of the additional bytes are not 0 then damaged + * MPEG bitstreams could cause overread and segfault + *) + FF_INPUT_BUFFER_PADDING_SIZE = 8; + +(** + * minimum encoding buffer size. + * used to avoid some checks during header writing + *) + FF_MIN_BUFFER_SIZE = 16384; + +type +//* motion estimation type, EPZS by default */ + TMotion_Est_ID = ( + ME_ZERO = 1, + ME_FULL, + ME_LOG, + ME_PHODS, + ME_EPZS, + ME_X1, + ME_HEX, + ME_UMH, + ME_ITER + ); + + TAVDiscard = ( +//we leave some space between them for extensions (drop some keyframes for intra only or drop just some bidir frames) + AVDISCARD_NONE = -16, ///< discard nothing + AVDISCARD_DEFAULT= 0, ///< discard useless packets like 0 size packets in avi + AVDISCARD_NONREF = 8, ///< discard all non reference + AVDISCARD_BIDIR = 16, ///< discard all bidirectional frames + AVDISCARD_NONKEY = 32, ///< discard all frames except keyframes + AVDISCARD_ALL = 48, ///< discard all + AVDISCARD_FUCK = $FFFFFF + ); + + PRcOverride = ^TRcOverride; + TRcOverride = record {16} + start_frame: integer; + end_frame: integer; + qscale: integer; // if this is 0 then quality_factor will be used instead + quality_factor: single; + end; + +const + FF_MAX_B_FRAMES = 16; + +(* encoding support + these flags can be passed in AVCodecContext.flags before initing + Note: not everything is supported yet. +*) + + CODEC_FLAG_QSCALE = $0002; ///< use fixed qscale + CODEC_FLAG_4MV = $0004; ///< 4 MV per MB allowed / Advanced prediction for H263 + CODEC_FLAG_QPEL = $0010; ///< use qpel MC + CODEC_FLAG_GMC = $0020; ///< use GMC + CODEC_FLAG_MV0 = $0040; ///< always try a MB with MV=<0,0> + CODEC_FLAG_PART = $0080; ///< use data partitioning +//* parent program gurantees that the input for b-frame containing streams is not written to +// for at least s->max_b_frames+1 frames, if this is not set than the input will be copied */ + CODEC_FLAG_INPUT_PRESERVED = $0100; + CODEC_FLAG_PASS1 = $0200; ///< use internal 2pass ratecontrol in first pass mode + CODEC_FLAG_PASS2 = $0400; ///< use internal 2pass ratecontrol in second pass mode + CODEC_FLAG_EXTERN_HUFF = $1000; ///< use external huffman table (for mjpeg) + CODEC_FLAG_GRAY = $2000; ///< only decode/encode grayscale + CODEC_FLAG_EMU_EDGE = $4000; ///< don't draw edges + CODEC_FLAG_PSNR = $8000; ///< error[?] variables will be set during encoding + CODEC_FLAG_TRUNCATED = $00010000; //** input bitstream might be truncated at a random location instead + // of only at frame boundaries */ + CODEC_FLAG_NORMALIZE_AQP = $00020000; ///< normalize adaptive quantization + CODEC_FLAG_INTERLACED_DCT = $00040000; ///< use interlaced dct + CODEC_FLAG_LOW_DELAY = $00080000; ///< force low delay + CODEC_FLAG_ALT_SCAN = $00100000; ///< use alternate scan + CODEC_FLAG_TRELLIS_QUANT = $00200000; ///< use trellis quantization + CODEC_FLAG_GLOBAL_HEADER = $00400000; ///< place global headers in extradata instead of every keyframe + CODEC_FLAG_BITEXACT = $00800000; ///< use only bitexact stuff (except (i)dct) +//* Fx : Flag for h263+ extra options */ + CODEC_FLAG_H263P_AIC = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction (remove this) + CODEC_FLAG_AC_PRED = $01000000; ///< H263 Advanced intra coding / MPEG4 AC prediction + CODEC_FLAG_H263P_UMV = $02000000; ///< Unlimited motion vector + CODEC_FLAG_CBP_RD = $04000000; ///< use rate distortion optimization for cbp + CODEC_FLAG_QP_RD = $08000000; ///< use rate distortion optimization for qp selectioon + CODEC_FLAG_H263P_AIV = $00000008; ///< H263 Alternative inter vlc + CODEC_FLAG_OBMC = $00000001; ///< OBMC + CODEC_FLAG_LOOP_FILTER = $00000800; ///< loop filter + CODEC_FLAG_H263P_SLICE_STRUCT = $10000000; + CODEC_FLAG_INTERLACED_ME = $20000000; ///< interlaced motion estimation + CODEC_FLAG_SVCD_SCAN_OFFSET = $40000000; ///< will reserve space for SVCD scan offset user data + CODEC_FLAG_CLOSED_GOP = $80000000; + CODEC_FLAG2_FAST = $00000001; ///< allow non spec compliant speedup tricks + CODEC_FLAG2_STRICT_GOP = $00000002; ///< strictly enforce GOP size + CODEC_FLAG2_NO_OUTPUT = $00000004; ///< skip bitstream encoding + CODEC_FLAG2_LOCAL_HEADER = $00000008; ///< place global headers at every keyframe instead of in extradata + CODEC_FLAG2_BPYRAMID = $00000010; ///< H.264 allow b-frames to be used as references + CODEC_FLAG2_WPRED = $00000020; ///< H.264 weighted biprediction for b-frames + CODEC_FLAG2_MIXED_REFS = $00000040; ///< H.264 multiple references per partition + CODEC_FLAG2_8X8DCT = $00000080; ///< H.264 high profile 8x8 transform + CODEC_FLAG2_FASTPSKIP = $00000100; ///< H.264 fast pskip + CODEC_FLAG2_AUD = $00000200; ///< H.264 access unit delimiters + CODEC_FLAG2_BRDO = $00000400; ///< b-frame rate-distortion optimization + CODEC_FLAG2_INTRA_VLC = $00000800; ///< use MPEG-2 intra VLC table + CODEC_FLAG2_MEMC_ONLY = $00001000; ///< only do ME/MC (I frames -> ref, P frame -> ME+MC) + +(* Unsupported options : + * Syntax Arithmetic coding (SAC) + * Reference Picture Selection + * Independant Segment Decoding */ +/* /Fx */ +/* codec capabilities *) + +const + CODEC_CAP_DRAW_HORIZ_BAND = $001; ///< decoder can use draw_horiz_band callback +(** + * Codec uses get_buffer() for allocating buffers. + * direct rendering method 1 *) + CODEC_CAP_DR1 = $002; +(* if 'parse_only' field is true, then avcodec_parse_frame() can be used *) + CODEC_CAP_PARSE_ONLY = $004; + CODEC_CAP_TRUNCATED = $008; +//* codec can export data for HW decoding (XvMC) */ + CODEC_CAP_HWACCEL = $010; + +(** + * codec has a non zero delay and needs to be feeded with NULL at the end to get the delayed data. + * if this is not set, the codec is guranteed to never be feeded with NULL data *) + CODEC_CAP_DELAY = $0020; +(** + * Codec can be fed a final frame with a smaller size. + * This can be used to prevent truncation of the last audio samples. *) + CODEC_CAP_SMALL_LAST_FRAME = $0040; + +//the following defines may change, don't expect compatibility if you use them + MB_TYPE_INTRA4x4 = $001; + MB_TYPE_INTRA16x16 = $002; //FIXME h264 specific + MB_TYPE_INTRA_PCM = $004; //FIXME h264 specific + MB_TYPE_16x16 = $008; + MB_TYPE_16x8 = $010; + MB_TYPE_8x16 = $020; + MB_TYPE_8x8 = $040; + MB_TYPE_INTERLACED = $080; + MB_TYPE_DIRECT2 = $100; //FIXME + MB_TYPE_ACPRED = $200; + MB_TYPE_GMC = $400; + MB_TYPE_SKIP = $800; + MB_TYPE_P0L0 = $1000; + MB_TYPE_P1L0 = $2000; + MB_TYPE_P0L1 = $4000; + MB_TYPE_P1L1 = $8000; + MB_TYPE_L0 = (MB_TYPE_P0L0 or MB_TYPE_P1L0); + MB_TYPE_L1 = (MB_TYPE_P0L1 or MB_TYPE_P1L1); + MB_TYPE_L0L1 = (MB_TYPE_L0 or MB_TYPE_L1); + MB_TYPE_QUANT = $0010000; + MB_TYPE_CBP = $0020000; +//Note bits 24-31 are reserved for codec specific use (h264 ref0, mpeg1 0mv, ...) + +type +(** + * Pan Scan area. + * this specifies the area which should be displayed. Note there may be multiple such areas for one frame *) + PAVPanScan = ^TAVPanScan; + TAVPanScan = record {24} + (*** id. + * - encoding: set by user. + * - decoding: set by lavc *) + id: integer; + + (*** width and height in 1/16 pel + * - encoding: set by user. + * - decoding: set by lavc *) + width: integer; + height: integer; + + (*** position of the top left corner in 1/16 pel for up to 3 fields/frames. + * - encoding: set by user. + * - decoding: set by lavc *) + position: array [0..2] of array [0..1] of smallint; + end; + +const + FF_QSCALE_TYPE_MPEG1 = 0; + FF_QSCALE_TYPE_MPEG2 = 1; + + FF_BUFFER_TYPE_INTERNAL = 1; + FF_BUFFER_TYPE_USER = 2; ///< Direct rendering buffers (image is (de)allocated by user) + FF_BUFFER_TYPE_SHARED = 4; ///< buffer from somewhere else, don't dealloc image (data/base), all other tables are not shared + FF_BUFFER_TYPE_COPY = 8; ///< just a (modified) copy of some other buffer, don't dealloc anything + + + FF_I_TYPE = 1; // Intra + FF_P_TYPE = 2; // Predicted + FF_B_TYPE = 3; // Bi-dir predicted + FF_S_TYPE = 4; // S(GMC)-VOP MPEG4 + FF_SI_TYPE = 5; + FF_SP_TYPE = 6; + + FF_BUFFER_HINTS_VALID = $01; // Buffer hints value is meaningful (if 0 ignore) + FF_BUFFER_HINTS_READABLE = $02; // Codec will read from buffer + FF_BUFFER_HINTS_PRESERVE = $04; // User must not alter buffer content + FF_BUFFER_HINTS_REUSABLE = $08; // Codec will reuse the buffer (update) + +type + (*** Audio Video Frame. *) + PAVFrame = ^TAVFrame; + TAVFrame = record {200} + (*** pointer to the picture planes. + * this might be different from the first allocated byte *) + data: array [0..3] of pointer; + linesize: array [0..3] of integer; + (*** pointer to the first allocated byte of the picture. can be used in get_buffer/release_buffer + * this isn't used by lavc unless the default get/release_buffer() is used*) + base: array [0..3] of pchar; + (*** 1 -> keyframe, 0-> not *) + key_frame: integer; + (*** picture type of the frame, see ?_TYPE below.*) + pict_type: integer; + (*** presentation timestamp in time_base units (time when frame should be shown to user) + * if AV_NOPTS_VALUE then frame_rate = 1/time_base will be assumed*) + pts: int64; + (*** picture number in bitstream order.*) + coded_picture_number: integer; + (*** picture number in display order.*) + display_picture_number: integer; + (*** quality (between 1 (good) and FF_LAMBDA_MAX (bad)) *) + quality: integer; + (*** buffer age (1->was last buffer and dint change, 2->..., ...).*) + age: integer; + (*** is this picture used as reference*) + reference: integer; + (*** QP table*) + qscale_table: pchar; + (*** QP store stride*) + qstride: integer; + (*** mbskip_table[mb]>=1 if MB didnt change*) + mbskip_table: pchar; + (** + * Motion vector table. + * @code + * example: + * int mv_sample_log2= 4 - motion_subsample_log2; + * int mb_width= (width+15)>>4; + * int mv_stride= (mb_width << mv_sample_log2) + 1; + * motion_val[direction][x + y*mv_stride][0->mv_x, 1->mv_y]; + * @endcode + * - encoding: set by user + * - decoding: set by lavc *) + motion_val: array [0..1] of pointer; + (*** Macroblock type table + * mb_type_base + mb_width + 2 *) + mb_type: PCardinal; + (*** log2 of the size of the block which a single vector in motion_val represents: + * (4->16x16, 3->8x8, 2-> 4x4, 1-> 2x2)*) + motion_subsample_log2: byte; + (*** for some private data of the user*) + opaque: pointer; + (*** error*) + error: array [0..3] of int64; + (*** type of the buffer (to keep track of who has to dealloc data[*]) + * Note: user allocated (direct rendering) & internal buffers can not coexist currently*) + _type: integer; + (*** when decoding, this signal how much the picture must be delayed. + * extra_delay = repeat_pict / (2*fps)*) + repeat_pict: integer; + qscale_type: Integer; + (*** The content of the picture is interlaced.*) + interlaced_frame: Integer; + (*** if the content is interlaced, is top field displayed first.*) + top_field_first: integer; + (*** Pan scan.*) + pan_scan: PAVPanScan; + (*** tell user application that palette has changed from previous frame.*) + palette_has_changed: integer; + (*** Codec suggestion on buffer type if != 0 + * - decoding: set by lavc (before get_buffer() call))*) + buffer_hints: integer; + (*** DCT coeffitients*) + dct_coeff: PSmallInt; + (*** Motion referece frame index*) + ref_index: array [0..1] of pchar; + end; + +const + DEFAULT_FRAME_RATE_BASE = 1001000; + + FF_BUG_AUTODETECT = 1; ///< autodetection + FF_BUG_OLD_MSMPEG4 = 2; + FF_BUG_XVID_ILACE = 4; + FF_BUG_UMP4 = 8; + FF_BUG_NO_PADDING = 16; + FF_BUG_AMV = 32; + FF_BUG_AC_VLC = 0; ///< will be removed, libavcodec can now handle these non compliant files by default + FF_BUG_QPEL_CHROMA = 64; + FF_BUG_STD_QPEL = 128; + FF_BUG_QPEL_CHROMA2 = 256; + FF_BUG_DIRECT_BLOCKSIZE = 512; + FF_BUG_EDGE = 1024; + FF_BUG_HPEL_CHROMA = 2048; + FF_BUG_DC_CLIP = 4096; + FF_BUG_MS = 8192; ///< workaround various bugs in microsofts broken decoders + + FF_COMPLIANCE_VERY_STRICT = 2; ///< strictly conform to a older more strict version of the spec or reference software + FF_COMPLIANCE_STRICT = 1; ///< strictly conform to all the things in the spec no matter what consequences + FF_COMPLIANCE_NORMAL = 0; + FF_COMPLIANCE_INOFFICIAL = -1; ///< allow inofficial extensions + FF_COMPLIANCE_EXPERIMENTAL = -2; ///< allow non standarized experimental things + + FF_ER_CAREFUL = 1; + FF_ER_COMPLIANT = 2; + FF_ER_AGGRESSIVE = 3; + FF_ER_VERY_AGGRESSIVE = 4; + + FF_DCT_AUTO = 0; + FF_DCT_FASTINT = 1; + FF_DCT_INT = 2; + FF_DCT_MMX = 3; + FF_DCT_MLIB = 4; + FF_DCT_ALTIVEC = 5; + FF_DCT_FAAN = 6; + + FF_IDCT_AUTO = 0; + FF_IDCT_INT = 1; + FF_IDCT_SIMPLE = 2; + FF_IDCT_SIMPLEMMX = 3; + FF_IDCT_LIBMPEG2MMX = 4; + FF_IDCT_PS2 = 5; + FF_IDCT_MLIB = 6; + FF_IDCT_ARM = 7; + FF_IDCT_ALTIVEC = 8; + FF_IDCT_SH4 = 9; + FF_IDCT_SIMPLEARM = 10; + FF_IDCT_H264 = 11; + FF_IDCT_VP3 = 12; + FF_IDCT_IPP = 13; + FF_IDCT_XVIDMMX = 14; + + FF_EC_GUESS_MVS = 1; + FF_EC_DEBLOCK = 2; + + FF_MM_FORCE = $80000000; (* force usage of selected flags (OR) *) + (* lower 16 bits - CPU features *) + + FF_MM_MMX = $0001; (* standard MMX *) + FF_MM_3DNOW = $0004; (* AMD 3DNOW *) + FF_MM_MMXEXT = $0002; (* SSE integer functions or AMD MMX ext *) + FF_MM_SSE = $0008; (* SSE functions *) + FF_MM_SSE2 = $0010; (* PIV SSE2 functions *) + FF_MM_3DNOWEXT = $0020; (* AMD 3DNowExt *) + FF_MM_IWMMXT = $0100; (* XScale IWMMXT *) + + FF_PRED_LEFT = 0; + FF_PRED_PLANE = 1; + FF_PRED_MEDIAN = 2; + + FF_DEBUG_PICT_INFO = 1; + FF_DEBUG_RC = 2; + FF_DEBUG_BITSTREAM = 4; + FF_DEBUG_MB_TYPE = 8; + FF_DEBUG_QP = 16; + FF_DEBUG_MV = 32; + FF_DEBUG_DCT_COEFF = $00000040; + FF_DEBUG_SKIP = $00000080; + FF_DEBUG_STARTCODE = $00000100; + FF_DEBUG_PTS = $00000200; + FF_DEBUG_ER = $00000400; + FF_DEBUG_MMCO = $00000800; + FF_DEBUG_BUGS = $00001000; + FF_DEBUG_VIS_QP = $00002000; + FF_DEBUG_VIS_MB_TYPE = $00004000; + + FF_DEBUG_VIS_MV_P_FOR = $00000001; //visualize forward predicted MVs of P frames + FF_DEBUG_VIS_MV_B_FOR = $00000002; //visualize forward predicted MVs of B frames + FF_DEBUG_VIS_MV_B_BACK = $00000004; //visualize backward predicted MVs of B frames + + FF_CMP_SAD = 0; + FF_CMP_SSE = 1; + FF_CMP_SATD = 2; + FF_CMP_DCT = 3; + FF_CMP_PSNR = 4; + FF_CMP_BIT = 5; + FF_CMP_RD = 6; + FF_CMP_ZERO = 7; + FF_CMP_VSAD = 8; + FF_CMP_VSSE = 9; + FF_CMP_NSSE = 10; + FF_CMP_W53 = 11; + FF_CMP_W97 = 12; + FF_CMP_DCTMAX = 13; + FF_CMP_CHROMA = 256; + + FF_DTG_AFD_SAME = 8; + FF_DTG_AFD_4_3 = 9; + FF_DTG_AFD_16_9 = 10; + FF_DTG_AFD_14_9 = 11; + FF_DTG_AFD_4_3_SP_14_9 = 13; + FF_DTG_AFD_16_9_SP_14_9 = 14; + FF_DTG_AFD_SP_4_3 = 15; + + FF_DEFAULT_QUANT_BIAS = 999999; + + FF_LAMBDA_SHIFT = 7; + FF_LAMBDA_SCALE = (1 shl FF_LAMBDA_SHIFT); + FF_QP2LAMBDA = 118; ///< factor to convert from H.263 QP to lambda + FF_LAMBDA_MAX = (256 * 128 - 1); + + FF_QUALITY_SCALE = FF_LAMBDA_SCALE; //FIXME maybe remove + + FF_CODER_TYPE_VLC = 0; + FF_CODER_TYPE_AC = 1; + + SLICE_FLAG_CODED_ORDER = $0001; ///< draw_horiz_band() is called in coded order instead of display + SLICE_FLAG_ALLOW_FIELD = $0002; ///< allow draw_horiz_band() with field slices (MPEG2 field pics) + SLICE_FLAG_ALLOW_PLANE = $0004; ///< allow draw_horiz_band() with 1 component at a time (SVQ1) + + FF_MB_DECISION_SIMPLE = 0; ///< uses mb_cmp + FF_MB_DECISION_BITS = 1; ///< chooses the one which needs the fewest bits + FF_MB_DECISION_RD = 2; ///< rate distoration + + FF_AA_AUTO = 0; + FF_AA_FASTINT = 1; //not implemented yet + FF_AA_INT = 2; + FF_AA_FLOAT = 3; + + FF_PROFILE_UNKNOWN = -99; + + FF_LEVEL_UNKNOWN = -99; + + X264_PART_I4X4 = $001; (* Analyse i4x4 *) + X264_PART_I8X8 = $002; (* Analyse i8x8 (requires 8x8 transform) *) + X264_PART_P8X8 = $010; (* Analyse p16x8, p8x16 and p8x8 *) + X264_PART_P4X4 = $020; (* Analyse p8x4, p4x8, p4x4 *) + X264_PART_B8X8 = $100; (* Analyse b16x8, b8x16 and b8x8 *) + +type + PAVCLASS = ^TAVCLASS; + PAVCodecContext = ^TAVCodecContext; + PAVCodec = ^TAVCodec; + PAVPaletteControl = ^TAVPaletteControl; + + TAVCLASS = record {12} + class_name: pchar; + (* actually passing a pointer to an AVCodecContext + or AVFormatContext, which begin with an AVClass. + Needed because av_log is in libavcodec and has no visibility + of AVIn/OutputFormat *) + item_name: function (): pchar; cdecl; + option: PAVOption; + end; + + TAVCodecContext = record {720} + (*** Info on struct for av_log + * - set by avcodec_alloc_context *) + av_class: PAVClass; + (*** the average bitrate. + * - encoding: set by user. unused for constant quantizer encoding + * - decoding: set by lavc. 0 or some bitrate if this info is available in the stream *) + bit_rate: integer; + (*** number of bits the bitstream is allowed to diverge from the reference. + * the reference can be CBR (for CBR pass1) or VBR (for pass2) + * - encoding: set by user. unused for constant quantizer encoding + * - decoding: unused *) + bit_rate_tolerance: integer; + (*** CODEC_FLAG_*. + * - encoding: set by user. + * - decoding: set by user. *) + flags: integer; + (*** some codecs needs additionnal format info. It is stored here + * - encoding: set by user. + * - decoding: set by lavc. (FIXME is this ok?) *) + sub_id: integer; + + (** + * motion estimation algorithm used for video coding. + * 1 (zero), 2 (full), 3 (log), 4 (phods), 5 (epzs), 6 (x1), 7 (hex), + * 8 (umh), 9 (iter) [7, 8 are x264 specific, 9 is snow specific] + * - encoding: MUST be set by user. + * - decoding: unused *) + me_method: integer; + + (** + * some codecs need / can use extra-data like huffman tables. + * mjpeg: huffman tables + * rv10: additional flags + * mpeg4: global headers (they can be in the bitstream or here) + * the allocated memory should be FF_INPUT_BUFFER_PADDING_SIZE bytes larger + * then extradata_size to avoid prolems if its read with the bitstream reader + * the bytewise contents of extradata must not depend on the architecture or cpu endianness + * - encoding: set/allocated/freed by lavc. + * - decoding: set/allocated/freed by user. + *) + extradata: pointer; + extradata_size: integer; + + (** + * 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. + * - encoding: MUST be set by user + * - decoding: set by lavc. *) + time_base: TAVRational; + + (* video only *) + (*** picture width / height. + * - encoding: MUST be set by user. + * - decoding: set by lavc. + * Note, for compatibility its possible to set this instead of + * coded_width/height before decoding *) + width, height: integer; + (*** the number of pictures in a group of pitures, or 0 for intra_only. + * - encoding: set by user. + * - decoding: unused *) + gop_size: integer; + (*** pixel format, see PIX_FMT_xxx. + * - encoding: set by user. + * - decoding: set by lavc. *) + pix_fmt: TAVPixelFormat; + (*** Frame rate emulation. If not zero lower layer (i.e. format handler) + * has to read frames at native frame rate. + * - encoding: set by user. + * - decoding: unused. *) + rate_emu: integer; + (*** if non NULL, 'draw_horiz_band' is called by the libavcodec + * decoder to draw an horizontal band. It improve cache usage. Not + * all codecs can do that. You must check the codec capabilities + * before + * - encoding: unused + * - decoding: set by user. + * @param height the height of the slice + * @param y the y position of the slice + * @param type 1->top field, 2->bottom field, 3->frame + * @param offset offset into the AVFrame.data from which the slice should be read *) + draw_horiz_band: procedure (s: PAVCodecContext; + const src: PAVFrame; offset: PInteger; + y: integer; _type: integer; height: integer); cdecl; + + (* audio only *) + sample_rate: integer; ///< samples per sec + channels: integer; + (*** audio sample format. + * - encoding: set by user. + * - decoding: set by lavc. *) + sample_fmt: TSampleFormat; ///< sample format, currenly unused + + (* the following data should not be initialized *) + (*** samples per packet. initialized when calling 'init' *) + frame_size: integer; + frame_number: integer; ///< audio or video frame number + real_pict_num: integer; ///< returns the real picture number of previous encoded frame + + (*** number of frames the decoded output will be delayed relative to + * the encoded input. + * - encoding: set by lavc. + * - decoding: unused *) + delay: integer; + + (* - encoding parameters *) + qcompress: single; ///< amount of qscale change between easy & hard scenes (0.0-1.0) + qblur: single; ///< amount of qscale smoothing over time (0.0-1.0) + + (*** minimum quantizer. + * - encoding: set by user. + * - decoding: unused *) + qmin: integer; + + (*** maximum quantizer. + * - encoding: set by user. + * - decoding: unused *) + qmax: integer; + + (*** maximum quantizer difference etween frames. + * - encoding: set by user. + * - decoding: unused *) + max_qdiff: integer; + + (*** maximum number of b frames between non b frames. + * note: the output will be delayed by max_b_frames+1 relative to the input + * - encoding: set by user. + * - decoding: unused *) + max_b_frames: integer; + + (*** qscale factor between ip and b frames. + * - encoding: set by user. + * - decoding: unused *) + b_quant_factor: single; + + (** obsolete FIXME remove *) + rc_strategy: integer; + b_frame_strategy: integer; + + (*** hurry up amount. + * deprecated in favor of skip_idct and skip_frame + * - encoding: unused + * - decoding: set by user. 1-> skip b frames, 2-> skip idct/dequant too, 5-> skip everything except header *) + hurry_up: integer; + + codec: PAVCodec; + + priv_data: pointer; + + (* unused, FIXME remove*) + rtp_mode: integer; + + rtp_payload_size: integer; (* The size of the RTP payload: the coder will *) + (* do it's best to deliver a chunk with size *) + (* below rtp_payload_size, the chunk will start *) + (* with a start code on some codecs like H.263 *) + (* This doesn't take account of any particular *) + (* headers inside the transmited RTP payload *) + + + (* The RTP callback: This function is called *) + (* every time the encoder has a packet to send *) + (* Depends on the encoder if the data starts *) + (* with a Start Code (it should) H.263 does. *) + (* mb_nb contains the number of macroblocks *) + (* encoded in the RTP payload *) + rtp_callback: procedure (avctx: PAVCodecContext; data: pointer; + size: integer; mb_nb: integer); cdecl; + + (* statistics, used for 2-pass encoding *) + mv_bits: integer; + header_bits: integer; + i_tex_bits: integer; + p_tex_bits: integer; + i_count: integer; + p_count: integer; + skip_count: integer; + misc_bits: integer; + + (*** number of bits used for the previously encoded frame. + * - encoding: set by lavc + * - decoding: unused *) + frame_bits: integer; + + (*** private data of the user, can be used to carry app specific stuff. + * - encoding: set by user + * - decoding: set by user *) + opaque: pointer; + + codec_name: array [0..31] of char; + codec_type: TCodecType; (* see CODEC_TYPE_xxx *) + codec_id: TCodecID; (* see CODEC_ID_xxx *) + + (*** fourcc (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A'). + * this is used to workaround some encoder bugs + * - encoding: set by user, if not then the default based on codec_id will be used + * - decoding: set by user, will be converted to upper case by lavc during init *) +// codec_tag: cardinal; // ����� array [0..3] of char - ����� ����� FOURCC + codec_tag: array [0..3] of char; + + (*** workaround bugs in encoders which sometimes cannot be detected automatically. + * - encoding: set by user + * - decoding: set by user *) + workaround_bugs: integer; + + (*** luma single coeff elimination threshold. + * - encoding: set by user + * - decoding: unused *) + luma_elim_threshold: integer; + + (*** chroma single coeff elimination threshold. + * - encoding: set by user + * - decoding: unused *) + chroma_elim_threshold: integer; + + (*** strictly follow the std (MPEG4, ...). + * - encoding: set by user + * - decoding: unused *) + strict_std_compliance: integer; + + (*** qscale offset between ip and b frames. + * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset) + * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset) + * - encoding: set by user. + * - decoding: unused *) + b_quant_offset: single; + + (*** error resilience higher values will detect more errors but may missdetect + * some more or less valid parts as errors. + * - encoding: unused + * - decoding: set by user *) + error_resilience: integer; + + (*** called at the beginning of each frame to get a buffer for it. + * if pic.reference is set then the frame will be read later by lavc + * avcodec_align_dimensions() should be used to find the required width and + * height, as they normally need to be rounded up to the next multiple of 16 + * - encoding: unused + * - decoding: set by lavc, user can override *) + get_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl; + + (*** called to release buffers which where allocated with get_buffer. + * a released buffer can be reused in get_buffer() + * pic.data[*] must be set to NULL + * - encoding: unused + * - decoding: set by lavc, user can override *) + release_buffer: procedure (c: PAVCodecContext; pic: PAVFrame); cdecl; + + (*** if 1 the stream has a 1 frame delay during decoding. + * - encoding: set by lavc + * - decoding: set by lavc *) + has_b_frames: integer; + + (*** number of bytes per packet if constant and known or 0 + * used by some WAV based audio codecs *) + block_align: integer; + + parse_only: integer; (* - decoding only: if true, only parsing is done + (function avcodec_parse_frame()). The frame + data is returned. Only MPEG codecs support this now. *) + + (*** 0-> h263 quant 1-> mpeg quant. + * - encoding: set by user. + * - decoding: unused *) + mpeg_quant: integer; + + (*** pass1 encoding statistics output buffer. + * - encoding: set by lavc + * - decoding: unused *) + stats_out: pchar; + + (*** pass2 encoding statistics input buffer. + * concatenated stuff from stats_out of pass1 should be placed here + * - encoding: allocated/set/freed by user + * - decoding: unused *) + stats_in: pchar; + + (*** ratecontrol qmin qmax limiting method. + * 0-> clipping, 1-> use a nice continous function to limit qscale wthin qmin/qmax + * - encoding: set by user. + * - decoding: unused *) + rc_qsquish: single; + + rc_qmod_amp: single; + rc_qmod_freq: integer; + + (*** ratecontrol override, see RcOverride. + * - encoding: allocated/set/freed by user. + * - decoding: unused *) + rc_override: PRcOverride; + rc_override_count: integer; + + (*** rate control equation. + * - encoding: set by user + * - decoding: unused *) + rc_eq: pchar; + + (*** maximum bitrate. + * - encoding: set by user. + * - decoding: unused *) + rc_max_rate: integer; + + (*** minimum bitrate. + * - encoding: set by user. + * - decoding: unused *) + rc_min_rate: integer; + + (*** decoder bitstream buffer size. + * - encoding: set by user. + * - decoding: unused *) + rc_buffer_size: integer; + rc_buffer_aggressivity: single; + + (*** qscale factor between p and i frames. + * if > 0 then the last p frame quantizer will be used (q= lastp_q*factor+offset) + * if < 0 then normal ratecontrol will be done (q= -normal_q*factor+offset) + * - encoding: set by user. + * - decoding: unused *) + i_quant_factor: single; + + (*** qscale offset between p and i frames. + * - encoding: set by user. + * - decoding: unused *) + i_quant_offset: single; + + (*** initial complexity for pass1 ratecontrol. + * - encoding: set by user. + * - decoding: unused *) + rc_initial_cplx: single; + + (*** dct algorithm, see FF_DCT_* below. + * - encoding: set by user + * - decoding: unused *) + dct_algo: integer; + + (*** luminance masking (0-> disabled). + * - encoding: set by user + * - decoding: unused *) + lumi_masking: single; + + (*** temporary complexity masking (0-> disabled). + * - encoding: set by user + * - decoding: unused *) + temporal_cplx_masking: single; + + (*** spatial complexity masking (0-> disabled). + * - encoding: set by user + * - decoding: unused *) + spatial_cplx_masking: single; + + (** * p block masking (0-> disabled). + * - encoding: set by user + * - decoding: unused *) + p_masking: single; + + (*** darkness masking (0-> disabled). + * - encoding: set by user + * - decoding: unused *) + dark_masking: single; + + (* for binary compatibility *) + unused: integer; + + (*** idct algorithm, see FF_IDCT_* below. + * - encoding: set by user + * - decoding: set by user *) + idct_algo: integer; + + (*** slice count. + * - encoding: set by lavc + * - decoding: set by user (or 0) *) + slice_count: integer; + + (*** slice offsets in the frame in bytes. + * - encoding: set/allocated by lavc + * - decoding: set/allocated by user (or NULL) *) + slice_offset: PInteger; + + (*** error concealment flags. + * - encoding: unused + * - decoding: set by user *) + error_concealment: integer; + + (*** dsp_mask could be add used to disable unwanted CPU features + * CPU features (i.e. MMX, SSE. ...) + * + * with FORCE flag you may instead enable given CPU features + * (Dangerous: usable in case of misdetection, improper usage however will + * result into program crash) *) + dsp_mask: cardinal; + + (*** bits per sample/pixel from the demuxer (needed for huffyuv). + * - encoding: set by lavc + * - decoding: set by user *) + bits_per_sample: integer; + + (*** prediction method (needed for huffyuv). + * - encoding: set by user + * - decoding: unused *) + prediction_method: integer; + + (*** sample aspect ratio (0 if unknown). + * numerator and denominator must be relative prime and smaller then 256 for some video standards + * - encoding: set by user. + * - decoding: set by lavc. *) + sample_aspect_ratio: TAVRational; + + (*** the picture in the bitstream. + * - encoding: set by lavc + * - decoding: set by lavc *) + coded_frame: PAVFrame; + + (*** debug. + * - encoding: set by user. + * - decoding: set by user. *) + debug: integer; + + (*** debug. + * - encoding: set by user. + * - decoding: set by user. *) + debug_mv: integer; + + (** error. + * - encoding: set by lavc if flags&CODEC_FLAG_PSNR + * - decoding: unused *) + error: array [0..3] of int64; + + (*** minimum MB quantizer. + * - encoding: unused + * - decoding: unused *) + mb_qmin: integer; + + (*** maximum MB quantizer. + * - encoding: unused + * - decoding: unused *) + mb_qmax: integer; + + (*** motion estimation compare function. + * - encoding: set by user. + * - decoding: unused *) + me_cmp: integer; + + (*** subpixel motion estimation compare function. + * - encoding: set by user. + * - decoding: unused *) + me_sub_cmp: integer; + (*** macroblock compare function (not supported yet). + * - encoding: set by user. + * - decoding: unused *) + mb_cmp: integer; + (*** interlaced dct compare function + * - encoding: set by user. + * - decoding: unused *) + ildct_cmp: integer; + (*** ME diamond size & shape. + * - encoding: set by user. + * - decoding: unused *) + dia_size: integer; + + (*** amount of previous MV predictors (2a+1 x 2a+1 square). + * - encoding: set by user. + * - decoding: unused *) + last_predictor_count: integer; + + (*** pre pass for motion estimation. + * - encoding: set by user. + * - decoding: unused *) + pre_me: integer; + + (*** motion estimation pre pass compare function. + * - encoding: set by user. + * - decoding: unused *) + me_pre_cmp: integer; + + (*** ME pre pass diamond size & shape. + * - encoding: set by user. + * - decoding: unused *) + pre_dia_size: integer; + + (*** subpel ME quality. + * - encoding: set by user. + * - decoding: unused *) + me_subpel_quality: integer; + + (*** callback to negotiate the pixelFormat. + * @param fmt is the list of formats which are supported by the codec, + * its terminated by -1 as 0 is a valid format, the formats are ordered by quality + * the first is allways the native one + * @return the choosen format + * - encoding: unused + * - decoding: set by user, if not set then the native format will always be choosen + *) + get_format: function (s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat; cdecl; + + (*** DTG active format information (additionnal aspect ratio + * information only used in DVB MPEG2 transport streams). 0 if + * not set. + * - encoding: unused. + * - decoding: set by decoder *) + dtg_active_format: integer; + + (*** Maximum motion estimation search range in subpel units. + * if 0 then no limit + * - encoding: set by user. + * - decoding: unused. *) + me_range: integer; + + (*** intra quantizer bias. + * - encoding: set by user. + * - decoding: unused *) + intra_quant_bias: integer; + + (*** inter quantizer bias. + * - encoding: set by user. + * - decoding: unused *) + inter_quant_bias: integer; + + (*** color table ID. + * - encoding: unused. + * - decoding: which clrtable should be used for 8bit RGB images + * table have to be stored somewhere FIXME *) + color_table_id: integer; + + (*** internal_buffer count. + * Don't touch, used by lavc default_get_buffer() *) + internal_buffer_count: integer; + + (*** internal_buffers. + * Don't touch, used by lavc default_get_buffer() *) + internal_buffer: pointer; + + (*** global quality for codecs which cannot change it per frame. + * this should be proportional to MPEG1/2/4 qscale. + * - encoding: set by user. + * - decoding: unused *) + global_quality: integer; + + (*** coder type + * - encoding: set by user. + * - decoding: unused *) + coder_type: integer; + + (*** context model + * - encoding: set by user. + * - decoding: unused *) + context_model: integer; + + (*** slice flags + * - encoding: unused + * - decoding: set by user. *) + slice_flags: integer; + + (*** XVideo Motion Acceleration + * - encoding: forbidden + * - decoding: set by decoder *) + xvmc_acceleration: integer; + + (*** macroblock decision mode + * - encoding: set by user. + * - decoding: unused *) + mb_decision: integer; + + (*** custom intra quantization matrix + * - encoding: set by user, can be NULL + * - decoding: set by lavc *) + intra_matrix: Pword; + + (*** custom inter quantization matrix + * - encoding: set by user, can be NULL + * - decoding: set by lavc *) + inter_matrix: Pword; + + (*** fourcc from the AVI stream header (LSB first, so "ABCD" -> ('D'<<24) + ('C'<<16) + ('B'<<8) + 'A'). + * this is used to workaround some encoder bugs + * - encoding: unused + * - decoding: set by user, will be converted to upper case by lavc during init *) + stream_codec_tag: array [0..3] of char; //cardinal; + + (*** scene change detection threshold. + * 0 is default, larger means fewer detected scene changes + * - encoding: set by user. + * - decoding: unused *) + scenechange_threshold: integer; + + (*** minimum lagrange multipler + * - encoding: set by user. + * - decoding: unused *) + lmin: integer; + + (*** maximum lagrange multipler + * - encoding: set by user. + * - decoding: unused *) + lmax: integer; + + (*** Palette control structure + * - encoding: ??? (no palette-enabled encoder yet) + * - decoding: set by user. *) + palctrl: PAVPaletteControl; + + (*** noise reduction strength + * - encoding: set by user. + * - decoding: unused *) + noise_reduction: integer; + + (*** called at the beginning of a frame to get cr buffer for it. + * buffer type (size, hints) must be the same. lavc won't check it. + * lavc will pass previous buffer in pic, function should return + * same buffer or new buffer with old frame "painted" into it. + * if pic.data[0] == NULL must behave like get_buffer(). + * - encoding: unused + * - decoding: set by lavc, user can override *) + reget_buffer: function (c: PAVCodecContext; pic: PAVFrame): integer; cdecl; + + (*** number of bits which should be loaded into the rc buffer before decoding starts + * - encoding: set by user. + * - decoding: unused *) + rc_initial_buffer_occupancy: integer; + inter_threshold: integer; + + (*** CODEC_FLAG2_*. + * - encoding: set by user. + * - decoding: set by user. *) + flags2: integer; + + (*** simulates errors in the bitstream to test error concealment. + * - encoding: set by user. + * - decoding: unused. *) + error_rate: integer; + + (*** MP3 antialias algorithm, see FF_AA_* below. + * - encoding: unused + * - decoding: set by user *) + antialias_algo: integer; + + (*** Quantizer noise shaping. + * - encoding: set by user + * - decoding: unused *) + quantizer_noise_shaping: integer; + + (*** Thread count. + * is used to decide how many independant tasks should be passed to execute() + * - encoding: set by user + * - decoding: set by user *) + thread_count: integer; + + (*** the codec may call this to execute several independant things. it will return only after + * finishing all tasks, the user may replace this with some multithreaded implementation, the + * default implementation will execute the parts serially + * @param count the number of things to execute + * - encoding: set by lavc, user can override + * - decoding: set by lavc, user can override *) + execute: function (c: PAVCodecContext; func: pointer; arg: PPointer; ret: PInteger; count: integer): integer; cdecl; + + (*** Thread opaque. + * can be used by execute() to store some per AVCodecContext stuff. + * - encoding: set by execute() + * - decoding: set by execute() *) + thread_opaque: pointer; + + (*** Motion estimation threshold. under which no motion estimation is + * performed, but instead the user specified motion vectors are used + * - encoding: set by user + * - decoding: unused *) + me_threshold: integer; + + (*** Macroblock threshold. under which the user specified macroblock types will be used + * - encoding: set by user + * - decoding: unused *) + mb_threshold: integer; + + (*** precision of the intra dc coefficient - 8. + * - encoding: set by user + * - decoding: unused *) + intra_dc_precision: integer; + + (*** noise vs. sse weight for the nsse comparsion function. + * - encoding: set by user + * - decoding: unused *) + nsse_weight: integer; + + (*** number of macroblock rows at the top which are skipped. + * - encoding: unused + * - decoding: set by user *) + skip_top: integer; + + (*** number of macroblock rows at the bottom which are skipped. + * - encoding: unused + * - decoding: set by user *) + skip_bottom: integer; + + (*** profile + * - encoding: set by user + * - decoding: set by lavc *) + profile: integer; + + (*** level + * - encoding: set by user + * - decoding: set by lavc *) + level: integer; + + (*** low resolution decoding. 1-> 1/2 size, 2->1/4 size + * - encoding: unused + * - decoding: set by user *) + lowres: integer; + + (*** bitsream width / height. may be different from width/height if lowres + * or other things are used + * - encoding: unused + * - decoding: set by user before init if known, codec should override / dynamically change if needed *) + coded_width, coded_height: integer; + + (*** frame skip threshold + * - encoding: set by user + * - decoding: unused *) + frame_skip_threshold: integer; + + (*** frame skip factor + * - encoding: set by user + * - decoding: unused *) + frame_skip_factor: integer; + + (*** frame skip exponent + * - encoding: set by user + * - decoding: unused *) + frame_skip_exp: integer; + + (*** frame skip comparission function + * - encoding: set by user. + * - decoding: unused *) + frame_skip_cmp: integer; + + (*** border processing masking. raises the quantizer for mbs on the borders + * of the picture. + * - encoding: set by user + * - decoding: unused *) + border_masking: single; + + (*** minimum MB lagrange multipler. + * - encoding: set by user. + * - decoding: unused *) + mb_lmin: integer; + + (*** maximum MB lagrange multipler. + * - encoding: set by user. + * - decoding: unused *) + mb_lmax: integer; + + (*** + * - encoding: set by user. + * - decoding: unused *) + me_penalty_compensation: integer; + + (*** + * - encoding: unused + * - decoding: set by user. *) + skip_loop_filter: TAVDiscard; + + (** * + * - encoding: unused + * - decoding: set by user. *) + skip_idct: TAVDiscard; + + (** * + * - encoding: unused + * - decoding: set by user. *) + skip_frame: TAVDiscard; + + (** * + * - encoding: set by user. + * - decoding: unused *) + bidir_refine: integer; + + (** * + * - encoding: set by user. + * - decoding: unused *) + brd_scale: integer; + + (** + * constant rate factor - quality-based VBR - values ~correspond to qps + * - encoding: set by user. + * - decoding: unused *) + crf: integer; + + (** + * constant quantization parameter rate control method + * - encoding: set by user. + * - decoding: unused *) + cqp: integer; + + (** + * minimum gop size + * - encoding: set by user. + * - decoding: unused *) + keyint_min: integer; + + (** + * number of reference frames + * - encoding: set by user. + * - decoding: unused *) + refs: integer; + + (** + * chroma qp offset from luma + * - encoding: set by user. + * - decoding: unused *) + chromaoffset: integer; + + (** + * influences how often b-frames are used + * - encoding: set by user. + * - decoding: unused *) + bframebias: integer; + + (** + * trellis RD quantization + * - encoding: set by user. + * - decoding: unused *) + trellis: integer; + + (** + * reduce fluctuations in qp (before curve compression) + * - encoding: set by user. + * - decoding: unused *) + complexityblur: single; + + (** + * in-loop deblocking filter alphac0 parameter + * alpha is in the range -6...6 + * - encoding: set by user. + * - decoding: unused *) + deblockalpha: integer; + + (** + * in-loop deblocking filter beta parameter + * beta is in the range -6...6 + * - encoding: set by user. + * - decoding: unused *) + deblockbeta: integer; + + (** + * macroblock subpartition sizes to consider - p8x8, p4x4, b8x8, i8x8, i4x4 + * - encoding: set by user. + * - decoding: unused *) + partitions: integer; + + (** + * direct mv prediction mode - 0 (none), 1 (spatial), 2 (temporal) + * - encoding: set by user. + * - decoding: unused *) + directpred: integer; + + (** + * audio cutoff bandwidth (0 means "automatic") . Currently used only by FAAC + * - encoding: set by user. + * - decoding: unused *) + cutoff: integer; + + (** + * multiplied by qscale for each frame and added to scene_change_score + * - encoding: set by user. + * - decoding: unused *) + scenechange_factor: integer; + + (** * + * note: value depends upon the compare functin used for fullpel ME + * - encoding: set by user. + * - decoding: unused *) + mv0_threshold: integer; + + (** + * adjusts sensitivity of b_frame_strategy 1 + * - encoding: set by user. + * - decoding: unused *) + b_sensitivity: integer; + + (** + * - encoding: set by user. + * - decoding: unused *) + compression_level: integer; + + (** + * sets whether to use LPC mode - used by FLAC encoder + * - encoding: set by user. + * - decoding: unused. *) + use_lpc: integer; + + (** + * LPC coefficient precision - used by FLAC encoder + * - encoding: set by user. + * - decoding: unused. *) + lpc_coeff_precision: integer; + + (** + * - encoding: set by user. + * - decoding: unused. *) + min_prediction_order: integer; + + (** + * - encoding: set by user. + * - decoding: unused. *) + max_prediction_order: integer; + + (** + * search method for selecting prediction order + * - encoding: set by user. + * - decoding: unused. *) + prediction_order_method: integer; + + (** + * - encoding: set by user. + * - decoding: unused. *) + min_partition_order: integer; + + (** + * - encoding: set by user. + * - decoding: unused. *) + max_partition_order: integer; + end; + +(** + * AVCodec. + *) + TAVCodec = record + name: pchar; + _type: TCodecType; + id: TCodecID; + priv_data_size: integer; + init: function (avctx: pAVCodecContext): integer; cdecl; + encode: function (avctx: PAVCodecContext; buf: pchar; buf_size: integer; data: pointer): integer; cdecl; + close: function (avctx: PAVCodecContext): integer; cdecl; + decode: function (avctx: PAVCodecContext; outdata: pointer; outdata_size: PInteger; + buf: pchar; buf_size: integer): integer; cdecl; + capabilities: integer; +// todo: check this -> +// void *dummy; // FIXME remove next time we break binary compatibility + next: PAVCodec; + flush: procedure (avctx: PAVCodecContext); cdecl; + supported_framerates: PAVRational; ///array of supported framerates, or NULL if any, array is terminated by {0,0} + pix_fmts: PAVPixelFormat; ///array of supported pixel formats, or NULL if unknown, array is terminanted by -1 + end; + +(** + * four components are given, that's all. + * the last component is alpha + *) + PAVPicture = ^TAVPicture; + TAVPicture = record + data: array [0..3] of pchar; + linesize: array [0..3] of integer; ///< number of bytes per line + end; + +(** + * AVPaletteControl + * This structure defines a method for communicating palette changes + * between and demuxer and a decoder. + * this is totally broken, palette changes should be sent as AVPackets + *) + TAVPaletteControl = record + (* demuxer sets this to 1 to indicate the palette has changed; + * decoder resets to 0 *) + palette_changed: integer; + + (* 4-byte ARGB palette entries, stored in native byte order; note that + * the individual palette components should be on a 8-bit scale; if + * the palette data comes from a IBM VGA native format, the component + * data is probably 6 bits in size and needs to be scaled *) + palette: array [0..AVPALETTE_COUNT - 1] of cardinal; + end; + + PAVSubtitleRect = ^TAVSubtitleRect; + TAVSubtitleRect = record + x: word; + y: word; + w: word; + h: word; + nb_colors: word; + linesize: integer; + rgba_palette: PCardinal; + bitmap: pchar; + end; + + PAVSubtitle = ^TAVSubtitle; + TAVSubtitle = record {20} + format: word; (* 0 = graphics *) + start_display_time: cardinal; (* relative to packet pts, in ms *) + end_display_time: cardinal; (* relative to packet pts, in ms *) + num_rects: cardinal; + rects: PAVSubtitleRect; + end; + + +(* resample.c *) + + PReSampleContext = pointer; + PAVResampleContext = pointer; + PImgReSampleContext = pointer; + +function audio_resample_init (output_channels: integer; input_channels: integer; + output_rate: integer; input_rate: integer): PReSampleContext; + cdecl; external av__codec; + +function audio_resample (s: PReSampleContext; output: PWord; input: PWord; nb_samples: integer): integer; + cdecl; external av__codec; + +procedure audio_resample_close (s: PReSampleContext); + cdecl; external av__codec; + + +function av_resample_init (out_rate: integer; in_rate: integer; filter_length: integer; + log2_phase_count: integer; linear: integer; cutoff: double): PAVResampleContext; + cdecl; external av__codec; + +function av_resample (c: PAVResampleContext; dst: PWord; src: PWord; consumed: PInteger; + src_size: integer; dst_size: integer; update_ctx: integer): integer; + cdecl; external av__codec; + +procedure av_resample_compensate (c: PAVResampleContext; sample_delta: integer; + compensation_distance: integer); + cdecl; external av__codec; + +procedure av_resample_close (c: PAVResampleContext); + cdecl; external av__codec; + + +(* YUV420 format is assumed ! *) + + function img_resample_init (output_width: integer; output_height: integer; + input_width: integer; input_height: integer): PImgReSampleContext; + cdecl; external av__codec; + + function img_resample_full_init (owidth: integer; oheight: integer; + iwidth: integer; iheight: integer; + topBand: integer; bottomBand: integer; + leftBand: integer; rightBand: integer; + padtop: integer; padbottom: integer; + padleft: integer; padright: integer): PImgReSampleContext; + cdecl; external av__codec; + + procedure img_resample (s: PImgReSampleContext; output: PAVPicture; const input: PAVPicture); + cdecl; external av__codec; + + procedure img_resample_close (s: PImgReSampleContext); + cdecl; external av__codec; + +(** + * Allocate memory for a picture. Call avpicture_free to free it. + * + * @param picture the picture to be filled in. + * @param pix_fmt the format of the picture. + * @param width the width of the picture. + * @param height the height of the picture. + * @return 0 if successful, -1 if not. + *) + function avpicture_alloc (picture: PAVPicture; pix_fmt: TAVPixelFormat; + width: integer; height: integer): integer; + cdecl; external av__codec; + + +(* Free a picture previously allocated by avpicture_alloc. *) + procedure avpicture_free (picture: PAVPicture); + cdecl; external av__codec; + + function avpicture_fill (picture: PAVPicture; ptr: pointer; + pix_fmt: TAVPixelFormat; width: integer; height: integer): integer; + cdecl; external av__codec; + + function avpicture_layout (const src: PAVPicture; pix_fmt: TAVPixelFormat; + width: integer; height: integer; + dest: pchar; dest_size: integer): integer; + cdecl; external av__codec; + + function avpicture_get_size (pix_fmt: TAVPixelFormat; width: integer; height: integer): integer; + cdecl; external av__codec; + + procedure avcodec_get_chroma_sub_sample (pix_fmt: TAVPixelFormat; h_shift: Pinteger; v_shift: pinteger); + cdecl; external av__codec; + + function avcodec_get_pix_fmt_name(pix_fmt: TAVPixelFormat): pchar; + cdecl; external av__codec; + + procedure avcodec_set_dimensions(s: PAVCodecContext; width: integer; height: integer); + cdecl; external av__codec; + + function avcodec_get_pix_fmt(const name: pchar): TAVPixelFormat; + cdecl; external av__codec; + + function avcodec_pix_fmt_to_codec_tag(p: TAVPixelFormat): cardinal; + cdecl; external av__codec; + + function avcodec_get_pix_fmt_loss (dst_pix_fmt: TAVPixelFormat; src_pix_fmt: TAVPixelFormat; + has_alpha: integer): integer; + cdecl; external av__codec; + + function avcodec_find_best_pix_fmt (pix_fmt_mask: integer; src_pix_fmt: TAVPixelFormat; + has_alpha: integer; loss_ptr: pinteger): integer; + cdecl; external av__codec; + + function img_get_alpha_info (const src: PAVPicture; + pix_fmt: TAVPixelFormat; + width: integer; height: integer): integer; + cdecl; external av__codec; + + +(* convert among pixel formats *) + function img_convert (dst: PAVPicture; dst_pix_fmt: TAVPixelFormat; + const src: PAVPicture; pix_fmt: TAVPixelFormat; + width: integer; height: integer): integer; + cdecl; external av__codec; + +(* deinterlace a picture *) + function avpicture_deinterlace (dst: PAVPicture; const src: PAVPicture; + pix_fmt: TAVPixelFormat; width: integer; height: integer): integer; + cdecl; external av__codec; + +(* returns LIBAVCODEC_VERSION_INT constant *) + function avcodec_version (): cardinal; + cdecl; external av__codec; + +(* returns LIBAVCODEC_BUILD constant *) + function avcodec_build (): cardinal; + cdecl; external av__codec; + + procedure avcodec_init (); + cdecl; external av__codec; + + procedure register_avcodec (format: PAVCodec); + cdecl; external av__codec; + + function avcodec_find_encoder (id: TCodecID): PAVCodec; + cdecl; external av__codec; + function avcodec_find_encoder_by_name (name: pchar): PAVCodec; + cdecl; external av__codec; + function avcodec_find_decoder(id: TCodecID): PAVCodec; + cdecl; external av__codec; + function avcodec_find_decoder_by_name (name: pchar): PAVCodec; + cdecl; external av__codec; + procedure avcodec_string(buf: pchar; buf_size: integer; enc: PAVCodecContext; encode: integer); + cdecl; external av__codec; + + procedure avcodec_get_context_defaults (s: PAVCodecContext); + cdecl; external av__codec; + function avcodec_alloc_context (): PAVCodecContext; + cdecl; external av__codec; + procedure avcodec_get_frame_defaults (pic: PAVFrame); + cdecl; external av__codec; + function avcodec_alloc_frame (): PAVFrame; + cdecl; external av__codec; + + function avcodec_default_get_buffer (s: PAVCodecContext; pic: PAVFrame): integer; + cdecl; external av__codec; + procedure avcodec_default_release_buffer (s: PAVCodecContext; pic: PAVFrame); + cdecl; external av__codec; + function avcodec_default_reget_buffer (s: PAVCodecContext; pic: PAVFrame): integer; + cdecl; external av__codec; + procedure avcodec_align_dimensions(s: PAVCodecContext; width: Pinteger; height: PInteger); + cdecl; external av__codec; + function avcodec_check_dimensions (av_log_ctx: pointer; w: cardinal; h: cardinal): integer; + cdecl; external av__codec; + function avcodec_default_get_format(s: PAVCodecContext; const fmt: PAVPixelFormat): TAVPixelFormat; + cdecl; external av__codec; + + function avcodec_thread_init (s: PAVCodecContext; thread_count: integer): integer; + cdecl; external av__codec; + procedure avcodec_thread_free (s: PAVCodecContext); + cdecl; external av__codec; + function avcodec_thread_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer; + cdecl; external av__codec; + function avcodec_default_execute (s: PAVCodecContext; func: pointer; arg: PPointer; ret: Pinteger; count: integer): integer; + cdecl; external av__codec; + + +//FIXME func typedef + +(** + * opens / inits the AVCodecContext. + * not thread save! + *) + function avcodec_open (avctx: PAVCodecContext; codec: PAVCodec): integer; + cdecl; external av__codec; + + +(** + * Decode an audio frame. + * + * @param avctx the codec context. + * @param samples output buffer, 16 byte aligned + * @param frame_size_ptr the output buffer size in bytes, zero if no frame could be compressed + * @param buf input buffer, 16 byte aligned + * @param buf_size the input buffer size + * @return 0 if successful, -1 if not. + *) + + function avcodec_decode_audio (avctx: PAVCodecContext; samples: Pword; + frame_size_ptr: pinteger; + buf: pchar; buf_size: integer): integer; + cdecl; external av__codec; +(* decode a frame. + * @param buf bitstream buffer, must be FF_INPUT_BUFFER_PADDING_SIZE larger then the actual read bytes + * because some optimized bitstream readers read 32 or 64 bit at once and could read over the end + * @param buf_size the size of the buffer in bytes + * @param got_picture_ptr zero if no frame could be decompressed, Otherwise, it is non zero + * @return -1 if error, otherwise return the number of + * bytes used. *) + function avcodec_decode_video (avctx: PAVCodecContext; picture: PAVFrame; + got_picture_ptr: pinteger; + buf: PByte; buf_size: integer): integer; + cdecl; external av__codec; + + function avcodec_decode_subtitle (avctx: PAVCodecContext; sub: PAVSubtitle; + got_sub_ptr: pinteger; + const buf: pchar; buf_size: integer): integer; + cdecl; external av__codec; + + {$IFNDEF FPC} + function avcodec_parse_frame (avctx: PAVCodecContext; pdata: PPointer; + data_size_ptr: pinteger; + buf: pchar; buf_size: integer): integer; + cdecl; external av__codec; + {$ENDIF} + function avcodec_encode_audio (avctx: PAVCodecContext; buf: PByte; + buf_size: integer; const samples: Pword): integer; + cdecl; external av__codec; + + (* avcodec_encode_video: -1 if error *) + function avcodec_encode_video (avctx: PAVCodecContext; buf: pointer; + buf_size: integer; pict: PAVFrame): integer; + cdecl; external av__codec; + function avcodec_encode_subtitle (avctx: PAVCodecContext; buf: pchar; + buf_size: integer; const sub: PAVSubtitle): integer; + cdecl; external av__codec; + function avcodec_close (avctx: PAVCodecContext): integer; + cdecl; external av__codec; + + procedure avcodec_register_all (); + cdecl; external av__codec; + + procedure avcodec_flush_buffers (avctx: PAVCodecContext); + cdecl; external av__codec; + procedure avcodec_default_free_buffers (s: PAVCodecContext); + cdecl; external av__codec; + +(* misc usefull functions *) + +(** + * returns a single letter to describe the picture type + *) + function av_get_pict_type_char (pict_type: integer): char; + cdecl; external av__codec; + + +(** + * returns codec bits per sample + *) +function av_get_bits_per_sample (codec_id: TCodecID): integer; + cdecl; external av__codec; + +const + AV_PARSER_PTS_NB = 4; + PARSER_FLAG_COMPLETE_FRAMES = $0001; + +type + PAVCodecParserContext = ^TAVCodecParserContext; + PAVCodecParser = ^TAVCodecParser; + + TAVCodecParserContext = record + priv_data: pointer; + parser: PAVCodecParser; + frame_offset: int64; (* offset of the current frame *) + cur_offset: int64; (* current offset (incremented by each av_parser_parse()) *) + last_frame_offset: int64; (* offset of the last frame *) + (* video info *) + pict_type: integer; (* XXX: put it back in AVCodecContext *) + repeat_pict: integer; (* XXX: put it back in AVCodecContext *) + pts: int64; (* pts of the current frame *) + dts: int64; (* dts of the current frame *) + + (* private data *) + last_pts: int64; + last_dts: int64; + fetch_timestamp: integer; + + cur_frame_start_index: integer; + cur_frame_offset: array [0..AV_PARSER_PTS_NB - 1] of int64; + cur_frame_pts: array [0..AV_PARSER_PTS_NB - 1] of int64; + cur_frame_dts: array [0..AV_PARSER_PTS_NB - 1] of int64; + + flags: integer; + end; + + TAVCodecParser = record + codec_ids: array [0..4] of integer; (* several codec IDs are permitted *) + priv_data_size: integer; + parser_init: function (s: PAVCodecParserContext): integer; cdecl; + parser_parse: function (s: PAVCodecParserContext; avctx: PAVCodecContext; + poutbuf: PPointer; poutbuf_size: PInteger; + const buf: pchar; buf_size: integer): integer; cdecl; + parser_close: procedure (s: PAVCodecParserContext); cdecl; + split: function (avctx: PAVCodecContext; const buf: pchar; + buf_size: integer): integer; cdecl; + next: PAVCodecParser; + end; + + procedure av_register_codec_parser (parser: PAVCodecParser); cdecl; + cdecl; external av__codec; + + function av_parser_init (codec_id: integer): PAVCodecParserContext; + cdecl; external av__codec; + + function av_parser_parse (s: PAVCodecParserContext; + avctx: PAVCodecContext; + poutbuf: PPointer; poutbuf_size: pinteger; + const buf: pchar; buf_size: integer; + pts: int64; dts: int64): integer; + cdecl; external av__codec; + function av_parser_change (s: PAVCodecParserContext; + avctx: PAVCodecContext; + poutbuf: PPointer; poutbuf_size: PInteger; + const buf: pchar; buf_size: integer; keyframe: integer): integer; + cdecl; external av__codec; + procedure av_parser_close (s: PAVCodecParserContext); + cdecl; external av__codec; + +type + PAVBitStreamFilterContext = ^TAVBitStreamFilterContext; + PAVBitStreamFilter = ^TAVBitStreamFilter; + + TAVBitStreamFilterContext = record + priv_data: pointer; + filter: PAVBitStreamFilter; + parser: PAVCodecParserContext; + next: PAVBitStreamFilterContext; + end; + + TAVBitStreamFilter = record + name: pchar; + priv_data_size: integer; + filter: function (bsfc: PAVBitStreamFilterContext; + avctx: PAVCodecContext; args: pchar; + poutbuf: PPointer; poutbuf_size: PInteger; + buf: PByte; buf_size: integer; keyframe: integer): integer; cdecl; + next: PAVBitStreamFilter; + end; + +procedure av_register_bitstream_filter (bsf: PAVBitStreamFilter); + cdecl; external av__codec; + +function av_bitstream_filter_init (name: pchar): PAVBitStreamFilterContext; + cdecl; external av__codec; + +function av_bitstream_filter_filter (bsfc: PAVBitStreamFilterContext; + avctx: PAVCodecContext; args: pchar; + poutbuf: PPointer; poutbuf_size: PInteger; + buf: PByte; buf_size: integer; keyframe: integer): integer; + cdecl; external av__codec; +procedure av_bitstream_filter_close (bsf: PAVBitStreamFilterContext); + cdecl; external av__codec; + + +(* memory *) + procedure av_fast_realloc (ptr: pointer; size: PCardinal; min_size: Cardinal); + cdecl; external av__codec; +(* for static data only *) +(* call av_free_static to release all staticaly allocated tables *) + procedure av_free_static (); + cdecl; external av__codec; + + procedure av_mallocz_static(size: cardinal); + cdecl; external av__codec; + + procedure av_realloc_static(ptr: pointer; size: Cardinal); + cdecl; external av__codec; + + procedure img_copy (dst: PAVPicture; const src: PAVPicture; + pix_fmt: TAVPixelFormat; width: integer; height: integer); + cdecl; external av__codec; + + function img_crop (dst: PAVPicture; const src: PAVPicture; + pix_fmt: TAVPixelFormat; top_band, left_band: integer): integer; + cdecl; external av__codec; + + function img_pad (dst: PAVPicture; const src: PAVPicture; height, width: integer; + pix_fmt: TAVPixelFormat; padtop, padbottom, padleft, padright: integer; + color: PInteger): integer; + cdecl; external av__codec; + +implementation + +end. diff --git a/Game/Code/lib/ffmpeg/avformat.pas b/Game/Code/lib/ffmpeg/avformat.pas index 6d13bcdf..6e9c5934 100644 --- a/Game/Code/lib/ffmpeg/avformat.pas +++ b/Game/Code/lib/ffmpeg/avformat.pas @@ -1,629 +1,630 @@ - (*
- * 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
- windows, avcodec, avio, rational, avutil;
-
-const
- av__format = 'avformat-50.dll';
-
- 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: 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;
-
-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.
+ (* + * 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: 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. diff --git a/Game/Code/lib/ffmpeg/avio.pas b/Game/Code/lib/ffmpeg/avio.pas index 7d0e8c04..84622f0d 100644 --- a/Game/Code/lib/ffmpeg/avio.pas +++ b/Game/Code/lib/ffmpeg/avio.pas @@ -1,243 +1,249 @@ - (*
- * unbuffered io for ffmpeg system
- * 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 avio;
-
-interface
-
-uses
- windows;
-
-const
- av__format = 'avformat-50.dll';
-
- URL_RDONLY = 0;
- URL_WRONLY = 1;
- URL_RDWR = 2;
-
-(* output byte stream handling *)
-
-type
- offset_t = int64;
- int = integer;
-
-(* unbuffered I/O *)
- PURLProtocol = ^TURLProtocol;
- PURLContext = ^TURLContext;
- TURLContext = record
- prot: PURLProtocol;
- flags: int;
- is_streamed: int; //* true if streamed (no seek possible), default = false */
- max_packet_size: int; //* if non zero, the stream is packetized with this max packet size */
- priv_data: pointer;
- filename: array [0..0] of char; (* specified filename *)
- end;
-
- PURLPollEntry = ^TURLPollEntry;
- TURLPollEntry = record
- handle: PURLContext;
- events: integer;
- revents: integer;
- end;
-
- TURLProtocol = record
- name: pchar;
- url_open: function (h: PURLContext; const filename: pchar; flags: integer): integer; cdecl;
- url_read: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl;
- url_write: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl;
- url_seek: function (h: PURLContext; pos: int64; whence: integer): int64; cdecl;
- url_close: function (h: PURLContext): integer; cdecl;
- next: PURLProtocol;
- end;
-
- PByteIOContext = ^TByteIOContext;
- TByteIOContext = record
- buffer: pchar;
- buffer_size: integer;
- buf_ptr: pchar;
- buf_end: pchar;
- opaque: pointer;
- read_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl;
- write_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl;
- seek: function (opaque: pointer; offset: int64; whence: integer): int64; cdecl;
- pos: int64; (* position in the file of the current buffer *)
- must_flush: integer; (* true if the next seek should flush *)
- eof_reached: integer; (* true if eof reached *)
- write_flag: integer; (* true if open for writing *)
- is_streamed: integer;
- max_packet_size: integer;
- checksum: longword;
- checksum_ptr: pchar;
- update_checksum: function (checksum: cardinal; const buf: pchar; size: cardinal): LongWord; cdecl;
- error: integer; ///< contains the error code or 0 if no error happened
- end;
-
- function url_open(h: PPointer; const filename: pchar; flags: integer): integer;
- cdecl; external av__format;
- function url_read (h: PURLContext; buf: pchar; size: integer): integer;
- cdecl; external av__format;
- function url_write (h: PURLContext; buf: pchar; size: integer): integer;
- cdecl; external av__format;
- function url_seek (h: PURLContext; pos: int64; whence: integer): int64;
- cdecl; external av__format;
- function url_close (h: PURLContext): integer;
- cdecl; external av__format;
- function url_exist(const filename: pchar): integer;
- cdecl; external av__format;
- function url_filesize (h: PURLContext): int64;
- cdecl; external av__format;
- function url_get_max_packet_size(h: PURLContext): integer;
- cdecl; external av__format;
- procedure url_get_filename(h: PURLContext; buf: pchar; buf_size: integer);
- cdecl; external av__format;
-
-(* the callback is called in blocking functions to test regulary if
- asynchronous interruption is needed. -EINTR is returned in this
- case by the interrupted function. 'NULL' means no interrupt
- callback is given. *)
- procedure url_set_interrupt_cb (interrupt_cb: pinteger);
- cdecl; external av__format;
-
-(* not implemented *)
-//int url_poll(URLPollEntry *poll_table, int n, int timeout);
-
- function register_protocol (protocol: PURLProtocol): integer;
- cdecl; external av__format;
-
- function init_put_byte(s: PByteIOContext;
- buffer: pchar;
- buffer_size: integer; write_flag: integer;
- opaque: pointer;
- read_packet: pointer; //int (*read_packet)(void *opaque, uint8_t *buf, int buf_size),
- write_packet: pointer; //int (*write_packet)(void *opaque, uint8_t *buf, int buf_size),
- seek: pointer //offset_t (*seek)(void *opaque, offset_t offset, int whence)
- ): integer;
- cdecl; external av__format;
- procedure put_byte(s: PByteIOContext; b: integer);
- cdecl; external av__format;
- procedure put_buffer (s: PByteIOContext; const buf: pchar; size: integer);
- cdecl; external av__format;
- procedure put_le64(s: PByteIOContext; val: int64);
- cdecl; external av__format;
- procedure put_be64(s: PByteIOContext; val: int64);
- cdecl; external av__format;
- procedure put_le32(s: PByteIOContext; val: cardinal);
- cdecl; external av__format;
- procedure put_be32(s: PByteIOContext; val: cardinal);
- cdecl; external av__format;
- procedure put_be24(s: PByteIOContext; val: cardinal);
- cdecl; external av__format;
- procedure put_le16(s: PByteIOContext; val: cardinal);
- cdecl; external av__format;
- procedure put_be16(s: PByteIOContext; val: cardinal);
- cdecl; external av__format;
- procedure put_tag(s: PByteIOContext; const tag: pchar);
- cdecl; external av__format;
-
- procedure put_strz(s: PByteIOContext; const buf: pchar);
- cdecl; external av__format;
-
- function url_fseek(s: PByteIOContext; offset: int64; whence: integer): int64;
- cdecl; external av__format;
- procedure url_fskip(s: PByteIOContext; offset: int64);
- cdecl; external av__format;
- function url_ftell(s: PByteIOContext): int64;
- cdecl; external av__format;
- function url_fsize(s: PByteIOContext): int64;
- cdecl; external av__format;
- function url_feof(s: PByteIOContext): integer;
- cdecl; external av__format;
- function url_ferror(s: PByteIOContext): integer;
- cdecl; external av__format;
-
- procedure put_flush_packet (s: PByteIOContext);
- cdecl; external av__format;
- function get_buffer(s: PByteIOContext; buf: pchar; size: integer): integer;
- cdecl; external av__format;
- function get_partial_buffer(s: PByteIOContext; buf: pchar; size: integer): integer;
- cdecl; external av__format;
- function get_byte(s: PByteIOContext): integer;
- cdecl; external av__format;
- function get_le32(s: PByteIOContext): cardinal;
- cdecl; external av__format;
- function get_le64(s: PByteIOContext): int64;
- cdecl; external av__format;
- function get_le16(s: PByteIOContext): cardinal;
- cdecl; external av__format;
-
- function get_strz(s: PByteIOContext; buf: pchar; maxlen: integer): pchar;
- cdecl; external av__format;
- function get_be16(s: PByteIOContext): cardinal;
- cdecl; external av__format;
- function get_be24(s: PByteIOContext): cardinal;
- cdecl; external av__format;
- function get_be32(s: PByteIOContext): cardinal;
- cdecl; external av__format;
- function get_be64(s: PByteIOContext): int64;
- cdecl; external av__format;
-
- function url_is_streamed(s: PByteIOContext): integer;
-
- function url_fdopen (s: PByteIOContext; h: PURLContext): integer;
- cdecl; external av__format;
- function url_setbufsize (s: PByteIOContext; buf_size: integer): integer;
- cdecl; external av__format;
- function url_fopen(s: PByteIOContext; const filename: pchar; flags: integer): integer;
- cdecl; external av__format;
- function url_fclose(s: PByteIOContext): integer;
- cdecl; external av__format;
-
- function url_fileno(s: PByteIOContext): PURLContext;
- cdecl; external av__format;
- function url_fget_max_packet_size (s: PByteIOContext): integer;
- cdecl; external av__format;
- function url_open_buf(s: PByteIOContext; buf: pchar; buf_size: integer; flags: integer): integer;
- cdecl; external av__format;
- function url_close_buf(s: PByteIOContext): integer;
- cdecl; external av__format;
-
- function url_open_dyn_buf(s: PByteIOContext): integer;
- cdecl; external av__format;
- function url_open_dyn_packet_buf(s: PByteIOContext; max_packet_size: integer): integer;
- cdecl; external av__format;
- function url_close_dyn_buf(s: PByteIOContext; pbuffer:PPointer): integer;
- cdecl; external av__format;
-
- function get_checksum(s: PByteIOContext): cardinal;
- cdecl; external av__format;
-
- procedure init_checksum (s: PByteIOContext; update_checksum: pointer; checksum: cardinal);
- cdecl; external av__format;
-
- {$IFNDEF FPC}
- function udp_set_remote_url(h: PURLContext; const uri: pchar): integer;
- cdecl; external av__format;
- function udp_get_local_port(h: PURLContext): integer;
- cdecl; external av__format;
- function udp_get_file_handle(h: PURLContext): integer;
- cdecl; external av__format;
- {$ENDIF}
-
-implementation
-
-function url_is_streamed(s: PByteIOContext): integer;
-begin
- Result := s^.is_streamed;
-end;
-
-end.
+ (* + * unbuffered io for ffmpeg system + * 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 avio; + +interface + +{$IFDEF win32} +uses + windows; +{$ENDIF} + +const + {$IFDEF win32} + av__format = 'avformat-50.dll'; + {$ELSE} + av__format = 'libavformat.so'; // .0d + {$ENDIF} + + URL_RDONLY = 0; + URL_WRONLY = 1; + URL_RDWR = 2; + +(* output byte stream handling *) + +type + offset_t = int64; + int = integer; + +(* unbuffered I/O *) + PURLProtocol = ^TURLProtocol; + PURLContext = ^TURLContext; + TURLContext = record + prot: PURLProtocol; + flags: int; + is_streamed: int; //* true if streamed (no seek possible), default = false */ + max_packet_size: int; //* if non zero, the stream is packetized with this max packet size */ + priv_data: pointer; + filename: array [0..0] of char; (* specified filename *) + end; + + PURLPollEntry = ^TURLPollEntry; + TURLPollEntry = record + handle: PURLContext; + events: integer; + revents: integer; + end; + + TURLProtocol = record + name: pchar; + url_open: function (h: PURLContext; const filename: pchar; flags: integer): integer; cdecl; + url_read: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl; + url_write: function (h: PURLContext; buf: pchar; size: integer): integer; cdecl; + url_seek: function (h: PURLContext; pos: int64; whence: integer): int64; cdecl; + url_close: function (h: PURLContext): integer; cdecl; + next: PURLProtocol; + end; + + PByteIOContext = ^TByteIOContext; + TByteIOContext = record + buffer: pchar; + buffer_size: integer; + buf_ptr: pchar; + buf_end: pchar; + opaque: pointer; + read_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl; + write_packet: function (opaque: pointer; buf: pchar; buf_size: integer): integer; cdecl; + seek: function (opaque: pointer; offset: int64; whence: integer): int64; cdecl; + pos: int64; (* position in the file of the current buffer *) + must_flush: integer; (* true if the next seek should flush *) + eof_reached: integer; (* true if eof reached *) + write_flag: integer; (* true if open for writing *) + is_streamed: integer; + max_packet_size: integer; + checksum: longword; + checksum_ptr: pchar; + update_checksum: function (checksum: cardinal; const buf: pchar; size: cardinal): LongWord; cdecl; + error: integer; ///< contains the error code or 0 if no error happened + end; + + function url_open(h: PPointer; const filename: pchar; flags: integer): integer; + cdecl; external av__format; + function url_read (h: PURLContext; buf: pchar; size: integer): integer; + cdecl; external av__format; + function url_write (h: PURLContext; buf: pchar; size: integer): integer; + cdecl; external av__format; + function url_seek (h: PURLContext; pos: int64; whence: integer): int64; + cdecl; external av__format; + function url_close (h: PURLContext): integer; + cdecl; external av__format; + function url_exist(const filename: pchar): integer; + cdecl; external av__format; + function url_filesize (h: PURLContext): int64; + cdecl; external av__format; + function url_get_max_packet_size(h: PURLContext): integer; + cdecl; external av__format; + procedure url_get_filename(h: PURLContext; buf: pchar; buf_size: integer); + cdecl; external av__format; + +(* the callback is called in blocking functions to test regulary if + asynchronous interruption is needed. -EINTR is returned in this + case by the interrupted function. 'NULL' means no interrupt + callback is given. *) + procedure url_set_interrupt_cb (interrupt_cb: pinteger); + cdecl; external av__format; + +(* not implemented *) +//int url_poll(URLPollEntry *poll_table, int n, int timeout); + + function register_protocol (protocol: PURLProtocol): integer; + cdecl; external av__format; + + function init_put_byte(s: PByteIOContext; + buffer: pchar; + buffer_size: integer; write_flag: integer; + opaque: pointer; + read_packet: pointer; //int (*read_packet)(void *opaque, uint8_t *buf, int buf_size), + write_packet: pointer; //int (*write_packet)(void *opaque, uint8_t *buf, int buf_size), + seek: pointer //offset_t (*seek)(void *opaque, offset_t offset, int whence) + ): integer; + cdecl; external av__format; + procedure put_byte(s: PByteIOContext; b: integer); + cdecl; external av__format; + procedure put_buffer (s: PByteIOContext; const buf: pchar; size: integer); + cdecl; external av__format; + procedure put_le64(s: PByteIOContext; val: int64); + cdecl; external av__format; + procedure put_be64(s: PByteIOContext; val: int64); + cdecl; external av__format; + procedure put_le32(s: PByteIOContext; val: cardinal); + cdecl; external av__format; + procedure put_be32(s: PByteIOContext; val: cardinal); + cdecl; external av__format; + procedure put_be24(s: PByteIOContext; val: cardinal); + cdecl; external av__format; + procedure put_le16(s: PByteIOContext; val: cardinal); + cdecl; external av__format; + procedure put_be16(s: PByteIOContext; val: cardinal); + cdecl; external av__format; + procedure put_tag(s: PByteIOContext; const tag: pchar); + cdecl; external av__format; + + procedure put_strz(s: PByteIOContext; const buf: pchar); + cdecl; external av__format; + + function url_fseek(s: PByteIOContext; offset: int64; whence: integer): int64; + cdecl; external av__format; + procedure url_fskip(s: PByteIOContext; offset: int64); + cdecl; external av__format; + function url_ftell(s: PByteIOContext): int64; + cdecl; external av__format; + function url_fsize(s: PByteIOContext): int64; + cdecl; external av__format; + function url_feof(s: PByteIOContext): integer; + cdecl; external av__format; + function url_ferror(s: PByteIOContext): integer; + cdecl; external av__format; + + procedure put_flush_packet (s: PByteIOContext); + cdecl; external av__format; + function get_buffer(s: PByteIOContext; buf: pchar; size: integer): integer; + cdecl; external av__format; + function get_partial_buffer(s: PByteIOContext; buf: pchar; size: integer): integer; + cdecl; external av__format; + function get_byte(s: PByteIOContext): integer; + cdecl; external av__format; + function get_le32(s: PByteIOContext): cardinal; + cdecl; external av__format; + function get_le64(s: PByteIOContext): int64; + cdecl; external av__format; + function get_le16(s: PByteIOContext): cardinal; + cdecl; external av__format; + + function get_strz(s: PByteIOContext; buf: pchar; maxlen: integer): pchar; + cdecl; external av__format; + function get_be16(s: PByteIOContext): cardinal; + cdecl; external av__format; + function get_be24(s: PByteIOContext): cardinal; + cdecl; external av__format; + function get_be32(s: PByteIOContext): cardinal; + cdecl; external av__format; + function get_be64(s: PByteIOContext): int64; + cdecl; external av__format; + + function url_is_streamed(s: PByteIOContext): integer; + + function url_fdopen (s: PByteIOContext; h: PURLContext): integer; + cdecl; external av__format; + function url_setbufsize (s: PByteIOContext; buf_size: integer): integer; + cdecl; external av__format; + function url_fopen(s: PByteIOContext; const filename: pchar; flags: integer): integer; + cdecl; external av__format; + function url_fclose(s: PByteIOContext): integer; + cdecl; external av__format; + + function url_fileno(s: PByteIOContext): PURLContext; + cdecl; external av__format; + function url_fget_max_packet_size (s: PByteIOContext): integer; + cdecl; external av__format; + function url_open_buf(s: PByteIOContext; buf: pchar; buf_size: integer; flags: integer): integer; + cdecl; external av__format; + function url_close_buf(s: PByteIOContext): integer; + cdecl; external av__format; + + function url_open_dyn_buf(s: PByteIOContext): integer; + cdecl; external av__format; + function url_open_dyn_packet_buf(s: PByteIOContext; max_packet_size: integer): integer; + cdecl; external av__format; + function url_close_dyn_buf(s: PByteIOContext; pbuffer:PPointer): integer; + cdecl; external av__format; + + function get_checksum(s: PByteIOContext): cardinal; + cdecl; external av__format; + + procedure init_checksum (s: PByteIOContext; update_checksum: pointer; checksum: cardinal); + cdecl; external av__format; + + {$IFNDEF FPC} + function udp_set_remote_url(h: PURLContext; const uri: pchar): integer; + cdecl; external av__format; + function udp_get_local_port(h: PURLContext): integer; + cdecl; external av__format; + function udp_get_file_handle(h: PURLContext): integer; + cdecl; external av__format; + {$ENDIF} + +implementation + +function url_is_streamed(s: PByteIOContext): integer; +begin + Result := s^.is_streamed; +end; + +end. diff --git a/Game/Code/lib/ffmpeg/avutil.pas b/Game/Code/lib/ffmpeg/avutil.pas index d947a3f0..7c5926ab 100644 --- a/Game/Code/lib/ffmpeg/avutil.pas +++ b/Game/Code/lib/ffmpeg/avutil.pas @@ -1,133 +1,137 @@ - (*
- * copyright (c) 2006 Michael Niedermayer <michaelni@gmx.at>
- *
- * 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 avutil;
-
-interface
-
-
-const
- av__util = 'avutil-49.dll';
-
- LIBAVUTIL_VERSION_INT = ((49 shl 16) + (0 shl 8) + 1);
- LIBAVUTIL_VERSION = '49.0.1';
- LIBAVUTIL_BUILD = LIBAVUTIL_VERSION_INT;
-
-type
-(**
- * Pixel format. Notes:
- *
- * PIX_FMT_RGB32 is handled in an endian-specific manner. A RGBA
- * color is put together as:
- * (A << 24) | (R << 16) | (G << 8) | B
- * This is stored as BGRA on little endian CPU architectures and ARGB on
- * big endian CPUs.
- *
- * When the pixel format is palettized RGB (PIX_FMT_PAL8), the palettized
- * image data is stored in AVFrame.data[0]. The palette is transported in
- * AVFrame.data[1] and, is 1024 bytes long (256 4-byte entries) and is
- * formatted the same as in PIX_FMT_RGB32 described above (i.e., it is
- * also endian-specific). Note also that the individual RGB palette
- * components stored in AVFrame.data[1] should be in the range 0..255.
- * This is important as many custom PAL8 video codecs that were designed
- * to run on the IBM VGA graphics adapter use 6-bit palette components.
- *)
-
- PAVPixelFormat = ^TAVPixelFormat;
- TAVPixelFormat = (
- PIX_FMT_NONE= -1,
- PIX_FMT_YUV420P, ///< Planar YUV 4:2:0, 12bpp, (1 Cr & Cb sample per 2x2 Y samples)
- PIX_FMT_YUYV422, ///< Packed YUV 4:2:2, 16bpp, Y0 Cb Y1 Cr
- PIX_FMT_RGB24, ///< Packed RGB 8:8:8, 24bpp, RGBRGB...
- PIX_FMT_BGR24, ///< Packed RGB 8:8:8, 24bpp, BGRBGR...
- PIX_FMT_YUV422P, ///< Planar YUV 4:2:2, 16bpp, (1 Cr & Cb sample per 2x1 Y samples)
- PIX_FMT_YUV444P, ///< Planar YUV 4:4:4, 24bpp, (1 Cr & Cb sample per 1x1 Y samples)
- PIX_FMT_RGB32, ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8R 8G 8B(lsb), in cpu endianness
- PIX_FMT_YUV410P, ///< Planar YUV 4:1:0, 9bpp, (1 Cr & Cb sample per 4x4 Y samples)
- PIX_FMT_YUV411P, ///< Planar YUV 4:1:1, 12bpp, (1 Cr & Cb sample per 4x1 Y samples)
- PIX_FMT_RGB565, ///< Packed RGB 5:6:5, 16bpp, (msb) 5R 6G 5B(lsb), in cpu endianness
- PIX_FMT_RGB555, ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5R 5G 5B(lsb), in cpu endianness most significant bit to 1
- PIX_FMT_GRAY8, ///< Y , 8bpp
- PIX_FMT_MONOWHITE, ///< Y , 1bpp, 1 is white
- PIX_FMT_MONOBLACK, ///< Y , 1bpp, 0 is black
- PIX_FMT_PAL8, ///< 8 bit with PIX_FMT_RGB32 palette
- PIX_FMT_YUVJ420P, ///< Planar YUV 4:2:0, 12bpp, full scale (jpeg)
- PIX_FMT_YUVJ422P, ///< Planar YUV 4:2:2, 16bpp, full scale (jpeg)
- PIX_FMT_YUVJ444P, ///< Planar YUV 4:4:4, 24bpp, full scale (jpeg)
- PIX_FMT_XVMC_MPEG2_MC,///< XVideo Motion Acceleration via common packet passing(xvmc_render.h)
- PIX_FMT_XVMC_MPEG2_IDCT,
- PIX_FMT_UYVY422, ///< Packed YUV 4:2:2, 16bpp, Cb Y0 Cr Y1
- PIX_FMT_UYYVYY411, ///< Packed YUV 4:1:1, 12bpp, Cb Y0 Y1 Cr Y2 Y3
- PIX_FMT_BGR32, ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8B 8G 8R(lsb), in cpu endianness
- PIX_FMT_BGR565, ///< Packed RGB 5:6:5, 16bpp, (msb) 5B 6G 5R(lsb), in cpu endianness
- PIX_FMT_BGR555, ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5B 5G 5R(lsb), in cpu endianness most significant bit to 1
- PIX_FMT_BGR8, ///< Packed RGB 3:3:2, 8bpp, (msb)2B 3G 3R(lsb)
- PIX_FMT_BGR4, ///< Packed RGB 1:2:1, 4bpp, (msb)1B 2G 1R(lsb)
- PIX_FMT_BGR4_BYTE, ///< Packed RGB 1:2:1, 8bpp, (msb)1B 2G 1R(lsb)
- PIX_FMT_RGB8, ///< Packed RGB 3:3:2, 8bpp, (msb)2R 3G 3B(lsb)
- PIX_FMT_RGB4, ///< Packed RGB 1:2:1, 4bpp, (msb)2R 3G 3B(lsb)
- PIX_FMT_RGB4_BYTE, ///< Packed RGB 1:2:1, 8bpp, (msb)2R 3G 3B(lsb)
- PIX_FMT_NV12, ///< Planar YUV 4:2:0, 12bpp, 1 plane for Y and 1 for UV
- PIX_FMT_NV21, ///< as above, but U and V bytes are swapped
-
- PIX_FMT_RGB32_1, ///< Packed RGB 8:8:8, 32bpp, (msb)8R 8G 8B 8A(lsb), in cpu endianness
- PIX_FMT_BGR32_1, ///< Packed RGB 8:8:8, 32bpp, (msb)8B 8G 8R 8A(lsb), in cpu endianness
-
- PIX_FMT_NB, ///< number of pixel formats, DO NOT USE THIS if you want to link with shared libav* because the number of formats might differ between versions
- PIX_FMT_FACKED = $FFFFF
- );
-
-const
-{$ifdef WORDS_BIGENDIAN}
- PIX_FMT_RGBA = PIX_FMT_RGB32_1;
- PIX_FMT_BGRA = PIX_FMT_BGR32_1;
- PIX_FMT_ARGB = PIX_FMT_RGB32;
- PIX_FMT_ABGR = PIX_FMT_BGR32;
-{$else}
- PIX_FMT_RGBA = PIX_FMT_BGR32;
- PIX_FMT_BGRA = PIX_FMT_RGB32;
- PIX_FMT_ARGB = PIX_FMT_BGR32_1;
- PIX_FMT_ABGR = PIX_FMT_RGB32_1;
-{$endif}
-
- PIX_FMT_UYVY411 = PIX_FMT_UYYVYY411;
- PIX_FMT_RGBA32 = PIX_FMT_RGB32;
- PIX_FMT_YUV422 = PIX_FMT_YUYV422;
-
-(* memory *)
-function av_malloc (size: cardinal): pointer;
- cdecl; external av__util;
-
-function av_realloc (ptr: pointer; size: cardinal): pointer;
- cdecl; external av__util;
-
-procedure av_free (ptr: pointer);
- cdecl; external av__util;
-
-function av_mallocz (size: cardinal): pointer;
- cdecl; external av__util;
-
-function av_strdup(const s: pchar): pchar;
- cdecl; external av__util;
-
-procedure av_freep (ptr: pointer);
- cdecl; external av__util;
-
-implementation
-
-end.
+ (* + * copyright (c) 2006 Michael Niedermayer <michaelni@gmx.at> + * + * 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 avutil; + +interface + + +const + {$IFDEF win32} + av__util = 'avutil-49.dll'; + {$ELSE} + av__util = 'libavutil.so'; // .0d + {$ENDIF} + + LIBAVUTIL_VERSION_INT = ((49 shl 16) + (0 shl 8) + 1); + LIBAVUTIL_VERSION = '49.0.1'; + LIBAVUTIL_BUILD = LIBAVUTIL_VERSION_INT; + +type +(** + * Pixel format. Notes: + * + * PIX_FMT_RGB32 is handled in an endian-specific manner. A RGBA + * color is put together as: + * (A << 24) | (R << 16) | (G << 8) | B + * This is stored as BGRA on little endian CPU architectures and ARGB on + * big endian CPUs. + * + * When the pixel format is palettized RGB (PIX_FMT_PAL8), the palettized + * image data is stored in AVFrame.data[0]. The palette is transported in + * AVFrame.data[1] and, is 1024 bytes long (256 4-byte entries) and is + * formatted the same as in PIX_FMT_RGB32 described above (i.e., it is + * also endian-specific). Note also that the individual RGB palette + * components stored in AVFrame.data[1] should be in the range 0..255. + * This is important as many custom PAL8 video codecs that were designed + * to run on the IBM VGA graphics adapter use 6-bit palette components. + *) + + PAVPixelFormat = ^TAVPixelFormat; + TAVPixelFormat = ( + PIX_FMT_NONE= -1, + PIX_FMT_YUV420P, ///< Planar YUV 4:2:0, 12bpp, (1 Cr & Cb sample per 2x2 Y samples) + PIX_FMT_YUYV422, ///< Packed YUV 4:2:2, 16bpp, Y0 Cb Y1 Cr + PIX_FMT_RGB24, ///< Packed RGB 8:8:8, 24bpp, RGBRGB... + PIX_FMT_BGR24, ///< Packed RGB 8:8:8, 24bpp, BGRBGR... + PIX_FMT_YUV422P, ///< Planar YUV 4:2:2, 16bpp, (1 Cr & Cb sample per 2x1 Y samples) + PIX_FMT_YUV444P, ///< Planar YUV 4:4:4, 24bpp, (1 Cr & Cb sample per 1x1 Y samples) + PIX_FMT_RGB32, ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8R 8G 8B(lsb), in cpu endianness + PIX_FMT_YUV410P, ///< Planar YUV 4:1:0, 9bpp, (1 Cr & Cb sample per 4x4 Y samples) + PIX_FMT_YUV411P, ///< Planar YUV 4:1:1, 12bpp, (1 Cr & Cb sample per 4x1 Y samples) + PIX_FMT_RGB565, ///< Packed RGB 5:6:5, 16bpp, (msb) 5R 6G 5B(lsb), in cpu endianness + PIX_FMT_RGB555, ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5R 5G 5B(lsb), in cpu endianness most significant bit to 1 + PIX_FMT_GRAY8, ///< Y , 8bpp + PIX_FMT_MONOWHITE, ///< Y , 1bpp, 1 is white + PIX_FMT_MONOBLACK, ///< Y , 1bpp, 0 is black + PIX_FMT_PAL8, ///< 8 bit with PIX_FMT_RGB32 palette + PIX_FMT_YUVJ420P, ///< Planar YUV 4:2:0, 12bpp, full scale (jpeg) + PIX_FMT_YUVJ422P, ///< Planar YUV 4:2:2, 16bpp, full scale (jpeg) + PIX_FMT_YUVJ444P, ///< Planar YUV 4:4:4, 24bpp, full scale (jpeg) + PIX_FMT_XVMC_MPEG2_MC,///< XVideo Motion Acceleration via common packet passing(xvmc_render.h) + PIX_FMT_XVMC_MPEG2_IDCT, + PIX_FMT_UYVY422, ///< Packed YUV 4:2:2, 16bpp, Cb Y0 Cr Y1 + PIX_FMT_UYYVYY411, ///< Packed YUV 4:1:1, 12bpp, Cb Y0 Y1 Cr Y2 Y3 + PIX_FMT_BGR32, ///< Packed RGB 8:8:8, 32bpp, (msb)8A 8B 8G 8R(lsb), in cpu endianness + PIX_FMT_BGR565, ///< Packed RGB 5:6:5, 16bpp, (msb) 5B 6G 5R(lsb), in cpu endianness + PIX_FMT_BGR555, ///< Packed RGB 5:5:5, 16bpp, (msb)1A 5B 5G 5R(lsb), in cpu endianness most significant bit to 1 + PIX_FMT_BGR8, ///< Packed RGB 3:3:2, 8bpp, (msb)2B 3G 3R(lsb) + PIX_FMT_BGR4, ///< Packed RGB 1:2:1, 4bpp, (msb)1B 2G 1R(lsb) + PIX_FMT_BGR4_BYTE, ///< Packed RGB 1:2:1, 8bpp, (msb)1B 2G 1R(lsb) + PIX_FMT_RGB8, ///< Packed RGB 3:3:2, 8bpp, (msb)2R 3G 3B(lsb) + PIX_FMT_RGB4, ///< Packed RGB 1:2:1, 4bpp, (msb)2R 3G 3B(lsb) + PIX_FMT_RGB4_BYTE, ///< Packed RGB 1:2:1, 8bpp, (msb)2R 3G 3B(lsb) + PIX_FMT_NV12, ///< Planar YUV 4:2:0, 12bpp, 1 plane for Y and 1 for UV + PIX_FMT_NV21, ///< as above, but U and V bytes are swapped + + PIX_FMT_RGB32_1, ///< Packed RGB 8:8:8, 32bpp, (msb)8R 8G 8B 8A(lsb), in cpu endianness + PIX_FMT_BGR32_1, ///< Packed RGB 8:8:8, 32bpp, (msb)8B 8G 8R 8A(lsb), in cpu endianness + + PIX_FMT_NB, ///< number of pixel formats, DO NOT USE THIS if you want to link with shared libav* because the number of formats might differ between versions + PIX_FMT_FACKED = $FFFFF + ); + +const +{$ifdef WORDS_BIGENDIAN} + PIX_FMT_RGBA = PIX_FMT_RGB32_1; + PIX_FMT_BGRA = PIX_FMT_BGR32_1; + PIX_FMT_ARGB = PIX_FMT_RGB32; + PIX_FMT_ABGR = PIX_FMT_BGR32; +{$else} + PIX_FMT_RGBA = PIX_FMT_BGR32; + PIX_FMT_BGRA = PIX_FMT_RGB32; + PIX_FMT_ARGB = PIX_FMT_BGR32_1; + PIX_FMT_ABGR = PIX_FMT_RGB32_1; +{$endif} + + PIX_FMT_UYVY411 = PIX_FMT_UYYVYY411; + PIX_FMT_RGBA32 = PIX_FMT_RGB32; + PIX_FMT_YUV422 = PIX_FMT_YUYV422; + +(* memory *) +function av_malloc (size: cardinal): pointer; + cdecl; external av__util; + +function av_realloc (ptr: pointer; size: cardinal): pointer; + cdecl; external av__util; + +procedure av_free (ptr: pointer); + cdecl; external av__util; + +function av_mallocz (size: cardinal): pointer; + cdecl; external av__util; + +function av_strdup(const s: pchar): pchar; + cdecl; external av__util; + +procedure av_freep (ptr: pointer); + cdecl; external av__util; + +implementation + +end. diff --git a/Game/Code/lib/ffmpeg/lazarustest.lpi b/Game/Code/lib/ffmpeg/lazarustest.lpi index 3cd1c3de..399b8b7e 100644 --- a/Game/Code/lib/ffmpeg/lazarustest.lpi +++ b/Game/Code/lib/ffmpeg/lazarustest.lpi @@ -1,194 +1,226 @@ -<?xml version="1.0"?>
-<CONFIG>
- <ProjectOptions>
- <PathDelim Value="\"/>
- <Version Value="5"/>
- <General>
- <MainUnit Value="0"/>
- <IconPath Value="./"/>
- <TargetFileExt Value=".exe"/>
- <ActiveEditorIndexAtStart Value="1"/>
- </General>
- <VersionInfo>
- <ProjectVersion Value=""/>
- <Language Value=""/>
- <CharSet Value=""/>
- </VersionInfo>
- <PublishOptions>
- <Version Value="2"/>
- <IgnoreBinaries Value="False"/>
- <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
- <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
- </PublishOptions>
- <RunParams>
- <local>
- <FormatVersion Value="1"/>
- <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
- </local>
- </RunParams>
- <Units Count="5">
- <Unit0>
- <Filename Value="lazarustest.lpr"/>
- <IsPartOfProject Value="True"/>
- <UnitName Value="lazarustest"/>
- <CursorPos X="26" Y="8"/>
- <TopLine Value="1"/>
- <EditorIndex Value="0"/>
- <UsageCount Value="22"/>
- <Loaded Value="True"/>
- </Unit0>
- <Unit1>
- <Filename Value="delphi\bass.pas"/>
- <UnitName Value="Bass"/>
- <CursorPos X="12" Y="539"/>
- <TopLine Value="589"/>
- <UsageCount Value="10"/>
- </Unit1>
- <Unit2>
- <Filename Value="avformat.pas"/>
- <UnitName Value="avformat"/>
- <CursorPos X="38" Y="594"/>
- <TopLine Value="567"/>
- <EditorIndex Value="1"/>
- <UsageCount Value="10"/>
- <Loaded Value="True"/>
- </Unit2>
- <Unit3>
- <Filename Value="avcodec.pas"/>
- <UnitName Value="avcodec"/>
- <CursorPos X="3" Y="1796"/>
- <TopLine Value="1775"/>
- <EditorIndex Value="2"/>
- <UsageCount Value="11"/>
- <Loaded Value="True"/>
- </Unit3>
- <Unit4>
- <Filename Value="avio.pas"/>
- <UnitName Value="avio"/>
- <CursorPos X="1" Y="1"/>
- <TopLine Value="1"/>
- <EditorIndex Value="3"/>
- <UsageCount Value="11"/>
- <Loaded Value="True"/>
- </Unit4>
- </Units>
- <JumpHistory Count="24" HistoryIndex="23">
- <Position1>
- <Filename Value="lazarustest.lpr"/>
- <Caret Line="16" Column="18" TopLine="1"/>
- </Position1>
- <Position2>
- <Filename Value="avio.pas"/>
- <Caret Line="28" Column="38" TopLine="36"/>
- </Position2>
- <Position3>
- <Filename Value="avio.pas"/>
- <Caret Line="29" Column="7" TopLine="9"/>
- </Position3>
- <Position4>
- <Filename Value="avio.pas"/>
- <Caret Line="30" Column="7" TopLine="10"/>
- </Position4>
- <Position5>
- <Filename Value="avio.pas"/>
- <Caret Line="31" Column="7" TopLine="11"/>
- </Position5>
- <Position6>
- <Filename Value="avio.pas"/>
- <Caret Line="44" Column="10" TopLine="40"/>
- </Position6>
- <Position7>
- <Filename Value="avio.pas"/>
- <Caret Line="1" Column="1" TopLine="1"/>
- </Position7>
- <Position8>
- <Filename Value="avio.pas"/>
- <Caret Line="23" Column="5" TopLine="3"/>
- </Position8>
- <Position9>
- <Filename Value="avio.pas"/>
- <Caret Line="1" Column="1" TopLine="1"/>
- </Position9>
- <Position10>
- <Filename Value="avcodec.pas"/>
- <Caret Line="567" Column="24" TopLine="560"/>
- </Position10>
- <Position11>
- <Filename Value="avcodec.pas"/>
- <Caret Line="1968" Column="5" TopLine="1928"/>
- </Position11>
- <Position12>
- <Filename Value="avcodec.pas"/>
- <Caret Line="22" Column="31" TopLine="6"/>
- </Position12>
- <Position13>
- <Filename Value="avcodec.pas"/>
- <Caret Line="247" Column="14" TopLine="227"/>
- </Position13>
- <Position14>
- <Filename Value="avcodec.pas"/>
- <Caret Line="546" Column="46" TopLine="526"/>
- </Position14>
- <Position15>
- <Filename Value="avcodec.pas"/>
- <Caret Line="20" Column="26" TopLine="1"/>
- </Position15>
- <Position16>
- <Filename Value="avcodec.pas"/>
- <Caret Line="250" Column="59" TopLine="230"/>
- </Position16>
- <Position17>
- <Filename Value="avcodec.pas"/>
- <Caret Line="841" Column="53" TopLine="821"/>
- </Position17>
- <Position18>
- <Filename Value="avio.pas"/>
- <Caret Line="1" Column="1" TopLine="1"/>
- </Position18>
- <Position19>
- <Filename Value="avio.pas"/>
- <Caret Line="236" Column="8" TopLine="205"/>
- </Position19>
- <Position20>
- <Filename Value="avformat.pas"/>
- <Caret Line="1" Column="1" TopLine="1"/>
- </Position20>
- <Position21>
- <Filename Value="avformat.pas"/>
- <Caret Line="568" Column="3" TopLine="541"/>
- </Position21>
- <Position22>
- <Filename Value="avformat.pas"/>
- <Caret Line="41" Column="17" TopLine="25"/>
- </Position22>
- <Position23>
- <Filename Value="avformat.pas"/>
- <Caret Line="1" Column="1" TopLine="1"/>
- </Position23>
- <Position24>
- <Filename Value="avformat.pas"/>
- <Caret Line="588" Column="1" TopLine="557"/>
- </Position24>
- </JumpHistory>
- </ProjectOptions>
- <CompilerOptions>
- <Version Value="5"/>
- <PathDelim Value="\"/>
- <CodeGeneration>
- <Generate Value="Faster"/>
- </CodeGeneration>
- <Other>
- <CompilerPath Value="$(CompPath)"/>
- </Other>
- </CompilerOptions>
- <Debugging>
- <Exceptions Count="2">
- <Item1>
- <Name Value="ECodetoolError"/>
- </Item1>
- <Item2>
- <Name Value="EFOpenError"/>
- </Item2>
- </Exceptions>
- </Debugging>
-</CONFIG>
+<?xml version="1.0"?> +<CONFIG> + <ProjectOptions> + <PathDelim Value="/"/> + <Version Value="5"/> + <General> + <MainUnit Value="0"/> + <IconPath Value="./"/> + <TargetFileExt Value=".exe"/> + <ActiveEditorIndexAtStart Value="0"/> + </General> + <VersionInfo> + <ProjectVersion Value=""/> + <Language Value=""/> + <CharSet Value=""/> + </VersionInfo> + <PublishOptions> + <Version Value="2"/> + <IgnoreBinaries Value="False"/> + <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/> + <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/> + </PublishOptions> + <RunParams> + <local> + <FormatVersion Value="1"/> + <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> + </local> + </RunParams> + <Units Count="6"> + <Unit0> + <Filename Value="lazarustest.lpr"/> + <IsPartOfProject Value="True"/> + <UnitName Value="lazarustest"/> + <CursorPos X="37" Y="24"/> + <TopLine Value="1"/> + <EditorIndex Value="0"/> + <UsageCount Value="23"/> + <Loaded Value="True"/> + </Unit0> + <Unit1> + <Filename Value="delphi/bass.pas"/> + <UnitName Value="Bass"/> + <CursorPos X="12" Y="539"/> + <TopLine Value="589"/> + <UsageCount Value="10"/> + </Unit1> + <Unit2> + <Filename Value="avformat.pas"/> + <UnitName Value="avformat"/> + <CursorPos X="8" Y="40"/> + <TopLine Value="1"/> + <EditorIndex Value="2"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit2> + <Unit3> + <Filename Value="avcodec.pas"/> + <UnitName Value="avcodec"/> + <CursorPos X="13" Y="34"/> + <TopLine Value="12"/> + <EditorIndex Value="3"/> + <UsageCount Value="11"/> + <Loaded Value="True"/> + </Unit3> + <Unit4> + <Filename Value="avio.pas"/> + <UnitName Value="avio"/> + <CursorPos X="1" Y="1"/> + <TopLine Value="1"/> + <EditorIndex Value="4"/> + <UsageCount Value="11"/> + <Loaded Value="True"/> + </Unit4> + <Unit5> + <Filename Value="avutil.pas"/> + <UnitName Value="avutil"/> + <CursorPos X="5" Y="28"/> + <TopLine Value="1"/> + <EditorIndex Value="1"/> + <UsageCount Value="10"/> + <Loaded Value="True"/> + </Unit5> + </Units> + <JumpHistory Count="30" HistoryIndex="29"> + <Position1> + <Filename Value="avcodec.pas"/> + <Caret Line="433" Column="65" TopLine="411"/> + </Position1> + <Position2> + <Filename Value="avcodec.pas"/> + <Caret Line="577" Column="30" TopLine="555"/> + </Position2> + <Position3> + <Filename Value="avcodec.pas"/> + <Caret Line="578" Column="23" TopLine="556"/> + </Position3> + <Position4> + <Filename Value="avcodec.pas"/> + <Caret Line="583" Column="48" TopLine="561"/> + </Position4> + <Position5> + <Filename Value="avcodec.pas"/> + <Caret Line="585" Column="39" TopLine="563"/> + </Position5> + <Position6> + <Filename Value="avcodec.pas"/> + <Caret Line="591" Column="11" TopLine="569"/> + </Position6> + <Position7> + <Filename Value="avcodec.pas"/> + <Caret Line="593" Column="24" TopLine="571"/> + </Position7> + <Position8> + <Filename Value="avcodec.pas"/> + <Caret Line="664" Column="68" TopLine="642"/> + </Position8> + <Position9> + <Filename Value="avcodec.pas"/> + <Caret Line="674" Column="44" TopLine="652"/> + </Position9> + <Position10> + <Filename Value="avcodec.pas"/> + <Caret Line="738" Column="20" TopLine="716"/> + </Position10> + <Position11> + <Filename Value="avcodec.pas"/> + <Caret Line="759" Column="45" TopLine="737"/> + </Position11> + <Position12> + <Filename Value="avcodec.pas"/> + <Caret Line="828" Column="15" TopLine="806"/> + </Position12> + <Position13> + <Filename Value="avcodec.pas"/> + <Caret Line="832" Column="38" TopLine="810"/> + </Position13> + <Position14> + <Filename Value="avcodec.pas"/> + <Caret Line="839" Column="43" TopLine="817"/> + </Position14> + <Position15> + <Filename Value="avcodec.pas"/> + <Caret Line="851" Column="41" TopLine="829"/> + </Position15> + <Position16> + <Filename Value="avcodec.pas"/> + <Caret Line="1085" Column="38" TopLine="1063"/> + </Position16> + <Position17> + <Filename Value="avcodec.pas"/> + <Caret Line="1204" Column="40" TopLine="1182"/> + </Position17> + <Position18> + <Filename Value="avcodec.pas"/> + <Caret Line="1244" Column="35" TopLine="1222"/> + </Position18> + <Position19> + <Filename Value="avcodec.pas"/> + <Caret Line="1247" Column="58" TopLine="1225"/> + </Position19> + <Position20> + <Filename Value="avcodec.pas"/> + <Caret Line="32" Column="15" TopLine="1"/> + </Position20> + <Position21> + <Filename Value="avcodec.pas"/> + <Caret Line="34" Column="15" TopLine="12"/> + </Position21> + <Position22> + <Filename Value="avcodec.pas"/> + <Caret Line="1" Column="1" TopLine="1"/> + </Position22> + <Position23> + <Filename Value="avcodec.pas"/> + <Caret Line="32" Column="15" TopLine="10"/> + </Position23> + <Position24> + <Filename Value="avformat.pas"/> + <Caret Line="37" Column="15" TopLine="1"/> + </Position24> + <Position25> + <Filename Value="avformat.pas"/> + <Caret Line="39" Column="15" TopLine="17"/> + </Position25> + <Position26> + <Filename Value="avformat.pas"/> + <Caret Line="361" Column="58" TopLine="339"/> + </Position26> + <Position27> + <Filename Value="avformat.pas"/> + <Caret Line="373" Column="51" TopLine="281"/> + </Position27> + <Position28> + <Filename Value="lazarustest.lpr"/> + <Caret Line="25" Column="27" TopLine="1"/> + </Position28> + <Position29> + <Filename Value="lazarustest.lpr"/> + <Caret Line="26" Column="1" TopLine="1"/> + </Position29> + <Position30> + <Filename Value="lazarustest.lpr"/> + <Caret Line="1" Column="1" TopLine="1"/> + </Position30> + </JumpHistory> + </ProjectOptions> + <CompilerOptions> + <Version Value="5"/> + <CodeGeneration> + <Generate Value="Faster"/> + </CodeGeneration> + <Other> + <CompilerPath Value="$(CompPath)"/> + </Other> + </CompilerOptions> + <Debugging> + <Exceptions Count="2"> + <Item1> + <Name Value="ECodetoolError"/> + </Item1> + <Item2> + <Name Value="EFOpenError"/> + </Item2> + </Exceptions> + </Debugging> +</CONFIG> diff --git a/Game/Code/lib/ffmpeg/lazarustest.lpr b/Game/Code/lib/ffmpeg/lazarustest.lpr index 56efac75..10b59b9c 100644 --- a/Game/Code/lib/ffmpeg/lazarustest.lpr +++ b/Game/Code/lib/ffmpeg/lazarustest.lpr @@ -1,27 +1,30 @@ -program lazarustest;
-
-{$MODE Delphi}
-
-uses
-
- avcodec in 'avcodec.pas',
- avformat in 'avformat.pas',
- avutil in 'avutil.pas',
- rational in 'rational.pas',
- opt in 'opt.pas',
- avio in 'avio.pas',
- sysutils;
-
-begin
- // This compiles with all units in..
- // but I cant run it, if its compiled with lazarus or delphi
- // I get errors about not finding functions in dll's
-
- try
-// av_register_all();
- writeln( 'If you see this then ffmpeg is probably lazarus compatible' );
- except
- writeln( 'ffmpeg is NOT lazarus compatible' );
- end;
-end.
-
+program lazarustest; + +{$MODE Delphi} + +uses + + avcodec in 'avcodec.pas', + avformat in 'avformat.pas', + avutil in 'avutil.pas', + rational in 'rational.pas', + opt in 'opt.pas', + avio in 'avio.pas', + sysutils; + +begin + // This compiles with all units in.. + // but I cant run it, if its compiled with lazarus or delphi + // I get errors about not finding functions in dll's + + // ON LINUX - Ubuntu .. you will probably need to + // sudo apt-get install libavcodec-dev libavformat-dev + + try + av_register_all(); + writeln( 'YES - If you see this then ffmpeg is probably lazarus compatible' ); + except + writeln( 'NO - ffmpeg is NOT lazarus compatible' ); + end; +end. + diff --git a/Game/Code/lib/ffmpeg/opt.pas b/Game/Code/lib/ffmpeg/opt.pas index f78ef201..c8b72479 100644 --- a/Game/Code/lib/ffmpeg/opt.pas +++ b/Game/Code/lib/ffmpeg/opt.pas @@ -1,101 +1,109 @@ -(*
- * AVOptions
- * copyright (c) 2005 Michael Niedermayer <michaelni@gmx.at>
- *
- * 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 opt;
-
-interface
-
-uses
- windows, rational;
-
-type
- TAVOptionType = (
- FF_OPT_TYPE_FLAGS,
- FF_OPT_TYPE_INT,
- FF_OPT_TYPE_INT64,
- FF_OPT_TYPE_DOUBLE,
- FF_OPT_TYPE_FLOAT,
- FF_OPT_TYPE_STRING,
- FF_OPT_TYPE_RATIONAL,
- FF_OPT_TYPE_CONST = 128
- );
-
-const
- av__codec = 'avcodec-51.dll';
-
- AV_OPT_FLAG_ENCODING_PARAM = 1; ///< a generic parameter which can be set by the user for muxing or encoding
- AV_OPT_FLAG_DECODING_PARAM = 2; ///< a generic parameter which can be set by the user for demuxing or decoding
- AV_OPT_FLAG_METADATA = 4; ///< some data extracted or inserted into the file like title, comment, ...
- AV_OPT_FLAG_AUDIO_PARAM = 8;
- AV_OPT_FLAG_VIDEO_PARAM = 16;
- AV_OPT_FLAG_SUBTITLE_PARAM = 32;
-
-type
- PAVOption = ^TAVOption;
- TAVOption = record
- name: pchar;
- help: pchar;
- offset: integer; ///< offset to context structure where the parsed value should be stored
- _type: TAVOptionType;
-
- default_val: double;
- min: double;
- max: double;
-
- flags: integer;
-//FIXME think about enc-audio, ... style flags
- _unit: pchar;
- end;
-
-
-function av_set_string (obj: pointer; name: pchar; val: pchar): PAVOption;
- cdecl; external av__codec;
-
-function av_set_double (obj: pointer; name: pchar; n: double): PAVOption;
- cdecl; external av__codec;
-
-function av_set_q (obj: pointer; name: pchar; n: TAVRational): PAVOption;
- cdecl; external av__codec;
-
-function av_set_int (obj: pointer; name: pchar; n: int64): PAVOption;
- cdecl; external av__codec;
-
-function av_get_double (obj: pointer; name: pchar; o_out: PPointer): double;
- cdecl; external av__codec;
-
-function av_get_q (obj: pointer; name: pchar; o_out: PPointer): TAVRational;
- cdecl; external av__codec;
-
-function av_get_int (obj: pointer; name: pchar; o_out: PPointer): int64;
- cdecl; external av__codec;
-
-function av_get_string (obj: pointer; name: pchar; o_out: PPOinter; buf: pchar; buf_len: integer): pchar;
- cdecl; external av__codec;
-
-function av_next_option (obj: pointer; last: PAVOption): PAVOption;
- cdecl; external av__codec;
-
-function av_opt_show (obj: pointer; av_log_obj: pointer): integer;
- cdecl; external av__codec;
-
-procedure av_opt_set_defaults (s: pointer);
- cdecl; external av__codec;
-
-implementation
-
-end.
+(* + * AVOptions + * copyright (c) 2005 Michael Niedermayer <michaelni@gmx.at> + * + * 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 opt; + +interface + +uses + {$IFDEF win32} + windows, + {$ENDIF} + rational; + +type + TAVOptionType = ( + FF_OPT_TYPE_FLAGS, + FF_OPT_TYPE_INT, + FF_OPT_TYPE_INT64, + FF_OPT_TYPE_DOUBLE, + FF_OPT_TYPE_FLOAT, + FF_OPT_TYPE_STRING, + FF_OPT_TYPE_RATIONAL, + FF_OPT_TYPE_CONST = 128 + ); + +const + + {$IFDEF win32} + av__codec = 'avcodec-51.dll'; + {$ELSE} + av__codec = 'avcodec.so'; // .0d + {$ENDIF} + + AV_OPT_FLAG_ENCODING_PARAM = 1; ///< a generic parameter which can be set by the user for muxing or encoding + AV_OPT_FLAG_DECODING_PARAM = 2; ///< a generic parameter which can be set by the user for demuxing or decoding + AV_OPT_FLAG_METADATA = 4; ///< some data extracted or inserted into the file like title, comment, ... + AV_OPT_FLAG_AUDIO_PARAM = 8; + AV_OPT_FLAG_VIDEO_PARAM = 16; + AV_OPT_FLAG_SUBTITLE_PARAM = 32; + +type + PAVOption = ^TAVOption; + TAVOption = record + name: pchar; + help: pchar; + offset: integer; ///< offset to context structure where the parsed value should be stored + _type: TAVOptionType; + + default_val: double; + min: double; + max: double; + + flags: integer; +//FIXME think about enc-audio, ... style flags + _unit: pchar; + end; + + +function av_set_string (obj: pointer; name: pchar; val: pchar): PAVOption; + cdecl; external av__codec; + +function av_set_double (obj: pointer; name: pchar; n: double): PAVOption; + cdecl; external av__codec; + +function av_set_q (obj: pointer; name: pchar; n: TAVRational): PAVOption; + cdecl; external av__codec; + +function av_set_int (obj: pointer; name: pchar; n: int64): PAVOption; + cdecl; external av__codec; + +function av_get_double (obj: pointer; name: pchar; o_out: PPointer): double; + cdecl; external av__codec; + +function av_get_q (obj: pointer; name: pchar; o_out: PPointer): TAVRational; + cdecl; external av__codec; + +function av_get_int (obj: pointer; name: pchar; o_out: PPointer): int64; + cdecl; external av__codec; + +function av_get_string (obj: pointer; name: pchar; o_out: PPOinter; buf: pchar; buf_len: integer): pchar; + cdecl; external av__codec; + +function av_next_option (obj: pointer; last: PAVOption): PAVOption; + cdecl; external av__codec; + +function av_opt_show (obj: pointer; av_log_obj: pointer): integer; + cdecl; external av__codec; + +procedure av_opt_set_defaults (s: pointer); + cdecl; external av__codec; + +implementation + +end. diff --git a/Game/Code/lib/ffmpeg/rational.pas b/Game/Code/lib/ffmpeg/rational.pas index a996e1df..40d1f093 100644 --- a/Game/Code/lib/ffmpeg/rational.pas +++ b/Game/Code/lib/ffmpeg/rational.pas @@ -1,88 +1,96 @@ -(*
- * Rational numbers
- * Copyright (c) 2003 Michael Niedermayer <michaelni@gmx.at>
- *
- * 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 rational;
-
-interface
-
-uses
- windows;
-
-const
- av__util = 'avutil-49.dll';
-
-type
-
-(*
- * Rational number num/den. *)
- PAVRational = ^TAVRational;
- TAVRational = record
- num: integer; ///< numerator
- den: integer; ///< denominator
- end;
-
-(**
- * returns 0 if a==b, 1 if a>b and -1 if a<b.
- *)
-function av_cmp_q(a: TAVRational; b: TAVRational): integer;
-
-(**
- * converts the given AVRational to a double.
- *)
-function av_q2d(a: TAVRational): double;
-
-(**
- * reduce a fraction.
- * this is usefull for framerate calculations
- * @param max the maximum allowed for dst_nom & dst_den
- * @return 1 if exact, 0 otherwise
- *)
-function av_reduce(dst_nom: pinteger; dst_den: PInteger; nom: int64; den: int64; max: int64): integer;
- cdecl; external av__util;
-
-function av_mul_q(b: TAVRational; c: TAVRational): TAVRational;
- cdecl; external av__util;
-function av_div_q(b: TAVRational; c: TAVRational): TAVRational;
- cdecl; external av__util;
-function av_add_q(b: TAVRational; c: TAVRational): TAVRational;
- cdecl; external av__util;
-function av_sub_q(b: TAVRational; c: TAVRational): TAVRational;
- cdecl; external av__util;
-function av_d2q(d: double; max: integer): TAVRational;
- cdecl; external av__util;
-
-implementation
-
-function av_cmp_q (a: TAVRational; b: TAVRational): integer;
-var
- tmp: int64;
-begin
- tmp := a.num * b.den - b.num * a.den;
-
- if tmp = 0 then
- Result := (tmp shr 63) or 1
- else
- Result := 0;
-end;
-
-function av_q2d(a: TAVRational): double;
-begin
- Result := a.num / a.den;
-end;
-
-end.
+(* + * Rational numbers + * Copyright (c) 2003 Michael Niedermayer <michaelni@gmx.at> + * + * 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 rational; + +interface + +{$IFDEF win32} +uses + windows; +{$endif} + +const + + {$IFDEF win32} + av__util = 'avutil-49.dll'; + {$ELSE} + av__util = 'libavutil.so'; // .0d + {$ENDIF} + + +type + +(* + * Rational number num/den. *) + PAVRational = ^TAVRational; + TAVRational = record + num: integer; ///< numerator + den: integer; ///< denominator + end; + +(** + * returns 0 if a==b, 1 if a>b and -1 if a<b. + *) +function av_cmp_q(a: TAVRational; b: TAVRational): integer; + +(** + * converts the given AVRational to a double. + *) +function av_q2d(a: TAVRational): double; + +(** + * reduce a fraction. + * this is usefull for framerate calculations + * @param max the maximum allowed for dst_nom & dst_den + * @return 1 if exact, 0 otherwise + *) +function av_reduce(dst_nom: pinteger; dst_den: PInteger; nom: int64; den: int64; max: int64): integer; + cdecl; external av__util; + +function av_mul_q(b: TAVRational; c: TAVRational): TAVRational; + cdecl; external av__util; +function av_div_q(b: TAVRational; c: TAVRational): TAVRational; + cdecl; external av__util; +function av_add_q(b: TAVRational; c: TAVRational): TAVRational; + cdecl; external av__util; +function av_sub_q(b: TAVRational; c: TAVRational): TAVRational; + cdecl; external av__util; +function av_d2q(d: double; max: integer): TAVRational; + cdecl; external av__util; + +implementation + +function av_cmp_q (a: TAVRational; b: TAVRational): integer; +var + tmp: int64; +begin + tmp := a.num * b.den - b.num * a.den; + + if tmp = 0 then + Result := (tmp shr 63) or 1 + else + Result := 0; +end; + +function av_q2d(a: TAVRational): double; +begin + Result := a.num / a.den; +end; + +end. |