如何对数据流 INSERT、APPEND

王朝other·作者佚名  2008-06-01
窄屏简体版  字體: |||超大  

假如不是第一次初始化的话。因此,有必要对多段数据流的整合操作做一些有利的约束。如增加INSERT(插入)、 APPEND(追加)之类的方法。从TStream的定义及其派生子类我们得知,CopyFrom是唯一可以加以利用的公用函数,它从指定的流上拷贝指定数量的字节后返回一长整型值,该值代表最后成功传送的实际字节数。其后,我们用Seek函数来避免数据流之间的相互覆盖,并以此来界定后来者加入的位置。在SEEK函数的定义中,第一个参数为偏移量,第二个参数是个定位标识,其定义如下:

soFromBeginning表示在流的顶头开始位移,第一个参数必须 $#@62;=0.

soFromCurrent表示从当前位置开始位移。

soFromEnd表示从流的最后开始位移,第一个参数必须$#@60;= 0.

SEEK操作成功后,由Position属性存放流当前的位置值。Size属性是该流到目前为止的长度。

具体操作见以下范例:

unit DemoUnit;

...

type

TForm1 = class(TForm)

...

Memo1: TMemo;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

// 建立一个演示内存流

STO : TMemoryStream;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

...

Try

//创建内存流的对象

STO := TMemoryStream.Create;

Finally

...

end;

...

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

...

//初始化内存流对象,并移动指针到头部

STO.LoadFromFile( OpenDialog1.FileName );

STO.Seek( 0, soFromBeginning );

//把调入的东西显示出来

Memo1.Lines.LoadFromStream( STO );

...

end;

//以下的工作必须在内存流初始化后方能进行

//插入演示

procedure TForm1.Button2Click(Sender: TObject);

Var

SWA : TMemoryStream; //定义一个临时内存流

begin

...

//创建临时工作的对象

SWA := TMemoryStream.Create;

//加载要插入的目标

SWA.LoadFromFile( OpenDialog1.FileName );

//移动演示流的指针到头部,预备交换

STO.Seek( 0, soFromBeginning );

//移动临时流的指针到尾部,接收演示流

SWA.Seek( 0, soFromEnd );

SWA.CopyFrom( STO, STO.Size );

//把演示流换成新的内容

STO.LoadFromStream( SWA );

STO.Seek( 0, soFromBeginning );

//把插入后的内容显示出来

Memo1.Lines.LoadFromStream( STO );

...

end;

//追加演示

procedure TForm1.Button3Click(Sender: TObject);

Var

SWA : TMemoryStream;//定义一个临时内存流

begin

...

//创建临时工作的对象并加载要追加的目标

SWA := TMemoryStream.Create;

SWA.LoadFromFile( OpenDialog1.FileName );

//移动演示流的指针到尾部,接收临时流

STO.Seek( 0, soFromEnd );

SWA.Seek( 0, soFromBeginning );

//拷贝,移动指针后显示

STO.CopyFrom( SWA, SWA.Size );

STO.Seek( 0, soFromBeginning );

Memo1.Lines.LoadFromStream( STO );

...

end;

....

在Insert过程当中,仅仅只是把新来的流加到最前面,而没有考虑在任何位置的插入问题,假如要对任何条件都满足的话,就要考虑一个复杂的前提:流的分解。由于篇幅有限,本文不再叙述,有爱好的朋友可试一试。

right"(出处:清风软件下载学院)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航