DVD mit DSPack abspielen

[Paul0703]

Hallo,
kann mir jemand verraten, wie ich mit Hilfe des DSPacks eine IFO Datei öffnen kann?
Ich habe es zwar mit "normalen" Dateien hinbekommen, aber mit DVD klappt es irgendwie nicht :?

Und das Beispiel vom DSPack mit DVD funktioniert nicht.
"Can´t render one or more stream".

Gruß
Paul

[lbccaleb]

hast du auch den passenden codec installiert??

[Paul0703]

Ich denke schon, denn ich kann ja mit einem anderen Player eine DVD abspielen.
Oder hat das damit nichts zu tun?

[mkinzler]

Diese bringen meisstens einen eigenen Codec mit.

[Paul0703]

Also könnte es doch an dem fehlenden Codec liegen?!
Dann muss ich ihn wohl installieren und dann nochmal testen :wink:

[Paul0703]

Funzt leider nicht :(
Aber vielleicht geht das auch nicht so, wie ich es gemacht habe:

Delphi-Quellcode:

If not FilterGraph1.Active = True then FilterGraph1.Active := True;
    FilterGraph1.ClearGraph;
    FilterGraph1.RenderFile(OpenDialog1.FileName);
    FilterGraph1.Volume := TrackBar1.Position * 1000;
    FilterGraph1.Play;

Mit MPEG,Avi usw. funzt es ja!

[lbccaleb]

du weißt schon, dass du bei dvds anstatt

Delphi-Quellcode:

filtergraph1.renderfile

,

Delphi-Quellcode:

filtergraph.renderdvd

verwenden musst??

[Paul0703]

Zitat:

Zitat von lbccaleb

du weißt schon, dass du bei dvds anstatt

Delphi-Quellcode:

filtergraph1.renderfile

,

Delphi-Quellcode:

filtergraph.renderdvd

verwenden musst??

Danke!
Es kommt jetzt keine Meldung mehr, dass das Formt nicht unterstuetzt wird, wenn ich eine IFO öffne, aber es wird auch nichts abgespielt :?
Hier mein jetziger Code:

Delphi-Quellcode:

procedure TForm1.DVD1Click(Sender: TObject);
var i: Integer;
    Status : TAMDVDRenderStatus;
begin
  If OpenDialog1.Execute then
  begin
    for I := 0 to OpenDialog1.Files.Count - 1 do
    begin
      ListBox1.Items.Add(OpenDialog1.Files[i]);
    end;
    If not FilterGraph1.Active = True then FilterGraph1.Active := True;
    FilterGraph1.ClearGraph;
    FilterGraph1.RenderDVD(Status, OpenDialog1.FileName);
    FilterGraph1.Volume := TrackBar1.Position * 1000;
    FilterGraph1.Play;
  end;
end;

Bei dem Beispiel vom DSPack wird dann noch PlayDVD (Funktion) benutzt, aber das Beispiel funzt bei mir nicht! Wenn ich eine IFO öffnen will, kommt die Meldung: Can´t render one ore more stream.

Delphi-Quellcode:

if status.iNumStreamsFailed > 0 then Application.MessageBox('Can''t render one or more stream.', 'Error', mb_OK);

Gruß
Paul

[igel457]

Ist die DVD verschlüsselt? Es kann sein, dass du solche nicht abspielen kannst. Ansonsten solltest du dir überlegen DirectShow irgendwie libdvdcss vorzuspannen. Du musst dann einen eigenen Access Filter schreiben und registrieren.

Es kann auch helfen ffdshow zu installieren.

[lbccaleb]

denke auch das die dvd verschlüsselt sein wird, am besten ist, du probierst es mal mit einer anderen..