小弟按照版主大大寫的上篇介紹,試了一下,發現會產生錯誤,不知道為何 現在只有把他po在版上請問各位高手(使用TServerSocket/ClientSocket) Client端部分 ==================================================================  

void __fastcall TForm1::DS_Launcher()
{
   TSearchRec sr;
   int FileFound=FindFirst(OKpath "\\*.agn",faAnyFile,sr);
   while(FileFound==0)
   {
    //處理資料
    /*TMemoryStream *filestream=new TMemoryStream();
    filestream->LoadFromFile(OKpath sr.Name); */
    TFileStream *filestream=new TFileStream(OKpath sr.Name,fmOpenReadWrite);        DS_launcher_client->Open();
    DS_launcher_client->Socket->SendStream(filestream);
    DeleteFile((OKpath sr.Name).c_str());
    //找下一個檔案
    delete filestream;
    FileFound=FindNext(sr);
   }
}
//---------------------------------------------------------------------------- 

Server端 =====================================================================

 void __fastcall TForm1::MMServer_ReceiverClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
     AnsiString fullagent;
     int buf_len=Socket->ReceiveLength();
     char *pData = new char[buf_len];
     memset(pData, 0, buf_len);
     Socket->ReceiveBuf(pData,buf_len);
     fullagent=pData;
     Edit1->Text=fullagent;
}

小弟有做過DEBUG測試,發現Server端根本就沒有收到資料,錯誤產生會顯示Asychronous Socket error,這是爲什麼??照理講應該沒有錯

不好意思...我剛剛抓到Bug