Solved

Resource file

Posted on 1998-07-17
6
288 Views
Last Modified: 2010-04-04
Hey! Is Borlands Image Editor the only to make .res files?
With bitmaps it seems to be limited to 16 colors.
Even when creating I chose SuperVGA (256 colors) -
they get reduced to 16. Is this Delphi or the Image Editor
doing this? Or is it me somehow?
Does anyone know another way to build .res files?
What about putting .wav files in the res?
Thanx.
0
Comment
Question by:timbro
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
6 Comments
 
LVL 8

Expert Comment

by:ZifNab
ID: 1358140
Hi timbro,
You can make the .res files by hand,
or you can use any other resource editor.
Zif.
0
 

Author Comment

by:timbro
ID: 1358141
I guess I just got used to using the Image Editor...urg
Since then I successfully compiled and ran a bitmap res
with BRC the that worked great!
The Image Editor must be screwing with the colors after all.

So let me redirect the question (for the points)

I'm still trying the wav thing.
I've compiled a res with the script:

WAVE RCDATA "a.wav"

and of course used a valid wav file (a.wav)
it seemed to compile fine.
I'm using this code but it doesnt work:

////////////////////////////////////////
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
      ExtCtrls, StdCtrls, mmsystem;

type
  TForm1 = class(TForm)
    Image1: TImage;
        Button1: TButton;
        procedure FormCreate(Sender: TObject);
      
      end;

var
      Form1: TForm1;

implementation

{$R *.DFM}
{$R WAV.RES}

procedure TForm1.FormCreate(Sender: TObject);
begin
  PlaySound('WAVE', HInstance, SND_RESOURCE or SND_ASYNC);
end;

end.
////////////////////////////////////////////


I know of another way involving finding handles and loading
resources but this one line of code seemed simpler.

any thoughts?


0
 

Author Comment

by:timbro
ID: 1358142
does the wav file have to be converted to raw data first?
0
Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Accepted Solution

by:
bome earned 50 total points
ID: 1358143
1. create a .rc file. It is just an ordinary text file with one line, for example
1000 WAVE sound.wav

"1000" is the resource name(you can use any number, strings are also possible, but then you'd have to change the code below), WAVE the resource type and sound.wav the file (in the same directory).
Name this file "wave.rc".

2. compile this with "BRC32", it is in the bin directory of Delphi. I use bat files for compiling rc files, for example for you the bat file would contain:
"C:\borland\delphi 3\bin\brc32" -r wave.rc

Running the bat file will create "wave.res".

3. test the res file:
Create a new project. In the unit include the directive
{$R wave.res} , for example after the implementation directive.
Include "mmsystem" in the uses command.
Place a button on the form and put this as onClick handler:

if not PlaySound(PChar(1000), hInstance, SND_ASYNC or SND_NODEFAULT or SND_RESOURCE) then
  ShowMessage('Error');

There, obviously, again 1000 is the resource name.

Pressing the button will play the file, which is loaded from the resource.

4. Bitmaps
"bitmap.rc":
1000 Bitmap bitmap.bmp

(this will include the image file bitmap.bmp into the resource)

"bitmap.bat":
"C:\borland\delphi 3\bin\brc32" -r bitmap.rc

Running bitmap.bat will create bitmap.res.

Test project:
include the resource:
{$R bitmap.res}

Place a button and a TImage component on your form.
Button onClick:
Image1.Picture.Bitmap.LoadFromResourceID(hInstance,1000);

Pressing the button will load the bitmap from the resoure and show it in the TImage component.

5. more
You can place several lines in one .rc file. Like that you can compile several images, waves, etc. in your res file. They must all have (for each type) different names (numbers).

Hope that works - it does for me. Maybe some things are delphi 3 specific, but I don't think so.

Bome
0
 

Expert Comment

by:bome
ID: 1358144
Hehe, have worked on the answer while 2 new comments were appearing.
- Obviously the image editor screws the colors down to 16.
- Use just normal wave files with header and everything.
bome
0
 

Author Comment

by:timbro
ID: 1358145
Damn, that was a fast response! Wow
I tried your rc script and it works!
I was not aware of the 'WAVE' data type. and I overlooked the
PChar.  


Thanx for the great info!
-Tim
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The uses clause is one of those things that just tends to grow and grow. Most of the time this is in the main form, as it's from this form that all others are called. If you have a big application (including many forms), the uses clause in the in…
Introduction The parallel port is a very commonly known port, it was widely used to connect a printer to the PC, if you look at the back of your computer, for those who don't have newer computers, there will be a port with 25 pins and a small print…
Come and listen to Percona CEO Peter Zaitsev discuss what’s new in Percona open source software, including Percona Server for MySQL (https://www.percona.com/software/mysql-database/percona-server) and MongoDB (https://www.percona.com/software/mongo-…
There are cases when e.g. an IT administrator wants to have full access and view into selected mailboxes on Exchange server, directly from his own email account in Outlook or Outlook Web Access. This proves useful when for example administrator want…

690 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question