TServerConnectionChecker é uma biblioteca em Delphi para verificação de conexão com servidores. Oferece uma maneira simples de testar a disponibilidade de um servidor e avaliar sua resposta.
Adicione a biblioteca ao seu projeto Delphi importando o arquivo uController.ServerConnection.pas.
A seguir está um exemplo de como usar a biblioteca para verificar a conexão com um servidor:
uses uController.ServerConnection;
procedure CheckNextIP(var IP: string);
var
ServerChecker: TServerConnectionChecker;
ServerChecker2: TServerConnectionChecker;
begin
IP := '192.168.2.1';
ServerChecker := TServerConnectionChecker.Create(IP, '80');
case ServerChecker.Check of
ssConnected:
Exit;
ssDisconnected, ssError:
begin
IP := '192.168.2.2';
ServerChecker2 := TServerConnectionChecker.Create(IP, '80');
case ServerChecker2.Check of
ssConnected:
Exit;
ssDisconnected, ssError:
begin
IP := '127.0.0.1';
end;
end;
end;
end;
end;
Esta é uma procedure em Delphi que usa a biblioteca TServerConnectionChecker para verificar a conexão com um servidor. A procedure recebe uma variável IP que é inicialmente definida como _IP_SRV_PRINC.
Em seguida, é criada uma instância da classe TServerConnectionChecker para o endereço de IP e porta especificados. A função Check é chamada para verificar a conexão com o servidor e o resultado é avaliado com o case.
Se a conexão for bem-sucedida, a procedure é finalizada. Caso contrário, a variável IP é alterada para _IP_SRV_SEG e uma nova instância da classe TServerConnectionChecker é criada para este novo endereço de IP. O processo de verificação é repetido.
Se a conexão com ambos os endereços de IP falhar, a variável IP é definida como '127.0.0.1'.
Se você tiver dúvidas sobre o uso da classe TServerConnectionChecker, entre em contato conosco pelo WhatsApp (97) 99144-2486. Estamos sempre dispostos a ajudar.
Se você encontrou essa classe útil e gostaria de fazer uma doação, por favor, envie para o PIX delmar.apui@gmail.com. Seu apoio é muito importante para nós e ajuda a mantê-lo atualizado e disponível para todos. Obrigado!