delphi 快速判断sql服务器的服务能否连接上

【文件属性】：
文件名称：delphi 快速判断sql服务器的服务能否连接上
文件大小：272KB
文件格式：ZIP
更新时间：2016-06-17 05:11:04
Mssqlserver 在做数据库开发的时候经常会遇到数据库连不上的情况，这个时候程序就会卡死，要等好长时间才能有反应，为此就做了一个快速数据库边接的程序，仅供大家参考。 本例中使用了TClientSocket（delphi自带）和TCnPing（可到cnpack去下载），请注意安装控件。 思路： 1：判断ip是否存在 2：判断1433端口是否打开 本程序在delphi 2007环境下开发，在xp环境下开发成功

【文件预览】：
用socket判断1433端口
----__history()
--------Project1.dpr.~1~(155B)
--------Unit1.pas.~4~(2KB)
--------Unit1.dfm.~5~(1KB)
--------Unit1.pas.~3~(1KB)
--------Unit1.pas.~5~(2KB)
--------Unit1.pas.~1~(1KB)
--------Unit1.dfm.~4~(1KB)
--------Unit1.pas.~2~(1KB)
--------Unit1.dfm.~3~(882B)
--------Unit1.dfm.~2~(882B)
--------Unit1.dfm.~1~(760B)
----Unit1.dcu(6KB)
----Project1.exe(495KB)
----Unit1.dfm(1KB)
----用socket判断1433端口，以实现快速获取sql服务是否在运行.txt(885B)
----Project1.dpr(230B)
----Unit1.pas(2KB)
----Project1.identcache(135B)
----Project1.res(5KB)
----Project1.dproj(3KB)
----Project1.dproj.local(286B)