-
Forum: Multimedia
Delphi
by Paul0703,
3. Nov 2008
Mit ein paar kleinen Ergaenzungen funktioniert es! :wink:
Danke!! :-D
-
Forum: Multimedia
Delphi
by Paul0703,
3. Nov 2008
Danke für deine Antwort :)
Ok, naechstes Mal neues Thema.
Ich habe es jetzt so:
if FilterGraph1.Active then
begin
If Succeeded(FilterGraph1.QueryInterface(IID_IDVDControl2, DVDControl2)) then
begin
DvdControl2.PlayForwards(8.0, DVD_CMD_FLAG_None, DvdCmd);
DVDControl2 := Nil;
-
Forum: Multimedia
Delphi
by Paul0703,
3. Nov 2008
Hallo, hab jetzt noch ein Problem :roll:
Das Spulen geht zwar, aber ich kann nicht mehr aufhören.
Doch kann ich, aber nur indem ich auf play druecke und dabei folgenden code verwende:
if FilterGraph1.Active then
with FilterGraph1 as IDvdControl2 do PlayForwards(1.0,DVD_CMD_FLAG_None, DvdCmd);
-
Forum: Multimedia
Delphi
by Paul0703,
2. Nov 2008
Voll ins Schwarze getroffen! :mrgreen:
Da hast du Recht, wer lesen kann ist schwer im Vorteil :roll:
Danke für eure Hilfe!!
Paul
-
Forum: Multimedia
Delphi
by Paul0703,
2. Nov 2008
Jetzt geht es! :-D
Ich musste Mode vom VideoWindow auf vmnormal stellen bei DVD und bei Dateien auf vmVMR!
Aber jetzt habe ich noch ein Problem, bei dem ihr mir hoffentlich helfen könnt!
Die DVD geht jetzt, aber im Menü kann ich nichts klicken, also nicht Film starten und so.
Was muss ich da noch machen, damit das geht?
Gruß
Paul
-
Forum: Multimedia
Delphi
by Paul0703,
2. Nov 2008
Ok. Mit einer anderen DVD scheint es zu gehen :)
Aber es wird nur in diesem extra Fenster angezeigt :?:
-
Forum: Multimedia
Delphi
by Paul0703,
2. Nov 2008
Ich hatte vergessen, den Mode vom FilterGraph auf gmDVD umzustellen.
Jetzt öffnet sich immer wenn ich eine ifo öffne, ein anderes Fenster, in dem schonmal das Menu angezeigt wird von der DVD,aber es geht nicht weiter.
Und es wird halt nicht in dem VideoWindow angezeigt, sondern in dem fenster, was sich ActiveMovie Window nennt.
Ich versuche mal eine andere DVD.
Damit kann ich nicht viel...
-
Forum: Multimedia
Delphi
by Paul0703,
2. Nov 2008
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:
procedure TForm1.DVD1Click(Sender: TObject);
var i: Integer;
Status : TAMDVDRenderStatus;
begin
If OpenDialog1.Execute then
begin
-
Forum: Multimedia
Delphi
by Paul0703,
1. Nov 2008
Funzt leider nicht :(
Aber vielleicht geht das auch nicht so, wie ich es gemacht habe:
If not FilterGraph1.Active = True then FilterGraph1.Active := True;
FilterGraph1.ClearGraph;
FilterGraph1.RenderFile(OpenDialog1.FileName);
FilterGraph1.Volume := TrackBar1.Position * 1000;
FilterGraph1.Play;
-
Forum: Multimedia
Delphi
by Paul0703,
1. Nov 2008
Also könnte es doch an dem fehlenden Codec liegen?!
Dann muss ich ihn wohl installieren und dann nochmal testen :wink:
-
Forum: Multimedia
Delphi
by Paul0703,
1. Nov 2008
Ich denke schon, denn ich kann ja mit einem anderen Player eine DVD abspielen.
Oder hat das damit nichts zu tun?
-
Forum: Multimedia
Delphi
by Paul0703,
1. Nov 2008
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