Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Воспроизведения фильма с произвольного места 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 вся ветка

Форум: "Media";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.049 c
14-1100984088
DeMoN-777
2004-11-20 23:54
2004.12.12
У кого дома более 1-ого работающего ПК


1-1101650361
Bobby Digital
2004-11-28 16:59
2004.12.12
Listbox pt.3


6-1096832406
Wish
2004-10-03 23:40
2004.12.12
Передача файлов через сеть


14-1100855016
Ilya___
2004-11-19 12:03
2004.12.12
Подскажите пожалуйста. правильно ли я делаю?


3-1099950070
HydraMarat
2004-11-09 00:41
2004.12.12
Уникальный PK и "авто-FK"





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский