你好,欢迎来到电脑编程技巧与维护杂志社! [免费注册][请登录 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 编程语言
多路音频实时采样压缩存盘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个半月循环存放, 回放话音清晰。

  推荐精品文章

·一文解读:工程师常用的接口大全
·谷歌在深圳设立办公室 或专注硬件业务
·甲骨文发布关键补丁 修复英特尔芯片漏洞
·容器圈2017年回顾及2018年技术热点预测
·外媒速递:Web开发者与用户界面开发者之间…
·在2018年最值得去学习的编程语言
·共享医疗来了!温州全民健康信息化“十三…
·百度 CES 发布会:重磅推出 Apollo 2.0,…
·数据科学热到爆,如何让数据成为运维的大…
·芯片涨价潮再度来袭,2018芯片国产化迫在…
·美团云+AI,打造最开放人工智能平台,带来…
·京东京麦:微服务架构下的高可用网关与容…
·阿里云计算公司总部效果图曝光 预计2021年…
·东进:加密将成为中国企业数据安全的标配…

  联系方式
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