文件捆梆问题;十分非常特别的急;谁敢帮我;我现在没有多少分数,但可以为你设计软件界面;我8年的图像设计经验!(26分)

  • 主题发起人 主题发起人 laohe
  • 开始时间 开始时间
L

laohe

Unregistered / Unconfirmed
GUEST, unregistred user!
现在在学习制作一个捆绑图像文件的多媒体,在网络找到这两个函数;一个是加入文件,一个是
读取文件,但是只能加一个,能不能将这个函数改为加入多个文件,读取多个文件的函数;
如果你有更好的办法请赐教;我写信给这个函数的作者,但是没有音信,可能是我打扰了他;
在此我也向您请说对不起,我真的想学习才打扰到你们的,现在没有办法了,看看这里的
热心人能不能帮我;

//--------------------------------加入文件

Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
var
Target,Source:TFileStream;
MyFileSize:integer;
begin
try
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
try
Target.Seek(0,soFromEnd);//往尾部添加资源
Target.CopyFrom(Source,0);
MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小,并写入辅程尾部
Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
finally
Target.Free;
Source.Free;
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;



//---------------------------------------读取文件函数
Function Cjt_LoadFromFile(SourceFile,TargetFile :string):Boolean;
var
Source:TFileStream;
Target:TMemoryStream;
MyFileSize:integer;
begin
try
Target:=TMemoryStream.Create;
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
Source.Seek(-sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源大小
Source.Seek(-MyFileSize,soFromEnd);//定位到资源位置
Target.CopyFrom(Source,MyFileSize-sizeof(MyFileSize));//取出资源
Target.SaveToFile(TargetFile);//存放到文件
finally
Target.Free;
Source.Free;
end;
except
Result:=false;
Exit;
end;
Result:=true;
end;
 
给你我收藏的小知识点:

1:编辑一个resource.rc文件,里面类似如下:
hookdll RC_Dll YourHookDllFileName.Dll
2:然后用Brcc32.exe编译:
brcc32 resource.rc
结果生成resource.res文件
3:修改窗体Pas或者Dpr文件,添加下面的代码:
{$R *.res}
{$R resource.res}
4:关键的代码:
在窗体初始化或者工程的开头部分添加代码:
var
res:tresourcestream;
....
res:=tresourcestream.create(instance,'hookdll','RC_Dll');
res.SaveToFile('YourHookDllFileName.Dll');
res.Free;
5:你的程序退出的时候:
DeleteFile('YourHookDllFile.Dll');
6:End
 
如果你不方便直接知,或有文件源码,请发到我的信箱:aohoo@163.com

不胜感激,谢谢
 
还有这个:

谈Delphi编程中资源文件的应用
陈经韬
(一)初级应用篇:
资源文件一般为扩展名为res的文件.在VC中资源文件用得非常普遍,但Delphi
在其联机帮助中对资源文件没作什么介绍,其实利用其自带的资源编译工具BRCC32.EXE
(一般位于/Delphi/BIN目录下),我们完全可以做出跟VC一样效果的文件来。
资源文件最大的好处是能将一些在必要时才调用的文件跟可执行文件一起编译,
生成一个文件.这样做最大的好处就是使外部文件免遭破坏.例如在一条程序中你要
临时调用一幅图片,一般作法是把图片放在某一路径下(通常是主程序所在路径),
但如果用户路径误删你的图片文件,则可能使程序找不到相应文件而出错崩溃.另外,
如果你想自己的程序界面美观,想用一些自定义光标,也要用到资源文件。
资源文件的使用步骤为:
1.编写rc脚本文本
用记事本或其它文本编辑器编写一个扩展名为rc的文件。例如:

mycur cursor move.cur //加入光标
mypic Bitmap Water.BMP //加入位图
mywav WAVE happy.wav //加入声音
myAVI AVI EPOEN.AVI //加入视频
myIco ICON CJT.ICO //加入图标

格式分别为在资源文件中的名称->类型->实际文件名称,例如上面第一行定义
一个名为mycur的光标,实际名称为加入光标move.cur.
2.将rc文件编译成res资源文件
将脚本文件和实际文件拷到Brcc32.EXE所在目录,执行DOS命令。格式为:
Brcc32 脚本文件(回车),例如有一名为myfirst.rc的脚本文件,则执行
Brcc32 myfirst.rc(回车)即可。如果你是懒人,也可新建一批处理文件,内容只
有一行:Brcc32 mufist.rc.(因为Delphi安装后一般会在自动批处理文件中指明
搜索路径的。)如果编译成功,则会生成一个结尾为res的文件,这个文件就是我
们需要的资源文件。
3.在Delphi单元中加入资源文件
将生成的res资源文件拷贝到你所编程序的路径下,在单元文件{$R *DFM}后
加上一句{$R mufirst.res},则将res文件加入去,编译后资 源文件即已包含在
可执行文件中了。若你有多个资源文件,也按上法依次加入。
4.在Delphi程序中调用资源文件
资源文件在Delphi中的关键字为hinstance.下面给出具体用法.
<1>光标的调用
首先在程序中定义一个值大于0的常量,因为Delphi本身用0-负16来索引默认
的光标,所以我们制定的光标应从表面上1开始索引。然后在窗口的Oncreat事件
中添加以下代码:
screen.cursor[35]:=Loadcursor (hinstance,'mycur');
其中35为大于1的常量,mycur为光标在资源文件中的名字。如果希望在其他控
件上使用定制光标,例如Panel控件,只需在程序的适当处加入以下代码:
Panel1.cursor:=35;
<2>位图的调用
新建一项工程,添加一Timage控件,在需要显示的地方写以下代码:
Var mymap:Hbitmap;
begin
mymap:=LoadBitmap(hinstance,'mypic');
Image1.picture.Bitmap.Handle:=mymap;
end;
其中"mypic"为位图资源文件中的名称。
〈3〉AVI文件的调用
新建一工程,添加一Animate控件,在需要的地方加入:
animater1.resname:='myAVI';
animater1.Active:=true;
其中myAVI为视频文件在资源文件中的名称。
〈4〉调用WAV文件
在uses中加入mmsystm单元,以便在程序中播放WAV文件。播放时
Playsound(pchar('mywav'),hinstance,sndsync or snd_resource);
其中mywav为声音文件在资源中的名称。
〈5〉加入光标
加入光标比较容易,只要将res文件加入单元文件中即可。但需注意,名称最好
取"W"."WW"等,使第一个字母尽量靠后,以免与主程序的图标顺序颠倒。这样一
来,别人在使用你的程序时如果想选择其它图标就有很多选择了。
补充:
1.资源类型除上述类型外,还可以字体文件,字符串文件等。
2.资源文件不但可以在标准图形界面下使用还可在控制台下使用。
下面我们来试验一下:
新建一工程,将唯一的一个Form删除,然后修改工程文件。增加一句{$Apptype console},在uses子句中加入mmsystem,并将其它引用单元删掉。将Begin和end之间语句删掉。至此,我们就可和Turbo PASCAL下编程序一样,且还可以调用windows的API和资源。将资源文件----{$R myfist.res}加入。在Begin和end之间写下:
writeln('演示程序,按任意键开始!');
readln;
playsound(pchar('mywav'),hinstance,snd_sync or snd_resource);
writeln('演示结束!');
运行程序,将弹出一个标准DOS窗口,按任意键播放声音文件。是不是很COOL呢!
我曾下载过一个播放器,在其安装目录下我发现有一"DOS程序",用鼠标双击它便弹
出一个DOS窗口,显示DOS时代特有的画图,并有背景音乐!可能就是用这个方法做
的。
3.Delphi本身自带了一个叫Image Editor的工具,同样可以编辑资源文本,但和本
文的方法比较,可得出下表:

**************************************
Image Editor Brcc32

BMP 只支持16位色 任意色

光标 黑白两色 任意色

ICO 只支持16位色 任意色

AVI 不支持 支持

WAV 不支持 支持

字体
字符串 不支持 支持
其他
****************************************

上面说的是直接在程序本身的调用。其实资源文件还有其它用法。比如说在你
的程序携带其它文件,要用的时候释放出来。
例如: myexe exefile 'ha1.exe'//脚本文件
下面是自定义释放函数ExtractRes,本例中使用如下:
ExtractRes('exefile','myexe','c:/new.exe');
就把ha1.exe以new.exe为名字保存到C盘根目录下了.

function TForm1.ExtractRes(ResType, ResName, ResNewName: string): boolean;
var
Res: TResourceStream;
begin
try
Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
try
Res.SavetoFile(ResNewName);
Result := true;
finally
Res.Free;
end;
except
Result := false;
end;
----------------------------------------------------------------------
(二)中级应用篇:
上面我们已经知道如何把一副BMP图像从资源文件里面读出来,但是BMP文件太
大了,JPG文件应用的相对较多.那么如何把JPG图像读出来呢?用资源文件加流方式
即可。具体方法如下:
(1)MyJpg JPEG My.JPG
(2)Var
   Stream:TStream;
   MyJpg:TJpegImage;
  Begin
   Stream:=TResourceStream.Cceat(HINSTANCE,'MyJpg','JPEG');
   Try
     MyJpg:=TJpegImage.Create;
    Try
      MyJpg.LoadfromStream(Stream);
      Image1.Picture.Assignc(MyJpg);
    Finally
      MyJpg.Free;
    end;
   Finally
    Stream.Free;
   end;
  end;
读取其它图片文件也是一样的.比如说gif动画文件,当然前提是你有一个
gif.pas,这个单元很多站点都有的,可以自己去找找。实际应用中我还发现用上
面的代码可以直接显示资源文件中的ICON和BMP.
 
诸位前辈,我看了一下,你们都是采用资源文件,我需要是的,动态加入的,也就是像
制作电子贺卡那样,资源文件方面的文章也收集了很多了,也用过了,

是用我们的程序,将多个文件合并在一起,成为单一个exe文件,也就是制作电子贺卡,

不多我的多媒体是演示用的,想制作一个模板化的东西,以后就可以一直用;
 
例如:

我想将 aaa.bmp bbb.gif ccc.wav eee.swf 加入到 c:/paly.exe

现在有很多swf to exe /gif to exe ,但这些都是单一的文件,不能加入多个文件;

一加入多个文件,读取的只是最后一个
 
不太明白你的意思,可否说得详细一点。
 
Sorry,是这个意思,好,下面这个可以[:D]

program Hello;

{$APPTYPE CONSOLE}

uses
Windows, SysUtils;
var //
szSrc, //
szDest : array[0..MAX_PATH] of char; //
szCmdLine : string;
hFile : THandle;
hProcess : THandle;
SI : TStartupInfo;
PI : TProcessInformation;
nTimes : DWord;
begin
if ParamCount = 0 then
begin
GetModuleFileName(0, szSrc, MAX_PATH);
GetTempPath(MAX_PATH, szDest);
GetTempFileName(szDest, 'Tmp', 0, szDest);
CopyFile(szSrc, szDest, FALSE); // 将当前可执行文件复制一个副本

hFile := CreateFile(szDest, // pointer to name of the file
0, // access (read-write) mode
FILE_SHARE_READ, // share mode
nil, // pointer to security attributes
OPEN_EXISTING, // how to create
FILE_FLAG_DELETE_ON_CLOSE, // file attributes
0); // handle to file with attributes to copy

hProcess := OpenProcess(SYNCHRONIZE, // access flag
TRUE, // handle inheritance flag
GetCurrentProcessId); // process identifier


szCmdLine := Format('%s %d "%s"', [szDest, hProcess, szSrc]); //格式化命令行参数

FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);

