文件名称: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)