verificar se há comunicação com o sql server

[flavioavilela]

boa tarde a todos...

preciso verificar se há rede disponível entre uma estação e o servidor (sql server)... minha intenção era dar um false e true no ADOConnection e se não conectasse, é porque a rede não está disponível... mas é que não está funcionando... eu tiro o cabo de rede da estação, e faço:

dm.ADOConnection.Conected:= false;
try
dm.ADOConnection.Conected:= true;
excpet
showmessage('sem rede');

ele retorna um erro: [DBNETLIB][ConnectionWrite (send()).] Erro geral de rede.... e no que da essa mensagem, ele não deixa prosseguir no código, onde mando exibir uma mensagem falando que não há rede disponível e fazer outras coisas.... alguém pode dar uma luz???

[flavioavilela]

descobri como fazer:

function Verifica_Status_Rede: boolean;
var
  flag: PDWord;
begin
  if not InternetGetConnectedState(@flag, 0) then
  begin
    dm.ADOConnection1.Connected:= false;
    Result:= false;
  end
  else
    Result:= true;
end;

antes, declarar a unit Wininet