谈Delphi编程中“流”的应用

======================================================
注：本文源代码点此下载
======================================================

谈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);

end;

编译这个程序,并把 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事 件 里 面 写 下 代 码 : ifopendialog1.executethen

edit1.text:=opendialog1.filename;

在 button2 的 cilck 事件里面写下代码:

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;

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

procedure tform1.button2click(sender: tobject);

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;

注意:我们上面的函数只不过是简单的把一个文件添加到另一个文件的尾部。实际应用中可以

改成可以添加多个文件,只要根据实际大小和个数定义好偏移地址就可以了。比如说文件捆绑机就

是把两个或者多个程序添加到一个头文件里面。那些自解压程序和安装程序的原理也是一样的,不

过多了压缩而已。比如说我们可以引用一个 lah 单元,把流压缩后再添加,这样文件就会变的很小。

读出来时先解压就可以了。另外,文中 exe 加密器的例子还有很多不完善的地方,比如说密码固定

为"790617" ,取出 exe 运行后应该等它运行完毕后删除等等,读者可以自行修改。

三、实际应用之二:利用流制作可执行电子贺卡

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

执行文件给你。打开贺卡时就会一边放音乐一边显示出图片来。现在学了流操作之后, 我们也可以

做一个了。

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

我们用前面的 cjt_loadfromfile 先把图片读出来保存为文件再调入也是可以的,但是还有更简单

的方法,就是直接把文件流读出来显示,有了流这个利器,一切都变的简单了。

现在的图片比较流行的是 bmp 格式和 jpg 格式。我们现在就针对这两种图片写出读取并显示函

数。

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 图片的函数,因为要用到 jpg 单元,所以要在程

序中添加一句:usesjpeg 。

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;

有了这两个函数,我们就可以制作读出程序了。下面我们以 bmp 图片为例:运行 delphi ,新

建一个工程,放上一个显示图像控件 image1 。在窗口的 create 事件中写上一句就可以了:

cjt_bmpload(image1,application.exename); 这个就是头文件了,然后我们用前面的方法生成

一个 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);

//计算资源大小,并写入辅程尾部

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 演示程序.作者:陈经韬';

edit1.text:='';

openpicturedialog1.defaultext :=graphicextension(tbitmap);

openpicturedialog

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 not fileexists(edit1.text)then

begin

application.messagebox('bmp 图片文件不存在,请重新选择!',

' 信息',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.

怎么样?很神奇吧:)把程序界面弄的漂亮点,再添加一些功能,你会发现比起那些要注册的软

件来也不会逊多少吧。

实际应用之三:利用流制作自己的 oicq

oicq 是深圳腾讯公司的一个网络实时通讯软件,在国内拥有大量的用户群。但 oicq 必须连接

上互联网登陆到腾讯的服务器才能使用。所以我们可以自己写一个在局部网里面使用。

oicq 使用的是 udp 协议,这是一种无连接协议,即通信双方不用建立连接就可以发送信息,

所以效率比较高。delphi 本身自带的 fastnet 公司的 nmudp 控件就是一个 udp 协议的用户数据报

控件。不过要注意的是如果你使用了这个控件必须退出程序才能关闭计算机,因为 tnmxxx 控件有

bug 。所有 nm 控件的基础 powersocket 用到的 threadtimer ,用到一个隐藏的窗口(类为

tmrwindowclass )处理有硬伤。出问题的地方:

psock::tthreadtimer::wndproc(var msg:tmessage)

if msg.message=wm_timer then

他自己处理

msg.result:=0 else msg.result:=defwindowproc(0,....) end

问题就出在调用 defwindowproc 时,传输的 hwnd 参数居然是常数 0,这样实际上 defwindowproc

是不能工作的,对任何输入的消息的调用均返回 0,包括 wm_queryendsession ,所以不能退出

windows 。由于 defwindowproc 的不正常调用,实际上除 wm_timer ,其他消息由 defwindowproc 处

理都是无效的。解决的办法是在psock.pas 在tthreadtimer.wndproc 内result :=defwindowproc(0,

msg, wparam, lparam); 改为:

result :=defwindowproc(fwindowhandle, msg, wparam, lparam); 早期低版本的 oicq 也有

这个问题,如果不关闭 oicq 的话,关闭计算机时屏幕闪了一下又

返回了。好了,废话少说,让我们编写我们的 oicq 吧,这个实际上是 delphi 自带的例子而已:)

新建一个工程,在 fastnet 面版拖一个 nmudp 控件到窗口,然后依次放上三个 edit, 名字

分别为 editip 、editport 、editmytxt ,三个按钮 btsend 、btclear 、btsave ,一个

memomemoreceive ,一个 savedialog 和一个状态条 statusbar1 。当用户点击 btsend 时,建立一

个内存流对象,把要发送的文字信息写进内存流,然后 nmudp 把流发送出去。当 nmudp 有数据接收

时,触发它的 datareceived 事件,我们在这里再把接收到的流转换为字符信息,然后显示出来。

注意:所有的流对象建立后使用完毕后要记得释放(free),其实它的释构函数应该为 destroy ,

但如果建立流失败的话,用 destroy 会产生异常,而用 free 的话程序会先检查有没有成功建立了

流,如果建立了才释放,所以用 free 比较安全。

在这个程序中我们用到了 nmudp 控件,它有几个重要的属性。remotehost 表示远程电脑的 ip 或

者计算机名,localport 是本地端口,主要监听有没有数据传入。而 remoteport 是远程端口,发

送数据时通过这个端口把数据发送出去。理解这些已经可以看懂我们的程序了。

全部代码如下:

unit unit1;

interface

uses

windows, messages, sysutils, classes, graphics, controls, forms, dialogs,stdctrls,

comctrls,nmudp;

type

tform1=class(tform)

nmudp1: tnmudp;

editip: tedit;

editport: tedit;

editmytxt: tedit;

memoreceive: tmemo;

btsend: tbutton;

btclear: tbutton;

btsave: tbutton;

statusbar1: tstatusbar;

savedialog1: tsavedialog;

procedure btsendclick(sender: tobject);

procedure nmudp1datareceived(sender: tcomponent; numberbytes: integer;

fromip: string; port: integer);

procedure nmudp1invalidhost(var handled: boolean);

procedure nmudp1datasend(sender: tobject);

procedure formcreate(sender: tobject);

procedure btclearclick(sender: tobject);

procedure btsaveclick(sender: tobject);

procedure editmytxtkeypress(sender: tobject; var key: char);

private

{ private declarations }

public

{ public declarations } end;

var form1: tform1;

implementation

{$r *.dfm}

procedure tform1.btsendclick(sender: tobject)

var

mystream: tmemorystream;

mysendtxt: string;

iport,icode:integer;

begin

val(editport.text,iport,icode);

if icode=mysize then { 如果流长度大于需接收的字节数,则接收完毕}

begin

mystream.position :=0;

mybmp :=tbitmap.create;

myjpg :=tjpegimage.create;

try

myjpg.loadfromstream(mystream); { 将流中的数据读至 jpg 图像对象中}

mybmp.assign(myjpg); { 将 jpg 转为 bmp}

statusbar1.simpletext :='正在显示图像';

image1.picture.bitmap.assign(mybmp); { 分配给 image1 元件}

finally { 以下为清除工作}

mybmp.free;

myjpg.free;

button2.enabled :=true;

{ socket.sendtext('cap');添加此句即可连续抓屏}

mystream.clear; mysize :=0;

end;

end;

end;

end;

procedure tform1.formclose(sender: tobject; var action: tcloseaction);

begin

mystream.free; { 释放内存流对象}

if clientsocket1.active then

clientsocket1.close; { 关闭 socket 连接}

end;

程序原理:运行服务端开始侦听,再运行客户端,输入服务端 ip 地址建立连接,然后发一个

字符通知服务端抓屏幕。服务端调用自定义函数 cjt_getscreen 抓取屏幕存为 bmp ,把 bmp 转换

成 jpg ,把 jpg 写入内存流中,然后把流发送给客户端。客户端接收到流后做相反操作,将流转换

为 jpg 再转换为 bmp 然后显示出来。

注意:因为 socket 的限制,不能一次发送过大的数据,只能分几次发。所以程序中服务端抓

屏转换为流后先发送流的大小,通知客户端这个流共有多大,客户端根据这个数字大小来判断是否

已经接收完流,如果接收完才转换并显示。

这个程序跟前面的自制 oicq 都是利用了内存流对象 tmemorystream 。其实,这个流对象是程

序设计中用得最普遍的,它可以提高 i/o 的读写能力,而且如果你要同时操作几个不同类型的流,

互相交换数据的话,用它作“中间人”是最好不过的了。比如说你把一个流压缩或者解压缩,就先

建立一个 tmemorystream 对象,然后把别的数据拷贝进去,再执行相应操作就可以了。因为它是直

接在内存中工作,所以效率是非常高的。有时侯甚至你感觉不到有任何的延迟。

程序有待改进的地方:

当然可以加一个压缩单元,发送前先压缩再发送。注意:这里也是有技巧的,就是直接把 bmp 压

缩而不要转换成 jpg 再压。实验证明:上面程序一幅图像大小大概为 4050kb ,如果用 lah 压缩算

法处理一下便只有 812kb ,这样传输起来就比较快。如果想更快的话,可以采用这样的方法:先抓

第一幅图像发送,然后从第二幅开始只发跟前一幅不同区域的图像。外国有一个程序叫 remote

administrator ,就是采用这样的方法。他们测试的数据如下:局部网一秒钟 100500 幅,互联网

上,在网速极低的情况下,一秒钟传输 510 幅。说这些题外话只想说明一个道理:想问题,特别是

写程序,特别是看起来很复杂的程序,千万不要钻牛角尖,有时侯不妨换个角度来想。程序是死的,

人才是活的。当然,这些只能靠经验的积累。但是一开始就养成好习惯是终身受益的!

delphi_流操作的语法

delphi 在这两方面都做的相当出色。在 delphi 的早期版本 turbo pascal 中就曾有流(stream)、

群(collection) 和资源(resource)等专门用于对象式数据管理的类。在 delphi 中,这些功能得到

