delphi 高级实例Stream的使用.docx

delphi 高级实例Stream的使用.docx

《delphi 高级实例Stream的使用.docx》由会员分享，可在线阅读，更多相关《delphi 高级实例Stream的使用.docx（26页珍藏版）》请在冰豆网上搜索。

delphi高级实例Stream的使用

delphi高级实例

什么是流？

流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。

在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。

流不但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。

如果你对流的操作非常熟练，在程序中利用流的方便性，写起程序会大大提高效率的。

  下面，笔者通过四个实例:

EXE文件加密器、电子贺卡、自制OICQ和网络屏幕传输来说明Delphi编程中“流”的利用。

这些例子中的一些技巧曾经是很多软件的秘密而不公开的，现在大家可以无偿的直接引用其中的代码了。

  “万丈高楼平地起”，在分析实例之前，我们先来了解一下流的基本概念和函数，只有在理解了这些基本的东西后我们才能进行下一步。

请务必认真领会这些基本方法。

当然，如果你对它们已经很熟悉了，则可以跳过这一步。

一、Delphi中流的基本概念及函数声明

在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。

TStream类中定义的属性介绍如下：

1、Size:

此属性以字节返回流中数据大小。

2、Position:

此属性控制流中存取指针的位置。

Tstream中定义的虚方法有四个：

1、Read:

此方法实现将数据从流中读出。

函数原形为：

Function Read（var Buffer;Count:

Longint）:

Longint;virtual;abstract;

参数Buffer为数据读出时放置的缓冲区，Count为需要读出的数据的字节数，该方法返回值为实际读出的字节数，它可以小于或等于Count中指定的值。

2、Write:

此方法实现将数据写入流中。

函数原形为：

Function Write（var Buffer;Count:

Longint）:

Longint;virtual;abstract;

参数Buffer为将要写入流中的数据的缓冲区，Count为数据的长度字节数，该方法返回值为实际写入流中的字节数。

3、Seek:

此方法实现流中读取指针的移动。

函数原形为：

Function Seek（Offset:

Longint;Origint:

Word）:

Longint;virtual;abstract;

参数Offset为偏移字节数,参数Origint指出Offset的实际意义，其可能的取值如下：

soFromBeginning:

Offset为移动后指针距离数据开始的位置。

此时Offset必须大于或者等于零。

soFromCurrent:

Offset为移动后指针与当前指针的相对位置。

soFromEnd:

Offset为移动后指针距离数据结束的位置。

此时Offset必须小于或者等于零。

该方法返回值为移动后指针的位置。

4、Setsize:

此方法实现改变数据的大小。

函数原形为：

Function Setsize（NewSize:

Longint）;virtual;

另外，TStream类中还定义了几个静态方法：

1、ReadBuffer:

此方法的作用是从流中当前位置读取数据。

函数原形为：

Procedure ReadBuffer（var Buffer;Count:

Longint）;

参数的定义跟上面的Read相同。

注意：

当读取的数据字节数与需要读取的字节数不相同时，将产生EReadError异常。

2、WriteBuffer:

此方法的作用是在当前位置向流写入数据。

函数原形为：

Procedure WriteBuffer（var Buffer;Count:

Longint）;

参数的定义跟上面的Write相同。

注意：

当写入的数据字节数与需要写入的字节数不相同时，将产生EWriteError异常。

3、CopyFrom:

此方法的作用是从其它流中拷贝数据流。

函数原形为：

Function CopyFrom（Source:

TStream;Count:

Longint）:

Longint;

参数Source为提供数据的流，Count为拷贝的数据字节数。

当Count大于0时，CopyFrom从Source参数的当前位置拷贝Count个字节的数据；当Count等于0时，CopyFrom设置Source参数的Position属性为0,然后拷贝Source的所有数据；

TStream还有其它派生类，其中最常用的是TFileStream类。

使用TFileStream类来存取文件，首先要建立一个实例。

声明如下：

constructor Create（const Filename:

string;Mode:

Word）;

Filename为文件名（包括路径）,参数Mode为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：

打开模式：

fmCreate :

用指定的文件名建立文件，如果文件已经存在则打开它。

fmOpenRead :

以只读方式打开指定文件

fmOpenWrite :

以只写方式打开指定文件

fmOpenReadWrite:

以写写方式打开指定文件

共享模式：

fmShareCompat :

共享模式与FCBs兼容

fmShareExclusive:

不允许别的程序以任何方式打开该文件

fmShareDenyWrite:

不允许别的程序以写方式打开该文件

fmShareDenyRead :

不允许别的程序以读方式打开该文件

fmShareDenyNone :

别的程序可以以任何方式打开该文件

TStream还有一个派生类TMemoryStream，实际应用中用的次数也非常频繁。

它叫内存流，就是说在内存中建立一个流对象。

它的基本方法和函数跟上面是一样的。

好了，有了上面的基础后，我们就可以开始我们的编程之行了。

-----------------------------------------------------------------------

二、实际应用之一：

利用流制作EXE文件加密器、捆绑、自解压文件及安装程序

  我们先来说一下如何制作一个EXE文件加密器吧。

  EXE文件加密器的原理：

建立两个文件，一个用来添加资源到另外一个EXE文件里面，称为添加程序。

另外一个被添加的EXE文件称为头文件。

该程序的功能是把添加到自己里面的文件读出来。

Windows下的EXE文件结构比较复杂，有的程序还有校验和，当发现自己被改变后会认为自己被病毒感染而拒绝执行。

所以我们把文件添加到自己的程序里面，这样就不会改变原来的文件结构了。

我们先写一个添加函数，该函数的功能是把一个文件当作一个流添加到另外一个文件的尾部。

函数如下：

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;

有了上面的基础，我们应该很容易看得懂这个函数。

其中参数SourceFile是要添加的文件,参数TargetFile是被添加到的目标文件。

比如说把a.exe添加到b.exe里面可以：

Cjt_AddtoFile（'a.exe',b.exe'）;如果添加成功就返回True否则返回假。

根据上面的函数我们可以写出相反的读出函数：

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;

  其中参数SourceFile是已经添加了文件的文件名称,参数TargetFile是取出文件后保存的目标文件名。

比如说Cjt_LoadFromFile（'b.exe','a.txt'）;在b.exe中取出文件保存为a.txt。

如果取出成功就返回True否则返回假。

打开Delphi，新建一个工程，在窗口上放上一个Edit控件Edit1和两个Button:

Button1和Button2。

Button的Caption属性分别设置为“确定”和“取消”。

在Button1的Click事件中写代码:

var 

S:

string;

begin

S:

=ChangeFileExt（Application.ExeName,'.Cjt'）;

if Edit1.Text='790617' then 

begin

Cjt_LoadFromFile（Application.ExeName,S）;

{取出文件保存在当前路径下并命名"原文件.Cjt"}

Winexec（pchar（S）,SW_Show）;{运行"原文件.Cjt"}

Application.Terminate;{退出程序}

end

else 

Application.MessageBox（'密码不对,请重新输入！

','密码错误',MB_ICONERROR+MB_OK）;

  编译这个程序，并把EXE文件改名为head.exe。

新建一个文本文件head.rc,内容为:

 head exefile head.exe,然后把它们拷贝到Delphi的BIN目录下，执行Dos命令Brcc32.exe head.rc,将产生一个head.res的文件，这个文件就是我们要的资源文件，先留着。

  我们的头文件已经建立了，下面我们来建立添加程序。

  新建一个工程，放上以下控件：

一个Edit,一个Opendialog,两个Button1的Caption属性分别设置为"选择文件"和"加密"。

在源程序中添加一句:

{$R head.res}并把head.res文件拷贝到程序当前目录下。

这样一来就把刚才的head.exe跟程序一起编译了。

  在Button1的Cilck事件里面写下代码：

if OpenDialog1.Execute then 

Edit1.Text:

=OpenDialog1.FileName;

  在Button2的Cilck事件里面写下代码：

var 

S:

String;

begin

S:

=ExtractFilePath（Edit1.Text）;

if ExtractRes（'exefile','head',S+'head.exe'） then

if Cjt_AddtoFile（Edit1.Text,S+'head.exe'） then

if DeleteFile（Edit1.Text） then

if RenameFile（S+'head.exe',Edit1.Text） then

Application.MessageBox（'文件加密成功!

','信息',MB_ICONINFORMATION+MB_OK）

else

begin

