怎样获得机器的IP地址 ( 积分: 100 )

比较急，请教各位大狭，
我想通过DELPHI获得本机或者服务器的IP地址，通过两种方法实现：
1。DELPHI 在程序中
2。通过SQL语句在SQL2000中可以通过。
谢谢大家拉。

比较急，请教各位大狭，
我想通过DELPHI获得本机或者服务器的IP地址，通过两种方法实现：
1。DELPHI 在程序中
2。通过SQL语句在SQL2000中可以通过。
谢谢大家拉。

1、function LocalIP: string;
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
Exit;
pptr := PaPInAddr(Phe^.h_addr_list);
I := 0;
while pptr^ <> nil do
begin
if i = 0 then
result := StrPas(inet_ntoa(pptr^^))
else
result := result + ',' + StrPas(inet_ntoa(pptr^^));
Inc(I);
end;
WSACleanup;
end;


2、没明白啥意思？

uses
sysutils
,windows
,dialogs
,winsock
,classes
,comobj
,wininet;

function getlocalip(var localip: string): boolean;
var
hostent: phostent;
ip: string;
addr: pchar;
buffer: array [0..63] of char;
ginitdata: twsadata;
begin
result := false;
try
wsastartup(2, ginitdata);
gethostname(buffer, sizeof(buffer));
hostent := gethostbyname(buffer);
if hostent = nil then exit;
addr := hostent^.h_addr_list^;
ip := format('%d.%d.%d.%d', [byte(addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
localip := ip;
result := true;
finally
wsacleanup;
end;
end;

顶

这是一个完整的Delphi单元，将它加入到你的工程中，你可以调用：
EnumInterfaces(var s string): Boolean;
来返回所有IP地址、网络掩码、广播地址和连接状态。
--------------------------------------------------------------------


unit USock;


interface


uses Windows, Winsock;


{


此函数列举出所有的TCP/IP连接，并返回一个由回车换行(CRLF)符分隔的字符串，包含以下信息：


IP, NetMask, BroadCast-Address, Up/Down status,

Broadcast support, Loopback


如果你将这个字符串赋给TMemo(它的Memo.Lines.Text属性)，你可以看到更清晰的结果。


使用此函数，你需要Win98/ME/2K, 95 OSR 2 或者NT service pack #3，因为程序会使用到WinSock 2(WS2_32.DLL)。


}


function EnumInterfaces(var sInt: string): Boolean;


{ 从Winsock 2.0导入函数WSAIOCtl -- 在Win98/ME/2K and 95 OSR2, NT srv pack #3下才有Winsock 2 }


function WSAIoctl(s: TSocket; cmd: DWORD; lpInBuffer: PCHAR; dwInBufferLen:

DWORD;

lpOutBuffer: PCHAR; dwOutBufferLen: DWORD;

lpdwOutBytesReturned: LPDWORD;

lpOverLapped: POINTER;

lpOverLappedRoutine: POINTER): Integer; stdcall; external 'WS2_32.DLL';


{ Constants taken from C header files }


const SIO_GET_INTERFACE_LIST = $4004747F;

IFF_UP = $00000001;

IFF_BROADCAST = $00000002;

IFF_LOOPBACK = $00000004;

IFF_POINTTOPOINT = $00000008;

IFF_MULTICAST = $00000010;


type sockaddr_gen = packed record

AddressIn: sockaddr_in;

filler: packed array[0..7] of char;

end;


type INTERFACE_INFO = packed record

iiFlags: u_long; // Interface flags

iiAddress: sockaddr_gen; // Interface address

iiBroadcastAddress: sockaddr_gen; // Broadcast address

iiNetmask: sockaddr_gen; // Network mask

end;


implementation


{-------------------------------------------------------------------


1. 打开Winsock

2. 创建一个socket

3. 调用WSAIOCtl获取网络连接

4. 对每个连接，获取它的IP、掩码、广播地址、状态

5. 将信息填充到一个由CDLF分隔的字符串中

6. 结束


--------------------------------------------------------------------}


function EnumInterfaces(var sInt: string): Boolean;

var s: TSocket;

wsaD: WSADATA;

NumInterfaces: Integer;

BytesReturned, SetFlags: u_long;

pAddrInet: SOCKADDR_IN;

pAddrString: PCHAR;

PtrA: pointer;

Buffer: array[0..20] of INTERFACE_INFO;

i: Integer;

begin

result := true; // Initialize

sInt := '';


WSAStartup($0101, wsaD); // Start WinSock

// You should normally check

// for errors here


s := Socket(AF_INET, SOCK_STREAM, 0); // Open a socket

if (s = INVALID_SOCKET) then exit;


try // Call WSAIoCtl

PtrA := @bytesReturned;

if (WSAIoCtl(s, SIO_GET_INTERFACE_LIST, nil, 0, @Buffer, 1024, PtrA, nil,

nil)

<> SOCKET_ERROR)

then

begin // If ok, find out how

// many interfaces exist


NumInterfaces := BytesReturned div SizeOf(INTERFACE_INFO);


for i := 0 to NumInterfaces - 1 do // For every interface

begin

pAddrInet := Buffer.iiAddress.addressIn; // IP ADDRESS

pAddrString := inet_ntoa(pAddrInet.sin_addr);

sInt := sInt + ' IP=' + pAddrString + ',';

pAddrInet := Buffer.iiNetMask.addressIn; // SUBNET MASK

pAddrString := inet_ntoa(pAddrInet.sin_addr);

sInt := sInt + ' Mask=' + pAddrString + ',';

pAddrInet := Buffer.iiBroadCastAddress.addressIn; // Broadcast addr

pAddrString := inet_ntoa(pAddrInet.sin_addr);

sInt := sInt + ' Broadcast=' + pAddrString + ',';


SetFlags := Buffer.iiFlags;

if (SetFlags and IFF_UP) = IFF_UP then

sInt := sInt + ' Interface UP,' // Interface up/down

else

sInt := sInt + ' Interface DOWN,';


if (SetFlags and IFF_BROADCAST) = IFF_BROADCAST then // Broadcasts

sInt := sInt + ' Broadcasts supported,' // supported or

else // not supported

sInt := sInt + ' Broadcasts NOT supported,';


if (SetFlags and IFF_LOOPBACK) = IFF_LOOPBACK then // Loopback or

sInt := sInt + ' Loopback interface'

else

sInt := sInt + ' Network interface'; // normal


sInt := sInt + #13#10; // CRLF between

// each interface

end;

end;

except

end;
//
// Close sockets
//
CloseSocket(s);
WSACleanUp;
result := false;
end;
end.

{* 获取网络计算机名称}
function GetComputerName:string;
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt; s : array[0..128] of char;
begin
try
wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
WSAStartup(wVersionRequested, wsaData); //创建 WinSock
GetHostName(@s,128);
p:=GetHostByName(@s);
Result:=p^.h_Name;
finally
WSACleanup; //释放 WinSock
end;
end;

{* 获取计算机的IP地址}
function GetHostIP:string;
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt; s : array[0..128] of char; p2 : pchar;
begin
try
wVersionRequested := MAKEWORD(1, 1); //创建 WinSock
WSAStartup(wVersionRequested, wsaData); //创建 WinSock
GetHostName(@s,128);
p:=GetHostByName(@s);
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
Result:= P2;
finally
WSACleanup; //释放 WinSock
end;
end;

我非常感谢大家对这个问题的关注，
根据大家的方法，我已经找到了解决这个问题的方法，谢谢，
因为是首次提问，分数不足，哈哈哈哈，见笑，只好这样拉。