【PHP教程】PHP生成指定频率和声音的声音文件

wangy

1. <?php
   + V8 f! p( m: G3 v
2. 
   $ ]- O- Q* c  c* t. B; X$ D* F
3. 
   
4. 
   
5. define('M_SAMPLEFREQ', 44100);//采样频率44100
   & {' @( w7 p7 v
6. 
   
7. define('M_CHANNELS', 1);//通道数
   
8. 
   
9. define('M_CHANNELBITS', 16);//通道字节数
   , I9 X4 }9 ~2 {# t: N
10. 
    
11. define('WAVE_HEAD_LENGTH', 44);//wav头文件长度
    
12. 
    
13. define('PI', 3.1415926535);//圆周率值
    7 _6 p1 y' d. w
14. 
    $ O4 K6 q( Q$ X' Z# F" f, R: I7 b
15. 
    : n$ _1 b" B9 F1 ]! N. g/ ^8 S( c) [2 t
16. 
    - D4 S: A! M: ]& r3 Y$ ~
17. /**
    % R5 q0 [: q# F
18. 
    & C6 J% G3 y4 Y
19. * @param int $freq 频率
    $ q: ]3 v$ U$ Q8 F8 S# {) i
20. 
    " j9 q9 o* G+ b* d: ]
21. * @param int $volume   音量(分贝)
    
22. 
    . c1 t5 f) W# e# L8 r
23. * @param int $durations   时间/毫秒
    
24. 
    
25. * @return mixed
    2 D) n$ v: {" ^% q+ O' t
26. 
    - H( H( w) G4 c9 \. P
27. */
    
28. 
    ! e1 Z; f/ [1 S. `2 p. q7 c
29. function makeWav($freq, $volume, $durations)
    % J0 ?: N6 a% ?) k; t$ m7 h7 H
30. 
    
31. {
    
32. 
    * `. A$ S7 Q! @7 g, y& a) J; n
33.     $totalLen = M_SAMPLEFREQ * M_CHANNELS * M_CHANNELBITS / 8 * $durations / 1000 + WAVE_HEAD_LENGTH;//文件总长度=(采样率 * 通道数 * 比特数 / 8) * 持续时间(s)
    
34. 
    
35.     for ($i = 0; $i <= $totalLen; $i++) {
    & |# U, i9 p$ @, ?- `4 a  }
36. 
    % G3 R) S, Z6 K- w
37.         $wav[$i] = 0;
      c/ M; E7 }% j. J5 A5 W
38. 
    ) U+ ]  r! E; {% m5 S+ g2 m
39.     }
    * L: X* K. L6 t8 s
40. 
    $ n, V) N! P# c/ Y
41. 
    
42. 
    
43.     $wav[0] = 82;
    % ]3 j1 S  L- d% O  ~4 J
44. 
    
45.     $wav[1] = 73;
    
46. 
    2 J8 W  Y7 M, Z8 n1 b6 R$ ~$ K
47.     $wav[2] = 70;
    
48. 
    5 S' |& s9 a; O% L$ u4 l$ |
49.     $wav[3] = 70;
    6 P, Y5 j1 `% i8 F# B+ Z( G% ^# Z% n% F
50. 
    
51. 
    ) }; R4 N, V+ }% d7 [6 Z% I' h1 a
52. 
    
53.     $headerLen = $totalLen - 8;//文件的总长度-8bits
    4 w3 I+ H& h; n' b# Z
54. 
    
55. 
    9 N+ z4 }# e7 m1 z  I
56. 
    ( [! O, J* ~4 i* |% ~' y' o' X8 c
57.     $wav[7] = $headerLen -->> 24 & 255;
    + I- t+ }3 K4 @& f( [
58. 
    
59.     $wav[6] = $headerLen >> 16 & 255;
    8 \: {0 X. {* h  _
60. 
    
61.     $wav[5] = $headerLen >> 8 & 255;
    
62. 
    * ?4 H! x/ K: W) R3 l; z
63.     $wav[4] = ord(chr($headerLen));
    
64. 
      i0 R9 a+ }/ M' m
65. 
    
66. 
    7 o8 B3 A: M: ]: g) V
67.     $wav[8] = 87;
    
68. 
    
69.     $wav[9] = 65;
    
70. 
    
71.     $wav[10] = 86;
    3 ?2 O+ c# U) J
72. 
    
73.     $wav[11] = 69;
    1 p% E: h. [$ H: Z" m. q9 @" v$ X$ O
74. 
    
75. 
    5 U  S& f( z7 |" p) m
76. 
    
77.     $wav[12] = 102;
    / E8 V' m) H7 p- w+ }2 W: E
78. 
    6 [( y- w5 T9 b& r2 z4 s- A: |) Z
79.     $wav[13] = 109;
    4 a1 b1 p, @. I* K3 V. V
80. 
    2 W% h+ x1 b$ D  u
81.     $wav[14] = 116;
    * T5 R9 t: Q% X5 l+ w- R) _
82. 
    
83.     $wav[15] = 32;
    
84. 
    
85. 
    
86. 
    
87.     $wav[16] = 16;
    
88. 
      [2 O* i3 J5 i- t
89.     $wav[17] = 0;
    
90. 
    
91.     $wav[18] = 0;
    
92. 
    
93.     $wav[19] = 0;
    
94. 
    2 M% h+ Z3 r' I. k9 d
95. 
    
96. 
    & H& w' `  ~8 ~* z' N2 Y
97.     $wav[20] = 1;
    
98. 
    + I% Y& T7 z4 x  e4 K
99.     $wav[21] = 0;
    0 M$ |* d5 O9 H" d. G# K: R
100. 
     
101. 
     
