说明：  delphi 自定义网络函数：unit net interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean //通过ip返回机器名 function getnamebyipaddr(ipaddr: string var macname: string): boolean //获取网络中sqlserver列表 function getsqlserverlist(var list: tstringlist): boolean //获取网络中的所有网络类型 function getnetlist(var list: tstringlist): boolean //获取网络中的工作组
(delphi custom function Network: unit net interface uses sysutils, windows, dialogs, winsock, classes, comobj, wininet// get the local ip address of the LAN function getlocalip (var localip: string): boolean// through the machine name ip return function getnamebyipaddr (ipaddr: string var macname: string): boolean// access network sqlserver list function getsqlserverlist (var list: tstringlist): boolean// access to the network all network types function getnetlist (var list: tstringlist): boolean// access network Working Group)