Delphi根据音频数据画波形

1. //***********************************************************************// 
2. //                                                                       // 
3. //   画放音时的动态波形                                                  // 
4. //   参数:                                                               // 
5. //       Buf            : 音频数据指针                                   // 
6. //       Length         : 音频数据的长度                                 // 
7. //       DesCanvas      : 用来显示波形的目标画布                         // 
8. //       DH, DW         : 目标画布工作区的高度与宽度                     // 
9. //       Min, Max       : 音频数据的最小值与最大值                       // 
10. //       DrawLineColor  : 画波形的颜色                                   // 
11. //       DrawBackColor  : 画波形的背景颜色                               // 
12. //       StartPoi       : 开始画波形的位置                               // 
13. //       DrawLength     : 要画的波形的数据的长度                         // 
14. //   返回值: 无                                                          // 
15. //                                                                       // 
16. //***********************************************************************// 
17. procedure HawDrawWave(Buf: PChar; Length: LongInt; DesCanvas: TCanvas; 
18.          DH, DW: SmallInt; Min, Max: LongInt; DrawLineColor, DrawBackColor: TColor; 
19.          StartPoi: LongInt = 0; DrawLength: LongInt = 0); 
20. Var 
21.   i: LongInt; 
22.   Y: SmallInt; 
23.   DesBitMap: TBitMap; 
24. begin 
25.  DesBitMap := TBitMap.Create; 
27.  with DesBitMap do     //初始化图像对像 
28.  begin 
29.     Width := DW; 
30.     Height := DH; 
31.     Canvas.Brush.Color := DrawBackColor; 
32.     Canvas.Brush.Style := bsSolid; 
33.     Canvas.Pen.Color := DrawLineColor; 
34.     Canvas.Pen.Mode := pmCopy; 
35.     Canvas.FillRect(Rect(0, 0, DW, DH)); 
36.     Canvas.MoveTo(0, DH DIV 2); 
37.     Canvas.LineTo(DW, DH DIV 2); 
38.  end; 
40.  if ((Length = 0) or (Buf = NIL)) then 
41.  begin 
42.     BitBlt(DesCanvas.Handle, 0, 0, DW, DH, DesBitMap.Canvas.Handle, 0, 0, SRCCOPY); 
43.     Exit; 
44.  end; 
46.  if (StartPoi MOD 2) = 1 then 
47.     StartPoi := StartPoi + 1; 
49.  if StartPoi >= Length then 
50.     StartPoi := 2; 
52.  if DrawLength div 2 > DW then         //开始处 
53.     DrawLength := DW * 2; 
55.  if (StartPoi + DrawLength) > Length then 
56.     DrawLength := Length - StartPoi; 
58.  if DrawLength <= 0 then 
59.     DrawLength := DW * 2; 
60.                                             
61.  Max := Max - Min; 
62.  for i := 0 to (DrawLength div 2 -1) do 
63.  begin 
64.     if Max <> 0 then 
65.        Y := Abs(PCMInt(PChar(Buf) + StartPoi + i * 2)^ - Min) * DH div Max 
66.     else 
67.        Y := 0; 
69.        Y := ABS(DH DIV 2 - Y); 
71.        if Y >= (DH DIV 2) then 
72.           continue; 
74.        //画波形 
75.        DesBitMap.Canvas.MoveTo(i, DH DIV 2 - Y); 
76.        DesBitMap.Canvas.LineTo(i, DH DIV 2 + Y); 
78.     if i > DW then break; 
79.  end; 
80.  //复制图像 
81.  BitBlt(DesCanvas.Handle, 0, 0, DW, DH, DesBitMap.Canvas.Handle, 0, 0, SRCCOPY); 
82.  DesBitMap.Free; 
83. end; 
86. 来自: yostgxf, 时间: 2005-01-18 21:52:21, ID: 2969407  
87. 录音时的图形 
89. //***********************************************************************// 
90. //                                                                       // 
91. //   画局部音频数据的波形                                                // 
92. //   参数:                                                               // 
93. //       Flag           : 波形显示周期                                   // 
94. //       Buf            : 音频数据                                       // 
95. //       Length         : 音频数据的长度                                 // 
96. //       DesCanvas      : 要显示波形的目标画布                           // 
97. //       DH, DW         : 目标画布的工作区域的高度与宽度                 // 
98. //       DesBitMap      : 画波形时用的非可视源位图对像                   // 
99. //       DrawLineColor  : 画波形的颜色                                   // 
100. //       DrawBackColor  : 画波形的背景颜色                               // 
101. //       Draw           : 是否画波形                                     // 
102. //   返回值: 无                                                          // 
103. //                                                                       // 
104. //***********************************************************************// 
105. procedure DrawPartWave(const Flag: Integer; Buf: PChar; Length: LongInt; 
106.          DesCanvas: TCanvas; DH, DW: SmallInt; DesBitMap: TBitMap; 
107.          DrawLineColor, DrawBackColor: TColor; Draw: Boolean = True); 
108. var 
109.   i, j, k, lmax, lmin: LongInt; 
110.   Max, Min: LongInt; 
111.   X, Y: SmallInt; 
112. begin 
113.  with DesBitMap do     //初始化图像参数 
114.  begin 
115.     Width := DW; 
116.     Height := DH; 
117.     Canvas.Brush.Color := DrawBackColor; 
118.     Canvas.Brush.Style := bsSolid; 
119.     Canvas.Pen.Color := DrawLineColor; 
120.     Canvas.Pen.Mode := pmCopy; 
121.     Canvas.FillRect(Rect(0, 0, DW, DH)); 
122.  end; 
124.  if ((Length = 0) Or (Buf = NIL)) then 
125.  begin //清除 
126.     BitBlt(DesCanvas.Handle, 0, 0, DW, DH, DesBitMap.Canvas.Handle, 0, 0, SRCCOPY); 
127.     Exit; 
128.  end; 
129.  Max := -32768; 
130.  Min := 32767; 
131.  for i := 0 to (Length div 2 -1 ) do   //取到最小值与最大值 
132.  begin 
133.     j := PCMInt(PChar(Buf) + i * 2)^; 
134.     if j > Max then Max := j; 
135.     if j < Min then Min := j; 
136.  end; 
137.  DrawMin := Min; 
138.  DrawMax := Max; 
140.  if Not Draw then 
141.  begin 
142.     Exit; 
143.  end; 
145.  Max := Max - Min;     //最大振幅 
146.  DesBitMap.Canvas.MoveTo(0, DH div 2); 
147.  j := 0; 
148.  X := 0; 
149.  lmax := 0; 
150.  lmin := 32767; 
151.  for i := 0 to ((Length) div 2 -1) do 
152.  begin 
153.     if j < (Flag - 1) then     //如果是在一个周期内 
154.     begin 
155.        INC(j); 
156.     end 
157.     else begin 
158.       j := 0; 
159.       X := X + 1; 
160.       lmax := 0; 
161.       lmin := 32767; 
162.     end; 
163.     if Max <> 0 then           //取音频数据转换在整数 
164.        Y := Abs(PCMInt(PChar(buf) + i * 2)^ - Min) * DH div Max 
165.     else 
166.        Y := DH div 2; 
167.     k := 0; 
168.     if Y > lmax then 
169.     begin 
170.        lmax := Y; 
171.        k := 1; 
172.     end; 
173.     if Y < lmin then 
174.     begin 
175.        lmin := Y; 
176.        k := 1; 
177.     end; 
178.     if k = 1 then 
179.        DesBitMap.Canvas.LineTo(X, Y);  //画线 
180.     if X > DW then break; 
181.  end; 
182.  //图像复制                                                             拷贝 
183.  BitBlt(DesCanvas.Handle, 0, 0, DW, DH, DesBitMap.Canvas.Handle, 0, 0, SRCCOPY); 
184. end;