102. 
     8 Q! O1 R5 F  t6 D( g
103.     $wav[22] = M_CHANNELS;
     
104. 
     ( X2 `3 `: g0 [
105.     $wav[23] = 0;
     
106. 
     
107. 
     0 Z* }( L. I5 l/ F; B
108. 
     
109.     $wav[24] = ord(chr(M_SAMPLEFREQ));
     ' B& \' ?& r, Z8 b' w' h
110. 
     & F2 Y" ?4 |' l8 ~5 d# R
111. 
     
112. 
     
113.     $wav[25] = M_SAMPLEFREQ >> 8 & 255;
     
114. 
     
115.     $wav[26] = M_SAMPLEFREQ >> 16 & 255;
     2 m! _9 k- W  {& L, T
116. 
     - f' F' I  G  O- f3 a
117.     $wav[27] = M_SAMPLEFREQ >> 24 & 255;
     
118. 
     
119. 
     $ g( G% f' I+ x8 S: a, t
120. 
     
121.     $nAvgBytesPerSec = M_SAMPLEFREQ * M_CHANNELS * M_CHANNELBITS / 8;//每秒所需字节数
     
122. 
     
123.     $wav[28] = ord(chr($nAvgBytesPerSec));
     ' \* I3 {$ g3 n% Z5 a* f5 `
124. 
     
125.     $wav[29] = $nAvgBytesPerSec >> 8 & 255;
     + R: L4 ~2 D2 R# _# [' F
126. 
     
127.     $wav[30] = $nAvgBytesPerSec >> 16 & 255;
     / ]  l! l- ^/ b3 m6 g/ G
128. 
     
129.     $wav[31] = $nAvgBytesPerSec >> 24 & 255;
     
130. 
     : n6 _/ {+ V* ?! o& z' s  H$ D  W2 ^
131.     $wav[32] = 2;
     
132. 
     . h! O* y; j+ _* x9 P& z
133.     $wav[33] = 0;
     
134. 
     9 w0 U8 {6 c' o$ `
135. 
     4 B" T8 n; n- C. p$ T
136. 
     , j- q3 `* r" I+ D4 s' I
137.     $wav[34] = M_CHANNELBITS;
     2 ?4 a6 z/ `* g3 s; r
138. 
     2 L& d+ l8 c7 T
139. 
     / d# e! \! \  u1 g) T( Z' T
140. 
       G5 {1 g0 F; y. x. M+ `
141.     $wav[35] = 0;
     
142. 
     
143. 
     ) q* i* |7 m3 F8 w5 q" z8 h
144. 
     4 |/ S/ B4 u/ f5 x1 \' e
145.     $wav[36] = 100;
     
146. 
     / s2 ?. N. H1 L; T7 w' q
147.     $wav[37] = 97;
     # r1 Q7 p! _0 `( A
148. 
     ; v. P. c% S2 g4 u" a
149.     $wav[38] = 116;
     
150. 
     ) I" Z) r# q; a7 W" ~+ J
151.     $wav[39] = 97;
     
152. 
     7 g' E6 [" Z1 l% O- t) ~
153. 
       B5 V8 V( o' a/ Y8 |0 I9 t; V
154. 
     , }8 K2 a& P$ a- N, H" p
155.     $dataLen = $totalLen - WAVE_HEAD_LENGTH;//数据的长度，=文件总长度-头长度(44bit)
     
156. 
     
157. 
     
158. 
     
159.     $wav[43] = $dataLen >> 24 & 255;
     
160. 
     ( I, z2 x, p4 `
161.     $wav[42] = $dataLen >> 16 & 255;
     
162. 
     7 n& U% z5 M7 V( k. o
163.     $wav[41] = $dataLen >> 8 & 255;
     
164. 
     6 L3 W) H( ]& `" I0 y
165.     $wav[40] = ord(chr($dataLen));
     
166. 
     8 h0 G7 v9 o3 J/ v1 x( s: `
167. 
     4 y) l! K7 l3 F4 U! u
168. 
     + |$ N! R7 `: ~% \8 X5 ?, ]
169.     $len = $totalLen - WAVE_HEAD_LENGTH;
     + C' `/ }  F# T5 q8 \# {0 x, i
170. 
     
171.     wavData(M_SAMPLEFREQ, $freq, $volume, $wav, WAVE_HEAD_LENGTH, $len);
     + b7 i- h' m& b- ~" v
172. 
     
173.     }
     & l! g0 N7 e8 ~# u/ Q8 O
174. 
     ) W! a) c# k% h0 V( p& f3 p
175. 
     
176. 
     / Q# q% Y' Y- y0 F) _9 k; N
177.     return $wav;
     
178. 
     
179. }
     
180. 
     / Q& Q- |; s9 i
181. 
     
182. 
     
183. function wavData($rate, $freq, $amp, &$p, $pp, $len)
     
184. 
     $ K  k4 J9 r% \
185. {
     + N& n1 d5 Q% e- s- u5 @  P) D
186.     for ($i = 0; $i <= $len - 1; $i += 2) {
     
187. 
     
188.         $v = sin(($len - $i) * PI / $rate * $freq) / 180 * ($amp * 32768 + 32768);
     
189. 
     
190.         $p[$pp + $i] = $v & 255;//低字节在前
     % k* _4 m6 ?- g( L: O: t4 h
191. 
     9 e1 V; k2 s3 i% d
192.         $p[$pp + $i + 1] = $v >> 8 & 255;//高字节在后
       E8 D: R; R' o$ B3 O: N. e" \( P& ]
193. 
     & r3 `* d2 [+ J2 V
194.     }
     0 \+ @% [8 k6 O
195. }
     
196. 
     1 `) b- F" V1 g# O
197. 
       v+ E  c  g" C. h3 i1 P
198. 
     
199. $data = makeWav(2000, 89, 1000);
     
200. 
     ; R0 A% t; p) I" K  x4 k
201. $res = fopen('./test.wav', 'wb');
     # G* S% b. V4 D, Q4 ]) y: i
202. 
     
203. foreach($data as $v){
     0 s- Q  e# y( r# f* w
204. 
       u3 S0 _6 A3 U* f0 J
205. $bin .= pack("c*", $v);
     9 k, {) B+ I7 f# X( u, [
206. 
     , Y% S" S# O4 l% w  H
207. }
     , _3 E4 Z5 d6 \% f
208. 
     
209. fwrite($res, $bin, strlen($bin));
     
210. 
     
211. fclose($res);

复制代码