Location:
Search - get lan delphi
Search list
Description: 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
Platform: |
Size: 92160 |
Author: orientyu |
Hits:
Description: Delphi写的QQ号捕捉局域网版 v1.0，没有搞懂是怎么用的，不过在D7下顺利编译，好像也没有实用控件，纯Delphi实现，明明有Form窗体，但不知运行后为什么是命令提示符？希望高人赐解。
-QQ number written in Delphi to capture the LAN version v1.0, do not get to know is how to use, but in D7 compiled smoothly, as if there is no practical control, pure Delphi to achieve, even when Form Form, but I do not know why, after running the command Prompt? Hope that the GAO Ren give solution.
Platform: |
Size: 54272 |
Author: 王强 |
Hits: