Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Информация о видеофайле

Anf © (2004-07-30 16:53:00)
Каким образом узнать в программе информацию о видеофайле, например об AVI?
Интересует длительность, видеониформация (кодек, размеры, частота кадров), аудиоинформация (битрейт, формат звука) количество потоков и т.п.

antonn (2004-07-30 17:30:00) [1]
Кстати, можно видео-кодеков добавить:

else if FVcodec = 'yvu9' then FVcodec := 'Intel Indeo(C)Video Raw R1.2'
else if FVcodec = 'cvid' then FVcodec := 'Cinepak Codec by CTi'
else if FVcodec = '3ivx' then FVcodec := '3ivx D4 4.0.4'
else if FVcodec = 'mdvd' then FVcodec := 'MicroDVD Video Decodec'
else if FVcodec = 'vcr2' then FVcodec := 'ATI VCR2 Format Codec'
else if FVcodec = 'yv12' then FVcodec := 'ATI YUV12 Format Codec'
else if FVcodec = 'aflc' then FVcodec := 'Autodesk FLC Compressor'
else if FVcodec = 'aasc' then FVcodec := 'Autodesk RLE Compressor'
else if FVcodec = 'wrpr' then FVcodec := 'AVI Wrapper Video Client Codec'
else if FVcodec = 'avrn' then FVcodec := 'Avid Avi Codec 2.0d2'
else if FVcodec = 'mszh' then FVcodec := 'AVImszh Compressor'
else if FVcodec = 'zlib' then FVcodec := 'AVIzlib Compressor'
else if FVcodec = 'bt20' then FVcodec := 'Brooktree ProSumer Video (32)'
else if FVcodec = 'y41p' then FVcodec := 'Brooktree YUV 411 Raw'
else if FVcodec = 'cscd' then FVcodec := 'CamStudio Lossless Codec v1.0'
else if FVcodec = 'ddvc' then FVcodec := 'Canopus Soft DVSD Codec'
else if FVcodec = 'cdvc' then FVcodec := 'Canopus Software DV Codec'
else if FVcodec = 'png1' then FVcodec := 'CorePNG VFW Codec v0.6'
else if FVcodec = 'dcmj' then FVcodec := 'dcmj MainConcept Video V3.00a'
else if FVcodec = 'dvx4' then FVcodec := 'DivX Codec'
else if FVcodec = 'advs' then FVcodec := 'DVSoft (TM)'
else if FVcodec = 'em2v' then FVcodec := 'Etymonix MPEG-2 Video Codec v1.10'
else if FVcodec = 'frwd' then FVcodec := 'Forward JPEG'
else if FVcodec = 'frwt' then FVcodec := 'Forward JPEG+Alpha'
else if FVcodec = 'frwu' then FVcodec := 'Forward Uncompressed'
else if FVcodec = 'fps1' then FVcodec := 'Fraps Video Decompressor'
else if FVcodec = 'mkvc' then FVcodec := 'FullMotionVideo Decoder'
else if FVcodec = 'glzw' then FVcodec := 'GLZW 1.00'
else if FVcodec = 'gpeg' then FVcodec := 'GPEF 1.00'
else if FVcodec = 'hfyu' then FVcodec := 'Huffyuv v2.1.1 - CCESP Path v0.2.2'
else if FVcodec = 'iv50' then FVcodec := 'Indeo(c) video 5.10'
else if FVcodec = 'i420' then FVcodec := 'Intel 4:2:0 Video V2.50'
else if FVcodec = 'i263' then FVcodec := 'Intel I.263 Video Driver 2.55.016'
else if FVcodec = 'iv41' then FVcodec := 'Intel Indeo(R) Video Interactive'
else if FVcodec = 'iv32' then FVcodec := 'Intel Indeo(R) Video R3.2'
else if FVcodec = 'yvu9' then FVcodec := 'Intel Indeo(C) Video Raw R1.2'
else if FVcodec = 'lead' then FVcodec := 'LEAD MCMP/MJPEG Codec (VFW)'
else if FVcodec = 'dvsd' then FVcodec := 'MainConcept DV Codec 2.0.4'
else if FVcodec = 'dv25' then FVcodec := 'Matrox DVCPRO'
else if FVcodec = 'dv50' then FVcodec := 'Matrox DVCPRO50'
else if FVcodec = 'mmes' then FVcodec := 'Matrox MPEG-2 I-frame'
else if FVcodec = 'm261' then FVcodec := 'Microsoft H.261 Video Codec'
else if FVcodec = 'm263' then FVcodec := 'Microsoft H.263 Video Codec'
else if FVcodec = 'mrle' then FVcodec := 'Microsoft RLE'
else if FVcodec = 'msvc' then FVcodec := 'Microsoft Video 1'
else if FVcodec = 'wmv3' then FVcodec := 'Microsoft Windows Media Video 9'
else if FVcodec = 'vixl' then FVcodec := 'MiroVideo-XL 32-bit Compressor'
else if FVcodec = 'fljp' then FVcodec := 'Morgan FLJP LSI M-JPEG Codec'
else if FVcodec = 'dmb1' then FVcodec := 'Morgan Multimedia M-JPEG V3 Codec'
else if FVcodec = 'mjpg' then FVcodec := 'Morgan Multimedia M-JPEG V3 Codec'
else if FVcodec = 'mj2c' then FVcodec := 'Morgan Multimedia M-JPEG2000 V1 Codec'
else if FVcodec = 'tvmj' then FVcodec := 'Morgan TVMJ LSI M-JPEG Codec'
else if FVcodec = 'mwv1' then FVcodec := 'MotionWavelets by Aware'
else if FVcodec = 'nt00' then FVcodec := 'Newtek Inc. version 0.0'
else if FVcodec = 'ipdv' then FVcodec := 'Panasonic and I-O DATA DV GigaAVI CODEC'
else if FVcodec = 'pdvc' then FVcodec := 'Panasonic and I-O DATA DV GigaAVI CODEC'
else if FVcodec = 'pim1' then FVcodec := 'PCLEPIM1 32-bit Compressor'
else if FVcodec = 'pimj' then FVcodec := 'PICVideo Lossless LPEG Codec'
else if FVcodec = 'mjpx' then FVcodec := 'PICVideo MJPEG Codec'
else if FVcodec = 'pvw2' then FVcodec := 'PICVideo Wavelet 2000 Codec'
else if FVcodec = 'miro' then FVcodec := 'Pinnacle DV codec'
else if FVcodec = 'qpeg' then FVcodec := 'QPEG(C) Video Codec'
else if FVcodec = 'mjpa' then FVcodec := 'ReelTime MJPEG Codec'
else if FVcodec = 'rud0' then FVcodec := 'Rududu Encoder ver 0'
else if FVcodec = 'rmp4' then FVcodec := 'Sigma RMP4 MPEG-4 codec'
else if FVcodec = 'sony' then FVcodec := 'Sony DV software CODEC'
else if FVcodec = 'tscc' then FVcodec := 'TECHSmith SCREEN Capture Codec'
else if FVcodec = 's422' then FVcodec := 'Tekram YUV422 Codec'
else if FVcodec = 'vifp' then FVcodec := 'VFAPI reader Cxodec 1.05'

Anf (2004-07-30 17:24:00) [2]
Понятно, спасибо.

antonn (2004-07-30 17:14:00) [3]
Где-то откопал старый пример:

// First, put a memo, button and a open dialog on an empty form.
// Then use the following code to show the information of a avi file.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure ReadAviInfo(FileName: string);

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.ReadAviInfo(FileName: string);
var
iFileHandle: Integer; // File handle

// Needed for positioning in the avi file
Aviheadersize: integer;
Vheadersize: integer;
Aviheaderstart: integer;
Vheaderstart: integer;
Aheaderstart: integer;
Astrhsize: integer;

// Temporary values
TempTest: String[5];
TempSize: Integer;
TempVcodec: String[5];
TempAcodec: integer;
TempMicrosec: integer;
TempLengthInFrames: integer;
TempAchannels: integer;
TempAsamplerate: integer;
TempAbitrate: integer;

// Final values
Size: double;
Length: string;
Vcodec: string;
Vbitrate: double;
VWidth: integer;
VHeight: integer;
Fps: double;

LengthInSec: double;
Acodec: string;
Abitrate: string;
begin
// Open the file
iFileHandle := FileOpen(FileName, fmOpenRead);

// Test to see if file is AVI
FileSeek(iFileHandle, 7, 0);
FileRead(iFileHandle, TempTest, 5);
if copy(TempTest, 0, 4) <> 'AVI ' then
begin
MessageDlg('Could not open ' + FileName +
' because it is not a valid video file', mtError, [mbOk], 0);
Exit;
end;

// File size
FileSeek(iFileHandle,4,0);
FileRead(iFileHandle, TempSize, 4);

// Avi header size (needed to locate the audio part)
FileSeek(iFileHandle,28,0);
FileRead(iFileHandle, Aviheadersize, 4);

// Avi header start (needed to locate the video part)
Aviheaderstart := 32;

// Microseconds (1000000 / TempMicrosec = fps)
FileSeek(iFileHandle,Aviheaderstart,0);
FileRead(iFileHandle, TempMicrosec, 4);

// Length of movie in frames
FileSeek(iFileHandle,Aviheaderstart + 16,0);
FileRead(iFileHandle, TempLengthInFrames, 4);

// Width
FileSeek(iFileHandle,Aviheaderstart + 32,0);
FileRead(iFileHandle, VWidth, 4);

// Height
FileSeek(iFileHandle,Aviheaderstart + 36,0);
FileRead(iFileHandle, VHeight, 4);

FileSeek(iFileHandle,Aviheaderstart + Aviheadersize + 4,0);
FileRead(iFileHandle, Vheadersize, 4);

Vheaderstart := Aviheaderstart + Aviheadersize + 20;

// Video codec
FileSeek(iFileHandle,Vheaderstart + 3,0);
FileRead(iFileHandle, TempVCodec, 5);