if FileExists（S+'head.exe'） then DeleteFile（S+'head.exe'）;

Application.MessageBox（'文件加密失败!

','信息',MB_ICONINFORMATION+MB_OK）

end;

end;

其中ExtractRes为自定义函数，它的作用是把head.exe从资源文件中取出来。

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

  注意：

我们上面的函数只不过是简单的把一个文件添加到另一个文件的尾部。

实际应用中可以改成可以添加多个文件，只要根据实际大小和个数定义好偏移地址就可以了。

比如说文件捆绑机就是把两个或者多个程序添加到一个头文件里面。

那些自解压程序和安装程序的原理也是一样的，不过多了压缩而已。

比如说我们可以引用一个LAH单元，把流压缩后再添加，这样文件就会变的很小。

读出来时先解压就可以了。

另外，文中EXE加密器的例子还有很多不完善的地方，比如说密码固定为"790617"，取出EXE运行后应该等它运行完毕后删除等等，读者可以自行修改。

---------------------------------------------------------------------

 我们经常看到一些电子贺卡之类的制作软件，可以让你自己选择图片，然后它会生成一个EXE可执行文件给你。

打开贺卡时就会一边放音乐一边显示出图片来。

现在学了流操作之后，我们也可以做一个了。

 添加图片过程我们可以直接用前面的Cjt_AddtoFile，而现在要做的是如何把图像读出并显示。

我们用前面的Cjt_LoadFromFile先把图片读出来保存为文件再调入也是可以的，但是还有更简单的方法，就是直接把文件流读出来显示，有了流这个利器，一切都变的简单了。

 现在的图片比较流行的是BMP格式和JPG格式。

我们现在就针对这两种图片写出读取并显示函数。

FunctionCjt_BmpLoad（ImgBmp:

TImage;SourceFile:

String）:

Boolean;

var

Source:

TFileStream;

MyFileSize:

integer;

begin

Source:

=TFileStream.Create（SourceFile,fmOpenReadorfmShareDenyNone）;

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单元，所以要在程序中添加一句:

usesjpeg。

FunctionCjt_JpgLoad（JpgImg:

Timage;SourceFile:

String）:

Boolean;

var

Source:

TFileStream;

MyFileSize:

integer;

Myjpg:

TJpegImage;

begin

try

Myjpg:

=TJpegImage.Create;

Source:

=TFileStream.Create（SourceFile,fmOpenReadorfmShareDenyNone）;

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资源文件。

下面就可以开始制作我们的添加程序了。

全部代码如下：

unitUnit1;

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;

procedureFormCreate（Sender:

TObject）;

procedureButton1Click（Sender:

TObject）;

procedureButton2Click（Sender:

TObject）;

private

FunctionExtractRes（ResType,ResName,ResNewName:

String）:

boolean;

FunctionCjt_AddtoFile（SourceFile,TargetFile:

string）:

Boolean;

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form1:

TForm1;

implementation

{$R*.DFM}

FunctionTForm1.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;

FunctionTForm1.Cjt_AddtoFile（SourceFile,TargetFile:

string）:

Boolean;

var

Target,Source:

TFileStream;

MyFileSize:

integer;

begin

try

Source:

=TFileStream.Create（SourceFile,fmOpenReadorfmShareExclusive）;

Target:

=TFileStream.Create（TargetFile,fmOpenWriteorfmShareExclusive）;

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;

procedureTForm1.FormCreate（Sender:

TObject）;

begin

Caption:

='Bmp2Exe演示程序.作者:

陈经韬';

Edit1.Text:

='';

OpenPictureDialog1.DefaultExt:

=GraphicExtension（TBitmap）;

OpenPictureDialog1.Filter:

=GraphicFilter（TBitmap）;

Button1.Caption:

='选择BMP图片';

Button2.Caption:

='生成EXE';

end;

procedureTForm1.Button1Click（Sender:

TObject）;

begin

ifOpenPictureDialog1.Executethen

Edit1.Text:

=OpenPictureDialog1.FileName;

end;

procedureTForm1.Button2Click（Sender:

TObject）;

var

HeadTemp:

String;

begin

ifNotFileExists（Edit1.Text）then

begin

Application.MessageBox（'BMP图片文件不存在，请重新选择!

','信息',MB_ICONINFORMATION+MB_OK）

Exi