網(wǎng)絡(luò)ID:wnhoo or sos_admin
網(wǎng)名:e夢(mèng)緣
Mail:wnhoo@163.com
風(fēng)花雪月 e夢(mèng)情緣
什么是流?流,簡(jiǎn)單來說就是建立在面向?qū)ο蠡A(chǔ)上的一種抽象的處理數(shù)據(jù)的工具。在流中,定義了一些處理數(shù)據(jù)的基本操作,如讀取數(shù)據(jù),寫入數(shù)據(jù)等,程序員是對(duì)流進(jìn)行所有操作的,而不用關(guān)心流的另一頭數(shù)據(jù)的真正流向。流不但可以處理文件,還可以處理動(dòng)態(tài)內(nèi)存、網(wǎng)絡(luò)數(shù)據(jù)等多種數(shù)據(jù)形式。如果你對(duì)流的操作非常熟練,在程序中利用流的方便性,寫起程序會(huì)大大提高效率的。
一、Delphi中流的基本概念及函數(shù)聲明
在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ù)的長(zhǎng)度字節(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ù);
參考資料:
不是中文的
http://homepages.borland.com/efg2lab/Library/Delphi/IO/StreamIO.htm
lovejingtao大大的文章:談Delphi編程中“流”的應(yīng)用
http://delphi.ktop.com.tw/TOPIC.asp?TOPIC_ID=33689
TWinSocketStream用於採(cǎi)用阻塞式Socket連接的資料讀寫,
在這邊有一篇關(guān)於這幾種流的簡(jiǎn)單說明和例子,可參考一下:
http://www.legalsoft.com.cn/Articles/ArticleBrowse.asp?idArticle=328
那段BCB的WinSocketStream的代碼轉(zhuǎn)成DELPHI如下:
uses  ScktComp;procedure TMyClientThread.Execute;var  pStream: TWinSocketStream;  buffer: string;begin  { create a TWinSocketStream for reading and writing }  pStream := TWinSocketStream.Create(ClientSocket1.Socket, 60000);  try    { fetch and process commands until the connection or thread is terminated }    while (not Terminated) and (ClientSocket1.Active) do    begin      try        GetNextRequest(buffer); { GetNextRequest must be a thread-safe method }        { write the request to the server }        pStream.Write(buffer, Length(buffer) + 1);        { continue the communication (e.g. read a response from the server) }        ...      except        if not(ExceptObject is EAbort) then          Synchronize(HandleThreadException); { you must write HandleThreadException }      end;    end;  finally   pStream.free;  end;end;
我又找到了些......
http://www.fosu.edu.cn/netschool/delphi/050.htm
http://www.fosu.edu.cn/netschool/delphi/051.htm 
| 
 
 | 
新聞熱點(diǎn)
疑難解答
圖片精選
網(wǎng)友關(guān)注