Aheaderstart := Vheaderstart + Vheadersize + 8;

FileSeek(iFileHandle,Aheaderstart - 4,0);
FileRead(iFileHandle, Astrhsize, 5);

// Audio codec
FileSeek(iFileHandle,Aheaderstart + Astrhsize + 8,0);
FileRead(iFileHandle, TempACodec, 2);

// Audio channels (1 = mono, 2 = stereo)
FileSeek(iFileHandle,Aheaderstart + Astrhsize + 10,0);
FileRead(iFileHandle, TempAchannels, 2);

// Audio samplerate
FileSeek(iFileHandle,Aheaderstart + Astrhsize + 12,0);
FileRead(iFileHandle, TempAsamplerate, 4);

// Audio bitrate
FileSeek(iFileHandle,Aheaderstart + Astrhsize + 16,0);
FileRead(iFileHandle, TempAbitrate, 4);

// Close the file
FileClose(iFileHandle);

// Analyse the video codec (more can be added)
Vcodec := copy(TempVcodec, 0, 4);
if Vcodec = 'div2' then Vcodec := 'MS MPEG4 v2'
else if Vcodec = 'DIV2' then Vcodec := 'MS MPEG4 v2'
else if Vcodec = 'div3' then Vcodec := 'DivX;-) MPEG4 v3'
else if Vcodec = 'DIV3' then Vcodec := 'DivX;-) MPEG4 v3'
else if Vcodec = 'div4' then Vcodec := 'DivX;-) MPEG4 v4'
else if Vcodec = 'DIV4' then Vcodec := 'DivX;-) MPEG4 v4'
else if Vcodec = 'div5' then Vcodec := 'DivX;-) MPEG4 v5'
else if Vcodec = 'DIV5' then Vcodec := 'DivX;-) MPEG4 v5'
else if Vcodec = 'divx' then Vcodec := 'DivX 4'
else if Vcodec = 'mp43' then Vcodec := 'Microcrap MPEG4 v3';

// Analyse the audio codec (more can be added)
case TempAcodec of
0: Acodec := 'PCM';
1: Acodec := 'PCM';
85: Acodec := 'MPEG Layer 3';
353: Acodec := 'DivX;-) Audio';
8192: Acodec := 'AC3-Digital';
else
Acodec := 'Unknown (' + IntToStr(TempAcodec) + ')';
end;

case (Trunc(TempAbitrate / 1024 * 8)) of
246..260: Abitrate := '128 Kbit/s';
216..228: Abitrate := '128 Kbit/s';
187..196: Abitrate := '128 Kbit/s';
156..164: Abitrate := '128 Kbit/s';
124..132: Abitrate := '128 Kbit/s';
108..116: Abitrate := '128 Kbit/s';
92..100: Abitrate := '128 Kbit/s';
60..68: Abitrate := '128 Kbit/s';
else
Abitrate := FormatFloat('# Kbit/s', TempAbitrate / 1024 * 8);
end;

// Some final calculations
Size := TempSize / 1024 / 1024;
Fps := 1000000 / TempMicrosec; // FPS
LengthInSec := TempLengthInFrames / fps; // Length in seconds
Length := FormatFloat('# min', Int(LengthInSec / 60)) +
FormatFloat(' # sec', Round(LengthInSec - (Int(LengthInSec / 60) * 60)));
Vbitrate := (TempSize / LengthInSec - TempABitrate) / 1024 * 8;

// Output information to memo field
Memo1.Lines.Add('AVI INFORMATION');
Memo1.lines.Add('Size: ' + FormatFloat('#.## MB',Size));
Memo1.Lines.Add('Length: ' + Length);
Memo1.Lines.Add('');
Memo1.Lines.Add('VIDEO INFORMATION');
Memo1.Lines.Add('Codec: ' + Vcodec);
Memo1.Lines.Add('Bitrate: ' + FormatFloat('# Kbit/s', Vbitrate));
Memo1.lines.Add('Width: ' + IntToStr(VWidth) + ' px');
Memo1.lines.Add('Height: ' + IntToStr(VHeight) + ' px');
Memo1.Lines.Add('FPS: ' + FormatFloat('#.##', fps));
Memo1.Lines.Add('');
Memo1.Lines.Add('AUDIO INFORMATION');
Memo1.Lines.Add('Codec: ' + Acodec);
Memo1.Lines.Add('Bitrate: ' + Abitrate);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Filter := 'AVI files (*.avi)|*.avi';
if OpenDialog1.Execute then
begin
Memo1.Clear;
ReadAviInfo(OpenDialog1.FileName);
end;
end;

end.

От себя добавлю - заменить первый цикл:

if (copy(FTempTest, 0, 4) <> 'AVI ') and (copy(FTempTest, 0, 4) <> 'A') and (copy(FTempTest, 0, 4) <> 'AV') and (copy(FTempTest, 0, 1) <> 'A') and (copy(FTempTest, 0, 1) <> 'C') then
begin
MessageDlg('Could not open ' + FileName +
' because it is not a valid video file', mtError, [mbOk], 0);

Exit;

end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »