引言: 各位高手大家好!小弟有問題想請教大家： 小弟現在正在撰寫Client與Server的連線程式。以下是小弟的程式碼： //Client (小弟已經將Client的Host設為192.168.0.1，port為9999) void __fastcall TForm1::FormCreate(TObject *Sender) { ClientSocket1->Open(); } //Server //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1Listen(TObject *Sender, TCustomWinSocket *Socket) { Edit1->Text=Socket->LocalHost; Edit2->Text=Socket->LocalAddress; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) { ServerSocket1->Socket->Accept(1); //Edit3->Text=Socket->ReceiveText(); // Edit3->Text=sockaddr_intoStr(Socket->RemoteAddress); } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { ServerSocket1->Port=9999; ServerSocket1->Active=true; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Edit3->Text=ServerSocket1->Socket->Connections[0]->RemoteAddress; Edit4->Text=ServerSocket1->Socket->Connections[0]->RemoteHost; //Edit3->Text=Socket->RemoteAddress; //Edit4->Text=Socket->RemoteHost; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { } //--------------------------------------------------------------------------- 第一次執行可以連線成功，但是之後就都會出現錯誤訊息 錯誤訊息如下 Project Project1.exe raised exception class ESocketError with message 'Asynchronous socket error 10060'

stickitout 你好:
試試看改成這樣子可不可以呢??
// >Address="192.168.0.1">Port=9999;
   ClientSocket1->Open();
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   ClientSocket1->Close();
}
// Server
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   ServerSocket1->Port=9999;   
   ServerSocket1->Open();
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
   ServerSocket1->Close();
}
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
   Edit3->Text=Socket->RemoteAddress;
   Edit4->Text=Socket->RemoteHost;
}