为什么你们 鄙视我？？不&l

huangwei1 · 2001-02-07

为什么你们 鄙视我？？不 回答我？？我strong> 有问题</stron要问！！(100分) 告诉大家一个很不幸的消息！我把sound.wave作成资源文件sound.res后，在DELPHI5中 加代码如下，可是程序运行时，按BUTTON1时的结果却是。。。。。却是。。。。。。。 。。。。。。。。BEEP！！！！！！！！！我错在哪里？？我该怎么办？？救命啊！！ unit Unit1; interface uses   Windows, Messages, SysUtils,mmsystem, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private   public   end; var   Form1: TForm1; implementation {$R *.DFM} {$R sound.RES} procedure TForm1.Button1Click(Sender: TObject); begin PlaySound('sound',hInstance,SND_RESOURCE); end; end.     to :郭玉梁    请问release,build分别代表什么意思呢？当我对软件作了多大改动时Major Version 或  Minor Version加一呢？？有什么区别呢？？

郭玉梁 · 2001-02-07

不好说，就象win95/win97/win98，突然就到了win2000. Delphi1/delphi2本来要定为delphi32/delph3/delphi4。 Major version指大改动，Minor version指小改动，没有衡量依据。 就象我做的软件，为了让客户相信一上去就是4.00。 你第一个问题明天我给你试试，看看如何，再见了，我不习惯夜战。哪都是你的影子。

delphiboy · 2001-02-07

资源也没有释放，怎么能出声音呢？

redforks · 2001-02-07

我把sound.wave作成资源文件sound.res后； 是怎样做的，改扩展名吗？资源名称是SOUND吗？ 一般来说，资源名称只使用大写，也就是：PlaySound('SOUND', hInstance, SND_RESOURCE); 可能能解决。

huangwei1 · 2001-02-07

to :delphiboy    资源怎么释放呢？可以写出源码吗？

房客 · 2001-02-08

var hResInfo : THandle; PtrSound : PChar; hRes : THandle; begin hResInfo := FindResource(HInstance, 'SOUND', 'WAVE'); hRes := LoadResource(HInstance, hResInfo); if hRes > 32 then {its a good load} begin {lock the resource} ptrSound := LockResource(hRes); end; sndplaysound(ptrSound,snd_async or snd_Memory); end;

aerobull · 2001-02-08

资源编译好了的话   PlaySound(PChar('IQUIT'), hInstance, snd_ASync or snd_Resource); or   PlaySound(PChar('ARNOLD'), hInstance, snd_Sync or snd_Resource);                    -------

烂泥 · 2001-02-08

呵呵，房客又挣100分

YunEr · 2001-02-08

你改个名，不就行了吗？ 干嘛老要编译成sound.res文件呢？ 换个名字试试如编译成ILOVEYOU.RES

Pipi. · 2001-02-10

你的sound.res，必须是象下面的rc文件编译成的 sound WAVE c:/dir/file.wav 上面的那行字的“sound”才是放PlaySound 里面的“sound” 如果上面那行字的sound该成其他，PlaySound 里面也要改成其他 而且要将res加入你的project 至于房客说的，是比较麻烦的那种。

wjiachun · 2001-04-19

huangwei1:如果你还要继续讨论请定期提前你的帖子，如果不想继续讨论请结束帖子。 请认真阅读大富翁论坛规则说明  http://www.delphibbs.com/delphibbs/rules.htm

mimisu29 · 2001-04-21

大家帮帮忙，给看一下 &nbsp; <a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=506445"> “寻找简单的方法，filter消息”</a> 如有违反论坛规则，还请版主砍掉并批评指出

fu_xiang_yu · 2001-04-21

哈，你看看这个就会明白了:             百联网讯社区群中国软件 IT商务社区软件商务社区图片商务社区轴承商务社区            返回主页   新闻聚焦  共享软件  行业软件  Linux园地  开发中心  专家门诊  项目交易  人力资源     将WAV文件做到EXE文件的方法及注意事项     关键字：将WAV文件做到EXE文件的方法及注意事项       人气值: 501 文档分类: Delphi  贴文时间 2001-2-8 10:36:37 得票数: 38 给贴子投票 投票   作者:tsingmei  出处:                                        将WAVE文件做到EXE文件的方法及注意事项       有关这方面的文章很多，本来我也不想多说，可是最近有的网友说他照着有的文章作了个“工程”，可是怎么也发不出声来，或者就是扬声器的BEEP声。       后来，笔者找到那些资料，照他们的方法也作了一个“工程”；结果和那位网友一样。这到底是为什么呢？       先来说说一般的文章是怎么说的吧。          比较“流行”的说法是：“16位的Delphi 1.0和32位的Delphi2.0、3.0都提供了资源 编译工具，其中 Delphi 1.0的资源编译器叫BRCC.EXE，Delphi 2.0的资源编译器 叫BRCC32.EXE 用来编译32位资源，所有资源编译器都只提供了命令行版本， 没有提供Windows 版本。制作一个资源一般要通过以下几个步骤： 1)编写.RC文件 ..RC文件是资源的源文件，编译器也就编译这个文件，生成.RES的 资源文件 首先在我们的项目子目录中建立一个纯文本文件，起名叫 Sound.rc，文件中 有一行，内容为： SOUND1 WAV SOUND.WAV 其中SOUND.WAV为一个Windows下普通的声音文件 2)编译它 在DOS的提示符下打 BRCC SOUND.RC 硬盘哗啦啦转一会儿后，就编 译完了 3)制作程序 这也是最复杂，最灵活的一步，首先启动Windows, 再启动Delphi， 并且将项目 中的文件保存到我们的项目中的子目录中。在Unit1.pas中找这么 一行 {$R *.DFM} 把我们的资源文件就声明在后面 {$R SOUND.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; 这时候就可以运行了。”            是真的吗？            其实，资源文件的文件名就根本不能和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文件内容。       这样，一个小工程就完成了。快试试吧！       对该文的评论      tsingmei (2001-2-9 11:10:34)   看看.   我要评论    评论人：x7913   评论：                               美达美简介广告服务英语步步高程序员大本营百联美达美科技有限公司  版权所有

amo · 2001-09-17

多人接受答案了。

为什么你们<strong><font color="red"> 鄙视</font></strong>我？？不&l

huangwei1

Unregistered / Unconfirmed

郭玉梁

Unregistered / Unconfirmed

delphiboy

Unregistered / Unconfirmed

redforks

Unregistered / Unconfirmed

huangwei1

Unregistered / Unconfirmed

房客

Unregistered / Unconfirmed

aerobull

Unregistered / Unconfirmed

烂泥

Unregistered / Unconfirmed

YunEr

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

wjiachun

Unregistered / Unconfirmed

mimisu29

Unregistered / Unconfirmed

fu_xiang_yu

Unregistered / Unconfirmed

amo

Unregistered / Unconfirmed

Similar threads