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
//獲取網絡中的工作組
標簽:
interface
sysutils
classes
dialogs
上傳時間:
2015-05-09
上傳用戶:wanghui2438