了大大的加强。delphi 将对象式数据管理类归结为 stream 对象(stream)和 filer 对象(filer), 并

将它们应用于可视部件类库(vcl) 的方方面面。它们不仅提供了在内存、外存和 windows 资源中

管理对象的功能,还提供了在数据库 blob 字段中对象的功能。

在本章中将介绍 stream 对象和 filer 对象的实现原理、应用方法以及在超媒体系统中的应用。

这对于运用 delphi 开发高级应用是很重要的。

20.1 流式对象的实现原理和应用

stream 对象, 又称流式对象, 是 tstream 、thandlestream 、tfilestream 、tmemorystream 、

tresourcestream 和 tblobstream 等的统称。它们分别代表了在各种媒介上存储数据的能力, 它

们将各种数据类型(包括对象和部件) 在内存、外存和数据库字段中的管理操作抽象为对象方法,并

且充分利用了面向对象技术的优点,应用程序可以相当容易地在各种 stream 对象中拷贝数据。

下面介绍各种对象的数据和方法及使用方法。

20.1.1 tstream 对象

tstream 对象是能在各种媒介中存储二进制数据的对象的抽象对象。从 tstream 对象继承的对

象用于在内存、windows 资源文件、磁盘文件和数据库字段等媒介中存储数据。

tstream 中定义了两个属性:size 和 position 。它们分别以字节为单位表示的流的大小和当

前指针位置。tstream 中定义的方法用于在各种流中读、写和相互拷贝二进制数据。因为所有的

stream 对象都是从 tstream 中继承来的,所以在 tstream 中定义的域和方法都能被 stream 对象

调用和访问。此外,又由于面向对象技术的动态联编功能,tstream 为各种流的应用提供了统一的

接口,简化了流的使用;不同 stream 对象是抽象了对不同存储媒介的数据上的操作,因此,tstream

的需方法为在不同媒介间的数据拷贝提供了最简捷的手段。

20.1.1.1 tstream 的属性和方法

1. position 属性

声明:property position: longint;

position 属性指明流中读写的当前偏移量。

2. size 属性

声明:property size: longint; size 属性指明了以字节为单位的流的的大小,它是只读的。

3. copyfrom 方法

声明:function copyfrom(source: tstream; count: longint): longint;

copyfrom 从 source 所指定的流中拷贝 count 个字节到当前流中, 并将指针从当前位置移动

count 个字节数,函数返回值是实际拷贝的字节数。

4. read 方法

声明:function read(var buffer; count: longint): longint; virtual; abstract;

read 方法从当前流中的当前位置起将 count 个字节的内容复制到 buffer 中,并把当前指针向

后移动 count 个字节数, 函数返回值是实际读的字节数。如果返回值小于 count, 这意味着读操

作在读满所需字节数前指针已经到达了流的尾部。

read 方法是抽象方法。每个后继 stream 对象都要根据自己特有的有关特定存储媒介的读操作

覆盖该方法。而且流的所有其它的读数据的方法( 如:readbuffer,readcomponent 等) 在完成

实际的读操作时都调用了 read 方法。面向对象的动态联编的优点就体现在这儿。因为后继 stream 对

象只需覆盖 read 方法,而其它读操作(如 readbuffer 、readcomponent 等)都不需要重新定义,而

且 tstream 还提供了统一的接口。

5. readbuffer 方法

声明:procedure readbuffer(var buffer; count: longint); readbuffer 方法从流中将 count

个字节复制到 buffer 中, 并将流的当前指针向后移动

count 个字节。如读操作超过流的尾部,readbuffer 方法引起ereaderror 异常事件。

6. readcomponent 方法

声明:function readcomponent(instance: tcomponent): tcomponent;

readcomponent 方法从当前流中读取由 instance 所指定的部件, 函数返回所读的部件。

readcomponent 在读 instance 及其拥有的所有对象时创建了一个 reader 对象并调用它的

readrootcomponent 方法。

如果 instance 为 nil,readcomponent 的方法基于流中描述的部件类型信息创建部件,并返回

新创建的部件。

7. readcomponentres 方法

声明:function readcomponentres(instance: tcomponent): tcomponent;

readcomponentres 方法从流中读取 instance 指定的部件, 但是流的当前位置必须是由

writecomponentres 方法所写入的部件的位置。

readcomponentres 首先调用 readresheader 方法从流中读取资源头, 然后调用 readcomponent

方法读取 instance 。如果流的当前位置不包含一个资源头。readresheader 将引发一个

einvalidimage 异常事件。在 classes 库单元中也包含一个名为 readcomponentres 的函数,该函

数执行相同的操作,只不过它基于应用程序包含的资源建立自己的流。

8. readresheader 方法

声明:procedure readresheader;

readresheader 方法从流的当前位置读取 windows 资源文件头,并将流的当前位置指针移到该

文件头的尾部。如果流不包含一个有效的资源文件头, readresheader 将引发一个 einvalidimage

异常事件。

流的 readcomponentres 方法在从资源文件中读取部件之前, 会自动调用 readresheader 方法,

因此,通常程序员通常不需要自己调用它。

9. seek 方法

