你好,欢迎来到电脑编程技巧与维护杂志社! [免费注册][请登录 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 编程语言
多路音频实时采样压缩存盘DLL的实现和使用(六)
 

bool _stdcall In878Audio(int num,int Iflag, int auformat,HWND sendhwnd)//初始化音频输入

bool _stdcall  apiSetAudioIn(int num,int PFlag,int  fmt)//设置输入音频

bool _stdcall  apiStarAudioIn(int num)//开始音频输入

 

3.5  WINIO.DLL函数在VB6.0调用

VB6.0中开发程序,要调用WINIO.DLL中的函数, 函数的封装要符合VB6.0开发环境给定的规则, 才能顺利调用。

 

上述接口函数在(VB)主程序中调用,要在模块文件中封装如下:

Declare Function talk729decoderinit Lib "WinIo.dll" () As Boolean

Declare Function DecodeAudioData Lib "WinIo.dll" (ByVal lpin As Long, ByVal inlen As Long, ByVal lpout As Long, ByVal lpoutlen As Long) As Boolean

Declare Function sendhwndtlp Lib "WinIo.dll" (ByVal vbtexthwnd As Long, ByVal vblpmax As Long, ByVal vbstorekhwnd As Long, ByVal vblpalldata1 As Long, ByVal vblpalldata2 As Long, ByVal vblpcodedata As Long) As Boolean '

Declare Function In878Audio Lib "WinIo.dll" (ByVal apinum As Long, ByVal apipflag As Long, ByVal apiauformat As Long, ByVal apisendhwnd As Long) As Boolean

  Declare Function SetAudioIn Lib "sd878AUD" (ByVal channum As Long, ByVal PanelFlag As Long, ByVal AudioFmt As Long) As Long

Declare Function StarAudioIn Lib "sd878AUD" (ByVal channum As Long) As Long

  Declare Function SetAudioIn Lib "sd878AUD" (ByVal channum As Long, ByVal PanelFlag As Long, ByVal AudioFmt As Long) As Long

 

3.6 VB 中变量指针的使用

VB中变量的指针用函数VarPtrVAR)计算,long类型,如下向DLL传送数组指针:

Dim ptr as long 

Dim allwdata(500000) as byte ’定义字节数组

ptr = VarPtr(allwdata(0)) ’计算数组指针

 sendhwndtlp(…,…, ptr,…)’DLL 传送指针 

 

4 结语

C程序编辑、连接为动态链接库文件,即可在 VB程序中调用有关函数, 编译生成运行代码, 运行结果, 30路音频可同时不间断压缩回放,300GB硬盘可以1个半月循环存放, 回放话音清晰。

  推荐精品文章

·黑客频频攻击区块链安全软肋,如何保证区…
·阿里、商汤在香港设立人工智能实验室 本月…
·云端的竞争:巨头纷纷加码云市场
·中国云体系联盟主办未来科技独角兽与行业…
·Gartner:企业首席信息官们可能没有注意到…
·微软开源Azure云服务AI引擎Infer.NET
·创新指纹读取器出炉:平均准确率最高可达…
·微软投资东南亚出行公司Grab 将进行AI等技…
·Facebook开发AI系统:看美食图片能自动生…
·工信部:促进区块链与实体经济深度融合
·谷歌首度证实了重返中国的Dragonfly计划的…
·Java 11正式发布,告诉你到底应不应该升级…
·Stack Overflow 10 周年了,作为程序员你…
·新手初学Python最常犯的十个错误,其中有…

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备06048724号,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区长春桥路5号6号楼1209室,邮编:100089