__fastcall TForm1:TForm1(TComponent* Owner):TForm(Owner) { FClientSocket=new TClientSocket(NULL); FClientSocket->OnClientSocketError; FClientSocket->OnRead=OnClientSocketRead; FClientSocket->ClientType=ctNonBlocking; FClientSocket->Port=8888; FClientSocket->Host=HostName; } void __fastcall TForm1:Button1Click(TObject* Sender) { FClientSocket->Socket->SendBuf(&MyData,sizeof(MyData)); } void __fastcall TForm1::OnClientSocketError(System::TObject* Sender, TCustomWinSocket* Socket, TErrorEvent ErrorEvent, int &ErrorCode) { ErrorCode=0; } 這些程式碼在連線無錯下都能正常動作 但是一但將主機關掉,第一次SendBuf會進入OnError 可是往後再SendBuf就不會進入了 就算再將主機連線給恢復,還是無法傳送資料,除非程式重新啟動 因為主機隨時都會藉由連線傳回資料(不見得是Client要求),所以無法在每次傳送時再New出來, 該如何解決ㄋ 我看不懂Delphi 能不能用BCB回答