AIMP Forum

AIMP for Windows => Дополнения / Addons => Разработка / Development => Topic started by: cheka on October 26, 2015, 16:36:05

Title: Очередь в txt
Post by: cheka on October 26, 2015, 16:36:05

Народ, а очередь из AIPMа можно как нить в txt дёрнуть?

Title: Re: Re: Стол заказов плагинов
Post by: Artem on October 26, 2015, 16:38:34

Quote from: cheka on October 26, 2015, 16:36:05

Народ, а очередь из AIPMа можно как нить в txt дёрнуть?

Можно в M3U дернуть

Title: Re: Re: Стол заказов плагинов
Post by: Алексей Долматов on October 26, 2015, 20:56:32

Можно выделить всю очередь (CTRL+A) и перетащить треки в новый плейлист, а его экспортировать как трек-лист через меню разное (TXT\HTML варианты)
Но, вопрос в теме "Стол заказов плагинов", поэтому нужно уточнение: Вам нужно на уровне пользовательского интерфейса или на уровне разработчиков через API?

Title: Re: Re: Стол заказов плагинов
Post by: cheka on October 28, 2015, 02:42:36

Долматов Алексей Как раз через API

Title: Re: Re: Стол заказов плагинов
Post by: Алексей Долматов on October 28, 2015, 14:38:41

Quote from: Artem on October 26, 2015, 16:38:34

Можно в M3U дернуть

Не разработчик, могу ошибиться:
Как я понял, для очереди не реализовано своего GetFiles, разве его нельзя добавить? (плагин может показывать очередь в отдельном окне или в других целях применить)

Title: Re: Re: Стол заказов плагинов
Post by: Awakunar on October 28, 2015, 14:59:50

через апи, очень грубо

Code: [Select]

procedure blabla;
var
  APlaylistQueue: IAIMPPlaylistQueue;
  ACount: Integer;
  QueueList: TWideStringList;
  APlaylistItem: IAIMPPlaylistItem;
begin
  if CoreGetService(IID_IAIMPPlaylistQueue, APlaylistQueue) then
  begin
    QueueList := TWideStringList.Create;

    for ACount := 0 to APlaylistQueue.GetItemCount - 1 do
    begin
      APlaylistQueue.GetItem(ACount, IID_IAIMPPlaylistItem, APlaylistItem);
      QueueList.Add(PropListGetStr(APlaylistItem,
        AIMP_PLAYLISTITEM_PROPID_DISPLAYTEXT));
    end;

    QueueList.SaveToFile('E:\1.txt', TEncoding.UTF8);
    QueueList.Free;
  end;
end;