[ZerMe]

Всем доброго времени суток. Мой вопрос заключается в том что у меня есть
Label и есть MediaPlayer. Как можно выводить MediaPlayer1.Position в Label.Caption
с помощью таймера? Я новичок в delphi и буду часто просить помощи у вас - матёрых программистов

[Snake22]

правильно. таймером.
тока не забывай при остановке плеера таймер отключать(зачем лишний раз гонять его)

[ZerMe]

У меня ругается т.к позиция типа integer, а caption типа string.
Я не могу написать правильную функцию перевода.
Прошу с этим помочь )

[Gareth]

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

У меня ругается т.к позиция типа integer, а caption типа string.
Я не могу написать правильную функцию перевода.
Прошу с этим помочь )

Код:

Label1.Caption:=IntToStr(......);

Вроде так.

[ZerMe]

Пробовал так, не работает

[Dux]

Покажите код, посмотрим..

[Alegun]

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

...Как можно выводить MediaPlayer1.Position в Label.Caption
с помощью таймера?..

Для начала, нужно добавить такую функцию

Код:

 function LenPlay(ds, vs: integer): string;
var
 hour, min, sec: integer;
begin
 if vs = -1 then
 ds:= ds div 1000  else
 ds:= vs div 1000 - ds div 1000;
 min := ds div 60;
 hour:= min div 60;
 if min > 60 then min:= min mod 60;
 sec := ds mod 60;
 Result:= FormatDateTime('h:mm:ss', EncodeTime(hour, min, sec, 0));
end;

и в цикле таймера (на 1 сек) её вызывать так

Код:

...
// Осталось до конца
label1.Caption:= LenPlay(MediaPlayer1.Position, -1);
...

или так

Код:

...
// Прошло от начала
label1.Caption:= LenPlay(MediaPlayer1.Position, MediaPlayer1.Length);
...

[ZerMe]

Спасибо, попробую.

[ZerMe]

Вопрос решен.
p.s как закрыть тему я не нашел ))