| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Плагин к Winamp'у [D7, WinXP]

Nolf ©   (2004-07-12 07:33:00) 

Что нужно приписать к DLLке, чтобы её вижел винамп, в разделе GenPlugins. На сайте винампы лежат SDK к DLLкам на С++. Разобраться не смог :-(

---

diaz   (2004-07-12 16:36:00) [1]

Исходники плугина к Winamp
www.en.net.ua/diaz

---

Shiza   (2004-07-12 11:05:00) [2]

Вот тебе рабочий код.
И ещё. Зайди на сайт журнала Мой компьютер и почитай мою статьи о том как писать плагины визуализации для винамп. А если тебе интересно, то я могу рассказать как писать плагины ввода/вывода, DSP-плагины.
С уважением, Алексей Фоминов.

library gen_mf;

{WinAmp General Purpose Plugin Demo Source Code for Delphi 5.0
by Ivan R. Spiridonov  E-Mail: ivanspirit@yahoo.com .
Feel free to use it anywhere at any time in any kind but please let me know !

History:
 I've made it because of that Justin Frankel 'NullSoft Inc.' had said that Delphi is
an alternative language . Or with other words you might be able or might not be to do
any plugin for WinAmp in Delphi.

To Do :
 Add a thread to do some job with WinAmp .

 Enjoy...!
}

uses
 ShareMem,
 Forms,
 Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

 type TwinampGeneralPurposePlugin = Record
  version     : integer ;
  description : Pchar   ;
       InitPinteger: function : integer; stdcall;
       Pconfig     : procedure ;stdcall;
       Pquit       : procedure ;stdcall;
       hwndParent  : Integer;
       hDllInstance: LongWord;
end;

type PTwinampGeneralPurposePlugin = ^TwinampGeneralPurposePlugin;

var
    plugin : TwinampGeneralPurposePlugin;

const
icversion       : integer  = $10; //If you change it it woun't work but I don't know why :-(  !
ichwndParent    : integer  = 0;
lwchDllInstance : LongWord = 0;
pccdescription  : PChar = 'ivanspirit WinAmp General Purpose Plugin Demo'+#0;

function winampGetGeneralPurposePlugin() : PTwinampGeneralPurposePlugin; stdcall; //Don't change function name and its result type.
begin
Result:=@plugin;
end;

function Init : Integer;  stdcall;    //Do some inits here and return with result of them .
begin
result:=0;  // It means that everything is fine.
end;

procedure config;         stdcall;   //WinAmp will execute it when doubleclick occurs on the Plugin description .
begin
Application.CreateForm(TForm1, Form1);  // Let us organize a window for user interface .
Form1.ShowModal;                        // Keep it shown until user stops interact with .
end;

procedure quit;           stdcall;   //Do some exit routines save data and et cetera.
begin
end;

exports winampGetGeneralPurposePlugin , init , config , quit; // Declare exports here .

begin
plugin.version      := icversion;
plugin.description  := pccdescription;
plugin.InitPinteger := @Init;
plugin.Pconfig      := @config;
plugin.Pquit        := @quit;
end.

---

Shiza   (2004-07-12 11:05:00) [3]

Вот тебе рабочий код.
И ещё. Зайди на сайт журнала Мой компьютер и почитай мою статьи о том как писать плагины визуализации для винамп. А если тебе интересно, то я могу рассказать как писать плагины ввода/вывода, DSP-плагины.
С уважением, Алексей Фоминов.

library gen_mf;

{WinAmp General Purpose Plugin Demo Source Code for Delphi 5.0
by Ivan R. Spiridonov  E-Mail: ivanspirit@yahoo.com .
Feel free to use it anywhere at any time in any kind but please let me know !

History:
 I've made it because of that Justin Frankel 'NullSoft Inc.' had said that Delphi is
an alternative language . Or with other words you might be able or might not be to do
any plugin for WinAmp in Delphi.

To Do :
 Add a thread to do some job with WinAmp .

 Enjoy...!
}

uses
 ShareMem,
 Forms,
 Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

 type TwinampGeneralPurposePlugin = Record
  version     : integer ;
  description : Pchar   ;
       InitPinteger: function : integer; stdcall;
       Pconfig     : procedure ;stdcall;
       Pquit       : procedure ;stdcall;
       hwndParent  : Integer;
       hDllInstance: LongWord;
end;

type PTwinampGeneralPurposePlugin = ^TwinampGeneralPurposePlugin;

var
    plugin : TwinampGeneralPurposePlugin;

const
icversion       : integer  = $10; //If you change it it woun't work but I don't know why :-(  !
ichwndParent    : integer  = 0;
lwchDllInstance : LongWord = 0;
pccdescription  : PChar = 'ivanspirit WinAmp General Purpose Plugin Demo'+#0;

function winampGetGeneralPurposePlugin() : PTwinampGeneralPurposePlugin; stdcall; //Don't change function name and its result type.
begin
Result:=@plugin;
end;

function Init : Integer;  stdcall;    //Do some inits here and return with result of them .
begin
result:=0;  // It means that everything is fine.
end;

procedure config;         stdcall;   //WinAmp will execute it when doubleclick occurs on the Plugin description .
begin
Application.CreateForm(TForm1, Form1);  // Let us organize a window for user interface .
Form1.ShowModal;                        // Keep it shown until user stops interact with .
end;

procedure quit;           stdcall;   //Do some exit routines save data and et cetera.
begin
end;

exports winampGetGeneralPurposePlugin , init , config , quit; // Declare exports here .

begin
plugin.version      := icversion;
plugin.description  := pccdescription;
plugin.InitPinteger := @Init;
plugin.Pconfig      := @config;
plugin.Pquit        := @quit;
end.

---

zx   (2004-07-12 09:50:00) [4]

http://www.izone.kiev.ua/progr/delphi/226.htm

---

Наверх