Thema: Delphi DVD mit DSPack abspielen

Einzelnen Beitrag anzeigen

Paul0703

Registriert seit: 24. Sep 2008
Ort: Halle(Saale)
138 Beiträge
 
Delphi 7 Professional
 
#17

Re: DVD mit DSPack abspielen

  Alt 3. Nov 2008, 14:41
Hallo, hab jetzt noch ein Problem

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:
Delphi-Quellcode:
if FilterGraph1.Active then
      with FilterGraph1 as IDvdControl2 do PlayForwards(1.0,DVD_CMD_FLAG_None, DvdCmd);
Den code verwende ich zum Spulen:
Delphi-Quellcode:
if FilterGraph1.Active then
      with FilterGraph1 as IDvdControl2 do PlayForwards(8.0,DVD_CMD_FLAG_None, DvdCmd);
Wie kann ich das machen, dass er wieder aufhört mit Spulen, wenn ich erneut auf den Button klicke?
Ich dachte etwa so:
Delphi-Quellcode:
with FilterGraph1 as IDvdControl2 do
begin
  If PlayForwards(8.0,DVD_CMD_FLAG_None, DvdCmd) then PlayForwards(1.0,DVD_CMD_FLAG_None, DvdCmd);
end;
Oder dass er jedes mal schneller bzw. langsamer spult. Dann wuerde ich einmal auf vorwaerts spulen klicken, dann wuerde er mit 3X spulen und dann klicke ich auf rueckwaerts spulen und dann muesste
ja einfach wieder mit 1X laufen.
Aber es funzt so nicht:
Delphi-Quellcode:
if FilterGraph1.Active then
      with FilterGraph1 as IDvdControl2 do PlayForwards(+ 2.0,DVD_CMD_FLAG_None, DvdCmd);
Er meckert zwar nicht, aber im programm funktioniert es dann nicht

Ich hoffe, ihr könnt mir mit dem Spulen helfen

Paul
  Mit Zitat antworten Zitat