怎样判断一个服务器是否正在正常工作? (10分)

我首先定义了
function HostToIP(Name: string;
var Ip: string): Boolean;
var
wsdata : TWSAData;
hostName : array [0..255] of char;
hostEnt : PHostEnt;
addr : PChar;
begin

WSAStartup ($0101, wsdata);
try
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt := gethostbyname (hostName);
if Assigned (hostEnt) then

if Assigned (hostEnt^.h_addr_list) then
begin

addr := hostEnt^.h_addr_list^;
if Assigned (addr) then
begin

IP := Format ('%d.%d.%d.%d', [byte (addr [0]),
byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result := True;
end
else

Result := False;
end
else

Result := False
else
begin

Result := False;
end;

finally
WSACleanup;
end
end;

完成这个后就可以用下面的部分探测到一个域名的IP地址了
var
IP: string;
DNS: string;
begin
button3.Enabled:=true;
label8.Caption:=combobox1.Text;
dns:=label7.Caption;
if HostToIp(DNS, IP) then
label7.Caption:=ip;
但是我要用什么语句才可以判断这个服务器正在正常工作中?我的意思就是,如果这个IP通的话就在一个label.caption里显示它正在正常服务中

为什么没人肯回答啊??555555555555

你们是不是嫌分少啊?
我是新人啊,没把积分都给你们,那我就连提问的机会也没有了,谁帮帮我吧.qqqq

555555555

r

不会你的问题，帮你顶一下吧，国庆节可能都回家了，问题可能要在等几天了，

接受答案了.