如何將sever的hostname廣播給其它電腦 |
答題得分者是:RaynorPao
|
all
一般會員 發表:10 回覆:11 積分:4 註冊:2003-07-11 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 各位大大: 請問一下,現在我取得了server的名稱,但是其它電腦並不知server是那一台,我要如何讓server將自己的名稱廣播出去讓其它電腦與之連線??all 你好: 試試看利用 Indy 元件 TIdUDPServer 的 Broadcast method 以下是範例程式碼 < class="code"> // Server 端,先在 Form1 上拉一個 IdUDPServer1 void __fastcall TForm1::Button1Click(TObject *Sender) { IdUDPServer1->DefaultPort=4000; IdUDPServer1->Active=true; IdUDPServer1->Broadcast("Server Name", 4000); IdUDPServer1->Active=false; } // Client 端,先在 Form1 上拉一個 IdUDPServer1 void __fastcall TForm1::FormCreate(TObject *Sender) { IdUDPServer1->DefaultPort=4000; IdUDPServer1->Active=true; } void __fastcall TForm1::FormDestroy(TObject *Sender) { IdUDPServer1->Active=false; } void __fastcall TForm1::IdUDPServer1UDPRead(TObject *Sender, TStream *AData, TIdSocketHandle *ABinding) { AnsiString sz; sz.SetLength(AData->Size); AData->Read(&sz[1], AData->Size); ShowMessage(sz); } -- Enjoy Researching & Developing -- 發表人 - RaynorPao 於 2003/07/15 14:41:55
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
all
一般會員 發表:10 回覆:11 積分:4 註冊:2003-07-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |