Fórum Componente IDICMP #412874

Inclua o componente IdIcmpClient da paleta Indy Clients. Neste exemplo, o componente foi renomeado para Pingador. Sendo Form1 o nome do formulário, crie uma função de nome EstaVivo para retornar tipo booleano.

function EstaVivo(IP: String): boolean;

e na seção Implements:

function TForm1.EstaVivo(IP: String): boolean;
begin

with Pingador do begin
Host := IP;
ReceiveTimeout := 500;
Ping;
if ReplyStatus.BytesReceived > 0 then
result := true
else
result := false;
end;

end;


Exemplo de como usar:

procedure TForm1.Button1Click(Sender: TObject);
begin

if EstaVivo2(Edit1.Text) then
ShowMessage(Vivo)
else
ShowMessage(Morto);

end;

Fonte da pesquisa:

http://www.planetadelphi.com.br/dica/6693/exemplo-simples-de-como-usar-ping-com-o-componente-idicmpclient-(indy)

Não sei se eu não intendi o código, mas vamos a nova pergunta. No código acima não esta sendo definido o tamanho do pacote a ser enviado certo? Caso positivo, como passo o tamanho do pacote?

Grato pela atenção!

Imagino que o que você queira está no exemplo:


http://www.experts-exchange.com/Programming/Languages/Pascal/Delphi/Q_21850750.html


----------------------------------------------------------------------------------------------


Outros exemplos:

http://www.cristianok.org/2002/11/implementando-um-ping-usando-icmp/

Exemplo:

http://www.kliplace.org/cristiano/dw/Ping.zip


----------------------------------------------------------------------------------------------

http://www.delphigroups.info/2/3/211466.html

Obrigado Deivison, os links ajudaram bastante.