Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Вниз
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 ничего не выделено? И как определить конечную строку, в смысле последний индекс?
← →
Virgo_Style © (2006-05-25 22:06) [16]Apcer (25.05.06 21:13) [15]
.ItemIndex = -1; (.Items.Count-1);
Может, переименовать "начинающих" в "нечитающих" ? %-)
← →
Ladan (2006-05-26 01:04) [17]Virgo_Style
SetVolume(TrackBar1.Position);
Так не работает, громкость не меняется :(
← →
antonn © (2006-05-26 06:34) [18]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]Почему-то пишет на постой "Звуковые устройства не доступны" :(
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.06.11;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.012 c