1:
2:
3:
4:
5:
6:
7:
8:
9:

function TForm1.gethostip(host: String): String;
var
SockAddr: TSockAddrIn;
begin

  SockAddr.sin_addr.S_addr := Longint(PLongint(gethostbyname(PChar(host))^.h_addr^)^);
  result := inet_ntoa(SockAddr.sin_addr);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

function TForm1.online(host, port: String): Boolean;
begin
  tcpClient1.RemoteHost := host;
  tcpClient1.RemotePort := port;
  tcpClient1.Active := true;

  if tcpClient1.Connected = true then
  begin
    result := true;
  end
  else
  begin
    result := false;
  end;

  tcpClient1.Active := false;

end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.tmrDBTimer(Sender: TObject);
var Q : thrCheck;
begin

  Q := thrCheck.Create(false);
  Q.FreeOnTerminate := true;

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure thrCheck.Execute;
begin

  Synchronize(DoIt);

end;

procedure thrCheck.DoIt;
var ipHost1, ipHost2: String;
begin

  ipHost1 := gethostip2(strHost1);
  ipHost2 := gethostip2(strHost2);

end;

function thrCheck.gethostip2(host: String): String;
var
SockAddr: TSockAddrIn;
HostEnt: PHostEnt;
begin

  HostEnt := gethostbyname(PChar(host));
  if HostEnt <> nil then
  begin
    SockAddr.sin_addr.S_addr := Longint(PLongint(HostEnt^.h_addr^)^);
    result := inet_ntoa(SockAddr.sin_addr);
  end
  else
  begin
    result := 'error';
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

  tcpClient1.RemoteHost := host;
  tcpClient1.RemotePort := port;
  tcpClient1.Active := true;

  if tcpClient1.Connected = true then
  begin
    result := true;
  end
  else
  begin
    result := false;
  end;

  tcpClient1.Active := false;
  tcpClient1.Close;