声明:function seek(offset: longint; origin: word): longint; virtual; abstract;

seek 方法将流的当前指针移动 offset 个字节,字节移动的起点由 origin 指定。如果 offset

是负数,seek 方法将从所描述的起点往流的头部移动。下表中列出了 origin 的不同取值和它们的

含义:

表 20.1 函数 seek 的参数的取值

常量值seek 的起点offset 的取值

sofrombeginning0流的开头正数

sofromcurrent1流的当前位置正数或负数

sofromend2流的结尾负数

10. write 方法

在 delphi 对象式管理的对象中有两类对象的方法都有称为 write 的:stream 对象和 filer 对

象。stream 对象的 write 方法将数据写进流中。filer 对象通过相关的流传递数据,在后文中会

介绍这类方法。

stream 对象的 write 方法声明如下:

function write(const buffer; count: longint): longint; virtual; abstract;

write 方法将 buffer 中的 count 个字节写入流中,并将当前位置指针向流的尾部移动 count 个

字节,函数返回写入的字节数。

tstream 的 write 方法是抽象的,每个继承的 stream 对象都要通过覆盖该方法来提供向特定

存储媒介(内存、磁盘文件等)写数据的特定方法。流的其它所有写数据的方法(如 writebuffer 、

writecomponent)都调用 write 担当实际的写操作。

11. writebuffer 方法

声明:procedure writebuffer(const buffer; count: longint); writebuffer 的功能与 write

相似。writebuffer 方法调用 write 来执行实际的写操作,如果流

没能写所有字节,writebuffer 会触发一个 ewriteerror 异常事件。

12. writecomponent 方法

在 stream 对象和 filer 对象都有被称为 writecomponent 的方法。stream 对象的

writecomponent 方法将 instance 所指定的部件和它所包含的所有部件都写入流中;writer 对象

的 writecomponent 将指定部件的属性值写入 writer 对象的流中。

stream 对象的 writecomponent 方法声明是这样的:

procedure writecomponent(instance: tcomponent);

writecomponent 创建一个 writer 对象, 并调用 writer 的 writerootcomponent 方法将

instance 及其拥有的对象写入流。

13. writecomponentres 方法

声明:writecomponentres(constresname:string;instance:tcomponent);

writecomponentres 方法首先往流中写入标准 windows 资源文件头,然后将 instance 指定

的部件写入流中。要读由 writecomponentres 写入的部件,必须调用 readcomponentres 方法。

writecomponentres 使用 resname 传入的字符串作为资源文件头的资源名, 然后调用

writecomponent 方法将 instance 和它拥有的部件写入流。

14. writedescendant 方法

声明:procedure writedescendant(instance ancestor: tcomponent);

stream 对象的 writedescendant 方法创建一个 writer 对象, 然后调入该对象的

writedescendant 方法将 instance 部件写入流中。instance 可以是从 ancestor 部件继承的窗体,

也可以是在从祖先窗体中继承的窗体中相应于祖先窗体中 ancestor 部件的部件。

15. writedescendantres 方法

声 明 : procedurewritedescendantres(constresname:string;instance,ancestor:

tcomponent);

writedescendantres 方法将 windows 资源文件头写入流,并使用 resname 作用资源名,然后

调用 writedescendant 方法,将 instance 写入流。

20.1.1.2 tstream 的实现原理

tstream 对象是 stream 对象的基础类,这是 stream 对象的基础。为了能在不同媒介上的存储

数据对象, 后继的 stream 对象主要是在 read 和 write 方法上做了改进, 。因此, 了解 tstream

是掌握 stream 对象管理的核心。borland 公司虽然提供了 stream 对象的接口说明文档, 但对于

其实现和应用方法却没有提及, 笔者是从 borland delphi 2.0 client/server suite 提供的源代

码和部分例子程序中掌握了流式对象技术。

下面就从 tstream 的属性和方法的实现开始。

1. tstream 属性的实现

前面介绍过,tstream 具有 position 和 size 两个属性, 作为抽象数据类型, 它抽象了在各

种存储媒介中读写数据所需要经常访问的域。那么它们是怎样实现的呢?

在自定义部件编写这一章中介绍过部件属性定义中的读写控制。position 和 size 也作了读写

控制。定义如下:

property position: longint read getposition write setposition;

property size: longint read getsize;

由上可知,position 是可读写属性,而 size 是只读的。

position 属性的实现就体现在 getposition 和 setposition 。当在程序运行过程中,任何读

取 position 的值和给 position 赋值的操作都会自动触发私有方法 getposition 和 setposition 。

两个方法的声明如下:

function tstream.getposition: longint;

begin

result :=seek(0, 1);

end;

procedure tstream.setposition(pos: longint);

begin

seek(pos, 0);

end;

在设置位置时,delphi 编译机制会自动将position 传为 pos 。前面介绍过 seek 的使用方法,

第一参数是移动偏移量, 第二个参数是移动的起点, 返回值是移动后的指针位置。size 属性的实

现只有读控制,完全屏蔽了写操作。读控制方法 getsize 实现如下:

function tstream.getsize: longint;

var pos: longint;

begin

pos :=seek(0, 1);

