如果连接内部网,也不需要在交换机上定 IP 吧,在交换机上定 IP 有什么意义呢?
“说明书上写道可以通过 web 接口控制和管理交换机参数”这只是说明交换机本身自带
DNS ,它会分配 2 个内部 IP ,一个是 web 一个是 ftp ,当然你还可以通过设备参数
的设置增加 DNS 解析数量,并设定 DHCP 。交换机的内部 DNS 的主 IP 在说明书里就有,
你读出来做什么用呢?实在不明白为什么有这种怪想法,但你既然问了,也不能不告诉你,
使用 WSAIoCtl 进行信息提取就行。
//获得IP
function Tfrmmain.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
Result := inet_ntoa(pptr^^);
Inc(I);
end;
WSACleanup;
end;