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,实际应用中用的次数也非常频繁。它叫内存流,就是说在内存中建立一个流对象。它的基本方法和函数跟上面是一样的。

写流:

如果把文本框中的字符串写入流中,最好使用字符指针pchar.例如:

var

pstr:pchar;

mestr:string;

fs:tfilestream;

begin

fs:=tfilestream.create((extractfilepath(application.exename)+'123.txt'),fmcreate );

mestr:=edit1.text;

pstr:=pchar(mestr);//把字符串转成字符指针

fs.writebuffer(pstr^,length(pstr));//把字符串写入流中

读流

流的读取比写入要困难一些,下面谈读流的几个注意点:

1.如果是字符串的读取,最好也使用字符指针pchar

2.要给字符指针申请内存用getmem

3.要把字针转成字符型,直接付值就行

4.要限定字符串长度,用setlength,这条是很关键的

5.要释放内存用freemem

var

pstr:pchar;

mestr:string;

fs:tfilestream;

meint:integer;

begin

fs:=tfilestream.create((extractfilepath(application.exename)+'123.txt'),fmopenread );

getmem(pstr,meint);//申请字符指针内存

fs.readbuffer(pstr^,meint);//在流里读出meint大小的字符串到字符指针

mestr:=pstr;//字符指针转成字符

setlength(mestr,meint);//限定字符大小

freemem(pstr);//释放内存

fs.free;//释放流

end;

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