result :=seek(0, 2);

seek(pos, 0);

end;

2. tstream 方法的实现

⑴ copyfrom 方法 copyfrom 是 stream 对象中很有用的方法,它用于在不同存储媒介中拷贝数

据。例如,内存与外部文件之间、内存与数据库字段之间等。它简化了许多内存分配、文件打开和

读写等的细节,将所有拷贝操作都统一到 stream 对象上。

前面曾介绍:copyfrom 方法带 source 和 count 两个参数并返回长整型。该方法将 count 个字

节的内容从 source 拷贝到当前流中,如果 count 值为 0 则拷贝所有数据。

function tstream.copyfrom(source: tstream; count: int64): int64;

const

maxbufsize = $f000;

var

bufsize, n: integer;

buffer: pchar;

begin

if count = 0 then

begin

source.position := 0;

count := source.size;

end;

result := count;

if count > maxbufsize then bufsize := maxbufsize else bufsize := count;

getmem(buffer, bufsize);

try

while countbufsize then n := bufsize else n := count;

source.readbuffer(buffer^, n);

writebuffer(buffer^, n);

dec(count, n);

end;

finally

freemem(buffer, bufsize);

end;

end;

readresheader 在资源文件中的读取部件时调用, 通常程序员不需自己调用。如果读取的不是

资源文件,readresheader将触发异常事件。

procedure tstream.readresheader;

var readcount: longint;

header: array[0..79] of char;

begin

fillchar(header, sizeof(header), 0);

readcount :=read(header, sizeof(header)1);

if(byte((@header[0])^)=$ff)and(word((@header[1])^)=10) then

seek(strlen(header + 3) + 10readcount, 1)

else

raise einvalidimage.createres(sinvalidimage);

end;

readcomponentres 在 windows 资源文件中读取部件, 为了判断是否是资源文件, 它首先调

用 readresheader 方法,然后调用 readcomponent 方法读取 instance 指定的部件。下面是它的实

现:

function tstream.readcomponentres(instance: tcomponent): tcomponent;

begin

readresheader;

result :=readcomponent(instance);

end;

与 readcomponentres 相应的写方法是 writecomponentres,delphi 调用这两个方法读写窗体

文件(dfm 文件),在后面书中会举用这两个方法读取 dfm 文件的例子。

⑷ writecomponent 和 writedescendant 方法

stream 对象的writedescendant 方法在实现过程中,创建了 twriter 对象,然后利用 twriter

的 writedescendant 方法将 instance 写入流。而 writecomponent 方法只是简单地调用

writedescendant 方法将 instance 写入流。它们的实现如下:

procedure tstream.writecomponent(instance: tcomponent);

begin

writedescendent(instance, nil);

end;

procedure tstream.writedescendent(instance, ancestor: tcomponent);

var writer: twriter;

begin

writer :=twriter.create(self, 4096);

try

writer.writedescendent(instance, ancestor);

finally

writer.free;

end;

end;

⑸ writedescendantres 和 writecomponentres 方法

writedescendantres 方法用于将部件写入 windows 资源文件;而 writecomponentres 方法只

是简单地调用 writedescendantres 方法,它们的实现如下:

procedure tstream.writecomponentres(const resname: string; instance: tcomponent);

begin

writedescendentres(resname, instance, nil);

end;

proceduretstream.writedescendentres(constresname:string;instance,ancestor:

tcomponent);

var

headersize: integer;

origin, imagesize: longint;

header: array[0..79] of char;

begin

byte((@header[0])^):=$ff;

word((@header[1])^):=10;

headersize :=strlen(strupper(strplcopy(@header[3], resname, 63)))+ 10;

word((@header[headersize6])^):=$1030;

longint((@header[headersize4])^):=0;

writebuffer(header, headersize);

origin :=position;

writedescendent(instance, ancestor);

imagesize :=positionorigin;

position :=origin4;

writebuffer(imagesize, sizeof(longint));

position :=origin + imagesize;

end;

writecompnentres 是与 readcomponentres 相应的对象写方法,这两个方法相互配合可读取

delphi 的 dfm 文件,从而利用 delphi 系统的功能。

20.1.2 thandlestream 对象

thandlestream 对象的行为特别象 filestream 对象,所不同的是它通过已创建的文件句柄而

不是文件名来存储流中的数据。

thandlestream 对象定义了 handle 属性, 该属性提供了对文件句柄的只读访问, 并且 handle

属性可以作为 delphi 的 rtl 文件管理函数的参数, 利用文件类函数来读写数据。thandlestream 覆

盖了构造函数 create ,该函数带有 handle 参数,该参数指定与 thandlestream 对象相关的文件

句柄。

20.1.2.1 thandlestream 的属性和方法:

1. handle 属性

声明:property handle: integer;

handle 属性提供了对文件句柄的只读访问,该句柄由 thandlestream 的构造方法 create 传入。

因此除了用 thandlestream 提供的方法外,也可以用文件管理函数对句柄进行操作。实际上,

thandlestream 的方法在实现上也是运用文件管理函数进行实际的读写操作。

2. create 方法

声明:constructor create(ahandle: integer); create 方法使用传入的 handle 参数创建一

