|
|
#1
|
||||
|
||||
длина
чтото не выходит сделать длину песни
не принимет пишет мол строка и число Label4.Caption := MediaPlayer1.TrackLength[1]; |
#2
|
|||
|
|||
Label4.Caption := IntToStr(MediaPlayer1.TrackLength[1]);
|
#3
|
||||
|
||||
с этим выдает ошибку при тестировании "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; |
#4
|
||||
|
||||
вобщем может ли кто в ICQ помочь в работе с этим
|
#5
|
||||
|
||||
Цитата:
Сначала выбери файл (который надо проигрывать) (MediaPlayer1.FileName := 'C:\1.mp3'), потом запусти сам плеер (MediaPlayer1.Open), потом воспроизведи (если надо): MediaPlayer1.Play; И только потом можешь узнать длину... Помогаю за Спасибо |
#6
|
||||
|
||||
там же в коде у нас уже выбран файл
|
#7
|
||||
|
||||
В том коде, что вы дали файл НЕ выбран., темболее я откуда знаю, что за тег у SpeedButton2? В этом коде вы только что-то воспроизводите.
Помогаю за Спасибо |