DELPHI AREA Forum

Finally, I could manage my time to write a program (actually a set of two) to show how to use TLiveAudioRecorder and TLiveAudioPlayer components of Wave Audio Package for streaming audio via TCP/IP connection.

The server application (Broadcaster) records audio from Microphone using TLiveAudioRecorder components and sends it to the network by help of TServerSocket component.

The client application (Receiver) connects to the server by a TClientSocket components and plays the received audio by help of TLiveAudioPlayer component.

When a client establishes a connection to the server, first server sends it the audio format structure. Then, the client initialize the audio output device and when the device get ready, acknowledge the server. After this, the server begins to send continuously audio data to the client.

The application is written in Delphi 6, however it can be compiled in Delphi 4, 5, and 7.

Greetings,
Kambiz

Hello Kambiz.

I'm a new member of your forum and i find your forum is very fine.
I'm so sorry about my bad english but i hope you can understand me.
I have downloaded the Wave Audio Package.

In one of my programs i use TLiveAudioRecorder and TLiveAudioPlayer components of
Wave Audio Package for streaming audio via TCP/IP connection.
The audiotransfer over TCP/IP works very fine but in the first seconds ( maybe 10 sec ), after
connecting, there are a noise ('klick,klick,klick') in the audiostream.

In your demo programs Broadcaster and Receiver it's the same problem.

How can i change this?

Many thanks for your help

BikerLupo

Hi,

To be honest, I never had chance to test my code on a real network. But I did it tonight.

I've made a small adjustments on code of the Broadcaster. I hope it was resolved the problem.

Cheers,
Kambiz

hai kambiz, where can i download this sample....
i need this sample to learned.... i develop small application with audio streaming feature

thanks in advance

The demo is part of the Wave Audio Package.

ok thanks kambiz.....

hi,
setLocalPort.Anchor: Property Anchors does not exist
i compiles using Delphi XE, can compiled but when i run the
application error like that.
is it support Delphi XE?

Hi Andrew,
Open the form and ignore the error message. After that you can build the application without Anchor property involved.
Anchor is an essential feature for automatic layout management. Why did they take it out from Delphi XE?!