个与特定文件句柄相联的 thandlestream 对象,

并且将 ahandle 赋给流的 handle 属性。

3. read 、write 和 seek 方法

这三个方法是 tstream 的虚方法,只是在 thandlestream 中覆盖了这三个方法,以实现特定媒

介── 文件的数据存取。后面会详细介绍这三个方法的实现。

20.1.2.2 thandlestream 的实现原理

thandlestream 是从 tstream 继承来的, 因此可以共用 tstream 中的属性和大多数方法。

thandlestream 在实现上主要是增加了一个属性handle 和覆盖了 create 、read 、write 和 seek

四个方法。

1. 属性的实现

handle 属性的实现正如 delphi 大多数属性的实现那样,先在对象定义的 private 部分声明一

个存放数据的变量 fhandle ,然后在定义的 public 部分声明属性 handle ,其中属性定义的读写

控制部分加上只读控制,读控制只是直接读取 fhandle 变量的值,其实现如下:

thandlestream=class(tstream)

private

fhandle: integer;

public …

property handle: integer read fhandle;

end;

2. 方法的实现

thandlestream 的 create 方法, 以 ahandle 作为参数, 在方法里面只是简单的将 ahandle 的

值赋给 fhandle ,其实现如下:

constructor thandlestream.create(ahandle: integer);

begin

fhandle :=ahandle;

end;

为实现针对文件的数据对象存储, thandlestream 的 read 、write 和 seek 方法覆盖了 tstream

中的相应方法。它们的实现都调用了 windows 的文件管理函数。

read 方法调用 fileread 函数实现文件读操作,其实现如下:

function thandlestream.read(var buffer; count: longint): longint;

begin

result :=fileread(fhandle, buffer, count);

if result=1 then

result :=0;

end;

write 方法调用 filewrite 函数实现文件写操作,其实现如下:

function thandlestream.write(const buffer; count: longint): longint;

begin

result :=filewrite(fhandle, buffer, count);

if result=1 then

result :=0;

end;

seek 方法调用 fileseek 函数实现文件指针的移动,其实现如下:

function thandlestream.seek(offset: longint; origin: word): longint;

begin

result :=fileseek(fhandle, offset, origin);

end;

20.1.3 tfilestream 对象

tfilestream 对象是在磁盘文件上存储数据的 stream 对象。tfilestream 是从 thandlestream

继承下来的,它和 thandlestream 一样都是实现文件的存取操作。不同之处在于 thandlestream 用

句柄访问文件, 而 tfilestream 用文件名访问文件。实际上 tfilestream 是 thandlestream 上的

一层包装,其内核是 thandlestream 的属性和方法。

tfilestream 中没有增加新的属性和方法。它只是覆盖了的构造方法 create 和析构方法

destory 。在 create 方法中带两个参数 filename 和 mode 。filename 描述要创建或打开的文件

名,而 mode 描述文件模式如 fmcreate 、fmopenread 和 fmopenwrite 等。create 方法首先使用

filecreate 或 fileopen 函数创建或打开名为 filename 的文件, 再将得到的文件句柄赋给

fhandle 。tfilestream 的文件读写操作都是由从 thandlestream 继承的 read

var stream: tstream;

begin

stream :=tfilestream.create(filename, fmcreate);

try savetostream(stream); finally stream.free; end;

end;

在 delphi 的许多对象的 savetostream 和savetofile 、loadfromstream 和 loadfromfile 方

法的实现都有类似的嵌套结构。

20.1.5 tmemorystream 对象

tmemorystream对 象 是 一 个 管 理 动 态 内 存 中 的 数 据 的stream对 象 ,它 是 从

tcustommemorystream 中继承下来的, 除了从 tcustommemorystream 中继承的属性和方法外,它

还增加和覆盖了一些用于从磁盘文件和其它注台读数据的方法。它还提供了写入、消除内存内容的

动态内存管理方法。下面介绍它的这些属性和方法。

20.1.5.1 tmemorystream 的属性和方法

1. capacity 属性

声明:property copacity: longint;

capacity 属性决定了分配给内存流的内存池的大小。这与 size 属性有些不同。size 属性是

描述流中数据的大小。在程序中可以将 capacity 的值设置的比数据所需最大内存大一些, 这样可

以避免频繁地重新分配。

2. realloc 方法

声明:function realloc(var newcapacity: longint): pointer; virtual;

realloc 方法,以 8k 为单位分配动态内存,内存的大小由 newcapacity 指定,函数返回指向

所分配内存的指针。

3. setsize 方法

setsize 方法消除内存流中包含的数据,并将内存流中内存池的大小设为 size 字节。如果 size

为零,是 setsize 方法将释放已有的内存池,并将 memory 属性置为 nil ;否则,setsize 方法将

内存池大小调整为 size 。

4. clear 方法

声明:procedure clear;

clear 方法释放内存中的内存池, 并将 memory 属性置为 nil 。在调用 clear 方法后,size 和

position 属性都为 0。

5. loadfromstream 方法

声明:procedure loadfromstream(stream: tstream);

loadfromstream 方法将 stream 指定的流中的全部内容复制到 memorystream 中,复制过程将

