Lazarus中文社区

 找回密码
 立即注册(注册审核可向QQ群索取)

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 5408|回复: 7

lazarus下如何实现音效

[复制链接]

该用户从未签到

发表于 2010-11-21 19:45:07 | 显示全部楼层 |阅读模式
如果不使用特殊的控件,是否可以播放硬盘中的指定声音文件,如.wav文件。如果行,如何能做到;如果不行,都可以使用哪些控件(最好是自带的)
回复

使用道具 举报

  • TA的每日心情
    开心
    2021-8-26 17:08
  • 签到天数: 7 天

    [LV.3]偶尔看看II

    发表于 2010-11-21 22:09:13 | 显示全部楼层
    Uses MMSystem

    然后:sndPlaySoundw('d:\\test.wav', SND_ASYNC);
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2010-11-23 22:08:15 | 显示全部楼层
    可以用OpenAL
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主| 发表于 2010-11-25 13:13:54 | 显示全部楼层

    回 1楼(delphicn) 的帖子

    win下成功了,不知道linux行不,对了,这个函数的用法在哪里有
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主| 发表于 2010-11-25 13:17:15 | 显示全部楼层

    回 2楼(gabtech) 的帖子

    查到openal是一个跨平台的音频编程的API,不知道哪里有教程
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2010-11-25 15:50:11 | 显示全部楼层
    Win XP 下有個方法

    var fn:string;

    fn:='c:\\my_song.mp3';
    MplayerProc:= TProcess.Create(nil);
    MplayerProc.CommandLine:= Utf8ToAnsi('mplay32 /play /close '+fn);
    MplayerProc.Execute;
    MplayerProc.Free;
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    发表于 2010-11-26 09:21:07 | 显示全部楼层
    OpenAL例程在Lazarus的freepascal目录下, 也可参照delphi版的:
    http://www.noeska.com/doal/

    bruce0829的方法不错.
    MplayerProc.CommandLine:= Utf8ToAnsi('mplay32 /play /close '+fn);
    调用mplayer命令行应该可以跨平台.
    回复 支持 反对

    使用道具 举报

    该用户从未签到

     楼主| 发表于 2010-11-26 21:57:39 | 显示全部楼层
    谢楼上两位了
    回复 支持 反对

    使用道具 举报

    *滑块验证:

    本版积分规则

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1 )

    GMT+8, 2025-5-3 08:33 , Processed in 0.030418 second(s), 11 queries , Redis On.

    Powered by Discuz! X3.4

    Copyright © 2001-2021, Tencent Cloud.

    快速回复 返回顶部 返回列表