如何得知電腦目前的IP |
|
|
|
cc_yuan
一般會員   發表：3 回覆：0 積分：0 註冊：2002-03-13 發送簡訊給我 |
|
|
yps
一般會員  發表：9 回覆：3 積分：7 註冊：2002-03-18 發送簡訊給我 |
有分為取得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 發送簡訊給我 |
另一為取得上網時的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 -------------------- |
發表時間：2002-03-21 18:13:36
IP:203.66.xxx.xxx 未訂閱
系統時間：2024-04-26 13:30:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |