Você pode fazer um try tentando fazer a conexão com a máquina.
Exemplo:
function testarConexao():Boolean;
begin
try
ClientSocket.Host := '192.168.0.123';
ClientSocket.Port := 1234;
ClientSocket.Open;
Result := true;
except
Result := false;
end;
end;
Obs: ClientSocket = um client socket padrão do delphi.
Acho que isso resolve seu problema.
Outra solução é você usar algum componente que faça PING em um IP.
Derrepente o Indy tem algum componente que faça isso(ping).
2009/4/22 Silvio Clécio <silviop...@yahoo.com.br>
>
>
> Olá galera,
>
>
> >tem como eu
> >verificar se os micros estão online na rede no momento em que eu for
> >transferir o pacote, pra que não aconteça de dar erro durante a copia???
>
> Link - [
> http://sites.google.com/site/silvioprogbs/downloads/Listar_Maquinas_na_rede.zip?attredirects=0
> ].
> ________________________________
> []'s, Silvio Clécio
> ---
> Linux User: #481900
> Skype: silvioprog
> ICQ: 432519902
> E-mail, Y! Messenger: silviop...@yahoo.com.br <silvioprog%40yahoo.com.br>
> Gmail, GTalk: silviop...@gmail.com <silvioprog%40gmail.com>
> BlogSite: http://silvioprog.blogspot.com/
> BlogSpot: http://silvioclecio.blogspot.com/
> VirtualDriver: http://silvioprog.4shared.com/
> °oO| Seja livre, use Linux! |Oo°
>
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
--
Atenciosamente,
Paulo Coutinho.
Blog: www.prsolucoes.com/blog
Site: www.prsolucoes.com
Msn: pa...@prsolucoes.com
[As partes desta mensagem que não continham texto foram removidas]
