<!--StartFragment-->談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"}
&nb
