三、實(shí)際應(yīng)用之二：利用流制作可執(zhí)行電子賀卡

    我們經(jīng)常看到一些電子賀卡之類的制作軟件，可以讓你自己選擇圖片，然后
它會(huì)生成一個(gè)EXE可執(zhí)行文件給你。打開賀卡時(shí)就會(huì)一邊放音樂(lè)一邊顯示出圖片來(lái)。
現(xiàn)在學(xué)了流操作之后，我們也可以做一個(gè)了。  
   添加圖片過(guò)程我們可以直接用前面的Cjt_AddtoFile，而現(xiàn)在要做的是如何把
圖像讀出并顯示。我們用前面的Cjt_LoadFromFile先把圖片讀出來(lái)保存為文件再
調(diào)入也是可以的，但是還有更簡(jiǎn)單的方法，就是直接把文件流讀出來(lái)顯示，有了
流這個(gè)利器，一切都變的簡(jiǎn)單了。
    現(xiàn)在的圖片比較流行的是BMP格式和JPG格式。我們現(xiàn)在就針對(duì)這兩種圖片寫
出讀取并顯示函數(shù)。

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圖片的函數(shù)，因?yàn)橐玫絁PG單元，所
以要在程序中添加一句: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;
  有了這兩個(gè)函數(shù)，我們就可以制作讀出程序了。下面我們以BMP圖片為例：
  運(yùn)行Delphi，新建一個(gè)工程，放上一個(gè)顯示圖像控件Image1。在窗口的Create
事件中寫上一句就可以了：
   Cjt_BmpLoad(Image1,application.ExeName);
  這個(gè)就是頭文件了，然后我們用前面的方法生成一個(gè)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);//計(jì)算資源大小，并寫入輔程尾部
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演示程序.作者:陳經(jīng)韜';
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圖片文件不存在，請(qǐng)重新選擇!','信息',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.
   怎么樣？很神奇吧:)把程序界面弄的漂亮點(diǎn)，再添加一些功能，你會(huì)發(fā)現(xiàn)比
起那些要注冊(cè)的軟件來(lái)也不會(huì)遜多少吧。