WEB开发网
开发学院软件开发Delphi 动态贺卡EXE生成器---Delphi中流的应用(9) 阅读

动态贺卡EXE生成器---Delphi中流的应用(9)

 2006-02-04 13:33:23 来源:WEB开发网   
核心提示:三、实际应用之二:利用流制作可执行电子贺卡 我们经常看到一些电子贺卡之类的制作软件,可以让你自己选择图片,动态贺卡EXE生成器---Delphi中流的应用(9),然后它会生成一个EXE可执行文件给你,打开贺卡时就会一边放音乐一边显示出图片来,请重新选择!','信息',MB_ICONINFORM

三、实际应用之二:利用流制作可执行电子贺卡

   我们经常看到一些电子贺卡之类的制作软件,可以让你自己选择图片,然后
它会生成一个EXE可执行文件给你。打开贺卡时就会一边放音乐一边显示出图片来。
现在学了流操作之后,我们也可以做一个了。 
  添加图片过程我们可以直接用前面的Cjt_AddtoFile,而现在要做的是如何把
图像读出并显示。我们用前面的Cjt_LoadFromFile先把图片读出来保存为文件再
调入也是可以的,但是还有更简单的方法,就是直接把文件流读出来显示,有了
流这个利器,一切都变的简单了。
   现在的图片比较流行的是BMP格式和JPG格式。我们现在就针对这两种图片写
出读取并显示函数。

Function Cjt_BmpLoad(ImgBmp:TImage;SourceFile:String):Boolean;
var
 Source:TFileStream;
 MyFileSize:integer;
begin
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
try
Source.Seek(-sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));//读出资源
Source.Seek(-MyFileSize,soFromEnd);//定位到资源开始位置
ImgBmp.Picture.Bitmap.LoadFromStream(Source);
finally
Source.Free;
end;
except
Result:=False;
Exit;
end;
Result:=True;
end;
  上面是读出BMP图片的,下面的是读出JPG图片的函数,因为要用到JPG单元,所
以要在程序中添加一句:uses jpeg。

Function Cjt_JpgLoad(JpgImg:Timage;SourceFile:String):Boolean;
var
 Source:TFileStream;
MyFileSize:integer;
 Myjpg: TJpegImage;
begin
try
Myjpg:= TJpegImage.Create;
Source:=TFileStream.Create(SourceFile,fmOpenRead or fmShareDenyNone);
try
Source.Seek(-sizeof(MyFileSize),soFromEnd);
Source.ReadBuffer(MyFileSize,sizeof(MyFileSize));
Source.Seek(-MyFileSize,soFromEnd);
Myjpg.LoadFromStream(Source);
JpgImg.Picture.Bitmap.Assign(Myjpg);
finally
Source.Free;
Myjpg.free;
end;
except
Result:=false;
Exit;
end;
Result:=true;
end;
  有了这两个函数,我们就可以制作读出程序了。下面我们以BMP图片为例:
  运行Delphi,新建一个工程,放上一个显示图像控件Image1。在窗口的Create
事件中写上一句就可以了:
  Cjt_BmpLoad(Image1,application.ExeName);
  这个就是头文件了,然后我们用前面的方法生成一个head.res资源文件。
下面就可以开始制作我们的添加程序了。全部代码如下:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
   Edit1: TEdit;
   Button1: TButton;
   Button2: TButton;
   OpenPictureDialog1: TOpenPictureDialog;
   PRocedure FormCreate(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
  private
  Function ExtractRes(ResType, ResName, ResNewName : String):boolean;
  Function Cjt_AddtoFile(SourceFile,TargetFile:string):Boolean;
   { Private declarations }
  public
   { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}
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;
end;
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;
procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:='Bmp2Exe演示程序.作者:陈经韬';
Edit1.Text:=';
OpenPictureDialog1.DefaultExt := GraphicExtension(TBitmap);
OpenPictureDialog1.Filter := GraphicFilter(TBitmap);

Button1.Caption:='选择BMP图片';
Button2.Caption:='生成EXE';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
  Edit1.Text:=OpenPictureDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 HeadTemp:String;
begin
if FileExists(Edit1.Text) then
  begin
   Application.MessageBox('BMP图片文件不存在,请重新选择!','信息',MB_ICONINFORMATION+MB_OK)
   Exit;
  end;
 HeadTemp:=ChangeFileExt(Edit1.Text,'.exe');
 if ExtractRes('exefile','head',HeadTemp) then
   if Cjt_AddtoFile(Edit1.Text,HeadTemp) then
     Application.MessageBox('EXE文件生成成功!','信息',MB_ICONINFORMATION+MB_OK)
 else
   begin
    if FileExists(HeadTemp) then DeleteFile(HeadTemp);
    Application.MessageBox('EXE文件生成失败!','信息',MB_ICONINFORMATION+MB_OK)
   end;
end;
end.
  怎么样?很神奇吧:)把程序界面弄的漂亮点,再添加一些功能,你会发现比
起那些要注册的软件来也不会逊多少吧。

Tags:动态 贺卡 EXE

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接