[ALexandr555]

чтото не выходит сделать длину песни
не принимет пишет мол строка и число
Label4.Caption := MediaPlayer1.TrackLength[1];

[ChinYan]

Label4.Caption := IntToStr(MediaPlayer1.TrackLength[1]);

[ALexandr555]

с этим выдает ошибку при тестировании "No MCI device open"
а код такой

Код:

procedure TfrmMyBrowser.ListBox1Click(Sender: TObject);
begin
  if SpeedButton2.Tag = 0 then
     // вывести в поле метки Label1 имя выбранного файла
     Label2.Caption:=ListBox1.Items[ListBox1.itemIndex]
 else
     frmMyBrowser.Play;
Label4.Caption := IntToStr(MediaPlayer1.TrackLength[1]);
end;

[ALexandr555]

вобщем может ли кто в ICQ помочь в работе с этим

[v1s2222]

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

с этим выдает ошибку при тестировании "No MCI device open"

Еще бы не выдавал
Сначала выбери файл (который надо проигрывать) (MediaPlayer1.FileName := 'C:\1.mp3'), потом запусти сам плеер (MediaPlayer1.Open), потом воспроизведи (если надо): MediaPlayer1.Play;
И только потом можешь узнать длину...

[ALexandr555]

там же в коде у нас уже выбран файл

[v1s2222]

В том коде, что вы дали файл НЕ выбран., темболее я откуда знаю, что за тег у SpeedButton2? В этом коде вы только что-то воспроизводите.

[ALexandr555]

ну вот мы выбрали песню из лист бокса, название песни выдается, должна выдаваться и продолжительность

[ALexandr555]

вобщем сделал при клике на воспроизвести выдает прожолжительность, вот только выдает шестизначными числами...

[NumLock]

в справке уточни в каких единицах возвращается

[v1s2222]

Он в милисекундах выдает вроде. Переделай в секунды, целым делением на 60.

[NumLock]

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

Он в милисекундах выдает вроде. Переделай в секунды, целым делением на 60.

тогда уж на 1000

[ALexandr555]

где переделать на секунды

[ALexandr555]

а как вычесть из числа 3 последние цифры?

[v1s2222]

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

тогда уж на 1000

Согласен

По теме: тебе надо, чтоб выводилось в секундах? Тогда тупо бери целую часть от деления на 1000, твоего числа (в миллисекундах), и это и будет длина в секундах.