各位大大好  我有一個問題就是 我開了兩個FORM做網路傳輸的功能 Clientsocket和Serversocket都有連到 但是在傳輸的內容都傳不到  為什麼呢?? 以下是我的程式碼    *********************************Client端*************************** (Unit1)//--------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" #include "Unit2.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { AnsiString buf; ClientSocket1->Host=Edit1->Text; ClientSocket1->Active=true; Form2->ShowModal(); buf=ClientSocket1->Socket->ReceiveText(); Label1->Caption=buf; ClientSocket1->Active=false; } //-------------------------------------------------------------------- (Unit2)//-------------------------------------------------------------------- #include #pragma hdrstop #include "Unit2.h" #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm2 *Form2; //--------------------------------------------------------------------------- __fastcall TForm2::TForm2(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm2::Button1Click(TObject *Sender) { ClientSocket1->Host=Form1->Edit1->Text; ClientSocket2->Host=Form1->Edit1->Text; ClientSocket1->Active=true; ClientSocket2->Active=true; ClientSocket1->Socket->SendText(Edit1->Text); ClientSocket2->Socket->SendText(Edit2->Text); ClientSocket1->Active=false; ClientSocket2->Active=false; Form2->Close(); } //-------------------------------------------------------------------- **************************Server端************************ //--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; AnsiString id,pw; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { ServerSocket1->Active = true ; ServerSocket2->Active = true ; ServerSocket3->Active = true ; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { ServerSocket1->Active = false ; ServerSocket2->Active = false ; ServerSocket3->Active = false ; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket2ClientRead(TObject *Sender, TCustomWinSocket *Socket) { AnsiString buf; pw=ServerSocket2->Socket->ReceiveText(); Edit1->Text=id; Edit2->Text=pw; ADOQuery1->Close(); ADOQuery1->SQL->Clear(); ADOQuery1->Parameters->CreateParameter("checkID",ftString,pdInput,30,id); ADOQuery1->Parameters->CreateParameter("checkPassword",ftString,pdInput,30,pw); ADOQuery1->SQL->Add("Select * From 資料表1 Where ID=:checkID and Password=:checkPassword"); ADOQuery1->Open(); if(ADOQuery1->RecordCount==1) { buf="登入成功"; ServerSocket3->Socket->Connections[0]->SendText(buf); } else { buf="登入失敗"; ServerSocket3->Socket->Connections[0]->SendText(buf); } } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender, TCustomWinSocket *Socket) { id=ServerSocket2->Socket->ReceiveText(); } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket1ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Label2->Caption="1"; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket2ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Label3->Caption="2"; } //--------------------------------------------------------------------------- void __fastcall TForm1::ServerSocket3ClientConnect(TObject *Sender, TCustomWinSocket *Socket) { Label4->Caption="3"; } //-------------------------------------------------------------------- 希望好心的大大能幫我(BCB 新手)看看...........3q