Frame in Video gezielt ansteuern (DSPack)

[igel457]

Hallo,
ich möchte ein kleines Programm schreiben, mit dem ich ein bestimmtes Frame aus einem Video (MPEG, AVI...) extrahieren kann.
Ich möchte das ganze mit DSPack machen (läuft auch )

Hier auf der Seite hier habe ich folgenden Tipp gefunden:
http://www.delphipraxis.net/viewtopic.php?t=6728

Zitat:

Als Komponenten aus dem DSPack werden benötigt:


1. TFilterGraph
Die Standardeinstellungen können beibehalten werden
Die Ereignisse OnActivate und OnGraphPaused habe ich hier verwendet
2. TSampleGrabber
Die Eigenschaft FilterGraph muss gesetzt werden
Die Eigenschaft MediaType wird wie folgt gesetzt:
Major Type Video, Sub Type RGB24 und Format Type VideoInfo
3. TFilter
Die Eigenschaft FilterGraph muss gesetzt werden.
Als BaseFilter habe ich unter Selector\Filters\DirectShow Filters\SampleGrabber ausgewählt
(nicht wundern, wenn auf den [...] Button bei BaseFilter erst mal nichts passiert. Die Kompo sucht erst einmal die auf dem Rechner befindlichen Filter zusammen, und das kann dauern Wink)
4. TVideoWindow
Die Eigenschaft FilterGraph muss gesetzt werden.

Das habe ich dann auch gemacht, und folgenden Sourcecode übernommen.

Delphi-Quellcode:

rocedure TForm1.Button1Click(Sender: TObject);
begin
  samplegrabber1.GetBitmap(image1.Picture.Bitmap);
end;

Wenn ich nun ein beliebiges Video abspiele, und auf Button1 Klicke erscheint aber kein Bild.
1. Wie kriege ich das zum laufen
2. Wie kann ich ein Frame einzelnes Frame ansteuern und wie bekomme ich die Anzahl aller Frames?
3. Wie rechne ich FilterGraph.Duration in Millisekunden/Frames um?

Danke im Voraus.

[igel457]

Es funktioniert auch bei den Demos nicht!

EDIT-> Es geht aber mit stink normalen MPEG2 Files, es läuft nur nicht mit DivX Avi's. Ist das ein Fehler im DSPack?

Für mich bleiben trozdem die Fragen
2 und 3 von Oben.

[igel457]

OK.
Ich hab das jezt schon mal teilweise gelöst:
Um die Frames zu bekommen macht man das entweder so:
1.

Delphi-Quellcode:

uses directshow9; //In dieser Unit ist IMediaSeeker drin

var duration:int64;
    frames:int64;
begin
  with (filtergraph1 as imediaseeker) do
    getduration(duration);
  duration := duration div 10000; //jetzt haben wir die Millisekunden
  frames := duration div 1000 * 25; //klappt halt nur mit PAL
end;

2. (einfacher)

Delphi-Quellcode:

var duration:int64;
    frames:int64;
begin 
  duration := filtergraph1.duration //jetzt haben wir die Millisekunden
  frames := duration div 1000 * 25; //klappt halt nur mit PAL
end;

Mit IMediaSeeker müsste man jetzt auch genauso jedes Frame ansteuern können...
Ich arbeite daran!