Thema: Delphi Mikrofon benutzen

Einzelnen Beitrag anzeigen

Miggi

Registriert seit: 8. Jun 2004
Ort: Seelbach
7 Beiträge
 
Delphi XE Professional
 
#3

AW: Mikrofon benutzen

  Alt 24. Mär 2011, 16:34
Hallo Ihr, bin grad dabei eine Spezielle Spezial Wave Datei zu erzeugen, die aber mit jeder Sekunde eine neue Frequenz hat (also Hochläuft) um eine PulsweitenModulation zu simulieren..
und beim Suchen nach etwas bin ich hier hingestoßen und möchte mal für alle (Anfänger) was grundsätzliches schreiben:

mciSendString('SET mysound TIME FORMAT MS ' + // Zeitformat
'BITSPERSAMPLE 16 ' + // 16 Bit
'CHANNELS 2 ' + // Stereo
'SAMPLESPERSEC 22050 ' + // Frequenz (Hz)
----->>>> 'BYTESPERSEC 22050 ', // 22050 Bytes/s
nil, 0, handle);

An der mit ----->>>> markierten Stelle passieren die meisten Fehler, denn diese Zahl ist sehr einfach auszurechnen, aber auch korrekt anzugeben...

Die Bytes/Sekunde die durch den Stream laufen müssen, sind

Abtastfrequenz x (Mono (1) oder Stereo (2)) x Bytes/Sample (ist bei 16 Bit = 2)

Also ergibt sich bei o.a. Beispiel 22050 * 2 * 2 = 88200 BytesperSecond

Hoffe Neueinsteigern einen kleinen Verständigungs-Tipp gegeben zu haben

LG Michael
Michael
HUMMEL - gut - schnell - preiswert
  Mit Zitat antworten Zitat