Пытаюсь Воспроизвести звук при помощи связки OpenAL+FFmpeg Вывода звука вроде добился, но звук идет с прерываниями, треском, и кажется не много быстрее чем нужно, исходник прилагается Библиотеки
function TOggStream.Playback: Boolean;
begin
if Playing then
begin
Result := True;
exit;
end;
if not Stream(Buffers[0]) then
begin
Result := False;
exit;
end;
if not Stream(Buffers[1]) then
begin
Result := False;
exit;
end;
alSourceQueueBuffers(Source, 2, @Buffers);
alSourcePlay(Source);
Result := True;
end;
function TOggStream.Update: Boolean;
var
Processed: Integer;
Active: Boolean;
Buffer: TALUInt;
begin
Active := False;
alGetSourcei(Source, AL_BUFFERS_PROCESSED, @Processed);
if Processed > 0 then
repeat
alSourceUnqueueBuffers(source, 1, @Buffer);
Active := Stream(Buffer);
alSourceQueueBuffers(source, 1, @Buffer);
dec(Processed);
until Processed <= 0;
Result := Active;
end;
function TOggStream.Stream(Buffer: TALUInt): Boolean;
var
Data: PChar;
Size: Integer;
Section: Integer;
Res: Integer;
ff: integer;
BufferTMP: array[1..BufferSize + SIZEOF(Integer)] of Integer;
begin
Size := 0;
zeroMemory(@BufferTMP, SizeOf(BufferTMP));
GetMem(Data, BufferSize + SizeOf(Size));
while (Size < BufferSize) do
begin
av_read_frame(fmt_ctx, @MyPacket);
begin
if (MyPacket.stream_index = audio_index) then
begin
avcodec_decode_audio4(dec_ctxAud, AudFrame, ff, @MyPacket);
Res := av_samples_get_buffer_size(@AudFrame.linesize[0], dec_ctxAud.channels, Audframe.nb_samples, dec_ctxAud.sample_fmt, 1);
for icnt:=0 to 1 do
OldAuddata_size:= MyCircBuf.Write(AudFrame.Data[icnt],res);
MyCircBuf.Read(BufferTMP,res);
Application.ProcessMessages;
end;
av_free_packet(@MyPacket);
end;
if Res > 0 then
begin
inc(Size, Res);
end
else if Res < 0 then
Log.Add(ErrorString(Res))
else
break;
end;
if Size = 0 then
begin
Result := False;
exit;
end;
alBufferData(Buffer, AL_FORMAT_STEREO16, @BufferTMP, Size, dec_ctxAud.sample_rate);
Result := True;
FreeMem(Data);
end;
Кто сталкивался, помогите пожалуйста разобраться в проблемме
if dec_ctxAud.channels = 1 then audFormat := AL_FORMAT_MONO16 else audFormat := AL_FORMAT_STEREO16;
Почему именно 16? Звук не обязательно должен быть 16-ти битным. И еще в вопросе слишком много кода, оставьте только то, что относится к воспроизведению и настройкам вывода звука. – kot-da-vinci 6 мар '18 в 6:26MyCircBuf
если вы пишете в него раскодированный фрейм, а потом пытаетесь из него что-то прочитать и больше он нигде не используется? – kot-da-vinci 6 мар '18 в 15:23