在dephi中提供了一个抽象的数据类型tstream来支持对流式数据的操作。这些数据通常来自文件、数据库、内存对象、ole对象等，tstream提供了统一、简洁的方法来进行数据的读写。在通常情况下，我们并不需要直接使用tstream类，对流式数据的读写封装在vcl控件的方法中。但是如果这些方法无法满足我们的要求，就需要自己手动控制数据的读写。
一、 tstream的常用的方法和属性：
1. function read(var buffer; count: longint): longint; virtual; abstract
2. function write(const buffer; count: longint): longint; virtual; abstract;
3. function seek(offset: longint; origin: word): longint; virtual; abstract;
4. property position: longint;
5. property size: longint
read，write，seek都是纯虚函数，提供了数据读写和定位的抽象的方法。read方法将数据从stream中读到buffer缓冲区中，write则实现相反的操作，返回值表示实际读写数据的大小。seek提供了在stream中移动数据指针的方法。参数origin可以取sofrombeginning，sofromcurrent，sofromend 三个值，offset是偏移量，返回值是当前stream数据指针的位置。
position表示了数据指针在stream中的位置。这个属性是可读写的，它实际上就是通过调用seek方法实现的，所以实际使用时使用这个属性更为方便一些。size属性表示当前stream的大小，对于不同的stream，有些时候是只读的。
二、 stream数据的读写。
1. savetostream(stream: tstream ); file://将类中的数据写到stream的当前位置中
2. loadfromstream(stream: tstream); file://从当前位置读入stream里的数据
实际使用时我们基本上只要使用上面两个函数就可以了。
三、 例子
tstream的继承树图如图1所示(略)，实际使用时比较常用的是tfilestream，tmemorystream，tblobstream，就以这三种流举一例说明具体用法。
创建一个窗体form1，放置三个按钮btnread，btninvert，btnsave和一个文件打开对话框opendialog1以及数据控件datasource1，table1，test.
使用dephi提供的database desktop创建一个表test，表里有一个字段域image，数据库文件名存为test.db。在窗体上放置一个tdatabase控件dbtest，一个ttable控件table1,一个datasource控件datasource1,一个tdbnavigator控件dbnavigator1。将dbtest与刚才desktop创建的数据库相连，table1的tablename属性设为test.db，datasource1的dataset属性设为table1，dbnavigator1的datasource属性设为datasource1，visiblebuttons属性前四个设为true。此外，将dbtest的connected设为true，table1的active属性设为true，使得数据库一开始就处于打开状态。
事件代码编写如下：
1. btnread的click事件，这里演示了tfilestream的用法。
var
ms: tfilestream;
begin
if opendialog1.execute then
begin
ms:=tfilestream.create
(opendialog1.filename, fmopenread);
image1.picture.bitmap.loadfromstream(ms);
ms.free;
end;
end;
2. btninvert的click事件，这里演示了tmemorystream的用法。其中使用了invert函数，这是一个简单的将图象反色的函数（仅对真彩图象有效），它返回一个指向处理过的图象数据块的指针。
var
m
s: tmemorystream;
pimage: pointer;
begin
ms:=tmemorystream.create;
image1.picture.bitmap.savetostream(ms);
ms.position:=0;
pimage:=invert(ms.memory, ms.size);
file://memory属性是指向实际内存块的指针
ms.write(pimage^,ms.size);
ms.position:=0;
file://上一行代码使指针移到了stream末尾，所以要复位
image1.picture.bitmap.loadfromstream(ms);
freemem(pimage);
ms.free;
end;
invert函数如下：
function tform1.invert
(pimage: pointer; size: integer): pointer;
var
pdata, pmem: pchar;
i: integer;
begin
pmem:=allocmem(size);
copymemory(pmem,pimage,size);
pdata:=pmem+54;
for i:=0 to size-54-1 do
begin
pdata^:=char(not integer(pdata^));
pdata:=pdata+1;
end;
result:=pmem;
end;
1. btnsave的click事件，这里演示了tmemorystream的另一种用法，将stream中的数据写到数据库中去。
var
ms: tmemorystream;
begin
ms:=tmemorystream.create;
image1.picture.bitmap.savetostream(ms);
ms.position:=0;
table1.append;
file://在数据库中添加一条记录
tblobfield(table1.fieldbyname
('image')).loadfromstream(ms);
table1.post;
file://将所作的更新写入数据库
end;
4. dbnavigator1的click事件，这里演示了tblobstream的用法，使用了和写入时不同的方法来读出数据库的图象数据。
var
ms: tstream;
begin
with table1 do
ms:=createblobstream
(fieldbyname('image'),bmread);
image1.picture.bitmap.
loadfromstream(ms);
ms.free;
end;
