2019獨(dú)角獸企業(yè)重金招聘Python工程師標(biāo)準(zhǔn)>>>

在Delphi中，所有流對(duì)象的基類為TStream類，

其中定義了所有流的共同屬性和方法。TStream類中定義的屬性介紹如下：1、Size: 此屬性以字節(jié)返回流中數(shù)據(jù)大小。2、Position: 此屬性控制流中存取指針的位置。Tstream中定義的虛方法有四個(gè)：1、Read:此方法實(shí)現(xiàn)將數(shù)據(jù)從流中讀出。函數(shù)原形為：Function Read(var Buffer;Count:Longint):Longint; virtual;abstract;參數(shù)Buffer為數(shù)據(jù)讀出時(shí)放置的緩沖區(qū)，Count為需要讀出的數(shù)據(jù)的字節(jié)數(shù)，該方法返回值為實(shí)際讀出的字節(jié)數(shù)，它可以小于或等于Count中指定的值。2、Write:此方法實(shí)現(xiàn)將數(shù)據(jù)寫入流中。函數(shù)原形為：Function Write(var Buffer;Count:Longint):Longint;virtual;abstract;參數(shù)Buffer為將要寫入流中的數(shù)據(jù)的緩沖區(qū)，Count為數(shù)據(jù)的長度字節(jié)數(shù)，該方法返回值為實(shí)際寫入流中的字節(jié)數(shù)。3、Seek:此方法實(shí)現(xiàn)流中讀取指針的移動(dòng)。函數(shù)原形為：Function Seek(Offset:Longint;Origint:Word):Longint;virtual;abstract;參數(shù)Offset為偏移字節(jié)數(shù),參數(shù)Origint指出Offset的實(shí)際意義，其可能的取值如下：soFromBeginning:Offset為移動(dòng)后指針距離數(shù)據(jù)開始的位置。此時(shí)Offset必須大于或者等于零。soFromCurrent:Offset為移動(dòng)后指針與當(dāng)前指針的相對(duì)位置。soFromEnd:Offset為移動(dòng)后指針距離數(shù)據(jù)結(jié)束的位置。此時(shí)Offset必須小于或者等于零。該方法返回值為移動(dòng)后指針的位置。4、Setsize:此方法實(shí)現(xiàn)改變數(shù)據(jù)的大小。函數(shù)原形為：Function Setsize(NewSize:Longint);virtual;另外，TStream類中還定義了幾個(gè)靜態(tài)方法：1、ReadBuffer:此方法的作用是從流中當(dāng)前位置讀取數(shù)據(jù)。函數(shù)原形為：Procedure ReadBuffer(var Buffer;Count:Longint);參數(shù)的定義跟上面的Read相同。注意：當(dāng)讀取的數(shù)據(jù)字節(jié)數(shù)與需要讀取的字節(jié)數(shù)不相同時(shí)，將產(chǎn)生EReadError異常。2、WriteBuffer:此方法的作用是在當(dāng)前位置向流寫入數(shù)據(jù)。函數(shù)原形為：Procedure WriteBuffer(var Buffer;Count:Longint);參數(shù)的定義跟上面的Write相同。注意：當(dāng)寫入的數(shù)據(jù)字節(jié)數(shù)與需要寫入的字節(jié)數(shù)不相同時(shí)，將產(chǎn)生EWriteError異常。3、CopyFrom:此方法的作用是從其它流中拷貝數(shù)據(jù)流。函數(shù)原形為：Function CopyFrom(Source:TStream;Count:Longint):Longint;參數(shù)Source為提供數(shù)據(jù)的流，Count為拷貝的數(shù)據(jù)字節(jié)數(shù)。當(dāng)Count大于0時(shí)，CopyFrom從Source參數(shù)的當(dāng)前位置拷貝Count個(gè)字節(jié)的數(shù)據(jù)；當(dāng)Count等于0時(shí)，CopyFrom設(shè)置Source參數(shù)的Position屬性為0,然后拷貝Source的所有數(shù)據(jù)；TStream還有其它派生類，其中最常用的是TFileStream類。使用TFileStream類來存取文件，首先要建立一個(gè)實(shí)例。聲明如下：constructor Create(const Filename:string;Mode:Word);Filename為文件名（包括路徑）,參數(shù)Mode為打開文件的方式，它包括文件的打開模式和共享模式，其可能的取值和意義如下：打開模式：fmCreate :用指定的文件名建立文件，如果文件已經(jīng)存在則打開它。fmOpenRead :以只讀方式打開指定文件fmOpenWrite :以只寫方式打開指定文件fmOpenReadWrite:以寫寫方式打開指定文件共享模式：fmShareCompat :共享模式與FCBs兼容fmShareExclusive:不允許別的程序以任何方式打開該文件fmShareDenyWrite:不允許別的程序以寫方式打開該文件fmShareDenyRead :不允許別的程序以讀方式打開該文件fmShareDenyNone :別的程序可以以任何方式打開該文件TStream還有一個(gè)派生類TMemoryStream，實(shí)際應(yīng)用中用的次數(shù)也非常頻繁。它叫內(nèi)存流，就是說在內(nèi)存中建立一個(gè)流對(duì)象。它的基本方法和函數(shù)跟上面是一樣的。寫流：如果把文本框中的字符串寫入流中，最好使用字符指針Pchar.例如：varpstr:Pchar;mestr:string;FS:TFilestream;beginFS:=TFileStream.Create((Extractfilepath(Application.ExeName)+'123.txt'),fmCreate );mestr:=edit1.text;pstr:=Pchar(mestr);//把字符串轉(zhuǎn)成字符指針FS.Writebuffer(pstr^,Length(pstr));//把字符串寫入流中讀流流的讀取比寫入要困難一些，下面談讀流的幾個(gè)注意點(diǎn):1.如果是字符串的讀取，最好也使用字符指針Pchar2.要給字符指針申請(qǐng)內(nèi)存用GetMem3.要把字針轉(zhuǎn)成字符型,直接付值就行4.要限定字符串長度,用SetLength,這條是很關(guān)鍵的5.要釋放內(nèi)存用FreeMemvarpstr:Pchar;mestr:string;FS:TFilestream;meint:integer;beginFS:=TFileStream.Create((Extractfilepath(Application.ExeName)+'123.txt'),fmOpenRead );getmem(pstr,meint);//申請(qǐng)字符指針內(nèi)存fs.Readbuffer(pstr^,meint);//在流里讀出meint大小的字符串到字符指針mestr:=pstr;//字符指針轉(zhuǎn)成字符SetLength(mestr,meint);//限定字符大小 freemem(Pstr);//釋放內(nèi)存FS.Free;//釋放流end;

轉(zhuǎn)載于:https://my.oschina.net/u/582827/blog/1488591

總結(jié)

以上是生活随笔為你收集整理的Delphi中流对象 TStream的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。