DVD mit DSPack abspielen

[Paul0703]

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