ListBox!!!!!!!!!

← →
LaDaN (2006-05-24 01:39) [0]

Привет всем! Помогите пожалуйста, у меня такая проблема: Я делаю медиа-плеер и для плей-листа использую ListBox, так вот, не могу сделать так, чтобы при нажатии на какую-либу строку проигровался этот же трек. Например клацаю мышью на 5ю строку и проигровался тот трек путь которого записан в 5й строке, вот.
И еще, как можно регулировать громкость?

← →
alex-drob © (2006-05-24 01:48) [1]

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Путь:=ListBox1.Items[ListBox1.ItemIndex]
end;

← →
</code> (2006-05-24 02:23) [2]

>И еще, как можно регулировать громкость?

uses mmsystem; procedure SetVolume(X: Word); var iErr : Integer; i: integer; a: TAuxCaps; begin for i := 0 to auxGetNumDevs do begin auxGetDevCaps(i,Addr(a),SizeOf(a)); If a.wTechnology = AUXCAPS_CDAUDIO Then break; end; // Устанавливаем одинаковую громкость для левого и правого каналов. // VOLUME := LEFT*$10000 + RIGHT*1 iErr:=auxSetVolume(i,(X*$10001)); if (iErr<>0) then ShowMessage("No audio devices are available!"); end; function GetVolume: Word; var iErr : Integer; i: integer; a: TAuxCaps; vol: word; begin for i := 0 to auxGetNumDevs do begin auxGetDevCaps(i,Addr(a),SizeOf(a)); If a.wTechnology = AUXCAPS_CDAUDIO Then break; end; iErr:=auxGetVolume(i,addr(vol)); GetVolume := vol; if (iErr<>0) then ShowMessage("No audio devices are available!"); end;

← →
antonn © (2006-05-24 09:57) [3]

LaDaN (24.05.06 1:39)
продам готовый курсач по этой теме. недорого. качественно.
:)

← →
antonn © (2006-05-24 10:25) [4]

к [3]
демо exe: http://an-files.narod.ru/_files/demoPL.rar (198Кб)

к модератору - сорри, жисть заставляет заниматься этим:)

← →
Ladan (2006-05-24 16:36) [5]

antonn
Я делаю для себя

← →
Ladan (2006-05-24 16:39) [6]

alex-drob Огромное спасибо! Только ListBox1.Items[ListBox1.ItemIndex] это числовое значение, а путь строковое :)

Скорее так:

> tr:=ListBox2.ItemIndex;
> with MediaPlayer1 do
> begin
> Filename := ListBox1.Items.Strings[tr];
> Open;
> Display := form3;
> DisplayRect := form3.ClientRect;
> Play;
> end;

← →
antonn © (2006-05-24 17:23) [7]

Ladan (24.05.06 16:36) [5]
ну дык для себя и найдешь там необходимый код (и даже чуть больше) :) кое где коментарии пробиваются:)

← →
Ladan (2006-05-24 18:24) [8]

antonn
Это плагиат :) Нет, спосибо.

alex-drob а как этой процедурой пользоваться?

← →
Ladan (2006-05-24 18:25) [9]

antonn
Это плагиат :) Нет, спосибо.

alex-drob а как этой процедурой пользоваться?

← →
antonn © (2006-05-24 18:38) [10]

Ladan (24.05.06 18:24) [8]
Это плагиат :) Нет, спосибо.
нет, это всего лишь корыстная жажда наживы :))

← →
antonn © (2006-05-24 18:39) [11]

Ladan (24.05.06 18:25) [9]
alex-drob а как этой процедурой пользоваться?
вставить в

procedure TForm1.ListBox1Click(Sender: TObject); begin // end;

← →
Ladan (2006-05-24 23:21) [12]

> antonn © (24.05.06 18:39) [11]
> Ladan (24.05.06 18:25) [9]alex-drob а как этой процедурой
> пользоваться?вставить в procedure TForm1.ListBox1Click(Sender:
> TObject);begin//end;

Я про регулирование звука :)

← →
antonn © (2006-05-25 07:13) [13]

Ladan (24.05.06 23:21) [12]
GetVolume - узнаешь текущий уровень, SetVolume() устанавливаешь свой уровень ()
рекомендую найти компонент TAudioMixer (AMixer.pas), он позволит много где подкрутить громкость, и сам реагирует на изменение громкости в системе.

← →
Ladan (2006-05-25 16:21) [14]

Что-то типа токого?
SetVolume(TrackBar1.Position);

← →
Apcer (2006-05-25 21:13) [15]

Еще вопрос про listBox

Что и каое значение будет принимать когда в listbox ничего не выделено? И как определить конечную строку, в смысле последний индекс?

Apcer (25.05.06 21:13) [15]

.ItemIndex = -1; (.Items.Count-1);

Может, переименовать "начинающих" в "нечитающих" ? %-)

← →
Ladan (2006-05-26 01:04) [17]

Virgo_Style
SetVolume(TrackBar1.Position);
Так не работает, громкость не меняется :(

Ladan (26.05.06 1:04) [17]
меняется, интервал 0..65535, если не ошибаюсь...

← →
Ladan (2006-05-26 12:50) [19]

antonn т.е. TrackBar1.max:=65535 ???

← →
Ladan (2006-05-26 13:14) [20]

Почему-то пишет на постой "Звуковые устройства не доступны" :(

ListBox!!!!!!!!! Найти похожие ветки