Membuat Media Player Dengan Delphi & Bass.dll

• Buka Delphi & buatlah sebuah project
• Download bass.dll di situs resminya http://www.un4seen.com/
• Copy bass.dll ke directori file exe project anda
• Copy Source Code dibawah ini :

var

strs: HSTREAM

procedure TForm1.FormCreate(Sender: TObject);

begin

if (HIWORD(BASS_GetVersion) <> BASSVERSION) then

begin

MessageBox(0,'An incorrect version of BASS.DLL was loaded',nil,MB_ICONERROR);

Halt;

end;

if not BASS_Init(-1, 44100, 0, Handle, nil) then

Error('Error initializing audio!');

end;

procedure TForm1.Button15Click(Sender: TObject);

var

f: PChar;

begin

if not OpenDialog2.Execute then Exit;

f := PChar(OpenDialog2.FileName);

strs:= BASS_StreamCreateFile(False, f, 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});

if strs= 0 then

Error('Error creating stream!');
BASS_ChannelPlay( strs, False);

end;