Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.487 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: Audiostream vom Microphon

  Alt 16. Okt 2006, 19:41
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]
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat