Delphi編程中怎么獲取電腦上網卡的Ip地址

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

通過解析批處理命令結果獲取

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

通過delphi控件獲取Ip

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

通過WinSock函數獲取Ip

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

//多網卡 將IP地址寫入到列表，求本機IP的話返回IP列表中的第一個即可，該函數要引用 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;

該函數用到的主要Winsock方法有：

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

　　int WSAStartup ( WORD wVersionRequested, LPWSADATA lpWSAData )；wVersionRequested

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

⑵lpWSAData 指向WSADATA數據結構的指針，用來接收Windows Sockets實現的細節(jié)。

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

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

　　wVersion中返回它的高版本和wVersionRequested中的較小者。然后Windows Sockets DLL就會假設應用程序將使用wVersion.如果WSDATA結構中的wVersion域對調用方來說不可接收，它就應調用WSACleanup()函數并且要么去另一個Windows Sockets DLL中搜索，要么初始化失敗。

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

　　應用程序版本 DLL版本 wVersionRequested wVersion wHighVersion 最終結果

　　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 成功。否則返回下列的錯誤代碼之一。注意通常依靠應用程序調用WSAGetLastError()機制獲得的錯誤代碼是不能使用的，因為Windows Sockets DLL可能沒有建立"上一錯誤"信息儲存的客戶數據區(qū)域。

　　關于Windows Sockets提供者的說明：

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

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

錯誤代碼

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

　　WSAVERNOTSUPPORTED 所需的Windows Sockets API的版本未由特定的Windows Sockets實現提供。

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

（2）WSACleanup函數

int WSACleanup (void);

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

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

（3）gethostname()

　　【函數原型】

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

　　【使用說明】

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

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

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

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

（4）gethostbyname()

　　【函數原型】

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

　　【使用說明】

　　該函數可以從主機名數據庫中得到對應的"主機"。

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