delphi res 字符串资源 (2011/12/10 19:19:36)

//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.


delphi resourcestring 资源串常量 (2011/12/10 19:19:38)

delphi resourcestring 资源串常量 (2011/12/10 19:19:38)

//resourcestring 资源串常量

{
用resourcestring 指令定义的字符串变量将被保存到程序资源的字符串表中
有趣的是，当你用资源编辑器打开执行文件时，
你会在程序资源中看到你所定义的字符串。
这意味着字符串并没有进入编译代码，而是保存在执行文件 (EXE文件)的一个单独区域。
}
 

procedure TForm1.Button1Click(Sender: TObject);
resourcestring //支持所有字符类型的数据
    str1 = 'delphi';
    str2 = 'XE';
begin
    showmessage(str1+str2);
end;

delphi RES存取资源文件中的AVI无声动画文件 (2011/12/10 19:19:39)

//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;


delphi RES存取资源文件中的BMP图像 (2011/12/10 19:19:40)

//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;


delphi RES存取资源文件中的Cursor光标文件 (2011/12/10 19:19:41)

//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;


delphi RES存取资源文件中的ICON图标文件 (2011/12/10 19:19:42)

//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;


delphi RES存取资源文件中的JPEG图像 (2011/12/10 19:19:43)

//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;


delphi RES存取资源文件中的PNG图像 (2011/12/10 19:19:43)

//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
 
 


delphi Res将Wav声音文件打包到程序中 (2011/12/10 19:19:44)

//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类型字符串

最新文章

  1. linux命令在线手册
  2. vue.js慢速入门（1）
  3. discuz ucenter无法连接数据库
  4. 关于Python的数据分析工具
  5. LINQ的ElementAt与ElementAtOrDefault方法
  6. MyBatis魔法堂：即学即用篇
  7. 开发成功-cpu-mem监控动态折线图--dom esayui js java
  8. 基于MapReduce的关系代数运算(2)
  9. DB2 SQL 递归实现多行合并
  10. matlab 怎么保存plot的图 到指定文件夹
  11. OSG事件回调
  12. 水晶易表 Xcelsius 2008 安装指南 完美支持office2010（亲手体验）
  13. ios sqlite3的简单使用
  14. 深入理解ES6之—set与map
  15. springboot 入门六-多环境日志配置
  16. 一段shell脚本分析
  17. Docker 新手入门
  18. 解决 golang unrecognized import path "golang.org/x" 之类错误的一种尝试
  19. Vue 组件&组件之间的通信 之 父组件向子组件传值
  20. Web 前端编程运维必备

热门文章

  1. IP网络5种基本寻址方式 (单播、多播、广播、任播、地域多播)
  2. C 的 coroutine 库 via 云风的 BLOG
  3. java web 学习十六（JSP指令）
  4. 常见设计模式的解析和实现（C++）之九—Decorator模式
  5. 【原】Storm学习资料推荐
  6. POJ 1004 解题报告
  7. 第二百九十七天 how can I 坚持
  8. 第二百九十六天 how can I 坚持
  9. 第二百三十八天 how can I 坚持
  10. NLog 錯誤小記