Delphi网络函数 unit net; interfaceusessysutils,windows,dialogs,winsock,classes,comobj,wininet; //得到本机的局域网ip地址function getlocalip(var localip:string): boolean;//通过ip返回机器名function getnamebyipaddr(ipaddr: string; var macname: string): boolean ;//获取网络中sqlser…