naja ich habs jetzt ein paar Wochen versucht nur diese nicht funktionierendes Beispiel ist herausgekommen:
FMod:
Code: Alles auswählen
function FSOUND_Init(mixrate, maxsoftwarechannels, flags: integer): integer; stdcall;
function FSOUND_Sample_Load(index : integer; *name_or_data : const string; mode, offset, length : integer): integer; stdcall;
function FSOUND_Sample_SetMode(mixrate, maxsoftwarechannels, flags: integer): integer; stdcall;
procedure TForm1.FormCreate(Sender: TObject);
var
FSOUND_UNMANAGED,FSOUND_16BITS,FSOUND_SIGNED,FSOUND_MONO,FSOUND_2D,FSOUND_NORMAL : Integer;
begin
FSOUND_16BITS := 0x00000010;
FSOUND_SIGNED := 0x00000100;
FSOUND_MONO := 0x00000020;
FSOUND_2D := 0x00002000;
FSOUND_NORMAL := (FSOUND_16BITS | FSOUND_SIGNED | FSOUND_MONO);
FSOUND_UNMANAGED := -2;
function FSOUND_Init(mixrate, maxsoftwarechannels, flags: integer): integer; stdcall;
external 'fmodce.dll';
function FSOUND_Sample_Load(index : integer; *name_or_data : const string; mode, offset, length : integer): integer; stdcall;
external 'fmodce.dll';
function FSOUND_Sample_SetMode(mixrate, maxsoftwarechannels, flags: integer): integer; stdcall;
external 'fmodce.dll';
FSOUND_Init(32000, 32, 0);
samp1 = FSOUND_Sample_Load(FSOUND_UNMANAGED, 'drumloop.wav', FSOUND_NORMAL | FSOUND_2D, 0, 0);
if (!samp1) then
ShowMessage('Error!');
end;
Also könnte mir Irgendwer nachmal helfen und sich den Code ansehen?