在Dephi中使用TStream读写数据的技巧

说好的幸福阳

说好的幸福阳

2016-02-19 17:26

有了下面这个在Dephi中使用TStream读写数据的技巧教程,不懂在Dephi中使用TStream读写数据的技巧的也能装懂了,赶紧get起来装逼一下吧!

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

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

  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。将d st与刚才Desktop创建的数据库相连,Table1的TableName属性设为test.db,DataSource1的DataSet属性设为Table1,DBNavigator1的DataSource属性设为DataSource1,VisibleButtons属性前四个设为TRUE。此外,将dbtest的Connected设为TRUE,Table1的Active属性设为TRUE,使得数据库一开始就处于打开状态。事件代码编写如下:

  1. btnRead的Click事件,这里演示了TFileStream的用法。

  

varMS: TFileStream;beginif OpenDialog1.Execute thenbeginMS:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);Image1.Picture.Bitmap.LoadFromStream(MS);MS.Free;end;end;

  2. btnInvert的Click事件,这里演示了TMemoryStream的用法。其中使用了Invert函数,这是一个简单的将图象反色的函数(仅对真彩图象有效),它返回一个指向处理过的图象数据块的指针。

  

varMS: TMemoryStream;pImage: pointer;beginMS:=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;varpData, pMem: PChar;i: Integer;beginpMem:=AllocMem(size);CopyMemory(pMem,pImage,size);pData:=pMem+54;for i:=0 to size541 dobeginpData^:=Char(not integer(pData^));pData:=pData+1;end;Result:=pMem;end;

  3. btnSave的Click事件,这里演示了TMemoryStream的另一种用法,将Stream中的数据写到数据库中去。

  

varMS: TMemoryStream;beginMS:=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的用法,使用了和写入时不同的方法来读出数据库的图象数据。

  

varMS: TStream;beginwith Table1 doMS:=CreateBlobStream(FieldbyName(image),bmRead);Image1.Picture.Bitmap.LoadFromStream(MS);MS.Free;end;

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

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

展开更多 50%)
分享

猜你喜欢

在Dephi中使用TStream读写数据的技巧

编程语言 网络编程
在Dephi中使用TStream读写数据的技巧

在ASP中使用Oracle数据库技巧

ASP
在ASP中使用Oracle数据库技巧

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

在DEPHI程序中使用ADO对象存取ODBC数续

编程语言 网络编程
在DEPHI程序中使用ADO对象存取ODBC数续

在ASP中使用Oracle数据库技巧(2)

ASP
在ASP中使用Oracle数据库技巧(2)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在ASP中使用Oracle数据库技巧(1)

ASP
在ASP中使用Oracle数据库技巧(1)

在ASP中使用数据库

ASP
在ASP中使用数据库

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

CSS中的行为——HTC

CSS中的行为——HTC

Win8学用开始屏幕管理程序

Win8学用开始屏幕管理程序
下拉加载更多内容 ↓