Delphi編程中怎么獲取電腦上網(wǎng)卡的Ip地址

通過注冊表獲取IP地址
想到Windows會把系統(tǒng)網(wǎng)卡相關(guān)信息存入注冊表，肯定可通過注冊表讀取具體ip信息。大致思路是找HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards ，由NetworkCards得分支表示各個網(wǎng)卡的信息通過ServiceName到 HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces 下找到對應的網(wǎng)卡配置詳細信息，通過對注冊表的read與write實現(xiàn)讀取或修改ip地址等信息。

通過解析批處理命令結(jié)果獲取

在cmd命令行輸入ipconfig可以顯示出當前電腦ip地址，可以考慮先執(zhí)執(zhí)行命令"Ipconfig /all >Ips.txt"，然后解析Ips.txt文件得到本機的Ip信息，此方法較繁雜。

通過delphi控件獲取Ip

找到fastnet 下的 Tpowersock控件，利用 該控件localip屬性返回 本機（主要指局域網(wǎng)） ip地址 。 放一個控件在窗體上可得到本機IP，方便簡單。

通過WinSock函數(shù)獲取Ip

此方法在程序中常用，一般函數(shù)如下：

//多網(wǎng)卡 將IP地址寫入到列表，求本機IP的話返回IP列表中的第一個即可，該函數(shù)要引用 WinSock

function GetLocalIpList(var IpList:TStringList):Integer;

type

TaPInAddr = array[0..10] of PInAddr;

PaPInAddr = ^TaPInAddr;

var

HostName: array [0..MAX_PATH] of char;

NameLen: Integer;

WSData: TWSAData;

lpHostEnt: PHostEnt;

I: Integer;

pptr: PaPInAddr;

begin

Result := 0;

if WSAStartup(MakeWord(2,0), WSData) <> 0 then Exit;

try

NameLen := sizeof(HostName);

fillchar(HostName, NameLen, 0);

NameLen := GetHostName(HostName, NameLen);

if NameLen = SOCKET_ERROR then Exit;

lpHostEnt := GetHostByName(HostName);

if lpHostEnt = Nil then Exit;

I := 0;

pPtr := PaPInAddr(lpHostEnt^.h_addr_list);

IpList.Clear;

while pPtr^[I] <> nil do

begin

IpList.ADD( inet_ntoa(pptr^[I]^));

Inc(I);

end;

Result := IpList.Count;

finally

WSACleanup;

end;

end;

該函數(shù)用到的主要Winsock方法有：

（1）WSAStartup，即WSA(Windows SocKNDs Asynchronous，Windows異步套接字)的啟動命令。是Windows下的網(wǎng)絡編程接口軟件Winsock1 或 Winsock2 里面的一個命令（Ps：Winsock 是由Unix下的BSD Socket發(fā)展而來,是一個與網(wǎng)絡協(xié)議無關(guān)的編程接口）。為了在應用程序當中調(diào)用任何一個Winsock API函數(shù)，首先第一件事情就是必須通過WSAStartup函數(shù)完成對Winsock服務的初始化，因此需要調(diào)用WSAStartup函數(shù)。使用Socket的程序在使用Socket之前必須調(diào)用WSAStartup函數(shù)。該函數(shù)的第一個參數(shù)指明程序請求使用的Socket版本，其中高位字節(jié)指明副版本、低位字節(jié)指明主版本；操作系統(tǒng)利用第二個參數(shù)返回請求的Socket的版本信息。當一個應用程序調(diào)用WSAStartup函數(shù)時，操作系統(tǒng)根據(jù)請求的Socket版本來搜索相應的Socket庫，然后綁定找到的Socket庫到該應用程序中。以后應用程序就可以調(diào)用所請求的Socket庫中的其它Socket函數(shù)了。函數(shù)定義如下：

　　int WSAStartup ( WORD wVersionRequested, LPWSADATA lpWSAData )；wVersionRequested

　　⑴ wVersionRequested：一個WORD（雙字節(jié)）型數(shù)值，指定了應用程序需要使用的Winsock規(guī)范的最高版本。高位字節(jié)指出副版本(修正)號，低位字節(jié)指明主版本號。

⑵lpWSAData 指向WSADATA數(shù)據(jù)結(jié)構(gòu)的指針，用來接收Windows Sockets實現(xiàn)的細節(jié)。

本函數(shù)必須是應用程序或DLL調(diào)用的第一個Windows Sockets函數(shù)。它允許應用程序或DLL指明Windows Sockets API的版本號及獲得特定Windows Sockets實現(xiàn)的細節(jié)。應用程序或DLL只能在一次成功的WSAStartup()調(diào)用之后才能調(diào)用進一步的Windows Sockets API函數(shù)。

