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

Вниз

Воспроизведения фильма с произвольного места DSPack.   Найти похожие ветки 

 
Artin   (2004-09-03 20:07) [0]

Здравствуйте.
Я пишу на Дельфи 7 свой видео проигрыватель.
Использую для этого DSPpack. Я всё сделал что хотел кроме одного. Не могу заставить воспроизводиться с какого либо момента.
Тоесть у меня ролик на 60 сек а я хочу чтобы воспроизведение начиналось например с 30. Я искал и нарыл команду SetPosition. Но вот беда работает как то глючно не с первого раза короче не работает. Может вы знаете как это сделать правильно?


 
Artin   (2004-09-03 20:11) [1]

См.
http://delphimaster.net/view/8-1091714055/
Модератор убей этот пост и будеш прав.
Извиняюсь.


 
programania   (2004-09-13 16:22) [2]

Установка позиции фильма который запущен при помощи DSPack
работает всегда в programania.com/ENJOL.ZIP

PROCEDURE PosAvi(pos:integer);
var
CurrPos,stopPos : Int64;
MediaSeeking: IMediaSeeking;
hms:TDVDHMSFTimeCode;
DvdControl:IDvdControl2;
i:integer;
begin
with form1.FilterGraph1 do begin
 if dvd then begin
//Это для DVD из IFO или VOB 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
 else begin
//Это для Avi pos=позиция trackbar1
   QueryInterface(IMediaSeeking, MediaSeeking);
   with MediaSeeking do Begin
     GetStopPosition(stopPos);
     CurrPos:=stopPos*pos div (trackBar1.max);
     SetPositions(currPos,AM_SEEKING_AbsolutePositioning,stopPos,AM_SEEKING_NoPositioning);
   end;
 end;
end
end;

еще проверьте: может вызывается многократно и одновременно
такое в windows может бывыет и выглядит как непредсказуемые глюки,
еще важно откуда вызывать: лучше из timer чтоб один раз
если что непонятно напишите mail@programania.com



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

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

Наверх




Память: 0.47 MB
Время: 0.036 c
3-1100013338
Sergeich
2004-11-09 18:15
2004.12.12
параметры в ADOQuery


1-1101856765
newage
2004-12-01 02:19
2004.12.12
производный класс свои проперти


1-1101692605
che
2004-11-29 04:43
2004.12.12
Создание нескольких текстовых файлов


1-1101390432
Ricko
2004-11-25 16:47
2004.12.12
Использование DLL написанной на С++


14-1100796664
matt
2004-11-18 19:51
2004.12.12
InterBase 6