标签：des style blog http color 使用 io 文件
//res 字符串资源
//rc 文件:
StringTable
begin
0 "AAAA"
1 "BBBB"
2 "CCCC"
3 "DDDD"
end
//也可以这样写:
StringTable
begin
0,"AAAA"
1,"BBBB"
2,"CCCC"
3,"DDDD"
end
//还可以这样写:
StringTable
{
0,"AAAA"
1,"BBBB"
2,"CCCC"
3,"DDDD"
}
{严格的头可能是这样写: STRINGTABLE DISCARDABLE}
--------------------------------------------------------------------------------
//程序代码:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
with Memo1.Lines do
begin
Add(LoadStr(0));
Add(LoadStr(1));
Add(LoadStr(2));
Add(LoadStr(3));
end;
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
resourcestring //支持所有字符类型的数据
str1 = ‘delphi‘;
str2 = ‘XE‘;
begin
showmessage(str1+str2);
end;
//RES存取资源文件中的AVI无声动画文件
//记事本编写 rc脚本
MyAVI_01 AVI "FlickAnimation.avi"
//保存为 AviRES.RC
//brcc32编译 AviRES.RES
//加入资源
{$R AviRES.RES}
//播放AVI代码
procedure TForm1.Button6Click(Sender: TObject);
begin
Animate1.ResName :=‘MyAVI_01‘ ; //资源标识
Animate1.Active :=True ;
end;
//RES存取资源文件中的BMP图像
1.编写rc脚本文本,保存为 BmpRes.RC
BMP1 bitmap "aaa.bmp"
BMP2 bmpType "bbb.bmp"
2 brcc32 C:\Users\Administrator\Desktop\BmpRes.RC //brcc32.exe文件在delphi目录下
将 BmpRes.RC 编译成 BmpRes.RES 资源文件
3 把 BmpRes.RES 文件剪切到 delphi项目文件中
4 在{$R *.dfm} 下面引入资源 {$R BmpRes.RES}
//调用 资源文件中的BMP文件
//bitmap方法 (RC格式 BMP2 bitmap "bmp02.bmp")
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.Bitmap.LoadFromResourceName(HInstance,‘BMP1‘);
end;
//bmpType方法 (RC格式 BMP1 bmptype "bmp01.bmp")
procedure TForm1.Button2Click(Sender: TObject);
var
ResStream: TResourceStream;
begin
ResStream := TResourceStream.Create(HInstance, ‘BMP2‘, ‘bmptype‘);
Image1.Picture.Bitmap.LoadFromStream(ResStream);
ResStream.Free;
end;
//RES存取资源文件中的Cursor光标文件
{
Screen.Cursors[]是一个光标数组，使用光标文件我们可以将定制的光标加入到这个属性中。
因为默认的光标在数组中索引值是0，
所以除非想取代默认光标，最好将定制的光标索引值设为1。
}
mycur1 cursor "repair.cur"
mycur2 cursor "attack.cur"
保存为 CursorsRes.rc
brcc32.exe编译 CursorsRes.RES
加入资源 {$R CursorsRes.RES}
procedure TForm1.Button1Click(Sender: TObject);
begin
Screen.Cursors[1] :=LoadCursor(hInstance,‘mycur1‘);//资源标识符
Image1.Cursor :=1; //Image控件的光标
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Screen.Cursors[2] :=LoadCursor(hInstance,‘mycur2‘);//资源标识符
self.Cursor :=2; //当前窗体的光标
end;
//RES存取资源文件中的ICON图标文件
1 创建rc文件{请确保桌面上有图标文件aaa.ico bbb.ico}
ico1 ICON aaa.ico
ico2 ICON bbb.ico
命名为 MyRes.rc
2 编译RC文件成RES文件
brcc32 C:\Users\Administrator\Desktop\MyRes.rc
产生了文件 MyRes.RES
3 在{$R *.dfm}加入资源文件
{$R MyRes.RES}
4 调用RES里面的图标文件
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Icon.Handle := LoadIcon(HInstance, ‘ico1‘);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Icon.Handle := LoadIcon(HInstance, ‘ico2‘);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Icon :=nil;
end;
//RES存取资源文件中的JPEG图像
1.编写rc脚本文本
jpg1 jpgtype "jpg01.jpg"
用记事本编写 RC 脚本文本,保存为 jpgRes.RC
2 brcc32 C:\Users\Administrator\Desktop\jpgRes.RC //brcc32.exe文件在delphi目录下
将 jpgRes.RC 编译成 jpgRes.res 资源文件{资源文件必须放在同一目录}
3 把 jpgRes.RES 文件剪切到 delphi项目文件中
4 在{$R *.dfm} 下面引入资源 {$R jpgRes.res}
{当你有多个资源文件，依次加入}
//存取资源文件中的JPEG图像
//出现了问题
uses JPEG;
procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
ResStream: TResourceStream;
begin
jpg := TJPEGImage.Create;
ResStream := TResourceStream.Create(HInstance, ‘jpg1‘, ‘jpgtype‘);
jpg.LoadFromStream(ResStream);
Image1.Picture.Assign(jpg);
jpg.Free;
ResStream.Free;
end;
//RES存取资源文件中的PNG图像
1.编写rc脚本文本
imgAuto1 PNG "C:\Users\Administrator\Desktop\自动1.png"
imgAuto2 PNG "C:\Users\Administrator\Desktop\自动2.png"
imgMore1 PNG "C:\Users\Administrator\Desktop\更多颜色1.png"
imgMore2 PNG "C:\Users\Administrator\Desktop\更多颜色2.png"
用记事本编写 RC
脚本文本,保存为 jpgRes.RC
2 brcc32
C:\Users\Administrator\Desktop\pngRes.RC //brcc32.exe文件在delphi目录下
将 pngRes.RC 编译成
pngRes.res 资源文件{资源文件必须放在同一目录}
3 把 pngRes.RES 文件剪切到 delphi项目文件中
4 在{$R *.dfm} 下面引入资源 {$R pngRes.res}
{当你有多个资源文件，依次加入}
//存取资源文件中的PNG图像
// SetImgPicture(img_Auto1,‘ImgAuto2‘,‘png‘);
procedure SetImgPicture(Image:TImage;ResName:string;ResType:PWideChar);
var
PNG:
TPngImage;
RES: TResourceStream;
begin
png := TPngImage.Create;
RES := TResourceStream.Create(HInstance, ResName,
ResType);
PNG.LoadFromStream(RES);
Image.Picture.Assign(PNG);
PNG.Free;
RES.Free;
end;
些方法对这个无效 Project - Resources and Images
//Res将Wav声音文件打包到程序中
STP1.建立一个rc文件; {标识符 声音格式 声音文件} {支持中文名称}
新建一个记事本 输入 click wave "click.wav" 把本文件保存为 *.rc格式的文件;这里我保存为SOUND.RC
注：声音文件click.wav 和SOUND.RC必须在同一目录下
STP2.将rc文件转换为res文件;
把delphi目录Bin里的brcc32.exe文件复制到C:\Windows目录下，开始运行：输入 cmd打开命令栏之后输入：brcc32 C:\Users\Administrator\Desktop\SOUND.RC
这样就编译了一个SOUND.RES文件
STP3.在Uses下面引入 MMSystem;
在implementation下面输入 {$R SOUND.RES}
STP4.使用以下代码播放音乐
PlaySound(‘click‘, 0, snd_ASync or snd_Resource);//PChar类型字符串
delphi res 字符串资源,布布扣,bubuko.com
标签：des style blog http color 使用 io 文件
原文地址：http://www.cnblogs.com/xe2011/p/3885592.html
