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