Audiostream vom Microphon

[Union]

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]