Audiostream vom Microphon

[Zacherl]

Hi,

weiß jemand, wie ich einenen Audiostream vom Micorphon realisieren kann. Das ganze soll so aussehen, dass auf einen Cpmputer ein Indy TCP Client läuft, der den Input, der über den eingestellten Sound Eingang reinkommt an einen Server verschickt ... der Server soll dann auf dem anderen Computer den Stream kontinuierlich wiedergeben.

Danke Florian

[Eichhoernchen]

Hmm, einfach ist das glaube ich nicht, du kannst aber wenn ich mich richtig erinnere den Soundeingang über die mmsystem funktionen:

waveInOpen();
waveInPrepareHeader();
waveInAddBuffer();
waveInStart();

ansprechen.

Zuerst musst du waveInOpen aufrufen, das öffnet sozusagen den device, und du kannst ne Callbackfunktion angeben, in der kannst du dann deine Daten behandeln, außerdem musst du der Funktion nen Pointer auf ne TWAVEFORMATEX strucktur übergeben, darin sind die Infos, wie z.B. Sampelrate oder Anzahl der Kanäle(mono, stereo).

Danach musst du deine Daten preparieren mit der waveInPrepareHeader.
Diese übergibst du das Handel des devices, das du von waveINOpen bekomsmten hast(1. Parameter).
Sowie eine Adresse auf eine TWaveHdr Strucktur. Diese muss du mit deinem Buffer, Buffergröße und dwflag auf 0 füllen.

Jetzt musst du deine Infos an das Soundevice schicken. mit der waveInAddBuffer.
Wenn der buffer voll ist, wird das WHDR_DONE bit in der dwFlag vom TWaveHdr gesetzt, so kannst du in der callback funktion überprüfen, ob der buffer voll ist.

Um dann nun das Aufnehmen in den Buffer zu starten wird die waveInStart() aufgerufen.

So, ich weiß nicht ob das alles exakt stimm, ich weiß das nur von den Midi funktionen. Jedoch sehen die sehr ähnlich aus, nur das man hier eben noch den Soundtyp (TWAVEFORMATEX) angeben muss, sonst ist alles gleich.

Such am besten bei google wie du das machen kannst, ich kann gerne mal meinen code Posten, wie ich SysEx Commands über den Midiinput aufnehme!

Außerdem musst du mal gucken, welche Messages an die Callbackfunktion geschickt werden um zu wissen, wann du was aus dem buffer in deinen Stream speichern kannst.


Wie du das ganze dann per indy verschickst, kann ich dir nicht sagen aber ich denke das ist nicht umbedinngt das schwerste. Nur das du zuviele Daten haben wirst, für ne gute übertragung, daher wirst du bestimmt komprimieren müssen, so wie es auch TeamSpeak(ist ein Delphi programm) tut. Ich glaube dort wird unteranderem Speex zum komprimieren genutzt.


Hoffe, dass dir das Hilft.

Eichhoernchen

[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 :oops: [/edit]

[Zacherl]

Hey danke euch beiden! :thumb: Damit sollte ich es schaffen.

Florian

[Eichhoernchen]

hab HIER noch was dazu gepostet.

[Zacherl]

Cool ... ich gucks mir gleich mal an.

Florian

[flossinger]

Hallo,

das geht schon so, wie Eichhörnchen in Beitrag Nr. 2 schreibt. Nur sollte man durch die Verwendung von zwei Puffern das Knacken im Stream vermeiden. >>>==> Hier habe ich beschrieben wie das funktioniert.

grüsse,
der flossinger

[thebier]

Hi, ich weiß der Thread is schon etwas älter, aber kann mir einer helfen? Ich werd leider net schlau aus den Quellstücken
MfG thebier

[Aphton]

nein

[thebier]

Danke für die qualifizierte Antwort. Das heißt für mich, kann oder will mir keiner helfen?