[ Pobierz całość w formacie PDF ]
.4-bajtowe s³owo okreœlaj¹ce d³ugoœæ pakietu danych (bez uwzglêdnieniapierwszych 8 bajtów - na identyfikator i d³ugoœæ)3.Wartoœci kolejnych próbek dŸwiêkowych Poni¿ej przedstawiam krótki programik,którego dzia³anie polega na wyœwietlaniu parametrów wskazanego przy wywo³aniupliku zapisanego w formacie WAV:program ShowWAY;typeHeader=recordRIFFId:array[1.4]ofchar;CLen:longint;WAVEId:arTay[1.,4]ofcnar;FMTId:arr'8yt1.4] ofchar:FMTLen:longint;FMTTag:word;Channels:word;Fpeq;longint:;Transmis;bngirt;B/ces:vwrd;FORMAT WAVBts.word:DATAId,array[1,,4] of char, DATALen;longintend:varf:file:Bu^painter;begmif paramcountol then begmwnteInfUzycie, ShowWAV plik'),halt end, assign(f,paramstr[1)]:1$!-}reset(f,1); { próba otwarcia pliku } {$!+} ifioresultoOthen beginwnteInCBtad otwarcia pliku !');halt { nie uda³o siê } end;getmem[Buf,sizeof[Header)]; { pamiêæ} blockreadtf.Buf^sizeoftHeaderIJ; {odczyt} ctosetfl; { zamykamy plik} with HeadertBuf) do beginwnteh:whCefPlik : ');writeln[paramstr[1)3:writeETyp ; '3;ifChanne!s=1 then writelnt'MONO'1 elsewnteln['STEREO'l;writeInfCzêstotiiwoœæ: ',Freql;writeInCHoœæ bajtów : 'iDATALen);writeln('-> Czas Es]: ',DATALen/frcq:5:2) endend.ROZDZIA£? LITERATURA ]5]LITERATURA[l ] K.G.Beauchamp „Przetwarzanie sygna³Ã³w metodami analogowymi i cyfrowymi",WNT, 1978|2| N.Kilen „Z Turbo Pascalem w g³¹b systemu", LYNX-SFT, 1994 [3) P.Norton„The New Peter Norton Programmer^s guide to the IBMPC & PS/2", Microsoft Press, 1988 [4] A.Stolz „Le grand Iwre de la SoundBlaster", Micro Application.1992[5] R.Tadeusiewicz „Sygna³ mowy", WK£, 1988 [6] A.Wojtkiewicz „Elementysyntezy Filtrów cyfrowych".WNT, 1984 [7] „Sound Blaster Deueloper Kit",Creative Labs Inc.1990
[ Pobierz całość w formacie PDF ]