🚀 go-pugleaf

Simple ping, by MJ. Assumes AnsiString hostname="112.43.255.67"; for example.

1) Drop a TNMPing object from the Fastnet tab onto your form.
2) In the form's header add a global private int pngflg;
3) When you want to ping the station, do this code :-
pngflg=0; NMPing1->Host=hostname; NMPing1->Ping();
while (pngflg==0) { Application->ProcessMessages(); Sleep(100);}
4) Add the following event handlers for the NMPing you dropped on the form :-
//---------------------------------------------------------------------------
void __fastcall TForm1::NMPing1HostUnreachable(TObject *Sender,AnsiString
Host)
{
  pngflg=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMPing1InvalidHost(TObject *Sender)
{
  pngflg=2;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMPing1Ping(TObject *Sender,AnsiString Host,int
Size,int Time)
{
  pngflg=4;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMPing1TimeOut(TObject *Sender)
{
  pngflg=3;
}

and that's all there is to it.
-- 
Mark Jacobs
DK Computing
http://www.dkcomputing.co.uk

| "Oliver Ekeis" <ekeis98@gmx.de> schrieb im Newsbeitrag
| news:cnfa3m$5vd$04$1@news.t-online.com...
| > Hi NG,
| >
| > I've got one simple (newbie) question:
| > I want to check, whether a computer within a TCP/IP-network
| > is connected to the network and online. Manually I usally do that
| > with the ping command. But I want to do that with Borland Cpp-
| > Builder 5.0 without using voluminous components. Just simple
| > short cpp code.