...Informationen zu einer AVI-Datei ermitteln?
Autor: Based project of YAAI updated by Jiri Betunak
Unit AVIinfo;
Interface
Uses Classes, Consts, SysUtils, Windows, Math;
Type
FOURCC = DWORD;
PropertyStrings = (prAviInfo = 2, prFileName, prFileSize, prStreams,
prVideoStream,
prCompression, prVidBitrate, prResolution, prColorDepth,
prRunningTime, prFrameRate, prMsPerFrame, prFrames,
prKeyFrames, prAudioStream, prWaveType, prAudBitrate,
prSamplerate, prBitDepth, prChannels, prAudioDelay);
TagInfo = Record
Name: String; // Name of the tag
Position, Size: Int64; // Position to Size of this ta int64
End;
TMainAVIHeader = Packed Record
dwMicroSecPerFrame: DWORD; // frame display rate (or 0L)
dwMaxBytesPerSec: DWORD; // max. transfer rate
dwPaddingGranularity: DWORD; // pad to multiples of this
// size; normally 2K.
dwFlags: DWORD; // the ever-present flags
dwTotalFrames: DWORD; // # frames in file
dwInitialFrames: DWORD;
dwStreams: DWORD;
dwSuggestedBufferSize: DWORD;
dwWidth: DWORD;
dwHeight: DWORD;
dwReserved: Array[0..3] Of DWORD;
End;
TAVIStreamHeader = Packed Record
fccType: FOURCC;
fccHandler: FOURCC;
dwFlags: DWORD; // Contains AVITF_* flags
wPriority: WORD;
wLanguage: WORD;
dwInitialFrames: DWORD;
dwScale: DWORD;
dwRate: DWORD; // dwRate / dwScale == samples/second
dwStart: DWORD;
dwLength: DWORD; // In units above...
dwSuggestedBufferSize: DWORD;
dwQuality: DWORD;
dwSampleSize: DWORD;
rcFrame: TRECT;
End;
WAVEFORMATEX = Packed Record
wFormatTag: Word; { format type }
nChannels: Word; { number of channels (i.e. mono, stereo, etc.) }
nSamplesPerSec: DWORD; { sample rate }
nAvgBytesPerSec: DWORD; { for buffer estimation }
nBlockAlign: Word; { block size of data }
wBitsPerSample: Word;
cbSize: Word;
End;
TAuthorInfo = Record
Artist, Comment, Copyright, Name, Product, Source, Subject, DisplayName,
Genre, Language, Software:
String;
End;
TBackup = Record
AviH: TMainAVIHeader;
VidSH: TAVIStreamHeader;
AudSH: TAVIStreamHeader;
End;
EAviInfoError = Class(Exception);
TAviStreamInfo = Class(TObject)
Private
fAviHeader: TMainAviHeader;
fVideoStreamHeader: TAviStreamHeader;
fVideoStreamFormat: BitmapInfoHeader;
fAudioStreamHeader: TAviStreamHeader;
fAudioStreamFormat: WaveformatEx;
fHasVideo: Boolean;
fHasAudio: Boolean;
fFrameRate: Double;
fRunningTime: Double;
fAuthorInfo: TAuthorInfo;
fKeyFrames: DWord;
fVideoBitrate: Double;
fAudioBitrate: Double;
fSize: Int64;
fAudioDelay: Double;
fChanged: Boolean;
PropertyStringList: TStringList;
Protected
TagList: Record
Count, Idx1Pos, MoviPos, InfoPos, VidsPos, AudsPos, AvihPos: Byte;
Tags: Array[0..40] Of TagInfo;
End;
Backup: TBackup;
AviStream: TStream;
Procedure CreateTagList(AStream: TStream);
Procedure ParseTagList(AStream: TStream);
Procedure CalcKeyFrames(AStream: TStream);
Procedure FillPropertyString;
Procedure FillPropertyStringNoDescription;
Function TimeToShortString(myTime: Double): String;
Procedure SetAuthorInfo(Value: TAuthorInfo); Virtual;
Procedure SetFrameRate(Value: Double); Virtual;
Procedure SetAudioDelay(Value: Double); Virtual;
// CheckAVI should make sure before altering the AVI that it's the same
// file/stream that was used with LoadAVI
// Implement it if you need to use TAviStreamInfo,
// currently it always returns false.
Function CheckAVI(AStream: TStream): Boolean;
Public
Constructor Create;
Destructor Destroy; Override;
// procedure LoadAVI(AStream: TStream);
Procedure LoadAVI(AStream: TStream; Description: Boolean);
Procedure UndoChanges;
Procedure SaveToFile(aFilename: TFileName);
Procedure SaveToStream(AStream: TStream);
Function PropertyString(pr: PropertyStrings): String;
Property AviHeader: TMainAviHeader Read fAviHeader;
Property VideoStreamHeader: TAviStreamHeader Read fVideoStreamHeader;
Property VideoStreamFormat: BitmapInfoHeader Read fVideoStreamFormat;
Property AudioStreamHeader: TAviStreamHeader Read fAudioStreamHeader;
Property AudioStreamFormat: WaveFormatEx Read fAudioStreamFormat;
Property HasVideo: Boolean Read fHasVideo;
Property HasAudio: Boolean Read fHasAudio;
Property FrameRate: Double Read fFrameRate Write SetFrameRate;
Property RunningTime: Double Read fRunningTime;
Property KeyFrames: DWord Read fKeyFrames;
Property VideoBitrate: Double Read fVideoBitrate;
Property AudioBitrate: Double Read fAudioBitrate;
Property AudioDelay: Double Read fAudioDelay Write SetAudioDelay;
Property AuthorInfo: TAuthorInfo Read fAuthorInfo Write SetAuthorInfo;
Property Size: Int64 Read fSize;
Property Changed: Boolean Read fChanged;
Published
End;
TAviFileInfo = Class(TAviStreamInfo)
Private
Protected
fAviFile: TFileName;
Function CheckAVI(Const Filename: String): Boolean;
Procedure SetAuthorInfo(Value: TAuthorInfo); Override;
Procedure SetFrameRate(Value: Double); Override;
Procedure SetAudioDelay(Value: Double); Override;
Public
Procedure UndoChanges;
Property AviFile: TFileName Read fAviFile;
Procedure LoadAVI(Const FileName: TFilename; Description: Boolean);
// procedure LoadAVI(const FileName: TFileName);
End;
Function fcc2String(fcc: FourCC): String;
Function Wavetype2String(WaveType: Word): String;
Function CodecIdent2String(fcc: FourCC): String;
Implementation
// **********************************
// ** USEFUL MAKROS
// **********************************
Function fcc2String(fcc: FourCC): String;
Var
Buffer: Array[0..3] Of Char;
Begin
Move(fcc, Buffer, SizeOf(Buffer));
Result := Buffer;
End;
Function GetStringFromResource(Name: String): String;
Begin
With TResourceStream.Create(HInstance, Name, RT_RCDATA) Do
Try
SetLength(Result, Size);
Read(Result[1], Size);
Finally
Free;
End;
End;
Function Wavetype2String(WaveType: Word): String;
Var
StrLst: TStringList;
I, P: Integer;
S: String;
Begin
StrLst := TStringList.Create;
Try
StrLst.Text := GetStringFromResource('AudioCodecs');
For i := 0 To StrLst.Count - 1 Do
Begin
S := StrLst[i];
// TStrings.NameValueSeperator property isn't there on D6 or lower,
// So i just use '=' here (as this is the default).
// P := AnsiPos(StrLst.NameValueSeparator, S);
P := AnsiPos('=', S);
If P > 0 Then
Begin
If WaveType = StrToInt(Copy(S, 1, P - 1)) Then
Begin
// Again, ValueFromIndex doesn't seem to be there on D6 or lower.
// Result:=StrLst.ValueFromIndex[i];
Result := StrLst.Values[StrLst.Names[i]];
Exit;
End;
End;
End;
Finally
StrLst.Free;
End;
End;
Function CodecIdent2String(fcc: FourCC): String;
Var
Codec: String;
S: TStringList;
Begin
Result := '';
Codec := Fcc2String(Fcc);
S := TStringList.Create;
Try
S.Text := GetStringFromResource('VideoCodecs');
Result := S.Values[Codec];
Finally
S.Free;
End;
If Result = '' Then
Result := 'Unknown';
End;
{ TAviFileInfo }
Function TAviFileInfo.CheckAVI(Const Filename: String): Boolean;
Begin
Result := (Filename = fAviFile);
End;
Procedure TAviFileInfo.LoadAVI(Const FileName: TFilename; Description:
Boolean);
Var
tempStream: TFileStream;
Begin
fAviFile := FileName;
tempStream := TFileStream.Create(Filename, fmOpenRead Or fmShareDenyWrite);
Try
Inherited LoadAVI(tempStream, Description);
Finally
tempstream.Free;
End;
PropertyStringList[ord(prFileName)] :=
StringReplace(PropertyStringList[ord(prFileName)],
'None [Loaded from Stream]',
ExtractFileName(FileName), []);
End;
Procedure TAviFileInfo.SetAudioDelay(Value: Double);
Var
tempStream: TFileStream;
Begin
tempStream := TFileStream.Create(fAviFile, fmOpenReadWrite Or
fmShareDenyWrite);
Try
AviStream := tempStream;
Inherited SetAudioDelay(Value);
Finally
tempstream.Free;
End;
End;
Procedure TAviFileInfo.SetAuthorInfo(Value: TAuthorInfo);
Var
tempStream: TFileStream;
Begin
tempStream := TFileStream.Create(fAviFile, fmOpenReadWrite Or
fmShareDenyWrite);
Try
AviStream := tempStream;
Inherited SetAuthorInfo(Value);
Finally
tempstream.Free;
End;
End;
Procedure TAviFileInfo.SetFrameRate(Value: Double);
Var
tempStream: TFileStream;
Begin
tempStream := TFileStream.Create(fAviFile, fmOpenReadWrite Or
fmShareDenyWrite);
Try
AviStream := tempStream;
Inherited SetFrameRate(Value);
Finally
tempstream.Free;
End;
End;
Procedure TAviFileInfo.UndoChanges;
Var
tempStream: TFileStream;
Begin
tempStream := TFileStream.Create(fAviFile, fmOpenReadWrite Or
fmShareExclusive);
Try
AviStream := tempStream;
Inherited UndoChanges;
Finally
tempstream.Free;
End;
End;
{ TAviStreamInfo }
Procedure TAviStreamInfo.UndoChanges;
Begin
// AStream.Seek(0,soBeginning);
// AStream.Write(BackupHdr,sizeof(BackupHdr));
AviStream.Seek(TagList.Tags[TagList.AudsPos].Position + 4, soBeginning);
AviStream.WriteBuffer(BackUp.AudSH, SizeOf(BackUp.AudSH));
AviStream.Seek(TagList.Tags[TagList.VidsPos].Position + 4, soBeginning);
AviStream.WriteBuffer(BackUp.VidSH, SizeOf(BackUp.VidSH));
AviStream.Seek(TagList.Tags[TagList.AvihPos].Position + 16, soBeginning);
AviStream.WriteBuffer(BackUp.AviH, SizeOf(BackUp.AviH));
End;
Procedure TAviStreamInfo.LoadAVI(AStream: TStream; Description: Boolean);
Begin
fSize := AStream.Size;
fChanged := false;
AviStream := AStream;
CreateTagList(AStream); // Fill the array TagList
// It contains the positions of the
// tags in the file.
ParseTagList(AStream); // Interpret the TagList and fill
// the public properties with the info
CalcKeyFrames(AStream);
If Description Then
FillPropertyString
Else
FillPropertyStringNoDescription;
End;
Procedure TAviStreamInfo.CreateTagList(AStream: TStream);
Var
Code: String;
ChunkSize: DWord;
StreamSize, ChunkPos: Int64;
Buffer: Array[0..3] Of Char;
Begin
StreamSize := Astream.Size; // Astream.Size is a
// property -> Slower
AStream.Seek(0, soBeginning);
TagList.Count := 0;
While Astream.Position < StreamSize - 4 Do
Begin
AStream.Read(Buffer, Sizeof(Buffer));
ChunkPos := Astream.Position;
Code := AnsiUpperCase(Buffer); {-GENRE,,}
If (Code = 'INFO') Or (Code = 'AVIH') Or (Code = 'IART') Or (Code =
'ICMT') Or
(Code = 'ICOP') Or (Code = 'INAM') Or (Code = 'IPRD') Or (Code = 'ISBJ')
Or
(Code = 'ISRC') Or (Code = 'STRF') Or (Code = 'DISP') Or (Code = 'STRH')
Or
(Code = 'STRD') Or (Code = 'MOVI') Or (Code = 'IDX1') Or (Code = 'JUNK')
Or
(Code = 'PRMI') Or (Code = 'LIST') Or (Code = 'IGNR') Or (Code = 'ILNG')
Or (Code = 'ISFT') Then
Begin
AStream.Read(ChunkSize, Sizeof(ChunkSize));
If Code = 'MOVI' Then
Begin
AStream.Seek(-12, soCurrent);
AStream.Read(ChunkSize, Sizeof(ChunkSize));
AStream.Seek(ChunkSize, soCurrent);
End;
If Code = 'INFO' Then
Begin
AStream.Seek(-12, soCurrent);
AStream.Read(ChunkSize, Sizeof(ChunkSize));
AStream.Seek(4, soCurrent);
End;
If (Code = 'JUNK') Or (Code = 'DISP') Or (Code = 'IDX1') Then
AStream.Seek(ChunkSize, soCurrent);
TagList.Tags[TagList.Count].Name := Code;
TagList.Tags[TagList.Count].Position := ChunkPos;
TagList.Tags[TagList.Count].Size := ChunkSize;
Inc(TagList.Count);
End
Else
Begin
AStream.Seek(-3, soCurrent);
End;
End;
End;
Procedure TAviStreamInfo.ParseTagList(AStream: TStream);
Function ReadAuthorInfo(AStream: TStream; i: Byte): AnsiString;
Var
BigBuffer: Array[0..2147] Of Char; //2147
InfoSize: LongInt;
s, sc: String;
ii: Integer;
Begin
AStream.Seek(TagList.Tags[i].Position, soBeginning);
InfoSize := AStream.Read(BigBuffer, Min(TagList.Tags[i].Size + 3,
Sizeof(BigBuffer)));
s := '';
For ii := 1 To InfoSize - 1 Do
Begin
sc := BigBuffer[ii];
If sc <> #0 Then
s := s + sc;
End;
Result := s; //Copy(s, 0, InfoSize);
End;
Var
i: byte;
Code: String;
StreamHeader: TAviStreamHeader;
Begin
For i := 0 To TagList.Count Do
Begin
If TagList.Tags[i].Name = 'AVIH' Then
Begin
AStream.Seek(TagList.Tags[i].Position + 4, soBeginning);
AStream.Read(fAviHeader, Sizeof(fAviHeader));
End;
If TagList.tags[i].Name = 'STRH' Then
Begin
AStream.Seek(TagList.Tags[i].Position + 4, soBeginning);
AStream.Read(StreamHeader, SizeOf(StreamHeader));
Code := AnsiUpperCase(fcc2String(StreamHeader.fccType));
If code = 'VIDS' Then
Begin
fHasVideo := true;
TagList.VidsPos := i;
fVideoStreamHeader := StreamHeader;
fFrameRate := StreamHeader.dwRate / StreamHeader.dwScale;
fRunningTime := AviHeader.dwTotalFrames / FrameRate;
AStream.Read(fVideoStreamFormat, Sizeof(fVideoStreamFormat));
End;
If code = 'AUDS' Then
Begin
fHasAudio := true;
TagList.AudsPos := i;
fAudioStreamHeader := StreamHeader;
AStream.Read(fAudioStreamFormat, Sizeof(fAudioStreamFormat));
End;
End; // Ende STRH
If TagList.tags[i].Name = 'IART' Then //director
fAuthorInfo.Artist := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'ICMT' Then
fAuthorInfo.Comment := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'ICOP' Then //CPYRIGHT
fAuthorInfo.Copyright := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'INAM' Then //title
fAuthorInfo.Name := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'IPRD' Then //product
fAuthorInfo.Product := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'ISRC' Then
fAuthorInfo.Source := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'ISBJ' Then //SUBJECT
fAuthorInfo.Subject := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'DISP' Then
fAuthorInfo.DisplayName := ReadAuthorInfo(AStream, i);
{________}
If TagList.tags[i].Name = 'IGNR' Then //genre
fAuthorInfo.Genre := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'ILNG' Then //lang
fAuthorInfo.Language := ReadAuthorInfo(AStream, i);
If TagList.tags[i].Name = 'ISFT' Then //software
fAuthorInfo.Software := ReadAuthorInfo(AStream, i);
{________}
If TagList.Tags[i].Name = 'IDX1' Then
TagList.Idx1Pos := i;
If TagList.Tags[i].Name = 'INFO' Then
TagList.InfoPos := i;
If TagList.Tags[i].Name = 'MOVI' Then
TagList.MoviPos := i;
End;
fAudioDelay := (AudioStreamHeader.dwStart * AudioStreamHeader.dwScale /
AudioStreamHeader.dwRate) - (VideoStreamHeader.dwStart / FrameRate);
// Backup Everything
BackUp.AviH := AviHeader;
Backup.VidSH := VideoStreamHeader;
Backup.AudSH := AudioStreamHeader;
End;
Constructor TAviStreamInfo.Create;
Begin
fHasVideo := false;
fHasAudio := false;
fChanged := false;
PropertyStringList := TStringList.Create;
End;
Procedure TAviStreamInfo.CalcKeyFrames(AStream: TStream);
Var
Idx1End, BytesRead: Int64;
Keyfr: LongInt;
Buffer: Array[1..2048] Of byte;
i: word;
VidStreamSize, AudStreamSize: Dword;
Begin
KeyFr := 0;
VidStreamSize := 0;
AudStreamSize := 0;
AStream.Seek(TagList.Tags[TagList.Idx1Pos].Position + 4, soBeginning);
Idx1End := TagList.Tags[TagList.Idx1Pos].Size +
TagList.Tags[TagList.Idx1Pos].Position + 4;
While AStream.Position < Idx1End Do
Begin
// Sorry for this terrible type of code, but
// reading big chunks is considerably faster
// than getting small chunks.
BytesRead := AStream.Read(Buffer, Sizeof(Buffer)) Div 16 - 1;
For i := 0 To BytesRead Do
Begin
// 00 is normally the video stream
If (Buffer[1 + 16 * i] = Ord('0')) And (Buffer[2 + 16 * i] = Ord('0'))
Then
Begin
// keyframe flag set?
If ((Buffer[5 + 16 * i] And $10) <> 0) Then
Begin
Inc(Keyfr);
End;
VidStreamSize := VidStreamSize + Buffer[13 + i * 16] + Buffer[14
+ i * 16] * $100 + Buffer[15 + i * 16] * $10000 + Buffer[16 + i
*
16] * $1000000;
End;
// 01 is the audio stream
If (Buffer[1 + 16 * i] = Ord('0')) And (Buffer[2 + 16 * i] = Ord('1'))
Then
AudStreamSize := AudStreamSize + Buffer[13 + i * 16] + Buffer[14 + i
* 16] * $100 + Buffer[15 + i * 16] * $10000 + Buffer[16 + i * 16]
*
$1000000;
End;
End;
fKeyframes := KeyFr;
fVideoBitrate := VidStreamSize * FrameRate / (125 * AviHeader.dwTotalFrames);
fAudioBitrate := AudStreamSize * FrameRate / (125 * AviHeader.dwTotalFrames);
End;
Function TAviStreamInfo.CheckAVI(AStream: TStream): Boolean;
Begin
// Donno what to do here, perhaps compare the first 8 Kb with BackupHdr.
// Just a dummy function for CheckAVI in TAviFileInfo.
// If you want to use TAviStreamInfo implement this function!
Result := false;
End;
Procedure TAviStreamInfo.SetAuthorInfo(Value: TAuthorInfo);
Begin
// yet to implement
End;
Procedure TAviStreamInfo.SetFrameRate(Value: Double);
Begin
// Check here if AviStream is still valid
If Value <= 0 Then
Raise
EAviInfoError.Create('Framerate can''t set the framerate to a negative value. (' + FloatToStr(Value) + ')');
fChanged := true;
fVideoStreamHeader.dwScale := 10000;
fVideoStreamHeader.dwRate := Round(Value * fVideoStreamHeader.dwScale);
fAviHeader.dwMicroSecPerFrame :=
Round(fVideoStreamHeader.dwScale / fVideoStreamHeader.dwRate * 1000000);
AviStream.Seek(TagList.Tags[TagList.VidsPos].Position + 4, soBeginning);
AviStream.WriteBuffer(fVideoStreamHeader, SizeOf(fVideoStreamHeader));
AviStream.Seek(TagList.Tags[TagList.AvihPos].Position + 16, soBeginning);
AviStream.WriteBuffer(fAviHeader, SizeOf(fAviHeader));
fFrameRate := Value;
End;
Procedure TAviStreamInfo.SetAudioDelay(Value: Double);
Begin
fChanged := true;
If Value >= 0 Then
Begin
// The following is something as an "Audio Framerate":
// AudioStreamHeader.dwRate/AudioStreamHeader.dwScale
fAudioStreamHeader.dwStart := Round(Value * AudioStreamHeader.dwRate /
AudioStreamHeader.dwScale);
fVideoStreamHeader.dwStart := 0;
End;
If Value < 0 Then
Begin
fAudioStreamHeader.dwStart := 0;
fVideoStreamHeader.dwStart := -Round(Value * FrameRate);
End;
AviStream.Seek(TagList.Tags[TagList.AudsPos].Position + 4, soBeginning);
AviStream.WriteBuffer(fAudioStreamHeader, SizeOf(fAudioStreamHeader));
AviStream.Seek(TagList.Tags[TagList.VidsPos].Position + 4, soBeginning);
AviStream.WriteBuffer(fVideoStreamHeader, SizeOf(fVideoStreamHeader));
fAudioDelay := Value;
End;
{____________________________________________}
Procedure TAviStreamInfo.FillPropertyStringNoDescription;
Begin
PropertyStringList.Clear;
PropertyStringList.Add('Yet Another Avi Info (YAAI) Output File');
PropertyStringList.Add('visit http://yaai.sourceforge.net/ for more information');
PropertyStringList.Add('AVI Information');
PropertyStringList.Add(' None [Loaded from Stream]');
PropertyStringList.Add(IntToStr(Size) + ' Bytes (' +
Floattostrf(Size / 1048576, ffFixed, 15, 2) + ' MB)');
PropertyStringList.Add(IntToStr(AviHeader.dwStreams));
If HasVideo Then
Begin
PropertyStringList.Add('Video Stream');
PropertyStringList.Add(fcc2String(VideoStreamHeader.fccHandler) + ' - ' +
CodecIdent2String(VideostreamHeader.fccHandler));
PropertyStringList.Add(FloatToStrF(VideoBitrate, ffFixed, 15, 2) +
' kbit/s');
PropertyStringList.Add(IntToStr(AviHeader.dwWidth) +
'x' + IntToStr(AviHeader.dwHeight));
PropertyStringList.Add(IntToStr(VideoStreamFormat.biBitCount) + ' bits');
PropertyStringList.Add(FloatToStrF(RunningTime,
ffFixed, 15, 2) + ' s (' + TimeToShortString(RunningTime) + ')');
// 86400 = Seconds / Day
PropertyStringList.Add(FloatToStrF(FrameRate,
ffFixed, 15, 4) + ' fps');
PropertyStringList.Add(
IntToStr(AviHeader.dwMicroSecPerFrame) + ' ms');
PropertyStringList.Add(
IntToStr(AviHeader.dwTotalFrames));
PropertyStringList.Add(IntToStr(KeyFrames) +
' (Every ' + IntToStr(AviHeader.dwTotalFrames Div Keyframes) + ')');
End
Else
Begin
PropertyStringList.Add('No Video Stream Found!');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
End;
If HasAudio Then
Begin
PropertyStringList.Add('Audio Stream');
PropertyStringList.Add(
IntToStr(AudioStreamFormat.wFormatTag) + ' - ' +
WaveType2String(AudioStreamFormat.wFormatTag));
PropertyStringList.Add(FloatToStrF(AudioBitrate,
ffFixed, 15, 2) + ' kbit/s');
PropertyStringList.Add(IntToStr(AudioStreamFormat.nSamplesPerSec) +
' Hz');
PropertyStringList.Add(IntToStr(AudioStreamFormat.wBitsPerSample) +
' Bits');
PropertyStringList.Add(IntToStr(AudioStreamFormat.nChannels));
PropertyStringList.Add(FloatToStrF(AudioDelay,
ffFixed, 15, 2) + ' s');
End
Else
Begin
PropertyStringList.Add('No Audio Stream Found!');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
PropertyStringList.Add('-');
End;
PropertyStringList.Add('Author Details');
PropertyStringList.Add(AuthorInfo.Artist);
PropertyStringList.Add(AuthorInfo.Comment);
PropertyStringList.Add(AuthorInfo.Copyright);
PropertyStringList.Add(AuthorInfo.Name);
PropertyStringList.Add(AuthorInfo.Product);
PropertyStringList.Add(AuthorInfo.Source);
PropertyStringList.Add(AuthorInfo.Subject);
PropertyStringList.Add(AuthorInfo.DisplayName);
PropertyStringList.Add(AuthorInfo.Genre);
PropertyStringList.Add(AuthorInfo.Language);
PropertyStringList.Add(AuthorInfo.Software);
End;
Procedure TAviStreamInfo.FillPropertyString;
Begin
PropertyStringList.Clear;
PropertyStringList.Add('Yet Another Avi Info (YAAI) Output File');
PropertyStringList.Add('visit http://yaai.sourceforge.net/ for more information');
PropertyStringList.Add('AVI Information');
PropertyStringList.Add(' Filename: None [Loaded from Stream]');
PropertyStringList.Add(' Filesize: ' + IntToStr(Size) + ' Bytes (' +
Floattostrf(Size / 1048576, ffFixed, 15, 2) + ' MB)');
PropertyStringList.Add(' Streams (i.e. Video, Audio): ' +
IntToStr(AviHeader.dwStreams));
If HasVideo Then
Begin
PropertyStringList.Add('Video Stream');
PropertyStringList.Add(' Compression: ' +
fcc2String(VideoStreamHeader.fccHandler) + ' - ' +
CodecIdent2String(VideostreamHeader.fccHandler));
PropertyStringList.Add(' Avg. Bitrate: ' + FloatToStrF(VideoBitrate,
ffFixed, 15, 2) + ' kbit/s');
PropertyStringList.Add(' Resolution: ' + IntToStr(AviHeader.dwWidth) +
'x' + IntToStr(AviHeader.dwHeight));
PropertyStringList.Add(' Color Depth: ' +
IntToStr(VideoStreamFormat.biBitCount) + ' bits');
PropertyStringList.Add(' Running Time: ' + FloatToStrF(RunningTime,
ffFixed, 15, 2) + ' s (' + TimeToShortString(RunningTime) + ')');
PropertyStringList.Add(' Framerate: ' + FloatToStrF(FrameRate,
ffFixed, 15, 4) + ' fps');
PropertyStringList.Add(' Microseconds Per Frame: ' +
IntToStr(AviHeader.dwMicroSecPerFrame) + ' ms');
PropertyStringList.Add(' Frames: ' +
IntToStr(AviHeader.dwTotalFrames));
PropertyStringList.Add(' Keyframes: ' + IntToStr(KeyFrames) +
' (Every ' + IntToStr(AviHeader.dwTotalFrames Div Keyframes) + ')');
End
Else
Begin
PropertyStringList.Add('No Video Stream Found!');
PropertyStringList.Add(' Compression: -');
PropertyStringList.Add(' Avg. Bitrate: -');
PropertyStringList.Add(' Resolution: -');
PropertyStringList.Add(' Color Depth: -');
PropertyStringList.Add(' Running Time: -');
PropertyStringList.Add(' Framerate: -');
PropertyStringList.Add(' Microseconds Per Frame: -');
PropertyStringList.Add(' Frames: -');
PropertyStringList.Add(' Keyframes: -');
End;
If HasAudio Then
Begin
PropertyStringList.Add('Audio Stream');
PropertyStringList.Add(' Wave Type: ' +
IntToStr(AudioStreamFormat.wFormatTag) + ' - ' +
WaveType2String(AudioStreamFormat.wFormatTag));
PropertyStringList.Add(' Avg. Bitrate: ' + FloatToStrF(AudioBitrate,
ffFixed, 15, 2) + ' kbit/s');
PropertyStringList.Add(' Sample Rate: ' +
IntToStr(AudioStreamFormat.nSamplesPerSec) + ' Hz');
PropertyStringList.Add(' Bit Depth: ' +
IntToStr(AudioStreamFormat.wBitsPerSample) + ' Bits');
PropertyStringList.Add(' Channels: ' +
IntToStr(AudioStreamFormat.nChannels));
PropertyStringList.Add(' Audio Delay: ' + FloatToStrF(AudioDelay,
ffFixed, 15, 2) + ' s');
End
Else
Begin
PropertyStringList.Add('No Audio Stream Found!');
PropertyStringList.Add(' Wave Type: -');
PropertyStringList.Add(' Avg. Bitrate: -');
PropertyStringList.Add(' Sample Rate: -');
PropertyStringList.Add(' Bit Depth: -');
PropertyStringList.Add(' Channels: -');
PropertyStringList.Add(' Audio Delay: -');
End;
PropertyStringList.Add('Author Details');
PropertyStringList.Add(' Artist: ' + AuthorInfo.Artist);
PropertyStringList.Add(' Comment: ' + AuthorInfo.Comment);
PropertyStringList.Add(' Copyright: ' + AuthorInfo.Copyright);
PropertyStringList.Add(' Name: ' + AuthorInfo.Name);
PropertyStringList.Add(' Product: ' + AuthorInfo.Product);
PropertyStringList.Add(' Source: ' + AuthorInfo.Source);
PropertyStringList.Add(' Subject: ' + AuthorInfo.Subject);
PropertyStringList.Add(' Display Name: ' + AuthorInfo.DisplayName);
PropertyStringList.Add(' Genre: ' + AuthorInfo.Genre);
PropertyStringList.Add(' Language: ' + AuthorInfo.Language);
PropertyStringList.Add(' Software: ' + AuthorInfo.Software);
End;
Destructor TAviStreamInfo.Destroy;
Begin
If PropertyStringList <> Nil Then
PropertyStringList.Free;
Inherited Destroy;
End;
Function TAviStreamInfo.PropertyString(pr: PropertyStrings): String;
Begin
Result := trim(PropertyStringList[ord(pr)]);
End;
Procedure TAviStreamInfo.SaveToFile(aFilename: TFileName);
Begin
PropertyStringList.SaveToFile(aFilename);
End;
Procedure TAviStreamInfo.SaveToStream(AStream: TStream);
Begin
PropertyStringList.SaveToStream(aStream);
End;
Function TAviStreamInfo.TimeToShortString(myTime: Double): String;
Var
i: Dword;
Begin
i := Trunc(myTime);
Result := IntToStr(i Mod 60) + 's';
If i >= 60 Then
Begin
i := i Div 60;
Result := IntToStr(i Mod 60) + 'm ' + Result;
If i >= 60 Then
Begin
i := i Div 60;
Result := IntToStr(i Mod 60) + 'h ' + Result;
End;
End;
End;
End.
printed from
www.swissdelphicenter.ch
developers knowledge base