取代已有内容,使 memorystream 成为 stream 的一份拷贝。

6. loadfromfile 方法

声明:procedure loadfromfile(count filename: string);

loadfromfile 方法将 filename 指定文件的所有内容复制到 memorystream 中, 并取代已有内

容。调用 loadfromfile 方法后,memorystream 将成为文件内容在内存中的完整拷贝。

20.1.5.2 tmemorystream 对象的实现原理

tmemorystream 从tcustommemorystream 对象直接继承,因此可以享用tcustommemorystream 的

属性和方法。前面讲过,tcustommemorystream 是用于内存中数据操作的抽象对象, 它为

memorystream 对象的实现提供了框架, 框架中的内容还要由具体 memorystream 对象去填充。

tmemorystream 对象就是按动态内存管理的需要填充框架中的具体内容。下面介绍tmemorystream 对

象的实现。

1. tmemorystream 属性的实现

tmemorystream 在其protected 部分增加了一个 capacity 属性, 该属性决定了 memorystream

所占动态内存的大小。tmemorystream 首先在private 部分声明了fcapacity 变量作为存储capacity

属性值的数据域,然后在 protected 部分声明了该属性。在属性声明的读控制部分简单读取

fcapacity 的值,在写控制处调用了方法 setcapacity 。该方法除了给 fcapacity 赋值外还执行了

修改 capacity 属性所必需操作如状态改变等。

下面是属性的实现:

tmemorystream=class(tcustommemorystream)

private

fcapacity: longint;

procedure setcapacity(newcapacity: longint);

protected …

property capacity: longint read fcapacity write setcapacity;

public …

end;

写控制方法 setcapacity 的实现是这样的:

procedure tmemorystream.setcapacity(newcapacity: longint);

begin

setpointer(realloc(newcapacity), fsize);

fcapacity :=newcapacity;

end;

在 setcapacity 方法先是调用 realloc 重新分配内存,然后用 newcapacity 的值给 fcapacity

赋值。realloc 方法进行某些对象状态的改变。

2. tmemorystream 对象方法的实现

⑴ realloc 方法

realloc 方法是 tmemorystream 动态内存分配的核心,它的 setsize 、setcapacity 等方法最

终都是调用 realloc 进行内存的分配和初始化工作的。它的实现如下:

const memorydelta=$2000;

function tmemorystream.realloc(var newcapacity: longint): pointer;

begin

if newcapacity > 0 then

newcapacity :=(newcapacity +(memorydelta1))and not(memorydelta1);

result :=memory;

if newcapacity =0) and(count >=0) then

begin

pos :=fposition + count;

if pos > 0 then

begin

if pos > fsize then

begin

if pos > fcapacity then

setcapacity(pos);

fsize :=pos;

end;

system.move(buffer, pointer(longint(fmemory) + fposition)^, count);

fposition :=pos;

result :=count;

exit;

end;

end;

result :=0;

end;

buffer 中存储要写入流的二进制数据, 如果要写入的数据的字节超出了流的内存池的大小,

则调用 setcapacity 方法再分配内存, 然后用内存复制函数将 buffer 中的数据复制到 fmemory 中。

接着移动位置指针, 并返回写入数据的字节数。分析这段程序可以知道, fcapacity 的值和 fsize

的值是不同的。

⑶ clear 方法

clear 方法消除内存流中的数据,将 memory 属性置为 nil ,并将 fsize 和 fposition 的值设

为 0。其实现如下:

procedure tmemorystream.clear;

begin

setcapacity(0);

fsize :=0;

fposition :=0;

end;

⑷ loadfromstream 和 loadfromfile 方法

loadfromstream 方法首先根据传入的 stream 的 size 属性值重新分配动态内存,然后调用

stream 的 readbuffer 方法往 fmemory 中复制数据,结果 stream 的全部内容在内存中有了一份完

整拷贝。其实现如下:

procedure tmemorystream.loadfromstream(stream: tstream);

var

count: longint;

begin

stream.position :=0;

count :=stream.size; s

etsize(count);

if countnil then

begin

try bitmapmemroystream.savetofile('bitmap1.str');

//内存流保存,大小与//bitmap1.bmp 一样

except

showmessage('error on access memory!');

end;

end;

end;

procedure tform.button4click(sender:tobject);

var

buffer:array[0..53] of char;

begin

if assigned( bitmapmemroystream)then

try

bitmapmemroystream.seek(0,sofrombeginning);

bitmapmemorystream.read(buffer,54);

if buffer[0]='b'and buffer[1]='m'then//改写内存内容

begin

bitmapmemorystream.seek(0,sofrombeginning);

bitmapmemorystream.write('ice',3);

button3click(sender);//将改写的内容写入文件

end;

except

showmessage('error on access memroystream');

end;

end;

大家可看到用 tmemorystream 对与内存读写多么方便,当然其实用不着先建一 bitmap, 可以用

loadfromfile 直接引导文件, 但是如果对于其它的内存流却是可以用上述方法,上文只是抛转引

玉,其它的一些功能大家可以看帮助,自己琢磨!还有很多其它的流式对象,大致都差不多,一通

