Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Быстрая перемотка DVD [D6, WinXP]


Белый Орёл ©   (2006-05-18 12:23:00) 

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


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

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


programania   (2006-05-18 21:04:00) [2]

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);


Наверх

Титульная страница Поиск, карта сайта Написать письмо