How to get the frames out of D2V and AVS for ECLCCE?

[Amnon82]

I want to add Chapterlist to my new app NTPC.

I don't know how to get the endframe of the movie to add this into the eclcce-file.

here the test d2v I use:



DVD2AVIProjectFile
1
38 F:\NTPC\VIDEO_TS\VTS_01_1.VOB

Stream_Type=1,0,0
iDCT_Algorithm=2 (1:MMX 2:SSEMMX 3:FPU 4:REF 5:SSE2MMX)
YUVRGB_Scale=1 (0:TVScale 1:PCScale)
Luminance_Filter=0,0 (Gamma, Offset)
Picture_Size=0,0,0,0,0,0 (ClipLeft, ClipRight, ClipTop, ClipBottom)
Field_Operation=0 (0:None 1:ForcedFILM 2:SwapOrder)
Frame_Rate=29970
Location=0,8680,0,B177

7 0 8680 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8703 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8791 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8821 2 3 0 1 2 3 0 1 2 3 0 1
7 0 88A3 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8933 2 3 0 1 2 3 0 1 2 3 0 1
7 0 89A0 2 3 0 1 2 3 0 1 2 3 0 1
7 0 89FC 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8A63 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8AD3 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8B3E 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8BA0 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8C05 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8C62 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8CD3 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8D44 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8DD7 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8E4D 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8EB3 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8F19 2 3 0 1 2 3 0 1 2 3 0 1
7 0 8F8D 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9001 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9072 2 3 0 1 2 3 0 1 2 3 0 1
7 0 90DD 2 3 0 1 2 3 0 1 2 3 0 1
7 0 914A 2 3 0 1 2 3 0 1 2 3 0 1
7 0 91BF 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9229 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9296 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9303 2 3 0 1 2 3 0 1 2 3 0 1
7 0 936A 2 3 0 1 2 3 0 1 2 3 0 1
7 0 93D6 2 3 0 1 2 3 0 1 2 3 0 1
7 0 944E 2 3 0 1 2 3 0 1 2 3 0 1
7 0 94CD 2 3 0 1 2 3 0 1 2 3 0 1
7 0 953A 2 3 0 1 2 3 0 1 2 3 0 1
7 0 95C1 2 3 0 1 2 3 0 1 2 3 0 1
7 0 963B 2 3 0 1 2 3 0 1 2 3 0 1
7 0 96C0 2 3 0 1 2 3 0 1 2 3 0 1
7 0 974C 2 3 0 1 2 3 0 1 2 3 0 1
7 0 97C4 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9843 2 3 0 1 2 3 0 1 2 3 0 1
7 0 98AC 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9927 2 3 0 1 2 3 0 1 2 3 0 1
7 0 99AC 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9A31 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9AB5 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9B38 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9BB5 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9C2F 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9CAE 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9D35 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9DBC 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9E3D 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9EC9 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9F4B 2 3 0 1 2 3 0 1 2 3 0 1
7 0 9FCE 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A04A 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A0C2 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A132 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A1A3 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A20F 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A277 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A304 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A386 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A40B 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A496 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A51A 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A5A0 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A622 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A6A4 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A722 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A7A3 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A820 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A8A2 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A927 2 3 0 1 2 3 0 1 2 3 0 1
7 0 A9AF 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AA37 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AABF 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AB48 2 3 0 1 2 3 0 1 2 3 0 1
7 0 ABD1 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AC59 2 3 0 1 2 3 0 1 2 3 0 1
7 0 ACE2 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AD63 2 3 0 1 2 3 0 1 2 3 0 1
7 0 ADE3 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AE71 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AEFC 2 3 0 1 2 3 0 1 2 3 0 1
7 0 AF80 2 3 0 1 2 3 0 1 2 3 0 1
7 0 B003 2 3 0 1 2 3 0 1 2 3 0 1
7 0 B080 2 3 0 1 2 3 0 1 2 3 0 1
7 0 B0FC 2 3 0 1 2 3 0 1 2 3 0 1 9

FINISHED 100.00% FILM


and the AVS for it:

# Created with NTPC 0.1 - visit: www.dvdr-page.tk
# FPS: 29,970 - MPEG V.2 - Res: 720*480 - AR: 3 - Frames: 0 - PiDAR: 1,18519 - Streams: 2
LoadPlugin("C:\NTPC\DVD2AVI\MPEG2DecNTPC.dll")
LoadPlugin("C:\NTPC\DVD2AVI\repal.dll")
mpeg2source("F:\NTPC\VIDEO_TS\Source.d2v")
complementparity()
bob()
repal()
assumefps (25, true)
Subtitle(" converted by NTPC 0.1",450,440,8,200,"Arial",20,$FFFFFF)
LanczosResize(464, 430, 10, 0, 700, 480)
AddBorders(8, 73, 8, 73)

In virtualdub mod the AVS has 1112 Frames.

[RB]

Are you talking about the encode_first/encode_last etc. options in the ECL? Well, just open the AVS using the VfW APIs (AVIFileXXX routines) and get the frame count.

[Amnon82]

No I'm talking about getting the frames out of the D2V or AVS directly.
I'm coding a app. So there must be a way getting the information out of the two files. Till now I don't have build in a vfw api function into the app. Which will be the best routine to use for. I'm coding in delphi.

Here is the routine I use to get the infos out of D2V, MPV, MPEG, AVI:

unit VidInfo;
{
Retrieves information for given filenames.
Works with AVI and MPEG/VOB files as well as with
DVDAVI (.d2v) project files (as they are tracked down
to the source files, as you can see in getD2VVideo).
(c) 2004 by Marcel
last changes 2004-04-19 by Amnon82:
}

interface

Type

TVideoInfo = Record
Width, Height, //resolution of the video; might be different from
//correct display resolution (as NTSC SVCDs have a
//resolution of 480*480 but are displayed with e.g.
//640*480

FPS1000, //Frames per second * 1000: for NTSC, FPS1000 = 29970

MPEGversion, //1 for MPEG-1, 2 for MPEG-2, 0 for any other, like
//AVI files

AspectRatio, //1 for square pixels (=AR_SQUARE_PIXEL)
//2 for 4:3 display aspect ratio, as for VCD and
// SVCD (=AR_4to3)
//3 for 16:9 display aspect ratio, as for most DVDs
// (=AR_16to9)

Streams //Number of Streams (audio and video) - AVI only
: Integer;

FPS: Single; //Frames per second in floating point format

Frames: LongInt;//Number of frames - only detected for AVI files

PiDAR: Single; //Pixel Display Aspect Ratio:
//when displaying the video, the width of a pixel
//should be its height multiplied by PiDAR
end;

Const
AR_SQUARE_PIXEL = 1;
AR_4to3 = 2;
AR_16to9 = 3;

function getD2VVideo(sFileName: String): String;
function getVideoInfo(sFileName: String): TVideoInfo;

implementation

uses SysUtils, Classes;

function getD2VVideo(sFileName: String): String;
var slD2V: TStringList;
sFn: String;
iBlankPos: Integer;
begin
Try
slD2V := TStringList.Create;
slD2V.Clear;
slD2V.LoadFromFile(sFileName);
if slD2V.Count > 2 then begin
if slD2V.Strings[0] = 'DVD2AVIProjectFile'
then sFn := slD2V.Strings[2];
iBlankPos := Pos(' ', sFn);
if iBlankPos > 0
then delete(sFn,1,iBlankPos)
else sFn := '';
end
else sFn := '';
Finally
getD2VVideo := sFn;
slD2V.Free;
End;
end;

function getVideoInfo(sFileName: String): TVideoInfo;
var f: file of byte;
i: integer;
liMsPerFrame, liStreams, liWidth, liHeight, liFrames: LongInt;
bByte: Byte;
hex: Array [0..15] of Char;
buf: String;
FPS: Single;
VI: TVideoInfo;
booDone1B3, booDone1BA: Boolean;
cnt: Integer;
begin
for i := 0 to 9 do hex[i] := IntToStr(i)[1];
hex[10]:='A'; hex[11]:='B'; hex[12]:='C'; hex[13]:='D'; hex[14]:='E'; hex[15]:='F';

FPS := 0;
cnt := 0;

vi.AspectRatio := AR_SQUARE_PIXEL;
vi.FPS := 0;
vi.FPS1000 := 0;
vi.MPEGversion := 0;
vi.Width := 0;
vi.Height := 0;
vi.Frames := 0;
vi.PiDAR := 1;
vi.Streams := 2;

if UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'D2V'
then sFileName := getD2Vvideo(sFileName);

booDone1B3 := False;
booDone1BA := False;

AssignFile(f, sFileName);
Reset(f);
if UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'AVI'
then begin
vi.MPEGversion := 0;
vi.AspectRatio := AR_SQUARE_PIXEL;
for i := 1 to 32 do if not EOF(f) then Read(f,bByte);
if not EOF(f) then Read(f,bByte); liMsPerFrame := bByte;
if not EOF(f) then Read(f,bByte); liMsPerFrame := liMsPerFrame + bByte * 256;
if not EOF(f) then Read(f,bByte); liMsPerFrame := liMsPerFrame + bByte * 256 * 256;
if not EOF(f) then Read(f,bByte); liMsPerFrame := liMsPerFrame + bByte * 256 * 256 * 256;
vi.FPS := 1000000 / liMsPerFrame;
for i := 1 to 12 do if not EOF(f) then Read(f,bByte);
if not EOF(f) then Read(f,bByte); liFrames := bByte;
if not EOF(f) then Read(f,bByte); liFrames := liFrames + bByte * 256;
if not EOF(f) then Read(f,bByte); liFrames := liFrames + bByte * 256 * 256;
if not EOF(f) then Read(f,bByte); liFrames := liFrames + bByte * 256 * 256 * 256;
vi.Frames := liFrames;
for i := 1 to 4 do if not EOF(f) then Read(f,bByte);
if not EOF(f) then Read(f,bByte); liStreams := bByte;
if not EOF(f) then Read(f,bByte); liStreams := liStreams + bByte * 256;
if not EOF(f) then Read(f,bByte); liStreams := liStreams + bByte * 256 * 256;
if not EOF(f) then Read(f,bByte); liStreams := liStreams + bByte * 256 * 256 * 256;
vi.Streams := liStreams;
for i := 1 to 4 do if not EOF(f) then Read(f,bByte);
if not EOF(f) then Read(f,bByte); liWidth := bByte;
if not EOF(f) then Read(f,bByte); liWidth := liWidth + bByte * 256;
if not EOF(f) then Read(f,bByte); liWidth := liWidth + bByte * 256 * 256;
if not EOF(f) then Read(f,bByte); liWidth := liWidth + bByte * 256 * 256 * 256;
vi.Width := liWidth;
if not EOF(f) then Read(f,bByte); liHeight := bByte;
if not EOF(f) then Read(f,bByte); liHeight := liHeight + bByte * 256;
if not EOF(f) then Read(f,bByte); liHeight := liHeight + bByte * 256 * 256;
if not EOF(f) then Read(f,bByte); liHeight := liHeight + bByte * 256 * 256 * 256;
vi.Height := liHeight;
end;

if (UpperCase(copy(sFileName, length(sFileName)-3,4)) = 'MPEG')
or (UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'MPG')
or (UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'MPE')
or (UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'VOB')
or (UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'M1V')
or (UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'M2V')
or (UpperCase(copy(sFileName, length(sFileName)-2,3)) = 'MPV')
then begin
vi.AspectRatio := AR_SQUARE_PIXEL;
if length(buf) >= 8 then delete(buf,1,2);
while (EOF(f)=false)
and ((booDone1B3 = false) or (booDone1BA = false))
do begin
if length(buf) >= 8 then delete(buf,1,2);
Read(f,bByte);
Inc(cnt);
buf := buf + hex[bByte DIV 16] + hex[bByte MOD 16];
if buf = '000001B3' then begin // FPS and Res
if not EOF(f) then Read(f,bByte);
vi.Width := bByte * 16;
if not EOF(f) then Read(f,bByte);
vi.Width := vi.Width + bByte DIV 16;
vi.Height := (bByte MOD 16) * 256;
if not EOF(f) then Read(f,bByte);
vi.Height := vi.Height + bByte;
if not EOF(f) then Read(f,bByte);
vi.AspectRatio := bByte DIV 16;
if vi.AspectRatio = 8 then vi.AspectRatio := 3;
if vi.AspectRatio = 12 then vi.AspectRatio := 2;
bByte := bByte MOD 16;
Case bByte of
1: vi.FPS := 23.976;
2: vi.FPS := 24;
3: vi.FPS := 25;
4: vi.FPS := 29.97;
5: vi.FPS := 30;
6: vi.FPS := 50;
7: vi.FPS := 59.94;
8: vi.FPS := 60;
end;
booDone1B3 := True;
end;
if buf = '000001BA' then begin
if not EOF(f) then Read(f,bByte) else bByte := 0;
if bByte AND $F0 = $20 then vi.MPEGversion := 1;
if bByte AND $C0 = $40 then vi.MPEGversion := 2;
booDone1BA := True;
end;
if cnt > 16384 then begin
booDone1B3 := True;
booDone1BA := True;
end;
end;
end;
CloseFile(f);
vi.FPS := round(vi.FPS*1000)/1000;
vi.FPS1000 := round(vi.FPS*1000);
case vi.AspectRatio of
AR_SQUARE_PIXEL:
vi.PiDAR := 1;
AR_4to3:
vi.PiDAR := (vi.Height * 4 / 3) / vi.Width;
AR_16to9:
vi.PiDAR := (vi.Height * 16 / 9) / vi.Width;
end;
getVideoInfo := vi;
end;

end.

[RB]

Like I said, because an AVS isn't a real binary AVI, you'll have to resort to the VfW APIs (see MS Platform SDK). They give you all the info you need, like resolution, frame rate etc.

Moved to development.

[Amnon82]

THX for moving. I thougth it was in CCE better... :eek: