Zitat von
lbccaleb:
du weißt schon, dass du bei dvds anstatt filtergraph1.renderfile
, 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.
if status.iNumStreamsFailed > 0 then Application.MessageBox('Can''t render one or more stream.', 'Error', mb_OK);
Gruß
Paul