var
ip:string;
ipstr:string;
buffer:array[1..32] of char;
i:integer;
wsdata:twsadata;
host:phostent;
begin
if wsastartup(2,wsdata)<>0 then //為程式使用ws2_32.dll初始化
begin
showmessage('ws2_32.dll初始化失敗!');
halt;
end;
tryif gethostname(@buffer[1],32)<>0 then
begin
showmessage('沒有得到主機名！');
halt;
end;
except
showmessage('沒有成功返回主機名');
halt;
end;
host:=gethostbyname(@buffer[1]);
if host=nil then
begin
showmessage('ip位址為空！');
halt;
endelse
begin
edit2.text:=host.h_name;
edit3.text:=chr(host.h_addrtype+64);
for i:=1 to 4 do
begin
ip:=inttostr(ord(host.h_addr^[i-1]));
showmessage('分段ip位址為:'+ip);
ipstr:=ipstr+ip;
if i<4 then
ipstr:=ipstr+'.'
else
edit1.text:=ipstr;
end;
end;
end;
得到本機IP位址
方法1 通過網域名稱得到 目標板沒有網域名稱，無法取得 void print ip lst while hp h addr list id null 方法2 ioctl 已驗證 include include int get ip address r1 char ip,char netmask io...
mfc獲取機器名 本機IP
在介紹如何獲取機器名 本機ip之前，先了解一下幾個概念 1 hostent 網域名稱結構體 struct hostent 2 gethostname 函式 返回本地主機的標準主機名。gethostname out bcount namelen char far name,in int namelen...
PB得到本機的名稱和IP位址MAC位址
函式名稱 f getip 呼叫方法 f getip ip name 返回結果 string 由ip name決定的反回結果 建立全域性的結構s wsadata 結構如下 version unsignedinteger highversion unsignedinteger description 2...