引言: 我最近try INDY元件使用它的兩個元件來作,並使用WriteStream與ReadStream 的method來傳輸Stream資料 但我發現Test過後,傳輸上沒問題.但在存檔時發現存檔後面有多了一些不該出現的文字(txt檔) 請問這是什麼原因?? 以下是我的程式內容 Server部分 ===================================================================== #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; TFileStream *receive; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Server->DefaultPort=1111; receive=new TFileStream("I:\\Client-Server Stream檔案測試\\Server\\ServerFile.txt",fmCreate); } //------------------------------------------------------------------ void __fastcall TForm1::Button1Click(TObject *Sender) { Server->Active=True; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerExecute(TIdPeerThread *AThread) { int bytes=AThread->Connection->ReadInteger(true); AThread->Connection->ReadStream(receive,bytes,False); // receive->Write(receive,bytes); } //------------------------------------------------------------------- Client端部分 ===================================================================== #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; TFileStream *Client; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Tcp_Client->Host="140.116.39.126"; Tcp_Client->Port=1111; Client=new TFileStream("I:\\Client-Server Stream檔案測試\\Client\\Client_Stream.txt",fmOpenRead); Edit1->Text=Client->Size; } //------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Tcp_Client->Connect(); } //------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { // Tcp_Client->WriteStream(Client,True,False); Tcp_Client->WriteStream(Client, true, true, Client->Size); } //------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { // Tcp_Client->WriteInteger(Client->Size,True); } //-------------------------------------------------------------------

備註:
(1)BCB 6.0 原本附的是 Indy 8.0 元件
(2)如果想要把 BCB 6.0 的 Indy 元件昇級至 9.0 的話，可先在此下載 (包括
   元件本身、說明文件、範例程式碼)
   http://www.indyproject.org/download/Indy9.html
(3)下載完成以後，可依照以下連結文章中的步驟，安裝至 BCB
   http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25182