線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:994
推到 Plurk!
推到 Facebook!

請問我只有一台電腦而已,可以只在一台電腦的情況下做網際網路程式設計並且測試嗎???

答題得分者是:暗黑破壞神
iii0628
一般會員


發表:50
回覆:46
積分:19
註冊:2005-04-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-04-12 21:48:02 IP:163.13.xxx.xxx 未訂閱
請問我只有一台電腦而已,現在要寫一個網際網路程式的程式並且測試,這樣有辦法解決嗎???謝謝
暗黑破壞神
版主


發表:9
回覆:2301
積分:1627
註冊:2004-10-04

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-04-13 09:00:42 IP:221.169.xxx.xxx 未訂閱
可。 寫一個 ServerSocket 一個 ClientSocket IP 設連到 127.0.0.1 port 隨你。看你的 ServerSocket 設多少 ClientSocket 就設多少。
iii0628
一般會員


發表:50
回覆:46
積分:19
註冊:2005-04-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-04-13 11:14:12 IP:220.130.xxx.xxx 未訂閱
暗黑破壞神 你好:下面是我找到的範例程式,請問可以將下面的程式改為一個 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
暗黑破壞神
版主


發表:9
回覆:2301
積分:1627
註冊:2004-10-04

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-04-13 13:25:14 IP:221.169.xxx.xxx 未訂閱
我寫網路程式只用 ServerSocket 跟 ClientSocket 其它的我都不用。所以你問我。。。。我真的也不知道。 因為其它的都是為了使用者使用方便而”再包裝”的東東。 同樣的。用了”再包裝”的東西。一方面要忍受再包裝時的一些限制。 運氣不好還要承受它的 BUG 所帶來的痛苦。 所以那些 protocol 我都會自己去寫。^_^
系統時間:2024-03-28 22:53:52
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!