drag-and-drop (music)

[Dialog108]

при добавлении файлов через диалог

	if not OpenDialog1.Execute then Exit;
  For Index:=0 To OpenDialog1.Files.Count-1 Do  
    ListBox1.Items.Add(extractFileName(OpenDialog1.Files.Strings[Index]));
      end;

в листбоксе как положено отображается только название трека, но путь до него программно сохраняется, проблем с воспроизведением нет

при перетаскивании трека

  Count := DragQueryFile(Msg.Drop, DWord(-1), FileName, SizeOf(FileName));
  for c := 0 to count - 1 do
  begin
    DragQueryFile(Msg.Drop, i,filename, SizeOf(filename) );
    ListBox1.items.add(extractFileName(string(filename)));
  end;
  DragFinish(Msg.Drop);

отображается имя файла, но путь затирается видимо, и файл не воспроизводится, если во втором слуае убрать екстракт, то всё ок, но мне то над чтобы только название файла было...

поможете?

[Кольша]

ListBox1.items.add(extractFileName(filename));

Покажите как воспроизводите,не само воспроизведение а как передается имя файла на воспроиведение

[Dialog108]

воспроизвожу через басс...

i := ListBox1.ItemIndex;
	if i >= 0 then
  	f := PChar(listbox1.Items[i]);
    if BASS_ChannelPlay(channel,false) then bass_channelstop(channel);
    Channel := BASS_StreamCreateFile(FALSE, f, 0, 0, 0);
	if channel <> 0 then
	begin
  le := BASS_ChannelGetLength(Channel, BASS_POS_BYTE);
  jvtrackbar1.Max:=le;
   BASS_ChannelPlay(channel, False)

[robt]

Сообщение от Dialog108

в листбоксе как положено отображается только название трека, но путь до него программно сохраняется

нихрена у тебя ничего програмно не сохраняется
кури азбуку про текущую папку

[Кольша]

robt,+1 У ВАС же только имена файлов в listbox, а не пути к ним,для таких целей советую listview использовать

[Dialog108]

ага, спасибо...
Реализовал вобщем через 2 листбокса.. в один, невидимый выводится путь, в другой только название.. и индекс второго присваивается первому.. и т.д..

Кто может дать ссылку на русскоязычную справку по Listview, или написать куски кода, для добавления в итемс и в сабитемс определенной строки?

[Пепел Феникса]

а вместо невидимого не создать TStringList просто?

[Кольша]

или listview могу помочь с кодом если надо!

вот на PS писал на скорую руку=)

[Dialog108]

Сообщение от Пепел Феникса

а вместо невидимого не создать TStringList просто?

мм.. чёт вообще не нашёл такого

Сообщение от Кольша

или listview могу помочь с кодом если надо!

вот на PS писал на скорую руку=)

ага, спасибо... нужно будет разобраться...
что за процедура аддфайл?

и ещё...
по аналогии с вашей программой сделал

addfile(listview1,extractfilename(OpenDialog1.Files.Strings[Index]),OpenDialog1.Files.Strings[Index]);

дальше пробую воспроизвести

	f := PChar(listview1.Selected.SubItems.GetText);
    Channel := BASS_StreamCreateFile(FALSE, f, 0, 0, 0);
	if channel <> 0 then
   BASS_ChannelPlay(channel, False);

но ничего не выходит...


может всётаки справочка есть русскоязычная? :D

[Пепел Феникса]

это класс а не компонент.
отвыкайте от формошлепства.