[Resolvido] verificar se há comunicação com o sql server

[flavioavilela 0]

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 nao conectasse, é pq a rede nao está disponível... mas é que nao 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 nao deixa prosseguir no código, onde mando exibir uma mensagem falando que não há rede disponível e fazer outras coisas.... alguem pode dar uma luz???

 

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