//判断一个机器的mssql是否启动,通过sql dmo是可以的,但对于没有装mssql的客户端来说就没办法,此处用的是连接mssql的1433端口,如果端口号不同,可以通过传递端口.
unit judge_u; 【程序编程相关:Socket API实现Trace Ro】 【推荐阅读:递归法选取树子节点 + 控件拖放】 【扩展信息:用Delphi实现QQ窗体的缩入伸出功能】interface
uses sysutils, classes, idbasecomponent, idcomponent, idtcpconnection, idicmpclient, idtcpclient, idrawbase, idrawclient; function judgeport(aservername: pchar; aport: integer): boolean; function judgeping(aservername: pchar): boolean; implementationfunction judgeping(aservername: pchar): boolean;//这个是用来pin计算机的.
var icmp: tidicmpclient; begin icmp := tidicmpclient.create(nil); icmp.receivetimeout := 1000; icmp.host := aservername; try icmp.ping; result := true; except ... 下一页