- if AStream.GetExtensionName='ogg' then
- begin
- FBuffer:=OpenAL.GenBuffer;
- FBuffer1:=OpenAL.GenBuffer;
- FOggReader:=TKar_OggVorbisReader.Create(FStream);
- p:=FOggReader.Read(4096*8);
- FBuffer.SetData(FOggReader.Format,p,FOggReader.Size,FOggReader.Frequence);
- p:=FOggReader.Read(4096*8);
- FBuffer1.SetData(FOggReader.Format,p,FOggReader.Size,FOggReader.Frequence);
- FSoundSource:=OpenAL.GenSource;
- OpenAL.alSourceQueueBuffers(FSoundSource.FID, 1, @Fbuffer.FID);
- OpenAL.alSourceQueueBuffers(FSoundSource.FID, 1, @Fbuffer1.FID);
- OpenAL.alSourcei(FSoundSource.FID, AL_LOOPING, AL_FALSE);
- end;