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

  推荐精品文章

·“物链网”的正确打开姿势:区块链如何拯…
·Facebook利用人工智能的六种方式,有些你…
·微软推出Visual Studio Kubernetes工具包…
·Facebook 正在重构 React Native,将重写…
·Facebook 正在重构 React Native,将重写…
·GitLab发布Web IDE 在Web端为你提供集成开…
·5G第一阶段标准发布 中国厂商标准占三成
·微软Windows 10的上下文菜单引入Fluent D…
·蚂蚁金服完成新一轮100亿美元融资 估值15…
·搭搭云发布3.0平台上线暨品牌升级 让SaaS…
·京东推出京点智慧办公方案 一体化服务平台…
·Java 流(Stream)、文件(File)和IO
·Java 异常处理
·Java 基础语法

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