[dzzzr2007]

Всем привет!Задали по лабспец такую штуку написать.
Нужно,чтобы программе задавались параметры времени от начала фильма,когда она должна издавать звуковой сигнал.
Например,запустили фильм черех windows media.В программу задать параметры-1 минута проигрывания.и как только видеофайл протранслировался 1 минуту прога издала звук.Т.е завязка должна быть от видео и можем ли мы узнать длинну видео файлы,чтобы задавать,юскжем не точные минуты,а часть,например 11% от начала фильма
Заранее спасибо!

[M.A.D.M.A.N.]

Код:

timetostr(mediaplayer1.Length*0.00000001);

Даст примерное время.

Код:

function SolveForY(X, Z: LongWord): Byte;
begin
  if Z = 0 then Result := 0
  else Result := Byte(Trunc( (X * 100.0) / Z ));
end;

function GetPercentDone(FMinValue,FCurValue,FMaxValue:LongWord): Byte;
begin
  Result := SolveForY(FCurValue - FMinValue, FMaxValue - FMinValue);
end;

Выведет в процентах.
Для замера времени дуцше использовать TTimer

[dzzzr2007]

Спасибо,но твой код-при условии что у нас свой плеер,а если winamp или wmp?
кстати,можем ли мы смотреть резкую смена фрейма,как нибудь вытащить их?
Frame buffer
Line Buffer
это поможет?

[AlexSku]

Сообщение от dzzzr2007

запустили фильм черех windows media.
(а)В программу задать параметры-1 минута проигрывания...1 минуту прога издала звук.
(б)Т.е завязка должна быть от видео

Вывод (б) непонятен, т.к. условие (а) связано с ручным вводом времени и запуском обычного таймера, т.е. что в это время происходит - показывается фильм или варится суп, на звуковом сигнале это не отразится.