如何显示mediaplayer录音的波形(100分)

  • 主题发起人 主题发起人 michael4u
  • 开始时间 开始时间
M

michael4u

Unregistered / Unconfirmed
GUEST, unregistred user!
如何显示mediaplayer录音的波形
 
在mediaplayer中是不能显示的,而要打开WAV格式分析数据,可以在DFW中搜索
“波形”关键字即可!
 
我有一个OCX控件,可以完成各种功能。
我也想了解一下有没有带delphi源吗的第三方组件
 
To Yostgxf:
请问,你的OCX控件能否Mail一分给我?
谢谢! Mail: xingji_g@yahoo.com.cn
 
我已经发出,收到说一声
 
to 网络踏浪:
对不起,邮件退回来了
 
To Yostgxf:
你的OCX控件都有什么功能?
请Mail一份给我 mick2jack@163.com
谢谢!

 
我也想要
 
分析WAV文件结构,实现波形的显示并不难,我已经做出来了。
 
to 网络踏浪
那就说说是怎么做的撒,大家学习学习阿!
 
诸位:
在此送大家一个我自写的显示WAV文件的波形函数,用过的请回复一声。
procedure Tform1.DrawWav(Filename:string;Position:word;range:word;Channels:word;bv:real);
var
f:file of byte;
i,n:longint;
x:byte;
ff:real;
xx,yy:word;
begin

assignfile(f,filename);
reset(f);
n:=filesize(f);
n:=n-44;
n:=n div (2*channels);
seek(f,44);
form1.Canvas.MoveTo(1,position);
for i:=1 to ndo
begin

read(f,x);
seek(f,filepos(f)+(2*channels-1));
if x>128 then
begin

ff:=position-(x-128)*range/128;
end
else
begin

if x<128 then
begin

ff:=position+(128-x)*range/128;
end
else
ff:=position;
end;

yy:=round(ff);
ff:=bv*i;
xx:=round(ff);
form1.Canvas.LineTo(xx,yy);
if xx>screen.Width then
break;
end;

closefile(f);
end;

 
too 网络踏浪
高手啊。。。
能不能做出系统声音的波形阿
 
测试看看,呵呵
 
我要显示mediaplayer录/放声音的波形,不一定是wave格式的
 
给你一个东西,fmod,在google上去自己搜索
 
后退
顶部