🚀 go-pugleaf

"John M." <johnnym@yahoo.com> wrote in message
news:41af0a1b@newsgroups.borland.com...

> i tried this here:

That code is wrong.  Did you not read Indy's documentation yet?

> IdIcmpClient1->Host = "www.borland.com";

You do not use the Host property.  You pass the hostname to Ping() as a
parameter instead:

    IdIcmpClient1->Ping("www.borland.com");

> ShowMessage(IdIcmpClient1->ReplyStatus);

ReplyStatus is a class, not a string:

    switch( IdIcmpClient1->ReplyStatus->ReplyStatusType )
    {
        case rsEcho:
        {
            AnsiString s = "Reply from " +
IdIcmpClient1->ReplyStatus->FromIpAddress
                 + (": bytes=" +
AnsiString(IdIcmpClient1->ReplyStatus->BytesReceived))
                + (" time=" +
AnsiString(IdIcmpClient1->ReplyStatus->MsRoundTripTime) + "ms")
                + (" TTL=" +
AnsiString(IdIcmpClient1->ReplyStatus->TimeToLive));
            ShowMessage(s);
            break;
        }

        case rsError:
            ShowMessage("Request Error");
            break;
        case rsTimeOut:
            ShowMessage("Request Timed Out");
            break;
        case rsErrorUnreachable:
            ShowMessage("Host Unreachable");
            break;
        case rsErrorTTLExceeded
            ShowMessage("TTL Exceeded");
            break;
    }


Gambit