大家好 請問要如何實現用clientsocket傳送多條command 的構想呢? 程式如下 其中command 以用陣列指定了,而且每下一條command,都會有回應值須Read 先謝了!    void __fastcall TForm3::Button1Click(TObject *Sender) { ClientSocket1->Open(); for(int i=0;i<5;i ) { ClientSocket1->Socket->SendBuf(WBuffer[i],8192); Form3->Caption="Write"; } void __fastcall TForm3::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket) { int n = Socket->ReceiveBuf(ReadBuf,8192); AnsiString s; for(int i=0; iCaption="Read"; } 發表人 - taishyang 於 2004/10/15 23:48:25

    int CmdNo;
int MaxCmd;    void __fastcall TForm3::Button1Click(TObject *Sender)
{
ClientSocket1->Open();    CmdNo = 0;
MaxCmd = 5;
 
       ClientSocket1->Socket->SendBuf(WBuffer[CmdNo],8192);
       Form3->Caption="Write";
}     void __fastcall TForm3::ClientSocket1Read(TObject *Sender,
      TCustomWinSocket *Socket)
{
        int n = Socket->ReceiveBuf(ReadBuf,8192);
        Form3->Caption="Read";            if (回答正確)
        {
          CmdNo  ;
          if (CmdNo < MaxCmd)
          {     
            ClientSocket1->Socket->SendBuf(WBuffer[CmdNo],8192);
            Form3->Caption="Write";
          } else 完成.
        } else 答非所問,重送command
}
 

我一般都是這樣處理的,參考看看. 還有,假如送出訊息後沒有回應,過2秒再重送訊息.送了10次20次都沒回應,則離線重新連線.

謝謝

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.