Добавление файлов в плейлист

[Dr.Badnezz]

Добрый день. Есть проблема в добавлении файлов в плейлист с помощью компонента TBassPlayer (2.0) Дело в том, что название файла в плейлисте складывается: Artist - Title

Procedure TForm1.AddFileToPlayList;
var
Title, Artist : string;
Razdel: string;
 begin
 Razdel := ' - ';
   if opendialog1.Execute then begin
     track_list.Lines.Add(openDialog1.filename);
    If BassPlayer1.Open(opendialog1.FileName) then begin
        Artist := BassPlayer1.StreamInfo.Artist;
        Title  := BassPlayer1.StreamInfo.Title;
        If Artist = '' then begin Razdel := ''; end;
        jp.Items.Add(Artist + Razdel + title);
    end;
   end;
 end;
.......

При добавлении файла текущий файл заканчивает свое воспроизведение, т.к. срабатывает BassPlayer1.Open(opendialog1.FileNa me), но без этого не получишь Artist и Title . А как сделать чтобы в плейлист добавлялись файлы, но при этом воспроизведение текущего файла не останавливалось?

[Google[Bot]]

Щас может глупость скажу, но....
Попробуйте открывать через второй плеер

BassPlayer2.Open(opendialog1.FileName) then begin

И выключить ему звук...

[Dr.Badnezz]

Google[Bot] пробовал

Var
BassPlayer1, BassTest: TBassPlayer;
....
BassPlayer1 := TBassPlayer.Create(self);
BassTest := TBassPlayer.Create(self);

Выдает ошибку и ничего не компилится

[Google[Bot]]

Какую ошибку?

[Dr.Badnezz]

Ошибка в прикрепленном файле. Просто ничего в этом случае не компилируется, должно быть какое то другое решение

[Котовский]

я ни знаю чо такое TBassPlayer, но знаю как решить енту праблему спомащю Bass.dll. если надо, подмагну ентим.

[Dr.Badnezz]

Котовский подмагни пожалуйста.

P.S. TBassPlayer - компонент на основе bass.dll

[KORN]

Сообщение от Котовский

я ни знаю чо такое TBassPlayer, но знаю как решить енту праблему спомащю Bass.dll. если надо, подмагну ентим.

это звучит как - я не знаю что такое программирование, но помогу тебе с ним...

TBassPlayer это компонент для работы с аудио, а Bass.dll это его библиотека которая подключается к этому компоненту для его работы...

[Котовский]

[QUOTE=KORN;193220]это звучит как - я не знаю что такое программирование, но помогу тебе с ним...

Таки у нас в тундра аднака не водяться такие TBassPlayer, тока дллки ат ниго водяся, в них проги сваи и впрягаим, вот тута штука ентакая, ни знаю, как называеся:

type TTrac=record
filename:string;
len:integer;
end;
TTracks=array of TTrack;//сюды я трэки запихиваю

//это то, чо касаима Bass.dll
procedure AddLen(var tr:TTrac);//вычисляем длину в сикундах
var len,err:integer;
st:HSTREAM;
begin
st:=BASS_StreamCreateFile(false,PCh ar(tr.filename),0,0,0);
err:=BASS_StreamGetLength(st);
len:=round(BASS_ChannelBytes2Second s(st,err));
tr.len:=len;
BASS_StreamFree(st);
end;

//а енто мы куда-нибудь дорожку записываим
procedure TrackAdd(fn:string; var tr:TTracks);
var t:TTracks;
i:integer;
begin
for i:=0 to high(tr) do
if tr[i].filename=fn then
begin
showmessage('Этот файл уже в списке');
exit;
end;
setlength(t,high(tr)+1);
for i:=0 to high(tr) do t[i]:=tr[i];
tr:=nil;
setlength(tr,high(t)+2);
for i:=0 to high(t) do tr[i]:=t[i];
t:=nil;

tr[high(tr)].filename:=fn;

addlen(tr[high(tr)]);
end;

ну, надеюся, чо вы аднака сами знаите как дллку падключит да инициализураити. в тундра будите, в чум ка мне захадити

[Dr.Badnezz]

Котовский спасибо. Постараюсь разобраться