百通!

如何将一个流的内容写入到剪贴板中,并处理?这个技巧是参考 delphi 的剪贴板类的实现来

完成的。将一个流的内容放入剪贴板,首先要注册你自已的格式,使用 registerclipboardformat()

函数,然后做下面三步:

1.创建一个内容流,并将内容写进去

2.创建一个全局的内容区,并将流的内容写入

3.调用 clipboard.setashandle()将内容写入剪贴板

将内容写入剪贴板中

var

hbuf : thandle;

bufptr : pointer;

mstream : tmemorystream;

begin

mstream :=tmemorystream.create;

try {处理流的代码}

hbuf :=globalalloc(gmem_moveable, mstream.size);

try

bufptr :=globallock(hbuf);

try

move(mstream.memory^, bufptr^, mstream.size);

clipboard.setashandle(cf_myformat, hbuf);

finally

globalunlock(hbuf);

end;

except

globalfree(hbuf);

raise;

end;

finally

mstream.free;

end;

end;

请注意不要将分配的全局缓冲区释放,这个工作由剪贴板来完成,在读出数据中你应该将它复

制后处理。

将剪贴板内容读出来

var

hbuf : thandle;

bufptr : pointer;

mstream : tmemorystream;

begin

hbuf :=clipboard.getashandle(cf_myformat);

if hbufnil then

begin

try

mstream :=tmemorystream.create;

try

mstream.writebuffer(bufptr^, globalsize(hbuf));

mstream.position :=0;

{处理流的代码}

finally

mstream.free;

end;

finally

globalunlock(hbuf);

end;

end;

end;

end;

在dephi中使用tstream读写数据的技巧

在 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);//将类中的数据写到 stream 的当前位置中

2. loadfromstream(stream: tstream);//从当前位置读入 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

ms: tmemorystream;

pimage: pointer;

begin

ms:=tmemorystream.create;

image1.picture.bitmap.savetostream(ms);

ms.position:=0;

pimage:=invert(ms.memory, ms.size);

//memory 属性是指向实际内存块的指针

ms.write(pimage^,ms.size);

ms.position:=0; //上一行代码使指针移到了 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 size541 do

begin

pdata^:=char(not integer(pdata^));

pdata:=pdata+1;

end;

result:=pmem;

end;

3. btnsave 的 click 事件,这里演示了 tmemorystream 的另一种用法,将 stream 中的数据

写到数据库中去。

var

ms: tmemorystream;

begin

ms:=tmemorystream.create;

image1.picture.bitmap.savetostream(ms);

ms.position:=0;

table1.append;

//在数据库中添加一条记录

tblobfield(table1.fieldbyname('image')).loadfromstream(ms);

table1.post;

//将所作的更新写入数据库

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;

===============================

delphi中的流操作

在 delphi 中使用 tstream 读写数据

在 delphi 中提供了一个抽象的数据类型 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 数据的读写

savetostream(stream:tstream);//将 类 中 的 数 据 写 到stream的 当 前 位 置 中

loadfromstream(stream: tstream);// 从当前位置读入 stream 里的数据实际使用时我们基本上只

要使用上面两个函数就可以了。

三、例子

tstream 的继承树图如图 1 所示, 实际使用时比较常用的是 tfilestream 、tmemorystream 、

tblobstream 。以下这三种流举一例说明具体用法。创建一个窗体 form1 ,放置三个按钮 btnread 、

btninvert 、btnsave 和一个文件打开对话框 opendialog1 以及数据控件 datasource1,table1,

test 。

使用 delphi 提供的 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 ,使得数

据库一开始就处于打开状态。

事件代码编写如下:

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;

//btninvert 的 click 事件,这里演示了 tmemorystream 的用法。

//其中使用了 invert 函数,这是一个简单的将图像反色的函数(仅对真彩图像有效),

//它返回一个指向处理过的图像数据块的指针。

var

ms: tmemorystream;

pimage: pointer;

begin

ms:=tmemorystream.create;

image1.picture.bitmap.savetostream(ms);

ms.position:=0;

pimage:=invert(ms.memory, ms.size);

//memory 属性是指向实际内存块的指针ms.write(pimage^,ms.size); ms.position:=0;

// 上一行代码使指针移到了 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;

//btnsave 的 click 事件,这里演示了 tmemorystream 的另一种用法,

//将 stream 中的数据写到数据库中去。

var

ms: tmemorystream;

begin

ms:=tmemorystream.create;

image1.picture.bitmap.savetostream(ms);

ms.position:=0;

table1.append;

// 在数据库中添加一条记录 tblobfield(table1.fieldbyname('image')).load ;

fromstream(ms);

table1.post; // 将所作的更新写入数据库

end;

//dbnavigator1 的 click 事件,

//这里演示了 tblobstream 的用法, 使用了和写入时不同的方法来读出数据库的图像数据。

var ms: tstream;

begin

with table1 do

ms:=createblobstream(fieldbyname('image'),bmread);

image1.picture.bitmap.loadfromstream(ms);

ms.free;

end;

现在你已经能够在文件、数据库、内存中任意读写数据流了。试试看吧!

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/