DELPHI
Создана: 30 Марта 2007 Птн 16:34:47.
Раздел: "Компьютерный раздел"
Сообщений в теме: 85, просмотров: 14469
-
-
-
WOLF3848 писал :народ помогите использую библиотеку bass при добавленийц файлов в список там проигрывается один и тот же файл чтоо делать?
библиотека с исходниками идет?
если да, то дебаггер в руки взять не судьба?
она большая? :)
выложи свой проект + эту библиотеку... хотя нет :) я не помогу - некогда :(
у самого программа "зависла", т.к. не успеваю :( -
-
Вот смотрите мне надо когда я нажал на кнопку "открыть" я выбрал файлы после когда я перехожу по плай-листу у меня играет один и тот же файл а надо чтоб РАЗНЫЕ играли!
вот код при открывание:
procedure TfrmMain.SpeedButton4Click(Sender: TObject);
var dir :string;
begin
if dlgOpen.Execute then
ListBox1.Items.Add(ExtractFileName(dlgopen.FileName));
begin
FFileName:= dlgOpen.FileName;
BASS_PlaySoundFile(ffilename);
end;
и
когда я кликаю по плай-листу в чём проблема?
procedure TfrmMain.ListBox1Click(Sender: TObject);
begin
BASS_PlaySoundFile(ffilename);
end; -
А где у тебя переменная ffilename меняется то?
Может вот так всётаки:
Код:
procedure TfrmMain.ListBox1Click(Sender: TObject);
begin
if (ListBox1.ItemIndex>=0) then
begin
ffilename:=ListBox1.Items.Strings[ListBox1.ItemIndex];
BASS_PlaySoundFile(ffilename);
end;
end;
-
-
-
-
когда ты делаешь "Открыть с помощью.." то запускается программа с именем файла в качестве параметра, например файл 1.txt открыть с помощью блокнота:
Код:
start notedad.exe 1.txt
или
start c:\windows\notepad.exe "d:\my files\1.txt" "d:\2.txt"
тебе при старте программы нужно проверять командную строку на наличие параметров, к примеру так (в обработчике onCreate):
Код:
var i: integer;
...
begin
if ParamCount>1 then
begin
ListBox1.Items.Clear; // Очищаем плейлист
for i:=1 to ParamCount-1 do // добавляем файлы в плейлист
ListBox1.Items.Add(ParamStr(i));
end;
...
end;
ParamStr(0) - имя твоей программы с полным путем
ParamStr(1) - первый параметр и т.д.
ParamCount - количество параметров -
-
-
-
-
-