перемотка в mp3 плеере - Мультимедиа в Delphi - Страница 3

mihasuper · 27.02.2009, 00:54

У Меня тоже была проблема с заиканием, вроде исправил.
Попробуй в обработчике Timer следующий код:
If TrackBar1.Max<>0 then
begin
TrackBar1.Position:=MediaPlayer1.Po sition;
sec:=TrackBar1.Position div 1000;
if sec>=60 then
Begin
min:=sec div 60;
sec:=sec mod 60;
end;
if sec<10 then
Label1.Caption:=IntToStr(min)+':0'+ IntToStr(sec) else
Label1.Caption:=IntToStr(min)+':'+I ntToStr(sec);
end;
P.S: Можно использовать только один Timer

mihali4 · 27.02.2009, 01:09

Одна тема - один вопрос.
Зафлудили...
Забыли, что тут не чат?
Закрыто.

27.02.2009, 01:09	#22
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Одна тема - один вопрос. Зафлудили... Забыли, что тут не чат? Закрыто. Последний раз редактировалось mihali4; 27.02.2009 в 01:12.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
MediaPlayer перемотка с TrackBar	Kaifun	Мультимедиа в Delphi	2	09.12.2008 19:24
Перемотка в mP3 плеере	lionman	Мультимедиа в Delphi	3	27.10.2008 21:21
Перемотка в TMediaPlayer	Kn793	Компоненты Delphi	0	10.07.2008 11:02
MediaPlayer - как сделать последовательное воспроизведение mp3 файлов (именно mp3)	Kashp	Компоненты Delphi	13	28.09.2007 08:38

27.02.2009, 00:54	#21
mihasuper Регистрация: 26.02.2009 Сообщений: 3	У Меня тоже была проблема с заиканием, вроде исправил. Попробуй в обработчике Timer следующий код: If TrackBar1.Max<>0 then begin TrackBar1.Position:=MediaPlayer1.Po sition; sec:=TrackBar1.Position div 1000; if sec>=60 then Begin min:=sec div 60; sec:=sec mod 60; end; if sec<10 then Label1.Caption:=IntToStr(min)+':0'+ IntToStr(sec) else Label1.Caption:=IntToStr(min)+':'+I ntToStr(sec); end; P.S: Можно использовать только один Timer