Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.157 Beiträge
 
Delphi 12 Athens
 
#9

Re: Qualität einer Wav Datei ändern

  Alt 17. Aug 2009, 17:15
Delphi-Quellcode:
WaveHdr.riff := 'RIFF';
WaveHdr.len := 36;
WaveHdr.cWavFmt := 'WAVEfmt ';
WaveHdr.dwHdrLen := 16;
WaveHdr.wFormat := 1;
WaveHdr.wNumChannels := 2;
WaveHdr.dwSampleRate := 44100;
WaveHdr.wBlockAlign := 4;
WaveHdr.dwBytesPerSec := WaveHdr.dwSampleRate * WaveHdr.wNumChannels * WaveHdr.wBitsPerSample div 8;
WaveHdr.wBitsPerSample := 16;
WaveHdr.cData := 'data';
WaveHdr.dwDataLen := 0;
wNumChannels = Kanäle ... 1=Mono und 2=Stereo
dwSampleRate = Abtastrate = Meßpunkte/-Werte pro Sekunde
wBitsPerSample = Auflösung pro Abtastung = 16=16 Bit pro Messung

dwBytesPerSec * Zeit_in_Sekunden + SizeOf(Header) = Dateigröße

gebräuchliche Werte wären
Code:
dwSampleRate, wBitsPerSample, wNumChannels, dwBytesPerSec

*8,000 kHz, 8-Bit, Mono,    7 Kbit/s
*8,000 kHz, 8-Bit, Stereo, 15 Kbit/s
*8,000 kHz, 16-Bit, Mono,   15 Kbit/s
*8,000 kHz, 16-Bit, Stereo, 31 Kbit/s
11,025 kHz, 8-Bit, Mono,   10 Kbit/s [b]= Sprach Qualität (Telefon)[/b]
11,025 kHz, 8-Bit, Stereo, 21 Kbit/s
11,025 kHz, 16-Bit, Mono,   21 Kbit/s
11,025 kHz, 16-Bit, Stereo, 43 Kbit/s
22,050 kHz, 8-Bit, Mono,   21 Kbit/s
22,050 kHz, 8-Bit, Stereo, 43 Kbit/s
22,050 kHz, 16-Bit, Mono,   43 Kbit/s
22,050 kHz, 16-Bit, Stereo, 86 Kbit/s [b]= Radio Qualität[/b]
44,100 kHz, 8-Bit, Mono,   43 Kbit/s
44,100 kHz, 8-Bit, Stereo, 86 Kbit/s
44,100 kHz, 16-Bit, Mono,   86 Kbit/s
44,100 kHz, 16-Bit, Stereo, 172 Kbit/s [b]= CD Qualität[/b]
48,000 kHz, 8-Bit, Mono,   46 Kbit/s
48,000 kHz, 8-Bit, Stereo, 93 Kbit/s
48,000 kHz, 16-Bit, Mono,   93 Kbit/s
48,000 kHz, 16-Bit, Stereo, 187 Kbit/s
(Radio und Telefon mit der Klangqualität der Technik von vor 10-20 Jahren gleichgesetzt)

ich möchte aber mal wissen, wie du auf 80 MB kommst, denn rechnerisch komme ich nur auf knapp 20 MB?
172 KB/sec {176400} * 120 Sekunden {2 Minuten} = 20,2 MB
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat