引言: 各位高手好,有個問題想請問一下,就是小弟在實做TServerSocket與ClientSocket的時候,為何在Server端的OnClientDisconnect事件下 Server端卻沒有動作產生 我在client端下了ClientSocket1->Close(),不是表示Client端已經斷線了嗎?? 那為何事件沒有觸發??這是BCB的bug嗎??還是Client端斷線寫法錯誤?? 請各位高手指教

willchen 你好:
(1)請問你是怎麼寫的呢?? 是否確定程式碼有執行到該行??
( >
// >Address="192.168.1.1">Port=4000;
   ClientSocket1->Open();
}
__fastcall TForm1::~TForm1()
{
   ClientSocket1->Close();
}
// Server
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
   ServerSocket1->Port=4000;   
   ServerSocket1->Open();
}
__fastcall TForm1::~TForm1()
{
   ServerSocket1->Close();
}
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
   AnsiString szRemoteIP=Socket->RemoteAddress;
   AnsiString szRemoteHost=Socket->RemoteHost;
   AnsiString szSocketHandle=IntToStr(Socket->SocketHandle);
   AnsiString szClientList=szRemoteIP "," szRemoteHost "," szSocketHandle;
   ShowMessage(szClientList " connect");
}
void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket)
{
   AnsiString szRemoteIP=Socket->RemoteAddress;
   AnsiString szRemoteHost=Socket->RemoteHost;
   AnsiString szSocketHandle=IntToStr(Socket->SocketHandle);
   AnsiString szClientList=szRemoteIP "," szRemoteHost "," szSocketHandle;
   ShowMessage(szClientList " disconnect");
}

 void __fastcall TForm1::DS2MMServerClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
 TMemoryStream *receivestream=new TMemoryStream();     ::Sleep(3);
 int receivebuf_len=Socket->ReceiveLength();
 char *receivebuf=new char[receivebuf_len];
 memset(receivebuf,0,receivebuf_len);
 Socket->ReceiveBuf(receivebuf,receivebuf_len);
 ::Sleep(3);
 receivestream->Write(receivebuf,receivebuf_len);
 receivestream->SaveToFile(CurrentDir "temp\\MACE140116039126.tmp");
 ::Sleep(3);
 MM_Triple_DES->DecryptFileA(CurrentDir "temp\\MACE140116039126.tmp",CurrentDir "temp\\MACE140116036126.agn");
 ::Sleep(3);
 DeleteFile(CurrentDir "temp\\MACE140116039126.tmp");     receivestream->Clear();          //clear     //讀檔
 receivestream->LoadFromFile(CurrentDir "temp\\MACE140116036126.agn");
 int buf_len=(int)receivestream->Size;
 char *buf=new char[buf_len 1];
 memset(buf,0,buf_len 1);
 receivestream->ReadBuffer(buf,buf_len);
 AnsiString fullagent=buf;
 Memo1->Text=fullagent;           //fullagent為行動代理者完整內容     //Parser Agent開始
  int left,right;      //index      //AgentID
  left=fullagent.Pos("") 4;
  right=fullagent.Pos("");
  AgentID=fullagent.SubString(left,right-left);      //PS,CS
   //CS
   left=fullagent.Pos("") 4;
   right=fullagent.Pos("");
   CS=fullagent.SubString(left,right-left);       //PS
   left=fullagent.Pos("") 4;
   right=fullagent.Pos("
");
   PS=fullagent.SubString(left,right-left);      //CS_Item
  left=fullagent.Pos("") 6 CS.Length();
  right=fullagent.Pos("");
  CS_Item=fullagent.SubString(left,right-left);        //CS_IP
    left=CS_Item.Pos("") 4;
    right=CS_Item.Pos("");
    CS_IP=CS_Item.SubString(left,right-left);        //CS_Servicename
    left=CS_Item.Pos("") 13;
    right=CS_Item.Pos("");
    CS_Servicename=CS_Item.SubString(left,right-left);        //CS_Argument
    left=CS_Item.Pos("") 10;
    right=CS_Item.Pos("");
    CS_Argument=CS_Item.SubString(left,right-left);      if(StrToInt(PS)!=0)
  {
   //PS_Item
  left=fullagent.Pos("") 6 PS.Length();
  right=fullagent.Pos("");
  PS_Item=fullagent.SubString(left,right-left);        //PS_IP
    left=PS_Item.Pos("") 4;
    right=PS_Item.Pos("");
    PS_IP=PS_Item.SubString(left,right-left);        //PS_Servicename
    left=PS_Item.Pos("") 13;
    right=PS_Item.Pos("");
    PS_Servicename=PS_Item.SubString(left,right-left);        //PS_Argument
    left=PS_Item.Pos("") 10;
    right=PS_Item.Pos("");
    PS_Argument=PS_Item.SubString(left,right-left);
  }     //呼叫Serverlet起來執行
 //Set Serverletpath
 //AnsiString Serverletpath=ServerletDir CS_Servicename;
 //ShellExecute(Application->Handle,NULL,Serverletpath.c_str(),NULL,NULL,SW_SHOW);     //free memory
 delete [] buf;
 delete [] receivebuf;
 delete receivestream;
}