Delphi中资源的简单应用

最新推荐文章于 2025-05-11 15:49:56 发布

转载最新推荐文章于 2025-05-11 15:49:56 发布 · 316 阅读

文章标签：

#delphi #flash #action #扩展 #forms #string

javame 专栏收录该内容

832 篇文章

订阅专栏

本文详细介绍了Delphi中资源的简单应用方法，包括如何创建、使用和管理资源，特别着重于将Flash文件封装进Delphi程序中。通过提供实际示例和操作步骤，读者能够快速掌握资源管理技巧并应用于自己的项目。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

======================================================
注：本文源代码点此下载
======================================================

delphi中资源的简单应用。首先,我们先创建一个扩展名为:.rc的文本文件,然后在该我们文件中输入:

资源标识符+关键字+资源文件名

我们先来看一看这几个文字的具体含义:

1.资源标识符:程序代码调用该资源时用以识别的标志;

2.关键字:资源的文件类型;

3.资源文件名:你现在需要包含道程序里的文件,这个文件可以是.exe, 也可以是.dll,甚至可以是一个flash文件。等等。

举个例子吧,比如我要封装一个flash道程序里,我们可以这样写.rc文件

flash swffile xyz.swf

现在我们需要把.rc文件以及xyz.swf这两个文件放在同一个文件夹里,然后去delphi的目录里拷贝一个brcc32.exe过来,马上我们就要创建资源文件了,其实生成资源很简单,最懒惰的方法就是直接把那个扩展名为.rc的文件拖到brcc32.exe上就可以了,你也可以写一个批处理:brcc32 some.rc 其中some为你的rc文件名,然后运行bat,这两种方法都可以在当前目录生成一个与.rc同名但扩展名为res的资源文件。

资源的创建大概如此

举一个例子吧!

unit utflash;

interface

uses

windows, messages, sysutils, variants, classes, graphics, controls, forms,

dialogs, olectrls, shockwaveflashobjects_tlb;

type

tform1 = class(tform)

shockwaveflash1: tshockwaveflash;

procedure formcreate(sender: tobject);

procedure formclose(sender: tobject; var action: tcloseaction);

private

{ private declarations }

public

{ public declarations }

end;

var

form1: tform1;

implementation

{$r *.dfm}

{$r swffile.res}

procedure flashrestofile(const resname, restype, filename : string);

var

swfres : tresourcestream;

begin

swfres := tresourcestream.create(hinstance, resname, pchar(restype));

try

swfres.savetofile(filename);

finally

swfres.free;

end;

procedure tform1.formcreate(sender: tobject);

begin

flashrestofile('flash', 'swffile', 'pets.swf');

shockwaveflash1.width := form1.width;

shockwaveflash1.height := form1.height;

shockwaveflash1.movie := extractfilepath(application.exename) + 'pets.swf';

shockwaveflash1.play;

end;

procedure tform1.formclose(sender: tobject; var action: tcloseaction);

begin

if fileexists('pets.swf') then deletefile('pets.swf');

end;

end.

绿色通道:好文要顶关注我收藏该文与我联系

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/