我在Server端模擬一直產生一些資料.由client端request之後,server端才送出目前產生的資料給Client出去. 程式碼如下:  

Server端:
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
 if (StrRandom==10)
    StrRandom=0;
 else
    StrRandom  ;
 Label1->Caption=StrRandom;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ServerSocket1->Active=true;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ServerSocket1ClientWrite(TObject *Sender,
      TCustomWinSocket *Socket)
{
  Socket->SendText(Label1->Caption);
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
  AnsiString ReadBuff;
  ReadBuff=Socket->ReceiveText();      if (ReadBuff.SubString(1,1)=="G")
      Socket->SendText(Label1->Caption);
}
//---------------------------------------------------------------------------    Client端:
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
ClientSocket1->Socket->SendText("G");
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormCreate(TObject *Sender)
{
ClientSocket1->Address="127.0.0.1";
ClientSocket1->Port=500;
ClientSocket1->Active=true;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
Label1->Caption=ClientSocket1->Socket->ReceiveText();
}
 

目前的問題是:因為每次都要由client端發出一個"G"的字元,那server端才能依照那個"G",去送出目前的資料....有沒有辦法client端不須sendText,就能接收到由server端送出的資料?? 謝謝.

在Server端用一個button，只要按下這個button，就會傳料給client， 不用等client來觸發~  

 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  for (int i = 0; iSocket->ActiveConnections; i  )
       ServerSocket1->Socket->Connections[i]->SendText(Label1->Caption);
}    

傳給所有連線到這server的client。 試試看 國泰平安