Developing.ru

Код: Выделить всё

uses Crt, Audio;

Type MySound = object(SoundBlasterPro)
     procedure InBuffer(var Buffer; Size:Word); virtual;
     procedure PlayBackReady; virtual;
     end;
var
Aud 	: MySound;
Buf 	: Array [0..16383] of byte;
PlayEnd : boolean;
F   	: File;

procedure MySound.InBuffer(var Buffer; Size:Word);
var cnt : word;
begin
if not eof(F) then BlockRead(F, Buffer, Size, cnt);
end;

procedure MySound.PlaybackReady;
begin
PlayEnd := true;
end;

begin
Assign(F, 'Whitney.wav');
Reset(F, 1);
Aud.Init($220, 5, 1);
Aud.SetOutput(Mono, True);
ClrScr;
PlayEnd := false;
Aud.PlaySample(11025, filesize(F));
While (not keypressed) and (not PlayEnd) do
	begin
	GotoXY(1,1);
                Writeln('Some idle process #',random(1000));
	end;
Writeln('Playback finished');
end.