請問我只有一台電腦而已，現在要寫一個網際網路程式的程式並且測試，這樣有辦法解決嗎???謝謝

可。 寫一個 ServerSocket 一個 ClientSocket IP 設連到 127.0.0.1 port 隨你。看你的 ServerSocket 設多少 ClientSocket 就設多少。

暗黑破壞神 你好：下面是我找到的範例程式，請問可以將下面的程式改為一個 ServerSocket程式 一個 ClientSocket程式。範例中的程式是用NMMsg1和NMMSGServ1這2個元件，好像不符合我現在要寫的程式...謝謝                  

//---------------------------------------------------------------------------
// Server Side Code
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
  //清除Message Log
  Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMMSGServ1MSG(TComponent *Sender,
      const AnsiString sFrom, const AnsiString sMsg)
{
  //將收到的訊息放在msg這個AnsiString中
  AnsiString msg = sFrom   " => "   sMsg;      //停頓一些時間..讓程式處理Socket
  Sleep(100);
  //將收到的Log Append到Memo上
  Memo1->Lines->Add(msg);
}
//---------------------------------------------------------------------------
// Server Side Code Finish
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
// Client Side Code
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
  //檢查是否三個Edit全部都填入資料了
  if ((LabeledEdit1->Text != "") &&
      (LabeledEdit2->Text != "") &&
      (LabeledEdit3->Text != ""))
  {
    //設定Server Host
    NMMsg1->Host = LabeledEdit1->Text;
    //設定Sender's Name
    NMMsg1->FromName = LabeledEdit2->Text;
    //將要送出的Message Post出去給Server
    NMMsg1->PostIt(LabeledEdit3->Text);
    //將送出的內容從LabeledEdit中清除
    LabeledEdit3->Text = "";
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::LabeledEdit3KeyPress(TObject *Sender, char &Key)
{
  //功能跟BitBtn2一樣
  //不過這個事件是用來抓取"Enter"這個鍵
  //如果我們在LabeledEdit中按下Enter
  //程式就會自動幫我們把訊息送出去
  if (Key == 13)
  {
    if ((LabeledEdit1->Text != "") &&
        (LabeledEdit2->Text != "") &&
        (LabeledEdit3->Text != ""))
    {
      NMMsg1->Host = LabeledEdit1->Text;
      NMMsg1->FromName = LabeledEdit2->Text;
      NMMsg1->PostIt(LabeledEdit3->Text);
      LabeledEdit3->Text = "";
    }
  }
}
//---------------------------------------------------------------------------
// Client Side Code Finish
//---------------------------------------------------------------------------

引言: 可。 寫一個 ServerSocket 一個 ClientSocket IP 設連到 127.0.0.1 port 隨你。看你的 ServerSocket 設多少 ClientSocket 就設多少。

發表人 - iii0628 於 2005/04/13 11:19:00

我寫網路程式只用 ServerSocket 跟 ClientSocket 其它的我都不用。所以你問我。。。。我真的也不知道。 因為其它的都是為了使用者使用方便而”再包裝”的東東。 同樣的。用了”再包裝”的東西。一方面要忍受再包裝時的一些限制。 運氣不好還要承受它的 BUG 所帶來的痛苦。 所以那些 protocol 我都會自己去寫。^_^