C++ Builder DLL

[sviperz]

http://slydiman.narod.ru/download/WinTreeInfo.zip

[bescheidener]

Вопрос не в этом. Как кодом узнать хендл GW. Пытаюсь решить проблему потери фокуса плеера при появлении моего OSD.
Пробовал вот так:

Code: [Select]

ha=FindWindow(AIMP2_RemoteClass, AIMP2_RemoteClass);
(FARPROC &)SwitchToThisWindow = GetProcAddress(hLib, "SwitchToThisWindow");
SwitchToThisWindow(ha,true);
Плеер получает фокус, но ,например, изменение громкости колесом всё-равно не работает.

[Artem]

Лучше тогда показывать свое окно без передачи на него фокуса, например, так:

Code: [Select]

ShowWindow(Handle, SW_SHOWNOACTIVATE)

[bescheidener]

Не помогло Результат такой же как и с моим кодом. После закрытия окна по CloseWindow(handle) моё OSD сворачивается над панелью задач и фокус плеера всё-равно теряется. Для того, что бы форма не появлялась на панели задач, первоначально я прописал на OnCreate вот такое

Code: [Select]

SetWindowLongPtr(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW | WS_EX_LAYERED);

[Artem]

Тогда лучше так:

Code: [Select]

ASavedFocus := GetFocus;
...
SetFocus(ASavedFocus);

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

[miketsoft]

Здравствуйте.

IAIMPAddonHeader - этот интерфейс должен реализовывать плагин и отдавать его плееру при обращении к AIMP_QueryAddonEx

IAIMPAddonHeader - это настоящий (наследуемый от IUnknown) интерфейс? Если да, то как там должны быть реализованы ф-ции QueryInterface, AddRef и Release? Хотелось бы посмотреть пример минимальной реализации (можно без тел функций) плагина-аддона к SDK v2.60 (можно на Delphi), например, чуть-чуть исходника плагина aimp_update.dll :-).
Заранее благодарен.

[Artem]

В дельфи есть такой класс TInterfacedObject, он уже имеет в себе реализацию IUnknown, поэтому Вам не нужно заморачиваться на этот счет.

[miketsoft]

В дельфи есть такой класс TInterfacedObject, он уже имеет в себе реализацию IUnknown, поэтому Вам не нужно заморачиваться на этот счет.

Спасибо, с этим я уже разобрался (нашел архив Tests+for+Addons, не очень удобно, что файлы разбросаны по всему форуму...  . Существует какой-нибудь более быстрый способ для связи с Вами, например, Аська?
На данный момент меня интересует, что делают ф-ции IAIMP2PlaylistManager::AIMP_PLS_PlayFile и IAIMP2PlaylistManager::AIMP_PLS_ID_PlayingSetTrackIndex? Как можно просто добавить файл в плейлист и узнать его индекс? Можно ли вставить файл в определенное место в плейлисте?
Заранее благодарен.

[Artem]

Спасибо, с этим я уже разобрался (нашел архив Tests+for+Addons, не очень удобно, что файлы разбросаны по всему форуму...  .

Как только допишу этот самый Tests for Addons - SDK появится на сайте. Просто руки никак не дойдут...

Существует какой-нибудь более быстрый способ для связи с Вами, например, Аська?

В ЛС отправил.

[bescheidener]

...Хотелось бы посмотреть пример минимальной реализации (можно без тел функций) плагина-аддона к SDK v2.60...

см. пост №12.

[miketsoft]

см. пост №12.

В посте 12 пример для старой версии SDK, мне был интересен пример для новой версии SDK (v2.60), с использованием интерфейса IAIMPAddonHeader, но, как я уже писал, с этим разобрались :-)

[IldarM]

ДОбрый день.
Хотелось бы пример как использовать SDK под 2.6.x.x.
Не до конца понятно как использовать AIMP_QueryAddonEx(IAIMPAddonHeader *AHeader).
Поиск по форуму результатов не дал.
Спасибо.

[Artem]

Что именно не понятно?

[IldarM]

Code: [Select]

class IIAIMPAddonHeader :public IAIMPAddonHeader
{
protected:
int m_nRefCount;
public:
BOOL WINAPI GetHasSettingsDialog()
{
return 1;
}
PWCHAR WINAPI GetPluginAuthor() {
ShowMessage("GetAutorFunc");
//wchar_t*
return (wchar_t*)"ildarM";
}
PWCHAR WINAPI GetPluginName()
{
ShowMessage("GetPluginName");
return (wchar_t*)"to flylink";
}
void WINAPI Finalize()
{
int i;
}
void WINAPI Initialize(IAIMP2Controller *AController)
{
ShowMessage("InitFunc");
}
void WINAPI ShowSettingsDialog(HWND AParentWindow)
{
int i;
}
STDMETHOD(QueryInterface)( REFIID refiid, void FAR* FAR* ppvObject )
{
*ppvObject = ( refiid == IID_IUnknown ) ? this : NULL;

if ( *ppvObject != NULL )
( (LPUNKNOWN)*ppvObject )->AddRef();

return *ppvObject == NULL ? E_NOINTERFACE : S_OK;
}

STDMETHOD_(ULONG, AddRef)( void )
{
return ++m_nRefCount;
}

STDMETHOD_(ULONG, Release)( void )
{
int nRefCount = --m_nRefCount;
if ( nRefCount == 0 )
delete this;
return nRefCount;
}

};

extern "C" __declspec (dllexport) BOOL __stdcall AIMP_QueryAddonEx(IAIMPAddonHeader *AHeader)
{

AHeader = new IIAIMPAddonHeader;
return 1;
}
Плагин в списке появился, но методы класса не вызываются

[Lyuter]

Вот код на Delphi, думаю разберетесь.

Code: [Select]

library aimp_addon;

uses
   AIMP_SDK;
type
      TMainClass = class(TInterfacedObject, IAIMPAddonHeader)
        function GetHasSettingsDialog: LongBool; stdcall;
        function GetPluginAuthor: PWideChar; stdcall;
        function GetPluginName: PWideChar; stdcall;
        procedure Finalize; stdcall;
        procedure Initialize(AController: IAIMP2Controller); stdcall;
        procedure ShowSettingsDialog(AParentWindow: HWND); stdcall;
      end;

procedure TMainClass.Initialize(AController: IAIMP2Controller);
begin
 // Тут вы инициализируете/создаете все компоненты вашего плагина, т.е. меню
 // окна и т.д.
end;

procedure TMainClass.Finalize;
begin
 // В этой процедуре нужно освобождать все ресурсы
 // созданные в Initialize
end;

function TMainClass.GetPluginAuthor: PWideChar;
begin
 Result := 'Автор плагина';
end;

function TMainClass.GetPluginName: PWideChar;
begin
 Result := 'Название плагина';
end;

function TMainClass.GetHasSettingsDialog: LongBool;
begin
 // Если есть окно с настройками то возвращаете True
 // иначе False
  Result := False;
end;

procedure TMainClass.ShowSettingsDialog(AParentWindow: HWND);
begin
 // Если имеется окно с настройками, показываем его,
 // иначе эта процедура игнорируется
end;

function AIMP_QueryAddonEx(out AHeader: IAIMPAddonHeader): LongBool; stdcall;
begin
 // Тут необходимо вернуть ссылку на интерфейс, в нашем случае
 // это будет выглядеть так:
  AHeader := TMainClass.Create;
  Result := True;
end;

exports
  AIMP_QueryAddonEx;

begin
end.