таймер Опции

[Catty]

Привет!
не подскажите ли как сделать на видоплеере отсчет проигранного времени: сколько времени всего длиться видео, и текущее время прогрывания!
:rose:

[Catty]

вот оно решение!! (спасибо Volvo)

Код

procedure TMainForm.Timer1Timer(Sender: TObject);
var
 TheLength: LongInt;
 mysecond, myminute, myhour: longint;
begin
[ Player.TimeFormat := tfMilliseconds;
 TheLength := Player.position;

 mysecond := (thelength div 1000)mod 60;
 myminute := (thelength div (60 * 1000))mod 60;
 myhour := (thelength div (3600 * 1000));

 label5.caption := inttostr(myhour)+':'+inttostr(myminute)+':'+inttostr(mysecond)+'\';
end;

что бы узнать все длину проигрывания надо position заменить на length
:rose:

Сообщение отредактировано: Catty - 23.05.2005 1:42