全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:3367
推到 Plurk!
推到 Facebook!

如何得知電腦目前的IP

 
cc_yuan
一般會員


發表:3
回覆:0
積分:0
註冊:2002-03-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2002-03-21 18:13:36 IP:203.66.xxx.xxx 未訂閱
請問如何得知電腦目前的IP
yps
一般會員


發表:9
回覆:3
積分:7
註冊:2002-03-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2002-03-21 23:35:34 IP:61.216.xxx.xxx 未訂閱
有分為取得LOCAL的IP方法為下: 先在uses處加入winsock,在form中加入一個button及edit 加入以下function原始碼 ========================================================= function LocalIP : string; // // Return computer IP if you are connected in a network // Declare Winsock in the uses clause // type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr; var phe : PHostEnt; pptr : PaPInAddr; Buffer : array [0..63] of char; I : Integer; GInitData : TWSADATA; begin WSAStartup($101, GInitData); Result := ''; GetHostName(Buffer, SizeOf(Buffer)); phe :=GetHostByName(buffer); if phe = nil then begin Exit; end; pptr := PaPInAddr(Phe^.h_addr_list); I := 0; while pptr^[I] <> nil do begin result:=StrPas(inet_ntoa(pptr^[I]^)); Inc(I); end; WSACleanup; end; ========================================================== 並在button1的click事件中加入以下 procedure TForm1.Button1Click(Sender: TObject); begin edit1.text:=localip; end; 如此一來當按下button1就會在edit1中顯示您的IP位址了 報告完畢! -------------------- DELPHI ROCK & ROLL --------------------
------
--------------------
DELPHI ROCK & ROLL
--------------------
yps
一般會員


發表:9
回覆:3
積分:7
註冊:2002-03-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2002-03-21 23:38:50 IP:61.216.xxx.xxx 未訂閱
另一為取得上網時的IP,方法如下,首先也是要在uses中加入winsock,並在 FORM中加入一個button及一個memo,並參考以下原始碼 ================================================================ procedure TForm1.FormCreate(Sender: TObject); var wVersionRequested : WORD; wsaData : TWSAData; begin {Start up WinSock} wVersionRequested := MAKEWORD(1, 1); WSAStartup(wVersionRequested, wsaData); end; procedure TForm1.Button1Click(Sender: TObject); var p : PHostEnt; s : array[0..128] of char; p2 : pchar; begin {Get the computer name} GetHostName(@s, 128); p := GetHostByName(@s); Memo1.Lines.Add(p^.h_Name); {Get the IpAddress} p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^); Memo1.Lines.Add(p2); end; procedure TForm1.FormDestroy(Sender: TObject); begin {Shut down WinSock} WSACleanup; end; ======================================================== 當你按下button1時他會在memo1中秀出你電腦的名稱及IP位址 報告完畢... -------------------- DELPHI ROCK & ROLL --------------------
------
--------------------
DELPHI ROCK & ROLL
--------------------
系統時間:2017-10-22 7:00:01
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!