vfp中获取在播放音乐的进度信息的代码

时间: 2023-09-09 14:05:16 浏览: 77
### 回答1: VFP中可以使用以下代码获取在播放音乐的进度信息:Dim nCurrentPosition As Long nCurrentPosition = GetPosition(SoundObjectName) ### 回答2: 在Visual FoxPro (VFP)中获取正在播放音乐的进度信息的代码可以使用Windows API函数mciSendString,并结合VFP的相关命令来实现。下面是一个示例代码: ```foxpro * 创建一个新的VFP窗体 CREATE FORM frmMusicProgressBar * 在VFP窗体中添加一个进度条控件和一个按钮控件来开始音乐播放 ADD OBJECT progressBar AS PROGRESSBAR WITH Top = 10, Left = 10, Width = 280, Height = 20 ADD OBJECT btnStartMusic AS COMMANDBUTTON WITH Top = 40, Left = 10, Caption = "播放音乐" * 音乐播放按钮的Click事件处理程序 PROCEDURE btnStartMusic.Click LOCAL cMciCommand, nMusicId, nMusicLength * 设置音乐文件路径 cMusicFilePath = "C:\Music\sample.mp3" * 使用mciSendString发送命令,打开并播放音乐文件 cMciCommand = "open " + cMusicFilePath + " type mpegvideo alias MyMusic" DECLARE INTEGER mciSendString IN winmm.dll STRING, STRING, INTEGER, INTEGER mciSendString(cMciCommand, 0, 0, 0) cMciCommand = "play MyMusic" mciSendString(cMciCommand, 0, 0, 0) * 获取音乐文件的长度(以毫秒为单位) cMciCommand = "status MyMusic length" mciSendString(cMciCommand, @nMusicLength, 255, 0) * 将音乐长度作为进度条的最大值 THISFORM.progressBar.MaxValue = nMusicLength * 定时器用于不断更新进度条的位置 SET TIMER OF THISFORM 1000 * 保存音乐ID以便在定时器事件处理程序中使用 nMusicId = VARTYPE(m.nMusicId) = 'N' AND m.nMusicId > 0 AND m.nMusicId or 0 STORE nMusicId TO THISFORM.nMusicId ENDPROC * 窗体的Timer事件处理程序 PROCEDURE FORM.Timer LOCAL nCurrentPosition LOCAL cMciCommand * 获取音乐的当前播放位置(以毫秒为单位) cMciCommand = "status MyMusic position" DECLARE INTEGER mciSendString IN winmm.dll STRING, STRING, INTEGER, INTEGER mciSendString(cMciCommand, @nCurrentPosition, 255, 0) * 将当前播放位置设置给进度条的Value属性 THISFORM.progressBar.Value = nCurrentPosition * 如果音乐播放完成,停止定时器和音乐播放 IF nCurrentPosition >= THISFORM.progressBar.MaxValue RELEASE TIMER mciSendString("stop MyMusic", 0, 0, 0) mciSendString("close MyMusic", 0, 0, 0) MESSAGEBOX("音乐播放完毕") ENDIF ENDPROC * 运行窗体 MODIFY FORM frmMusicProgressBar NOWAIT ``` 上述代码创建了一个VFP窗体,其中包含一个进度条控件和一个按钮控件。当用户点击按钮时,代码将使用mciSendString函数打开并播放指定的音乐文件。然后,通过定时器事件处理程序不断获取当前音乐播放的位置,并将其设置给进度条的Value属性,从而实现了获取音乐播放进度的功能。当音乐播放完成后,定时器将停止并弹出一个消息框来通知用户。注意,音乐文件路径需要根据实际情况进行修改。 ### 回答3: 在 Visual FoxPro (VFP) 中,要获取正在播放音乐的进度信息,可以借助 Windows API 函数来实现。 首先,需要声明 Windows API 函数的调用。在 VFP 中,可以使用 DECLARE 命令来声明外部函数。在这种情况下,我们需要声明 mciSendCommand 函数和它所需的结构体。 DECLARE INTEGER mciSendCommand IN winmm; INTEGER wDeviceID,; INTEGER uMsg,; INTEGER dwParam1,; INTEGER dwParam2 DECLARE INTEGER mciGetErrorString IN winmm; INTEGER dwError,; STRING @lpstrBuffer,; INTEGER uLength DECLARE INTEGER mciGetDeviceID IN winmm; STRING lpszDevice 然后,我们可以编写获取音乐播放进度信息的代码。假设我们已经通过 mciSendCommand 打开了一个音乐文件并开始播放,我们可以使用 MCI_STATUS 命令来获取进度信息。 LOCAL lcCommand, lnPosition, lnStatus lnStatus = mciSendCommand(1, MCI_STATUS, MCI_STATUS_POSITION, 0) IF lnStatus = 0 THEN lnPosition = mciGetErrorString(lnStatus, @lcCommand, 255) ? "当前音乐播放位置:" + TRANSFORM(lnPosition) ELSE mciGetErrorString(lnStatus, @lcCommand, 255) ? "获取音乐播放位置失败:" + lcCommand ENDIF 在上述代码中,我们使用 mciSendCommand 函数来发送 MCI_STATUS 命令,并指定 MCI_STATUS_POSITION 标志来获取音乐播放位置。如果返回的结果代码为零,则说明成功获取到了进度信息,我们可以将其转换为字符串,并打印出来。如果返回的结果代码不为零,则说明获取进度信息失败,我们可以使用 mciGetErrorString 函数来获取具体的错误信息,并打印出来。 请注意,上述代码仅仅是演示了获取音乐播放进度信息的基本过程,实际使用时还需要根据具体情况进行适当的错误处理和资源释放。

相关推荐

最新推荐

recommend-type

VFP常见命令按钮组的代码

VFP常见命令按钮组的代码 本题素材是考生文件夹中的表单tk04.scx。该表单的功能是:在文本框中输入一个整数,单击命令按钮“判断”后,若该整数是偶数,则label2显示“该数是一个偶数”,若为奇数,则显示“该数是...
recommend-type

VFP代码做的时钟程序.doc

VFP代码做的时钟程序,VFP代码做的时钟程序.doc,VFP代码做的时钟程序.doc
recommend-type

VFP9中轻松绑定 Windows 事件

VFP 所缺少的在其它开发环境中的一个功能是捕捉 Windows 事件的能力。VFP 9 扩展了 BindEvent()函数的功能,现在,当 Windows 传递某些特定的消息给 VFP 窗口的时候,BindEvent()可以调用我们自己的代码。这个功能...
recommend-type

VFP订票信息系统_论文毕业设计

VFP订票信息系统_论文毕业设计VFP订票信息系统_论文毕业设计VFP订票信息系统_论文毕业设计VFP订票信息系统_论文毕业设计VFP订票信息系统_论文毕业设计VFP订票信息系统_论文毕业设计VFP订票信息系统_论文毕业设计VFP...
recommend-type

vfp学生成绩管理系统英文资料和中文译文

vfp学生成绩管理系统英文资料和中文译文vfp学生成绩管理系统英文资料和中文译文
recommend-type

zigbee-cluster-library-specification

最新的zigbee-cluster-library-specification说明文档。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

实现实时数据湖架构:Kafka与Hive集成

![实现实时数据湖架构:Kafka与Hive集成](https://img-blog.csdnimg.cn/img_convert/10eb2e6972b3b6086286fc64c0b3ee41.jpeg) # 1. 实时数据湖架构概述** 实时数据湖是一种现代数据管理架构,它允许企业以低延迟的方式收集、存储和处理大量数据。与传统数据仓库不同,实时数据湖不依赖于预先定义的模式,而是采用灵活的架构,可以处理各种数据类型和格式。这种架构为企业提供了以下优势: - **实时洞察:**实时数据湖允许企业访问最新的数据,从而做出更明智的决策。 - **数据民主化:**实时数据湖使各种利益相关者都可
recommend-type

解答下列问题:S—>S;T|T;T—>a 构造任意项目集规范族,构造LR(0)分析表,并分析a;a

对于这个文法,我们可以构造以下项目集规范族: I0: S -> .S S -> .T T -> .a I1: S -> S. [$ T -> T. [$ I2: S -> T. I3: S -> S.;S S -> S.;T T -> T.;a 其中,点(.)表示已经被扫描过的符号,;$表示输入串的结束符号。 根据项目集规范族,我们可以构造出LR(0)分析表: 状态 | a | $ ---- | - | - I0 | s3| I1 | |acc I2 | | 其中s3表示移进到状态3,acc表示接受。在分析字符串a;a时,我们可以按照以下步骤进行
recommend-type

JSBSim Reference Manual

JSBSim参考手册,其中包含JSBSim简介,JSBSim配置文件xml的编写语法,编程手册以及一些应用实例等。其中有部分内容还没有写完,估计有生之年很难看到完整版了,但是内容还是很有参考价值的。