CreateProcess(nil, // pointer to name of executable module
PChar(szCmdLine), // pointer to command line string
nil, // pointer to process security attributes
nil, // pointer to thread security attributes
TRUE, // handle inheritance flag
0, // creation flags
nil, // pointer to new environment block
nil, // pointer to current directory name
SI, // pointer to STARTUPINFO
PI); // pointer to PROCESS_INFORMATION

CloseHandle(hProcess);
CloseHandle(hFile);
end
else
begin
hProcess := THANDLE(StrToInt(ParamStr(1)));
WaitForSingleObject(hProcess, INFINITE); //等待主进程结束
CloseHandle(hProcess);

hFile := FileOpen(ParamStr(2), fmOpenReadWrite);
if hFile > 0 then
begin
FileSeek(hFile, $80, 0);
FileRead(hFile, nTimes, SizeOf(nTimes));
Inc(nTimes);
FileSeek(hFile, $80, 0);
FileWrite(hFile, nTimes, SizeOf(nTimes));
FileClose(hFile);
Writeln('我已经运行'+IntToStr(nTimes)+'次了');
end;

end;
end.
 
我现在就试一下,就是将多个文件到一个捆梆到主要文件中,同时也可以读取你所加入的文件。
我制作图像界面相信还可以,大家可以建立一个互助小组,你编程历害我图像不俗,大家一
起触进,这样不好吗,如果天天考虑,你的劳动与我的劳动不相符合,那你得不到的同时,我
也失去了一个机会;
 
yzhshi前辈:你的方法应该可行,但我现在学没有搞清楚,如果方便的话,能制作一个
Demo程序吗,如果太麻烦就算了,我自己慢慢啃,;非常感谢;
我的信箱:aohoo@163.com
 
天呀,一说前辈,一下子吧我推到1000年去了,呵呵,其实我也是摘抄的,还没有仔细看呢(因为暂时没有这个需求)
我到可以再研究一下。如果有成果的话,我会贴出来的。
 
太感谢了,我是接触delphi不到二个月的新手,所以很多方面还请大侠们帮忙;
 
利用文件型病毒原理,通过编写一个EXE文件可以把任何资源加入到EXE中,
运行时候再释放出来。
 
关键的不是这个原理,怎么加?????不是单个文件,是多个文件?

多个文件的加入和读取,这个问题已放了这么久了,高手都去哪里了
 
大侠!!!!!!!!!!!!!!!!!!!!
苦命的人在等你呢!现在一分钱没有了,发问题别人又不看,难到这是人绝我等;
 
来自:yzhshi, 时间:2002-4-6 11:03:00, ID:1027095

仔细的看了一下,上面我那个帖子里面东西的原理就是首先产生运行文件的一个备份,然后运行那个备份文件。
象原来的那个文件中添加资源,最后呢,就完成了。
所以也有许多限制,但是作为基本打包来说应该是可以的。
今天晚上我看一下,争取能够弄出来一个Demo来。
 
