Delphi中的流式对象和TStream的使用简介

需积分: 9 177 浏览量更新于2023-12-15 1 收藏 276KB DOC 举报

Delphi中的流式对象是面向对象程序设计中对象式数据管理的重要组成部分。Delphi作为一个面向对象的可视化设计与面向对象的语言相结合的集成开发环境，其核心是部件，而部件又是对象的一种。因此，开发高性能的Delphi应用程序必然需要涉及对象式数据管理技术。在Delphi中，对象式数据管理包括两个主要方面：用对象来管理数据和对各类数据对象的管理。Delphi在这两方面都表现出色，在其早期版本Turbo Pascal中就已经有了流、群和资源等专门用于对象式数据管理的类。而在Delphi中，这些功能得到了大大的加强。Delphi将对象式数据管理类归结为Stream对象和Filer对象，并将它们应用于可视部件类库的方方面。其中，TStream是Delphi中用于流式对象管理的一个重要类。通过TStream可以对数据进行读写操作，这在很多应用场景下都是至关重要的。因此，对TStream的使用进行深入的讲解对于Delphi开发者来说是非常有帮助的。 TStream的使用方法可以说是简单易懂，对于初学者来说并不难掌握。通过TStream，开发者可以方便地进行文件的读写操作，这在实际开发中是非常常见的需求。同时，TStream也提供了丰富的方法和属性，可以满足不同场景下的需求。在Delphi中，对象式数据管理是非常重要的一部分，而TStream作为其中的重要组成部分，在实际开发中发挥着重要的作用。掌握了TStream的使用方法，开发者可以更加高效地进行文件操作，提高开发效率和代码质量。总的来说，Delphi中的流式对象是面向对象程序设计中对象式数据管理中的重要组成部分。Delphi作为一个面向对象的可视化设计与面向对象的语言相结合的集成开发环境，其核心是部件，而部件又是对象的一种。因此，开发高性能的Delphi应用程序必然需要涉及对象式数据管理技术。TStream作为其中的重要组成部分，在实际开发中发挥着不可替代的作用。掌握了TStream的使用方法，开发者可以更加高效地进行文件操作，提高开发效率和代码质量，是非常有帮助的。 Delphi对对象式数据管理的支持方式是其一大特色，而TStream作为其中的一部分，对Delphi开发者来说是非常重要的。

TStream 的 Size 和 Position 属性的实现并没有在 private 部分声明一个数据域保存属性而是加上读写控制方法来提供属性值。

在 TCustomMemoryStream 中定义了 FSize 和 FPosition 域,它们用于对象的内部使用以完成类似 Size 和 Position 的功能。在

TCustomMemoryStream 的许多方法中都用来了这两个域,因此先介绍一下。

TCustomMemoryStream 的 SetPointer 方法用到了 FSize 域。SePointer 方法比较简单,它将传入的 Ptr 和 Size 值赋给 FMemory 和

FSize,但并不执行内存的分配工作,实现如下:

procedureTCustomMemoryStream.SetPointer(Ptr:Pointer;Size:Longint);

begin

FMemory:=Ptr;

FSize:=Size;

end;

TCustomMemoryStream 中的许多方法都是这种类型,貌似平淡无奇,但要记住 TCustomMemoryStream 是个抽象类,它的主要功能

是搭框架,许多方法的具体实现体现在一些可实例化的对象如 TMemoryStream 中,这正是面向对象技术的精华所在 ,也是

TCustomMemoryStream 设计的妙处所在。

2.Read 和 Seek 方法

前面讲了 TCustomMemoryStream 是个抽象类,不可实例化,它的许多域都没有初始化,如 FMemory 自始至终都只是没有指向实

际内存区域的指针,内存池的分配都在后继的可实例化的对象中执行,如 TMemory 中,后面会介绍内存池在不同内存流中是如何

分配的。

TCustomMemoryStream 的 Read 和 Seek 方法都是只对 FMemroy、FSize 和 FPosition 进行操作。

Read 方法调用了内存拷贝函数 Move 实现读操作,并且相应地移动指针位置,即设置 FPosition 的值。实现如下:

functionTCustomMemoryStream.Read(varBuffer;Count:Longint):Longint;

begin

if(FPosition>=0)and(Count>=0)then

begin

Result:=FSize-FPosition;

ifResult>0then

begin

ifResult>CountthenResult:=Count;

Move(Pointer(Longint(FMemory)+FPosition)^,Buffer,Result);

Inc(FPosition,Result);

Exit;

end;

Result:=0;

end;

如果 Count 为 0 或从当前指针到流的尾部只有零字节,则返回值为零。如果 Count 值大于当前指针到流的尾部的字节数即剩余

字节数,则只读剩余字节数。因此在具体运用内存流的 Read 方法时要判断是否按需求读取数据了。

Seek 方法也是通过给 Position 和 FSize 数据域赋值来实现指针移动,其实现如下:

functionTCustomMemoryStream.Seek(Offset:Longint;Origin:Word):Longint;

begin

caseOriginof

0:FPosition:=Offset;

1:Inc(FPosition,Offset);

2:FPosition:=FSize+Offset;

end;

Result:=FPosition;

end;

Offse 代表移动的偏移量。Origin 代表移动的起点,值为 0 表示从文件头开始,值为 1 表示从当前位置开始,值为 2 表示从文件尾

往前,这时 OffSet 一般为负数。Seek 的实现没有越界的判断。

3.SaveToStream 和 SaveToFile 方法

SaveToStream 方法是将 MemoryStream 对象中的内容写入 Stream 所指定的流。其实现如下:

procedureTCustomMemoryStream.SaveToStream(Stream:TStream);

begin

ifFSize<>0thenStream.WriteBuffer(FMemory^,FSize);

end;

SaveToStream 方法调用了 Stream 的 WriteBuffer 方法,直接将 FMemory 中的内容按 FSize 字节长度写入流中。

SaveToFile 方法是与 SaveToStream 方法相关的。SaveToFile 方法首先创建了一个 FileStream 对象,然后把该文件 Stream 对象作

为 SaveToStream 的参数,由 SaveToStream

方法执行写操作,其实现如下:

procedureTCustomMemoryStream.SaveToFile(constFileName:string);

var

Stream:TStream;

begin

Stream:=TFileStream.Create(FileName,fmCreate);

try

SaveToStream(Stream);

finally

Stream.Free;

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

剩余63页未读，继续阅读

duanwujiekanyue

粉丝: 1
资源: 12

Delphi中的流式对象和TStream的使用简介

delphi TSteam系列技术

计算机软件-商业源码-利用Delphi的流对象对多媒体文件进行操作.zip

利用Delphi的流对象对多媒体文件进行操作

Delphi 面向对象

Delphi 中ADOQUERY Parameters流式存储技巧

delphi zlib

DelphiJsonSerialize:一个 JSON 序列化库，用于精细控制从 Delphi 对象、接口和记录生成的 JSON 的结构

DELPHI向SQL数据库中存储图片

DELPHI读写SQL SERVER中的image、text字段.rar_Image or Text_delphi_handle

delphi 文件传输

最新资源