Nebenbei..
Ich habe die normalen Functionen vom Record TWinAMPVisModule gecastet
da ich im Plugin mehrere Module verwende.
Standard
Delphi-Quellcode:
Config : procedure(This_Mod: PWinAMPVisModule); cdecl;
Init : function(This_Mod: PWinAMPVisModule): Integer; cdecl;
Render : function(This_Mod: PWinAMPVisModule): Integer; cdecl;
Quit : procedure(This_Mod: PWinAMPVisModule); cdecl;
umgelegt..
Delphi-Quellcode:
function _Slideshow_Init(This_Mod: PWinAMPVisModule): integer; cdecl; forward;
function _Slideshow_Render(This_Mod: PWinAMPVisModule): integer; cdecl; forward;
procedure _Slideshow_Quit(This_Mod: PWinAMPVisModule); cdecl; forward;
procedure _Slideshow_Config(This_Mod: PWinAMPVisModule); cdecl; forward;
Delphi-Quellcode:
var
_Slideshow: TWinAMPVisModule = (Description: PAnsiChar('Background Slideshow');
LatencyMs: 1;
DelayMS: 25;
SpectrumNch: 2;
WaveformNch: 2;
Config: _Slideshow_Config;
Init: _Slideshow_Init;
Render: _Slideshow_Render;
Quit: _Slideshow_Quit;
UserData: nil);
Kann mir aber nicht vorstellen das dies mein genanntes Problem verursacht.
gruss