Помощь в разработке плагина визуализации

[Black_AVP]

Уважаемые программеры, кто пишет на Delphi, не могли бы вы поделиться простейшим примером/шаблоном плагина визуализации?
ЕМНИП, в каком-то старом SDK был подобный пример, но начиная с 4-ой версии пропал ...
Перерыл весь этот раздел, единственное, что полезное нашёл - https://www.aimp.ru/forum/index.php?topic=46518.0 , но теме уже 10 лет и ссылки все битые.

[Artem]

Вот исходник одной из стандартной визуалок.
ACL-ку можно взять на гите.

П.С. согласен, надо добавить пример в SDK

[Black_AVP]

Спасибо, Артём!
Однако, собрать плагин не получается: нет файлов, указанных в директивах {$I ABL.PEFlagsForDLL.inc}, {$I AIMP.Plugins.inc}.
При попытке компиляции такое сообщение:
[MakeDir Error] Unable to create directory "B:\DCUs\Win32\". Could not find a part of the path 'B:\DCUs\Win32\'.
Вопрос по ACL: после компиляции компоненты должны появиться в палитре?

[Artem]

{$I ABL.PEFlagsForDLL.inc}, {$I AIMP.Plugins.inc}

их можно просто выкинуть, там просто define-ы

Вопрос по ACL: после компиляции компоненты должны появиться в палитре?

простой компиляции - нет, да они и не используются.

[Black_AVP]

Всё равно  ошибка та же: пытается создать директорию на несуществующем диске B:\.

[Artem]

Всё равно  ошибка та же: пытается создать директорию на несуществующем диске B:\.

В свойствах проекта нужно поменять путь, куда класть DCU-шки (Building \ Delphi Compiler \ Unit output directory)
Это у меня RAM-drive на B: замаплен - туда весь рабочий мусор летит

[Black_AVP]

... П.С. согласен, надо добавить пример в SDK

Артём, если возьмёшься за это дело, то лучше пример плагина с использованием AIMPVisualData, к нему интерес и вопросов заметно больше, судя по темам в этом разделе.
Можно даже ничего не разрисовывать в Draw, что-нибудь простенькое. Хотя бы на таком примере разобраться со структурой плагина.

[Artem]

Вот три демки (пока только по Embedded). В SDK их включу при следующем обновлении.

[Black_AVP]

Вот три демки (пока только по Embedded).

Собрал aimp_visDemo.dll, но ни 5.30, ни 5.40 её не видят.
В 5.00, 5.11 работает как в окне, так и в полноэкранном режиме.

[Artem]

Собрал aimp_visDemo.dll, но ни 5.30, ни 5.40 её не видят.
В 5.00, 5.11 работает как в окне, так и в полноэкранном режиме.

Нужной разрядности?

[Black_AVP]

Нужной разрядности?

Запутался я в этой разрядности. Почему-то в этих примерах не создаются отдельные папки Win32 и Win64, видно, что-то перемудрил с конфигурацией проекта, dll-ки компилировались в один каталог. Вчера уже по внутренностям их определил, кто есть кто: х32 или х64. Всё работает.
У меня вопрос: с какой периодичностью вызывается метод Draw в плагине и можно ли использовать таймер?

[Artem]

с какой периодичностью вызывается метод Draw

где-то 30 в секунду. Таймер не имеет смысла использовать.

[Black_AVP]

Артём, подскажи в какую сторону копать: мне нужно получить наложение цветов в режиме ADD из нескольких PNG.
На картинке это сделано с помощью StretchBlt, но она прозрачность не поддерживает.
В твоей ACL.Graphics.Ex вроде, нашёл то что нужно, но, боюсь, без примера мне не разобраться. Так понял, что графика должна загружаться в TACLDib?

[Artem]

Артём, подскажи в какую сторону копать: мне нужно получить наложение цветов в режиме ADD из нескольких PNG.
На картинке это сделано с помощью StretchBlt, но она прозрачность не поддерживает.
В твоей ACL.Graphics.Ex вроде, нашёл то что нужно, но, боюсь, без примера мне не разобраться. Так понял, что графика должна загружаться в TACLDib?

Тебе нужен TACLBitmapLayer из ACL.Graphics.Ex. У него есть DrawBlend, которому как раз-таки можно задать режим наложения при отрисовке.

Как в TACLBitmapLayer загрузить PNGшку:

Code: [Select]

  LImage := TACLImage.Create('test.png');
  try
    LBitmap := LImage.ToBitmap;
    try
      LDib := TACLBitmapLayer;
      LDib.Assign(LBitmap);
    finally
      LBitmap.Free;
    end;
  finally
    LImage.Free;
  end;

TACLImage лежит в ACL.Graphics.Images

[Black_AVP]

Не получается установить ACLPackage для режима х64, ругается на секцию
requires
  rtl,
  vcl,
  designide, <<<<
  vclx,
  vclsmp,
  vclie,
  dclstd; <<<<<

[dcc64 Fatal Error] ACLPackage.dpk(35): E2202 Required package 'designide' not found

Если без установки в uses прописать нужные модули из runtime, то на каждый (и на все, что те ссылаются) выдаёт:
[dcc64 Fatal Error] ACL.Graphics.pas(16): F1026 File not found: 'ACL.Config.inc'

Может, что-то неправильно делаю...