Club Builder

[xisco]

hola!
Alguien me puede decir como hacer un ping desde mi clase?? he visto varios ejemplos pero no me aclaro. En principio tengo una clase que es un pc y tiene un metodo para hacerle ping, asi que seguramente hare varios al a vez y no me vale el metodo de la DLL esa de windows.
Ya de paso tambien necesitaria codigo para hacer wakeonlan
Gracias

[Perico]

Hola,

incluye en tu proyecto un IdIcmpClient, un botón y un TMemo.

En el OnClick del botón pon:
try
{
IdIcmpClient1->Ping();
}
catch ( ... )
{
Memo1->Lines->Add("La IP o dominio \"" + Edit1->Text + "\" no existe o no está disponible.");
return;
}

dentro del OnReplay del IdIcmpClient pon esto:

AnsiString sTime, result[5];
String info;

// TODO: Check for error on ping reply (ReplyStatus->MsgType?)
if(AReplyStatus.MsRoundTripTime == 0)
sTime = "<1";
else
sTime = "=";

result[0] = IntToStr(AReplyStatus.BytesReceived);
result[1] = AReplyStatus.FromIpAddress;
result[2] = IntToStr((int)AReplyStatus.SequenceId);
result[3] = IntToStr((int)AReplyStatus.TimeToLive);
result[4] = sTime;
result[5] = IntToStr(AReplyStatus.MsRoundTripTime);

String HostName;
Application->ProcessMessages();
HostName=GetHostnameFromIP(result[1].c_str());

info="Ping desde: "+result[1]+ ", tiempo de respuesta: "+result[4]+" "+result[5];
Memo1->Lines->Add(info);