Hello freq. I once asked you how to implement reading the write buffer and then clearing it (
http://uos-forum.2369694.n4.nabble.com/How-to-record-from-a-microphone-without-output-to-the-speakers-tp739p744.html). You have advised a two-player algorithm with alternating start and stop. The algorithm works, but there is a memory problem. For some reason, memory began to grow, although I destroy and recreate the players.
Listing
//Create Player number "aPlayer"
function StartMediaPlayer(aPlayer:integer;MemBuf:PDArFloat):boolean;
var MediaInput:integer;
s:string;
begin
result:=false;
//Free buffer for Player "aPlayer"
if aPlayer=MediaPlayer1
then
SetLength(MemBuf1, 0)
else
SetLength(MemBuf2, 0);
//Если плейер был остановлен, очищаем его
if uos_GetStatus(aPlayer)=0
then
uos_FreePlayer(aPlayer);
//
if not uos_CreatePlayer(aPlayer) then exit;
//
uos_AddIntoMemoryBuffer(aPlayer,MemBuf);
MediaInput:=uos_AddFromDevIn(aPlayer,-1, -1, 8192, 0, 0, 1024, 256);
//
if MediaInput<0
then
begin
uos_Stop(aPlayer);
//uos_FreePlayer(aPlayer);
exit;
end;
//
uos_InputAddDSPVolume(aPlayer,MediaInput,1,1);
uos_InputSetDSPVolume(aPlayer,MediaInput,1,1,true);
//
result:=true;
end;
procedure Execute;
var cnt : Integer;
i:Integer;
PleerNum : Integer; //select Player
begin
//
PleerNum:=2;
SetLength(MemBuf2, 0); //Free Buf2
//If start Player2
if StartMediaPlayer(MediaPlayer2,@MemBuf2)
then
//play Player2
uos_Play(MediaPlayer2)
else
begin
//exit
end;
//
while (not Terminated) do
begin
if PleerNum=2 then
begin
sleep(1);
while (Length(MemBuf2)<8192*2) and (not Terminated) do begin Sleep(1); end;
//Start Player1
while (not Terminated) and (not StartMediaPlayer(MediaPlayer1,@MemBuf1)) do
sleep(2);
//
if Terminated then Break;
//stop Player2
uos_Stop(MediaPlayer2);
//uos_FreePlayer(MediaPlayer2);
//play Player1
uos_Play(MediaPlayer1);
//Read Data from buf2
ReadDataFromBuff(MemBuf2);
//Select Player1
PleerNum:=1;
end else
if PleerNum=1 then
begin
sleep(1);
while (Length(MemBuf1)<8192*2) and (not Terminated) do begin Sleep(1);end;
//start Player2
while (not Terminated) and (not StartMediaPlayer(MediaPlayer2,@MemBuf2)) do
sleep(2);
//
if Terminated then Break;
//stop Player1
uos_Stop(MediaPlayer1);
//uos_FreePlayer(MediaPlayer1);
//play Player2
uos_Play(MediaPlayer2);
//Read Data from buf1
ReadDataFromBuff(MemBuf1);
//SelectPlayer2
PleerNum:=2;
//
Sleep(1);
end;
end;
//Останавливаем плейеры
try
uos_Stop(MediaPlayer1);
uos_FreePlayer(MediaPlayer1);
uos_Stop(MediaPlayer2);
uos_FreePlayer(MediaPlayer2);
finally
end;
sleep(2);
//Free buffers
SetLength(MemBuf1, 0);
SetLength(MemBuf2, 0);
end;
Locked
