📄 “流”的利用--基本概念.htm
字号:
<HTML><HEAD><TITLE>谈Delphi编程中“流”的利用</TITLE>
<META content=en-us http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<STYLE>
BODY {BACKGROUND-COLOR: #ffffff; COLOR: #336633; FONT-SIZE: 12px; FONT-WEIGHT: normal; LINE-HEIGHT: 16px; link: #339966; vlink: #339966}
P {FONT-SIZE: 12px; FONT-WEIGHT: normal; LINE-HEIGHT: 150%}
BR {FONT-SIZE: 12px; FONT-WEIGHT: normal; LINE-HEIGHT: 150%}
SELECT {FONT-SIZE: 12px}
FORM {FONT-SIZE: 12px; MARGIN-BOTTOM: 0px}
TD {FONT-SIZE: 12px; LINE-HEIGHT: 150%}
B {FONT-WEIGHT: bold}
A:link {COLOR: #336633}
A:visited {COLOR: #336633}
A:hover {TEXT-DECORATION: underline}
.font12px {FONT-SIZE: 12px; LINE-HEIGHT: 16pt}
</STYLE>
</HEAD>
<BODY>
<DIV align=center>
<CENTER>
<TABLE bgColor=#c8ffc8 border=1 borderColor=#c8ccc8 height="80%" width="93%">
<TBODY>
<TR>
<TD bgColor=#d0ffd0 borderColor=#00ff00 height=16 vAlign=top
width=593><FONT color=#306830> 建议分辨率:800X600</FONT></TD></TR>
<TR>
<TD bgColor=#f0fff0 borderColor=#f0fff0 height=366 vAlign=top width=593>
<p align=center>谈Delphi编程中“流”的利用--基本概念</p>
<p align=center>陈经韬</p>
什么是流？流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具。在流中，定义了一些处理数据的基本操作，如读取数据，写入数据等，程序员是对流进行所有操作的，而不用关心流的另一头数据的真正流向。流不但可以处理文件，还可以处理动态内存、网络数据等多种数据形式。如果你对流的操作非常熟练，在程序中利用流的方便性，写起程序会大大提高效率的。<BR>
下面，笔者通过四个实例:EXE文件加密器、电子贺卡、自制OICQ和网络屏幕传输来说明Delphi编程中“流”的利用。这些例子中的一些技巧曾经是很多软件的秘密而不公开的，现在大家可以无偿的直接引用其中的代码了。<BR>
“万丈高楼平地起”，在分析实例之前，我们先来了解一下流的基本概念和函数，只有在理解了这些基本的东西后我们才能进行下一步。请务必认真领会这些基本方法。当然，如果你对它们已经很熟悉了，则可以跳过这一步。<BR><BR>一、Delphi中流的基本概念及函数声明<BR>在Delphi中，所有流对象的基类为TStream类，其中定义了所有流的共同属性和方法。<BR>TStream类中定义的属性介绍如下：<BR>1、Size:此属性以字节返回流中数据大小。<BR>2、Position:此属性控制流中存取指针的位置。<BR>Tstream中定义的虚方法有四个：<BR>1、Read:此方法实现将数据从流中读出。函数原形为：<BR>Function
Read(var
Buffer;Count:Longint):Longint;virtual;abstract;<BR>参数Buffer为数据读出时放置的缓冲区，Count为需要读出的数据的字节数，该方法返回值为实际读出的字节数，它可以小于或等于Count中指定的值。<BR>2、Write:此方法实现将数据写入流中。函数原形为：<BR>Function
Write(var
Buffer;Count:Longint):Longint;virtual;abstract;<BR>参数Buffer为将要写入流中的数据的缓冲区，Count为数据的长度字节数，该方法返回值为实际写入流中的字节数。<BR>3、Seek:此方法实现流中读取指针的移动。函数原形为：<BR>Function
Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;<BR>参数Offset为偏移字节数,参数Origint指出Offset的实际意义，其可能的取值如下：<BR>soFromBeginning:Offset为移动后指针距离数据开始的位置。此时Offset必须大于或者等于零。<BR>soFromCurrent:Offset为移动后指针与当前指针的相对位置。<BR>soFromEnd:Offset为移动后指针距离数据结束的位置。此时Offset必须小于或者等于零。<BR>该方法返回值为移动后指针的位置。<BR>4、Setsize:此方法实现改变数据的大小。函数原形为：<BR>Function
Setsize(NewSize:Longint);virtual;<BR>另外，TStream类中还定义了几个静态方法：<BR>1、ReadBuffer:此方法的作用是从流中当前位置读取数据。函数原形为：<BR>Procedure
ReadBuffer(var
Buffer;Count:Longint);<BR>参数的定义跟上面的Read相同。注意：当读取的数据字节数与需要读取的字节数不相同时，将产生EReadError异常。<BR>2、WriteBuffer:此方法的作用是在当前位置向流写入数据。函数原形为：<BR>Procedure
WriteBuffer(var
Buffer;Count:Longint);<BR>参数的定义跟上面的Write相同。注意：当写入的数据字节数与需要写入的字节数不相同时，将产生EWriteError异常。<BR>3、CopyFrom:此方法的作用是从其它流中拷贝数据流。函数原形为：<BR>Function
CopyFrom(Source:TStream;Count:Longint):Longint;<BR>参数Source为提供数据的流，Count为拷贝的数据字节数。当Count大于0时，CopyFrom从Source参数的当前位置拷贝Count个字节的数据；当Count等于0时，CopyFrom设置Source参数的Position属性为0,然后拷贝Source的所有数据；<BR>TStream还有其它派生类，其中最常用的是TFileStream类。使用TFileStream类来存取文件，首先要建立一个实例。声明如下：<BR>constructor
Create(const
Filename:string;Mode:Word);<BR>Filename为文件名（包括路径）,参数Mode为打开文件的方式，它包括文件的打开模式和共享模式，其可能的取值和意义如下：<BR><BR>打开模式：<BR>fmCreate
:用指定的文件名建立文件，如果文件已经存在则打开它。<BR>fmOpenRead :以只读方式打开指定文件<BR>fmOpenWrite
:以只写方式打开指定文件<BR>fmOpenReadWrite:以写写方式打开指定文件<BR>共享模式：<BR>fmShareCompat
:共享模式与FCBs兼容<BR>fmShareExclusive:不允许别的程序以任何方式打开该文件<BR>fmShareDenyWrite:不允许别的程序以写方式打开该文件<BR>fmShareDenyRead
:不允许别的程序以读方式打开该文件<BR>fmShareDenyNone
:别的程序可以以任何方式打开该文件<BR><BR>TStream还有一个派生类TMemoryStream，实际应用中用的次数也非常频繁。它叫内存流，就是说在内存中建立一个流对象。它的基本方法和函数跟上面是一样的。<BR>好了，有了上面的基础后，我们就可以开始我们的编程之行了。<BR>
-----------------------------------------------------------------------
</TD>
</TR>
<TR>
<TD bgColor=#d0ffd0 borderColor=#f0fff0 height=1 vAlign=top
width=593>
©CopyRight
2000</TD></TR></TBODY></TABLE></CENTER></DIV></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -