Определить текущий трэк на CD

Delphi , Мультимедиа , Аудио

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

// This will show current track and time. 
// Zeigt den aktuellen CD-Track und Zeit an. 

uses
   MMSystem;

 procedure TForm1.Timer1Timer(Sender: TObject);
 var
   Trk, Min, Sec: Word;
 begin
   with MediaPlayer1 do
   begin
     Trk := MCI_TMSF_TRACK(Position);
     Min := MCI_TMSF_MINUTE(Position);
     Sec := MCI_TMSF_SECOND(Position);
     label1.Caption := Format('%.2d', [Trk]);
     Label2.Caption := Format('%.2d:%.2d', [Min, Sec]);
   end;
 end;

Here's the translation of the text into Russian:

Код на Delphi, который отображает текущий номер трека и время на CD с помощью единицы MMSystem.

Обзор того, что код делает:

1. Процедура Timer1Timer вызывается каждый раз, когда компонент Timer1 (который, вероятно, настроен для запуска в определенный интервал, например, каждую секунду) срабатывает.
2. Внутри этой процедуры код использует объект MediaPlayer1, чтобы получить текущее положение на треке CD с помощью функций MCI_ TMSF_TRACK, MCI_TMSF_MINUTE и MCI_TMSF_SECOND.
3. Затем код присваивает эти значения переменным Trk, Min и Sec, соответственно.
4. Код использует функцию Format, чтобы создать строковое представление текущего номера трека (например, "03") и времени (например, "02:15").
5. Наконец, код обновляет подписи двух лейблов (Label1 и Label2) с этими форматированными строками.

Результатом будет что-то вроде:

Трек: 03 Время: 02:15

Код довольно прост и легко понять. Однако, если вы ищете альтернативное решение, можно рассмотреть более современную библиотеку или API для работы с аудио. Например, можно использовать API Windows Media Foundation (WMF), которая предоставляет более полный набор функций для работы с аудио- и видеомедиа. Альтернативно, можно использовать третьестороннюю библиотеку,such as CDetect или CDLib, которые предлагают схожие функции MMSystem, но с дополнительными функциями и лучшей поддержкой современных операционных систем.

Обратите внимание, что эти альтернативы могут иметь свои собственные кривые обучения, поэтому важно исследовать и оценивать преимущества и недостатки перед принятием решения.

Поясняется как создать приложение на языке Delphi, которое определяет текущий трек и время воспроизведения CD-трека с помощью компонента MediaPlayer1.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Аудио ::