说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

资源文件的问题!

编辑:说三道四文库 发布时间:2017-11-24 08:03
HTML文档下载 WORD文档下载 PDF文档下载
是否所有的声音文件都可以加入到资源文件中?我用 WAVE声音文件做了一个,但是没有任何反映,不知道是怎么回事?最后有源码,谢谢!
其实,资源文件的文件名就根本不能和WAVE文件的一样,否则,呵呵,扬声器就要BEEP啦,不信你试试看。

 

  下面笔者写出可以运行源代码的步骤(当然您的资源文件不能有错的):

 

 

1)编写.RC文件

 

 

..RC文件是资源的源文件,编译器也就编译这个文件,生成.RES的资源文件 首先在我们的项目子目录中建立一个纯文本文件,起名叫

pad.rc ,在文件中写一行,内容为://注意!资源文件名不可以和WAVE文件名一样的!

 

SOUND1 WAV SOUND.WAV

 

其中SOUND.WAV为一个Windows下普通的声音文件

 

 

2)编译它

 

 

在DOS的提示符下打 BRCC32 PAD.RC 一会儿后,就编译完了 //现在已是brcc32啦,不知有的文章怎么还有BRCC??

 

 

3)制作程序

 

在WINDOWS下启动DELPHI,新建一个项目,将其中的文件保存到我们的项目中的子目录中。 在Unit1.pas中找到

 

 

{$R *.DFM}

 

 

把我们的资源文件就声明在后面

 

 

{$R PAD.RES}

 

 

然后,在Form1中声明两个全局变量

 

 

PtrSound : PChar;

hRes : THandle; {handle to the loaded resource

if 0 indicates nothing playing}

 

 

再在Form1的Create事件中写下如下代码

 

 

procedure TForm1.FormCreate(Sender: TObject);

var hResInfo : THandle;

begin

hResInfo := FindResource(HInstance, 'SOUND1', 'WAVE');

hRes := LoadResource(HInstance, hResInfo);

if hRes > 32 then {its a good load}

begin {lock the resource}

ptrSound:=LockResource(hRes);

end;

end;

 

 

然后在Form1中放一个按钮Button1,写如下代码:

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

sndplaysound(ptrSound,snd_async or snd_Memory);

end;

 

  点击编译,运行,再按BUTTON1,可以听到扬声器中发出WAVE文件内容。
在.rc文件里写
 MyWav Wave "C:\temp.wav"
然后用brcc32 MyWav.rc就可以了,注意声音文件的路经一定经正确,不然的话你编译的时候它会告诉你找不到文件。
在Delphi里引用
{$R MyWav.res}
在一Button事件里写
PlaySound('MyWav',HInstance,Snd_Async);
微信开放WiFi接口,醉翁之意在乎O2O还是大数据? 软硬整合:基于云的微型智能防丢设备Linquet 【MDCC专访】AppCan CTO赵庆华:助力企业快速移动化 使用Bluemix中的Rules服务构建一个酒店预订应用程序 基于IBM Bluemix开发微信公共账号应用 用Cloudant在Bluemix上构建一个简单的文字游戏应用程序 IBM Bluemix是什么? 【最具价值CTO评选秀】纷享销客CTO刘晨:企业移动的技术挑战 【最具价值CTO评选秀】能做存储的超级计算机——任宇翔和以色列团队的创业故事 OpenStack Swift存储策略 分享5个可视化的正则表达式编辑工具 在iOS程序中使用Bluemix云推送服务 GitHub开源任务列表组件 表白健身小能手!详解Apple Watch特色功能 高逼格不任性!个人智能航空摄影飞行设备ZANO Clappr——开源的Web视频播放器 东软举办2014解决方案论坛 将全面推进BBC战略 Google Glass已死,智能眼镜长存! 五个步骤,保护移动应用免受恶意攻击 声波改变移动社交——参加联想“茄子快传”创意征集 赢取平板电脑大奖! 车载硬件Baen:被游戏化的驾驶体验 深入解析Docker背后的namespace技术 响应苹果要求:Qt 5.4、Qt Creator 3.3同迎RC版 击碎泡沫谈发展,盘点OpenStack商业生态圈! 2014年11月操作系统份额:Windows 7雄居第一,XP跌新低 微信开放平台上线统计报表功能 【向导】如何开始学习高伸缩性编程? 基于Apache Samza,揭秘LinkedIn架构背后的技术 Aeron:每秒可以传递数百万消息的低延时开源消息系统 英特尔物联网马拉松:用创造力改变生活 年末总结:2014年全球手游市场发展的六大趋势 php中sql请教 迷失在struts流程中的人,有人能带我出去吗? 一堆简单问题 怎样用ASP判断复选框(checkbox )被选中呢??急~~~~~~~ 我想使得对话框显示在主程序的中央怎样实现?取空格函数是什么? 服务器一重启IIS就不能工作,需要删掉IIS,再重装才行,还原备份都没用,怎么办?(高分求解) PART1:WORD文挡处理问题 对象无效是怎么回事?急,谢谢,马上结贴 有关SQL数据库远程传输及服务器配置及设置影响的问题,敬请高手积极指教!!有请大力!!! 怎样通过DBNavigator实现对DBGrid 中的记录末添加记录? 啊,注册tucows,downloads.com都要收费的?是吗 怎样把任意一个文件读到oracle的blob里,急啊!! 公务贴(八月七日) 野种子 这样可以吗?请高手帮忙。 我要做一个软件,这个软件可以进行光盘(VCD,DVD)的刻录,请问哪里有源代码下载? MSMQ服务器如何安装??? 高分提问,请高手相助! 概念问题:Lun,scsi bus number,host adapter number,scsi id 这些含义如何 如何Copy有损毁的VCD(唐伯虎点秋香)? WebLogic7 的乱码问题??? 与的问题 有人给你送礼希望你能....你会如何? 我该选哪一个?(在线等) 请问如何在word里嵌入一个工具条 我的一台服务器安装的是Win2000 Server版,而客户端安装的是Win98,当通过客户端的Win98系统去访问服务器时,就会弹出一个要求输入网络密 两个问题请教,做过大项目的请来帮忙 傻问题大家帮帮忙 简单问题!请指点(急!在线等!) 讨论:是用全局变量,还是用发送消息? 关于jsp与javascript之间的问题,紧急!!!对高手的挑战 我想写一个窗体,要使它不在任务栏上 如何用php语法进行文件的直接下载,高手请进 怎样利用CFile类来完成创建多个文件夹? 请exee、jasminelai、smart2me、patricklee01() 、greenazcf进来拿分!!! 请各位帮个忙,FileAge()、raise是什么意思?虽然是简单希望各位帮忙!! 怎样做个SPY++查不到句柄的控件? 请教表格自适应的问题 知道并了解VCL底层运作机制的朋友切磋一下好吗? VB如何调用RAR? 控制台程序中字符串的定义问题 ====高分求助!!===== 請問如何設置table使之在dba studio 看不到但是通過sql/plus可以看到 一个关于表单的简单问题<select name=..>中怎样确定选定的是第几项 ==找错!!! 两行代码,错在哪儿??== 有谁知道SQL SERVER为什么会占用600多M的内存? VB如何调用RAR? ====高分求助!!===== 哪位大侠知道可以下载电子书籍的好网站~~~(当然是关于计算机的。。。) 关于winrunner的delphi插件问题 邮局用英语咋说? Tom asked me___________ would support usA.who B.what C.that D.how 急求展望未来1Unit9-展望未来2Unit3所有听力的文字材料不要那么多了,要以下几篇:展望未来一:Unit9 Development Ex.2 Unit10 Development Ex3,6,7Unit11 Place to visit Ex.3 Development Ex.4Unit14 Development Ex.2,4 求以“dian-fei-fei”为拼音的网名,需要文雅一点的!“典菲菲”这个名字除外,需要典雅,有文学色彩! the coodinator flew into _____rage,and common sense went by the board.A.the B.a C./ D.some Graceful翻译成中文什么是意思 graceful、imperial什么翻译? graceful 那位大神知道这是什么花? 有大神知道这是什么花吗? After he had finished his maths,he went on to do his physics.做完数学后,他接着去做物理1:为什么它使用过去完成时?had 而不是has 2:如果不加his 那么表达的是什么意思. 万圣节狂欢化装派对 萌“小鬼”们惹人国际刑事法院再次推迟肯尼亚总统出庭受澳维州出台新法规定性侵犯再犯案将不准秘鲁组成新内阁 塞萨尔 比利亚努埃瓦盟友也要区别对待 日本德国仍是美国监英国房价一年上涨5.8% 专家警告“温家宝2010年与大学生座谈:大学生日议员向天皇塞信望其了解民间疾苦 或温家宝出书谈教育忆童年 部分通信首次观察:中国高层释楼市调控信号 长效机日本大规模夺岛军演科目敏感 专家:在暴雨继续侵袭福建 地质灾害高发防汛形创建国家生态安全屏障综合试验区之陇东伊拉克什叶派民兵总动员 纪律散漫或加江苏省委副书记石泰峰接替蒋宏坤任苏州高考人数递减多年后终上涨 名校竞争压安庆枞阳:丈夫婚前瞒年龄 妻子发现闹第二届焦岗湖“水青春·欢乐季”活动拉安庆25个菜市场整治计划投资3540安庆:501路公交今起试运行 十年期外军留学生在中国试射解放军先进反坦克陆昊强调积极筹备中俄博览会 努力发挥
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