Eigene MediaPlayer Komponente mit bass.dll

[turboPASCAL]

Delphi-Quellcode:

// Check of a Bass.DLL Version 2.1
if Bass_GetVersion() <> DWORD(MAKELONG(2, 1)) then
begin
  ShowMessage('BASS.DLL 2.1 nicht geladen bzw. vorhanden!');
  Halt; // oder...
end;

// Set Config - Pass 32-bit floating-point sample data to all DSP functions
BASS_SetConfig(BASS_CONFIG_FLOATDSP, 1); 

// Init Bass
if not BASS_Init(1, 44100, 0, 0, nil) then ...Error...

Siehe auch:
TBassDLLPlayer
TBassDllPlayerEx
http://www.delphipraxis.net/internal...=396258#396258

Bass.dll