Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

tmediaplayer.position в нужном формате   Найти похожие ветки 

 
race1   (2004-08-05 14:48) [0]


procedure ;
type
 HMSRec = record
   Hours: byte;
   Minutes: byte;
   Seconds: byte;
   NotUsed: byte;
 end;

var
 Position: LongInt;
 LastTimeFormat: TMPTimeFormats;

begin
 //LastTimeFormat := MediaPlayer.TimeFormat;
   MediaPlayer.TimeFormat := tfHMS;
   Position := MediaPlayer.Position;
 //MediaPlayer.TimeFormat := LastTimeFormat;

 lblMediaPosition.Caption := Format(lblMediaPosition.Hint,
   [HMSRec(Position).Hours, HMSRec(Position).Minutes, HMSRec(Position).Seconds]);
end;


т.е. хочу узнать позицию, но в формате часы\минуты\секунды. в справке написано, что position возвращает позицию according с timeformat. чего-то незаметно...

кстати, если убрать пару комментариев, то эффект тот же


 
race1   (2004-08-06 08:05) [1]

время возвращается видимо во фреймах, но не в нужном формате час\минута\секунда


 
grom   (2004-08-06 08:28) [2]

var h,m,s:Word;
---------------
MediaPlayer1.TimeFormat := tfMilliseconds;
h:=trunc((MediaPlayer1.Length)/(60*60000));
m:=trunc((MediaPlayer1.Length)/60000) mod 60;
s:=trunc((MediaPlayer1.Length)/1000) mod 60;
Label1.Caption:=Format("%.d:%.2d:%.2d",[h,m,s]);



Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
4-1096745572
Асякин
2004-10-02 23:32
2004.11.07
Загрузка DLL


14-1097934498
vidiv
2004-10-16 17:48
2004.11.07
w3c или браузер


14-1098276320
Nikolay M.
2004-10-20 16:45
2004.11.07
В продолжение темы дипломов, но о диссертациях..


14-1097939379
Луарвик
2004-10-16 19:09
2004.11.07
Обитель зла: музон


14-1098177817
peypivo
2004-10-19 13:23
2004.11.07
Самый убогий корпоративный сайт.