TServerSocket與TClientSocket接收訊息的問題 |
尚未結案
|
angress
一般會員 發表:2 回覆:0 積分:0 註冊:2005-03-08 發送簡訊給我 |
//-----------------------加入Communication----------------------//
void __fastcall TForm1::Listen1Click(TObject *Sender)
{
Listen1->Checked = !Listen1->Checked;
if (Listen1->Checked)
{
ClientSocket1->Active = false;
ServerSocket1->Active = true;
StatusBar1->SimpleText = "Listening..";
}
else
{
if (ServerSocket1->Active)
{
ServerSocket1->Active = false;
}
StatusBar1->Panels->Items[0]->Text = " ";
}
}
//--------------------------------------------------------------------------- void __fastcall TForm1::Connect1Click(TObject *Sender)
{
if (ClientSocket1->Active)
{
ClientSocket1->Active = false;
}
if (InputQuery("Compter connect to","Address Name:",Server))
{
if (Server.Length()>0)
{
ClientSocket1->Host = Server;
ClientSocket1->Active = true;
Listen1->Checked = false;
}
}
}
//--------------------------------------------------------------------------- void __fastcall TForm1::Exit1Click(TObject *Sender)
{ ServerSocket1->Close();
ClientSocket1->Close();
Close();
}
//--------------------------------------------------------------------------- void __fastcall TForm1::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{
StatusBar1->SimpleText="連接到:"+Server;
Memo1->Lines->Clear();
Memo2->Lines->Clear(); }
//--------------------------------------------------------------------------- void __fastcall TForm1::DisConnect1Click(TObject *Sender)
{
ClientSocket1->Active = false;
ServerSocket1->Active = true;
StatusBar1->Panels->Items[0]->Text = "Disconnect..";
}
//--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1Accept(TObject *Sender,
TCustomWinSocket *Socket)
{
Memo1->Lines->Clear();
IsServer=true;
StatusBar1->SimpleText="connection to:"+Socket->RemoteAddress;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ClientSocket1Disconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
StatusBar1->SimpleText="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientDisconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
int i=ListBox1->Items->IndexOf(Socket->RemoteAddress);
if(i>=0)
{
ListBox1->Items->Delete(i);
} StatusBar1->SimpleText="正在監聽...";
ii = ii - 1;
}
//-------------------------------------------------------------------void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket/*, AnsiString allow_parity_0*/)
{ 這裡會接收其他三台筆記型電腦所傳送的訊息
(接收的訊息是10個數字形成的字串) 這裡會利用條件判別所接都的資料是否收齊之後
例如if(counter==3)之類的辨別條件
將訊息送出(送出的訊息是10個數字形成的字串)
ServerSocket1->Socket->Connections[i]->SendText(Data);
{ //---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{ int j=ListBox1->Items->IndexOf(Socket->RemoteAddress);
if(j<0)
{
ListBox1->Items->Add(Socket->RemoteAddress);
} ii = ii 1;
// Memo1->Lines->Clear(); **
} //-------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1ClientError(TObject *Sender,
TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode)
{
ErrorCode = 0;
for(int i=0; i
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |