易截截图软件、单文件、免安装、纯绿色、仅160KB

；DELPHI制作录音话筒示意图怎样实现？

大家好：我现在在学习录音方面的知识，请教一个问题，怎样才能实现用一个简单的控件表示录音的时候话筒的音量？若有这方面的知识或代码请给点我帮助，非常感谢。
up
用TtrackBar都可以啊。不过你要找相关的API实现读音量和设置音量
问题补充：我的意思是当对话筒讲话的时候，有个图示意，表示有音频声波输入，声音大就高点，声音小几低点，这样的难不难实现？谢谢
给你个类http://hi.baidu.com/chinacharis/blog/item/76197c2826a12af999250a07.html
自己学习吧
波形图是根据声音大小画出来的，你获取到声音大小后自然就可以画出来了

这是我一年前写的。。。。调用很简单就
var FSoundCap  : TSoundCap ;
FSoundCap := TSoundCap.Create(handle);
FSoundCap.Start;
然后在一个定时器里取
FSoundCap.MaxValue ;
这个类写得不怎么好，没作修改，当时比较急用，所以也没怎么作优化
收藏
引用
这是我一年前写的。。。。调用很简单就
var FSoundCap  : TSoundCap ;
FSoundCap := TSoundCap.Create(handle);
FSoundCap.Start;
然后在一个定时器里取
FSoundCap.MaxValue ;
这个类写得不怎么好，没作修改，当时比较急用，所以也没怎么作优化


没太看明白怎么调用？
引用
问题补充：我的意思是当对话筒讲话的时候，有个图示意，表示有音频声波输入，声音大就高点，声音小几低点，这样的难不难实现？谢谢

帮顶
引用
引用 7 楼 mdejtod 的回复: <


相关问答：

delphi動態調用dll的困惑

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;　//这里根据DLL里面函数的声明修改  
  var  
  ......

delphi动态数组如何去掉一个元素

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......

关于避免delphi版权或者收律师函的方案。

最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......

求一段delphi代码转C#代码，急用，可人民币支付，谢谢

急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

安装了jre6.17后，Delphi不能关闭？

如题， 点击Delphi的File菜单的Exit退出Delphi， Delphi部分关闭--即不能再操作Delphi，但任务栏和进程里，Delphi还在运行，没有真正的退出。是不是安装了jre改变了某些环境变量导致，请问高手如何解决？ 注：没安装 ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号