Delphi dicas

Pingando com o delphi

Esta função verifica a existência de um servidor na rede, pingando através do componente IdIcpmCliente (da palheta Indy), caso o resultado seja verdadeiro, pode-se fazer a conexão com o banco de dados.





Function VerificaServidor(HostName: String): boolean;

var

i, Soma : Integer;

PckEntregue : Array[1..3] of Integer;

begin

        with ICMP do

        begin

                Try

                BytesRecebidos := 0;

                Host := HostName ;



                For i:= 1 to 3 do

                begin

                        Ping;

                        if BytesRecebidos > 0 Then

                        PckEntregue[i] := 1

                        else

                        PckEntregue[i] := 0

                end;



                Finally

                Soma := 0;

                For i:= 1 to 3 do

                Soma := Soma + PckEntregue[i];



                if Soma >= 2 Then

                Result := True

                else

                Result := False;

        end;

end;

end;