Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.01.07;
Скачать: CL | DM;

Вниз

Быстрая перемотка DVD   Найти похожие ветки 

 
Белый Орёл   (2006-05-18 12:23) [0]

Приветствую, мастера! Меня очень интересует, как можно средствами DSPack или какими-нибудь другими сделать перемотку DVD также быстро, как это реализовано в WinDVD. И кто-нибудь знает, как можно DVD перемотать на место последней остановки (опять-таки, как в WinDVD)?


 
programania ©   (2006-05-18 21:04) [1]

DSPack:

hms:TDVDHMSFTimeCode;
DvdControl:IDvdControl2;
i:integer;
begin
with form1.FilterGraph1 do begin
//pos - позиция перемотки в мсек
   i:=pos div 1000;
   hms.bHours:=i div 3600;
   hms.bMinutes:=(i-hms.bHours*3600)div 60;
   hms.bSeconds:= i-hms.bHours*3600-hms.bMinutes*60;
   QueryInterface(IDvdControl2, DvdControl);
   DvdControl.PlayAtTime(@hms,DVD_CMD_FLAG_None, DvdCmd);
   DvdControl := nil;
end;

//и еще в начале
  form1.FilterGraph1.Play;
  form1.FilterGraph1.QueryInterface(IDVDControl2, DVDControl);
  DVDControl.SetOption(DVD_NotifyParentalLevelChange,false);
  DVDControl.SetOption(DVD_HMSF_TimeCodeEvents, true);


 
Белый Орёл   (2006-05-19 00:43) [2]

Большое спасибо, но всё-таки подождать, пока перемотает, приходится. Может, есть способ ускорить время перемотки?



Страницы: 1 вся ветка

Текущий архив: 2007.01.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
1-1163766797
DVM
2006-11-17 15:33
2007.01.07
Вопрос по Handle TWinControl


15-1166345397
Павел Калугин
2006-12-17 11:49
2007.01.07
Помогите студиозусу...


15-1166102408
Vlad Oshin
2006-12-14 16:20
2007.01.07
SQL. where 1=2 Это зачем так писать?


2-1166024304
Новичек
2006-12-13 18:38
2007.01.07
JMS в Delphi


15-1166473407
std112
2006-12-18 23:23
2007.01.07
Microsoft Visual Studio .NET VC7