Hi,
das geht mit
DEAudio. Im Event TDeAudioSource.OnAudioRecorded oder TDeAudioConvertorIn.OnAudioConverted kannst Du dann auf den Audiopuffer zugreifen und ihn so auf die Reise schicken:
Delphi-Quellcode:
Client.WriteInteger(AudioDataSize);
Client.WriteBuffer(AudioData^, AudioDataSize);
Beim Empfang dann im TIdTCPServer.OnServerExecute:
Delphi-Quellcode:
type
TBuf = Array[1.32768] of byte;
...
var
srvbuf : TBuf;
...
// Grösse lesen
Size:=AThread.Connection.ReadInteger;
// Datenpuffer lesen
AThread.Connection.ReadBuffer(SRvBuf, Size);
// Abspielen
deAudioOut.PlayAudio(@SrvBuf, Size);
[edit]
Link korrigiert [/edit]