　　為支持日后可能和Windows Sockets 1.1有功能上差異的Windows Sockets實現(xiàn)及應用程序，在WSAStartup()中規(guī)定了一個協(xié)議。WSAStartup()的調(diào)用方和Windows Sockets DLL互相通知對方它們可以支持的最高版本，并且互相確認對方的最高版本是可接受的。在WSAStartup()函數(shù)的入口，Windows Sockets DLL檢查了應用程序所需的版本。如果所需版本低于DLL支持的最高版本，則調(diào)用成功并且DLL在wHighVersion中返回它所支持的最高版本，在

　　wVersion中返回它的高版本和wVersionRequested中的較小者。然后Windows Sockets DLL就會假設應用程序?qū)⑹褂脀Version.如果WSDATA結(jié)構(gòu)中的wVersion域?qū)φ{(diào)用方來說不可接收，它就應調(diào)用WSACleanup()函數(shù)并且要么去另一個Windows Sockets DLL中搜索，要么初始化失敗。

　　本協(xié)議允許Windows Sockets DLL和Windows Sockets應用程序共同支持一定范圍的Windows Sockets版本。如果版本范圍有重疊，應用程序就可以成功地使用Windows Sockets DLL。下列的圖表給出了WSAStartup()在不同的應用程序和Windows Sockets DLL版本中是如何工作的：

　　應用程序版本 DLL版本 wVersionRequested wVersion wHighVersion 最終結(jié)果

　　1.1 1.1 1.1 1.1 1.1 use 1.1

　　1.0 1.1 1.0 1.1 1.0 1.0 use 1.0

　　1.0 1.0 1.1 1.0 1.0 1.1 use 1.0

　　1.1 1.0 1.1 1.1 1.1 1.1 use 1.1

　　1.1 1.0 1.1 1.0 1.0 失敗

　　1.0 1.1 1.0 －- －- WSAVERNOTSUPPORTED

　　1.0 1.1 1.0 1.1 1.1 1.1 1.1 use 1.1

　　1.1 2.0 1.1 2.0 1.1 1.1 use 1.1

2.0 1.1 2.0 1.1 1.1 失敗

返回值：0 成功。否則返回下列的錯誤代碼之一。注意通常依靠應用程序調(diào)用WSAGetLastError()機制獲得的錯誤代碼是不能使用的，因為Windows Sockets DLL可能沒有建立"上一錯誤"信息儲存的客戶數(shù)據(jù)區(qū)域。

　　關(guān)于Windows Sockets提供者的說明：

　　每一個Windows Sockets應用程序必須在進行其它Windows Sockets API調(diào)用前進行WSAStartup()調(diào)用。這樣，本函數(shù)就可以用于初始化的目的。

　　進一步的說明在WSACleanup()的說明中有討論。

錯誤代碼

　　WSASYSNOTREADY 指出網(wǎng)絡通信依賴的網(wǎng)絡子系統(tǒng)還沒有準備好。

　　WSAVERNOTSUPPORTED 所需的Windows Sockets API的版本未由特定的Windows Sockets實現(xiàn)提供。

WSAEINVAL 應用程序指出的Windows Sockets版本不被該DLL支持。

（2）WSACleanup函數(shù)

int WSACleanup (void);

應用程序在完成對請求的Socket庫的使用后，要調(diào)用WSACleanup函數(shù)來解除與Socket庫的綁定并且釋放Socket庫所占用的系統(tǒng)資源。

WSAStartup應該與WSACleanup成對使用，WSAStartup的功能是初始化Winsock DLL，WSACleanup是來解除與Socket庫的綁定并且釋放Socket庫所占用的系統(tǒng)資源。 在Windows下，Socket是以DLL的形式實現(xiàn)的。在DLL內(nèi)部維持著一個計數(shù)器，只有第一次調(diào)用WSAStartup才真正裝載DLL，以后的 調(diào)用只是簡單的增加計數(shù)器，而WSACleanup函數(shù)的功能則剛好相反，每調(diào)用一次使計數(shù)器減1，當計數(shù)器減到0時，DLL就從內(nèi)存中被卸載！因此，你 調(diào)用了多少次WSAStartup，就應相應的調(diào)用多少次的WSACleanup.

（3）gethostname()

　　【函數(shù)原型】

int PASCAL FAR gethostname (char FAR * name, int namelen);

　　【使用說明】

　　該函數(shù)可以獲取本地主機的主機名，其中：

　　name：用于指向所獲取的主機名的緩沖區(qū)的指針。

　　Namelen：緩沖區(qū)的大小，以字節(jié)為單位。

返回值：若無錯誤，返回0；否則，返回錯誤代嗎。

（4）gethostbyname()

　　【函數(shù)原型】

struct hostent FAR * PASCAL FAR gethostbyname(const char FAR * name);

　　【使用說明】

　　該函數(shù)可以從主機名數(shù)據(jù)庫中得到對應的"主機"。

　　該函數(shù)唯一的參數(shù)name就是前面調(diào)用函數(shù)gethostname()得到的主機名。若無錯誤，剛返回一個指向hostent結(jié)構(gòu)的指針，它可以標識一個"主機"列表。