funsmile/uAudio.pas at master · sysint64/funsmile · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
//* Àâòîð [Xakep] *//

unit uAudio;

interface

uses
  Bass, Windows;

procedure InitAudio(Handle: Hwnd);
procedure FreeAudio(Stream: HStream);
procedure PlayAudio(Stream: HStream; FileName: String; Loop: Boolean);

implementation

procedure InitAudio(Handle: Hwnd);
begin
  BASS_Init(-1,44100,0,Handle,0);
  BASS_Start();
end;

procedure FreeAudio(Stream: HStream);
begin
  BASS_Stop();
  BASS_ChannelStop(Stream);
  BASS_StreamFree(Stream);
  BASS_Free();
end;

procedure PlayAudio(Stream: HStream; FileName: String; Loop: Boolean);
begin
  if not Loop then
    Stream:= BASS_StreamCreateFile(False,PChar(FileName),0,0,0)
  else
    Stream:= BASS_StreamCreateFile(False,PChar(FileName),0,0,BASS_SAMPLE_LOOP);

  BASS_ChannelPlay(Stream,True);
end;

end.