here is my demo
https://trim.uk.to/ogg-radio-listenver2.zipHas
*the part of your demo simplewebplayer (working except ogg)
*the part
http://uos-forum.108.s1.nabble.com/file/n1309/uos_curl.zip*the libvorbisfile library
http://uos-forum.108.s1.nabble.com/file/n1310/libvorbisfile-64.zip*****************
and the part The test zone that has
the download stream (working) + DownloadPlay(works only what downloaded)
It is a codetyphon project
*****************************************
PS : One important downside of the OPUS is the fact that works only at 48000 samplerate .
I have tried to move from OGG to opus for the recording part but works at 48000 and my card has 44100 so plays accelerated the recording .
//modded to record opus
function Tuos_Player.AddIntoFile (Filenamepath: PChar; SampleRate: CDouble;
Channels: cint32; SampleFormat: cint32; FramesCount: cint32;
FileFormat: cint32): cint32;
// Add an Output into audio wav file with custom parameters
// FileName : filename of saved audio wav file
// SampleRate : default: -1 (44100)
// Channels : default: -1 (2:stereo) (0: no channels, 1:mono, 2:stereo, ...)
// SampleFormat : default: -1 (2:Int16) ( 1:Int32, 2:Int16)
// FramesCount : default: -1 (= 4096)
// FileFormat : default: -1 (wav) (0:wav, 1:pcm, 2:custom, 3:ogg, 4:opus);
// result : Output Index in array -1 = error
// example : OutputIndex1 := AddIntoFile (edit5.Text,-1,-1, 0, -1, -1);
var
x: cint32;
wChunkSize: cint32;
wFileSize: cint32;
IDwav: array[0..3] of char;
Header: Tuos_WaveHeaderChunk;
{$IF DEFINED (sndfile)}
sfInfo: TSF_INFO;
{$endif}
begin
result := -1;
x := 0;
SetLength (StreamOut, Length (StreamOut) + 1);
StreamOut[Length (StreamOut) - 1] := Tuos_OutStream.Create ();
x := Length (StreamOut) - 1;
StreamOut[x].Data.Enabled := false;
StreamOut[x].FileBuffer.ERROR := 0;
StreamOut[x].Data.Filename := filenamepath;
if (FileFormat = -1) or (FileFormat = 0) then
StreamOut[x].FileBuffer.FileFormat := 0
else StreamOut[x].FileBuffer.FileFormat := FileFormat;
FillChar (StreamOut[x].FileBuffer, sizeof (StreamOut[x].FileBuffer), 0);
result := x;
if (Channels = -1) then
StreamOut[x].FileBuffer.wChannels := 2
else
StreamOut[x].FileBuffer.wChannels := Channels;
StreamOut[x].Data.Channels := StreamOut[x].FileBuffer.wChannels;
if FramesCount = -1 then StreamOut[x].Data.Wantframes := 65536 Div StreamOut[x].Data.Channels
else
StreamOut[x].Data.Wantframes := FramesCount;
SetLength (StreamOut[x].Data.Buffer, StreamOut[x].Data.Wantframes*StreamOut[x].Data.Channels);
if (SampleFormat = -1) or (SampleFormat = 2) then
begin
StreamOut[x].FileBuffer.wBitsPerSample := 16;
StreamOut[x].Data.SampleFormat := 2;
end;
if (SampleFormat = 1) then
begin
StreamOut[x].FileBuffer.wBitsPerSample := 32;
StreamOut[x].Data.SampleFormat := 1;
end;
if (SampleFormat = 0) then
begin
StreamOut[x].FileBuffer.wBitsPerSample := 32;
StreamOut[x].Data.SampleFormat := 0;
end;
if SampleRate = -1 then
StreamOut[x].FileBuffer.wSamplesPerSec := 44100
else
StreamOut[x].FileBuffer.wSamplesPerSec := roundmath (samplerate);
StreamOut[x].Data.Samplerate := StreamOut[x].FileBuffer.wSamplesPerSec;
StreamOut[x].LoopProc := Nil;
if fileformat = 3 then
begin
// ogg file
{$IF DEFINED (sndfile)}
StreamOut[x].FileBuffer.FileFormat := 3;
StreamOut[x].Data.TypePut := 6;
sfInfo.format := SF_FORMAT_OGG Or SF_FORMAT_VORBIS;
sfInfo.channels := StreamOut[x].Data.Channels;
sfInfo.frames := streamOut[x].Data.Wantframes;
SFinfo.samplerate := StreamOut[x].FileBuffer.wSamplesPerSec;
SFinfo.seekable := 0;
StreamOut[x].Data.Enabled := True;
StreamOut[x].Data.HandleSt := sf_open (pchar (FileNamepath), SFM_WRITE, sfInfo);
{$endif}
end
else if fileformat = 4 then begin //by trustfm
StreamOut[x].FileBuffer.FileFormat := 3;
StreamOut[x].Data.TypePut := 6;
sfInfo.format := SF_FORMAT_OGG or SF_FORMAT_OPUS; //SF_FORMAT_OGG Or SF_FORMAT_VORBIS;
sfInfo.channels := StreamOut[x].Data.Channels;
sfInfo.frames := streamOut[x].Data.Wantframes;
sfinfo.samplerate := 48000;// StreamOut[x].FileBuffer.wSamplesPerSec; //48000; OPUS WORKS AT 48000 ONLY :(
//SFinfo.samplerate := StreamOut[x].FileBuffer.wSamplesPerSec;
SFinfo.seekable := 0;
StreamOut[x].Data.Enabled := True;
StreamOut[x].Data.HandleSt := sf_open (pchar (FileNamepath), SFM_WRITE, sfInfo);
end
else
begin
// wav file
StreamOut[x].FileBuffer.Data := TFileStream.Create (filenamepath,fmCreate);
StreamOut[x].FileBuffer.Data.Seek (0, soFromBeginning);
StreamOut[x].Data.TypePut := 0;
IDwav := 'RIFF';
StreamOut[x].FileBuffer.Data.WriteBuffer (IDwav, 4);
wFileSize := 0;
StreamOut[x].FileBuffer.Data.WriteBuffer (wFileSize, 4);
IDwav := 'WAVE';
StreamOut[x].FileBuffer.Data.WriteBuffer (IDwav, 4);
IDwav := 'fmt ';
StreamOut[x].FileBuffer.Data.WriteBuffer (IDwav, 4);
wChunkSize := SizeOf (Header);
StreamOut[x].FileBuffer.Data.WriteBuffer (wChunkSize, 4);
case SampleFormat of
0: Header.wFormatTag := 3;
else Header.wFormatTag := 1;
end;
//Header.wFormatTag := 1;
Header.wChannels := StreamOut[x].FileBuffer.wChannels;
Header.wSamplesPerSec := StreamOut[x].FileBuffer.wSamplesPerSec;
Header.wBitsPerSample := StreamOut[x].FileBuffer.wBitsPerSample;
Header.wBlockAlign := StreamOut[x].FileBuffer.wChannels * Header.wBitsPerSample Div 8;
Header.wAvgBytesPerSec := StreamOut[x].FileBuffer.wSamplesPerSec * Header.wBlockAlign;
Header.wcbSize := 0;
StreamOut[x].FileBuffer.Data.WriteBuffer (Header, SizeOf (Header));
IDwav := 'data';
StreamOut[x].FileBuffer.Data.WriteBuffer (IDwav, 4);
wChunkSize := 0;
StreamOut[x].FileBuffer.Data.WriteBuffer (wChunkSize, 4);
StreamOut[x].Data.Enabled := True;
end;
end;
*******************************************************
In summary my only working path right now for my project is the following
[GENERIC PLAYER Like SimplePlayer Example]->
[RECORDER OGG like simplerecorder]->
[BROADCASTER OGG discussed and working in other thread
http://uos-forum.108.s1.nabble.com/Installing-IceCast-audio-web-server-td184.html]->
[OGG LISTENER not working (like simple webplayer) OGG DOWNLOADER WORKING]
Locked
