LiveAudioPlayer playing a stream

[cozturk]

BufferInternally: Boolean;
If this property is True, the component allocates the memory required for the audio buffers and generates OnData events to fill them. If this property is False, the component generates OnDataPtr events to get audio buffers provided by the application.

I have a live stream which coming from any hardware.
The hardware is not a real sound card.
But wave stream stands in memory.

How can I indicate this streeam to LiveAudioPlayer to live playing ?

I see Perfect looping possible? topic. not clear for me
http://www.delphiarea.com/forum/viewtop ... =1203#1203

[Kambiz]

You can use OnDataPtr event for this purpose.

[cozturk]

I modified Live Audio example to playing my live streams which are coming from my sound card like hardware.

live playing not perfect as original Live Audio example which uses LiveAudioRecorder(mic input) to speaker output. Original example realy works perfectly.

The problem is short interrupting between sending live streams. (for example every seconds according to stream size) Original receiver project used withoud modifiying.

Which points must be considered to solving this problem? How can I simulate LiveAudioRecorder to get data and send to clients without interrupting?

[Kambiz]

Small BufferLength (~50ms) and Large BufferCount (~10)

[cozturk]

Thank you.

I have a little problem again :
Broadcaster stream size shortened about 50ms or less.
Receiver buflen 400, bufcount 10.

After tcpClient.Active := True; on receiver
first 3-5 second interrupts occurs. And between interrupts will increased
.... and no problem after 10seconds.

sample received data attached as wav: http://s6.ultrashare.net/hosting/fs/834fb5b91f4c3708/
PS: No acoustic feedback occured while recording this...

[Kambiz]

Sorry, I can't help you. I don't have enough exprience in network programming.

[cozturk]

Excuse me,

May I ask some questions again?:
I think this problem is coming from TAudioBuffer .

Code: Select all

function TAudioBuffer.BeginUpdate(ExtraSize: Cardinal): Pointer;
begin
  EnterCriticalSection(CS);
  ReallocMem(Data, Size + ExtraSize);
  Result := Pointer(Cardinal(Data) + Size);
  Inc(Size, ExtraSize);
end;

Size wil be larger time by time... and will be enough after 10 secs?
Unfortunately I dont understand theese: TAudioBuffer.BeginUpdate, EnterCriticalSection(CS),LeaveCriticalSection(CS)...
and
What happens in AudioBuffer.?
After creating buffersize is small and bigger later?

[Kambiz]

The Get method of TAudioBuffer resets the data buffer.

[cozturk]

problem reason was only, my broadcaster sending mechanism. Some delays while sending streams caused this problem .

[Kambiz]

Nice to hear you resolved the problem.