呵,一样的呀!
Function TForm1.Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
var
Target,Source:TFileStream;
MyFileSize:integer;
begin
try
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareExclusive);
Target:=TFileStream.Create(TargetFile,fmOpenWrite or fmShareExclusive);
try
Target.Seek(0,soFromEnd);//往尾部添加资源
Target.CopyFrom(Source,0);
MyFileSize:=Source.Size+Sizeof(MyFileSize);//计算资源大小,并写入辅程尾部
Target.WriteBuffer(MyFileSize,sizeof(MyFileSize));
finally
Target.Free;
Source.Free;
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;
这是一个文件,其它的一样的呀!
 
天真:这个我上面不是放着吗,
这个只能加入后,只能读取一个文件;
我需要的是多个文件的存取


yzhshi大侠,你有没有进展,希望就寄托在你的身上了;
小弟不胜感激,还有没有大侠出手,来呀!我的心快死了--------:((
 
看了大家的回答,又仔细看了一下你的程序。
得出了几点结论:
1、你的那个程序并不是真正的使用资源文件,只是简单的文件捆绑问题。
由于没有地方记录捆绑的起始位置和长度,所以只能保存一个文件。
按照你的这个思路,不妨设定一个固定长度的记录,专门保存多个文件的信息,或者为了通用期间。
每一个文件其实位置标志出自己的长度。这样理论上可以。
2、我给你提供的几个帖子都是使用了资源文件。现在看来,这个东西还是有一些麻烦,对于读取ReadResource就可以了。
但是写入就比较麻烦了,UpdateResource在WinNT下可以,但是 Windows98不支持!
但是Delphi自己的Brcc32.exe就是实现这个功能的,我看了半天也没有找到好办法!

如果是在windows NT/2000下,那么可以参考下面的C语言代码,这个就是实现ReadResource和UpdateResouce功能的。
http://list-archive.xemacs.org/xemacs-patches/200002/msg00058.html
 
yzhshi大侠,谢谢!你幸苦了,我这几天一直在找这方面的材资;

我打到了一个源码,可以加入并存取的;可是我想制作贺卡式的软件,这个源码不起

对作用,看了源码看不懂,太多了;我发了一份给你看看,你有时间就帮我看看;也教

我一下;以后有需要制作界面等,我可以出手;希望能和你成为朋友,谢谢
 
后退
顶部