PHP は .wav ファイルを解析し、png 形式で波形を描画します

Php を使用してオーディオ ファイルを分析し、波形図を描画する方法は、オンラインではまだほとんど見られません。実際、wav ファイルの仕様に従って、Php の fseek、fopen、fopen、pack/unpack などの関数や、強力な gd グラフィックス ライブラリを使用するのは非常に簡単です。多くの人は、pack/unpack 関数に慣れていないかもしれません。これは実際には Php による Perl から借用したもので、スクリプト言語を使用して複雑なバイナリ データ構造にアクセスする方法を提供します。私の簡素化されたプログラムは、PCM 形式 (最も一般的な wav 形式でもあります) の RIFF オーディオ ファイルのみを処理できます。チャンネル制限はありませんが、ビット レート (BitsPerSample) は 16 であることが望ましいです。

参考までに、wave ファイル形式と MicroSoft wave サウンドファイル形式を示します。実践例です（ダウンロードして拡大してください）

1 2

3 function wav_graph($file, $f=0, $w= 0 )

4 {

5 global $DATA_DIR;

6

7 if(!is_file($file)) return 0;

8 $fp = fopen($DATA_DIR.$file, 'r');

9 $raw = fread($fp, 36);

10 $str = '' ;

11 $header = unpack('A4Riff/VSize/A4Wav/A4Head/VHeadSize/vPCM/vChannels/VSampleRate/VByteRate/vBlockAlign/vSampleBits', $raw);

12 foreach( $ header as $k=>$v)

13 $str .= $k.': '. $v.' ';

14 fseek($fp, 36 + $ header ['HeadSize'] - 16);

15 $raw = fread($fp, 8);

16 $data = unpack('A4Data/VDataSize', $raw); 🎜>

17 foreach($data as $k=>$v)

18 $str .= $k.': ';

19

20 $b = $header['SampleBits'];

21 $c = $header['Channels'];

22 $l = $b * $ c / 8; // サンプルフレーム長（バイト単位）

23 $s = $data['DataSize'] / $l // サンプルの総数

24 $r = $ header ['SampleRate'];

25 if($f) $h = pow(2, $b) / $f;

26 else { $h = 200; (2, $b - 1) / $h; }

27 if($w == 0) $w =round($r / 1000); // デフォルトでは 1 分あたり 1k のサンプル フレームを表示します。 🎜>

28

29 header("Content-type: image/png");

30 $im = imagecreate($s / $w, $h * $c * 2);

31 imagecolorallocate($im, 0xff, 0xff, 0xff); // 白 bg

32 $color = imagecolorallocate($im, 0, 0, 255); black

33 //imagestring($im, 5, 5, 5, $str, $color);

34

35 $x=0; array(); $yn = array();

36 for($i = 0; $i

37 $n = $l * $w;

38 while(1)

39 {

40 if($s == 0 ) Break;

41 if($s < $n) $n = $s;

42 $samples = fread($fp, 1000 * $n);

43 if($samples === FALSE) Break;

44 $packed = unpack("s*", $samples);

45 foreach($packed as $k = >$v)

46 {

47 $cnt = ($k-1) % ($w * $l) ;

48 if( $cnt > ; $c - 1) continue;

49 $yn[$cnt] = $h * $cnt + $h - $v / $f;

50 imageline($im, $ x, $y[$cnt], $x+1, $yn[$cnt], $color);

51 $y[$cnt] = $yn[$cnt];

52 $x++;

53 }

54 $s -= $n; 57 imagepng($im);

58 imagedestroy($im);

59 }

60

61 //wav_graph('audio2.wav ');

62 ?>