Мониторинг сети - C++ Builder - Ответ 11636713

int Bytes,Bytes_medium;
int Timing,Timing_medium;
int Ttl,Ttl_medium;
int Col=4;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    stop_thread=true;
    Button1->Enabled=false;
    Button2->Enabled=true;
    while(stop_thread)
        {
            ListBox1->Items->Clear();
            ListBox2->Items->Clear();
            TStringList *myList = new TStringList;
            DataModule2->ADOTable_Hardware->First();
        while(!DataModule2->ADOTable_Hardware->Eof && stop_thread==true)
            {
                myList->Add(DataModule2->ADOTable_Hardware->FieldByName("IP_address")->AsAnsiString);
                DataModule2->ADOTable_Hardware->Next();
            }
            for(int i = 0; i < myList->Count && stop_thread==true; i++)
                {
                    IdIcmpClient1->Host = myList->Strings[i];
 
                        for(int i=1; i<=Col && stop_thread==true ; i++)
                            {
                                try
                                    {
                                        IdIcmpClient1->Ping();
                                        Sleep(1000);
                                        Application->ProcessMessages();
 
                                    }
                                catch(...)
                                    {
 
                                    }
                              Bytes_medium = Bytes_medium+Bytes;
                              Timing_medium = Timing_medium+Timing;
                              Ttl_medium = Ttl_medium+Ttl;
                            }
 
                    Bytes_medium = Bytes_medium/Col;
                    Timing_medium = Timing_medium/Col;
                    Ttl_medium = Ttl_medium/Col;
 
                    ListBox2->Items->Add(Bytes_medium);
                    ListBox2->Items->Add(Timing_medium);
                    ListBox2->Items->Add(Ttl_medium);
                                        //DBGrid_Hardware->DefaultDrawColumnCell()
                    Bytes_medium = 0;
                    Timing_medium = 0;
                    Ttl_medium = 0;
                }
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::IdIcmpClient1Reply(TComponent *ASender, TReplyStatus * const AReplyStatus)
{
    Bytes = AReplyStatus->BytesReceived;
    Timing = AReplyStatus->MsRoundTripTime;
    Ttl = AReplyStatus->TimeToLive;
    ListBox1->Items->Add(Bytes);
    ListBox1->Items->Add(Timing);
    ListBox1->Items->Add(Ttl);
}
 
void __fastcall TForm1::DBGrid_HardwareDrawColumnCell(TObject *Sender, const TRect &Rect,
          int DataCol, TColumn *Column, TGridDrawState State)
{
    if(Bytes_medium==0)
    {
    DBGrid_Hardware->Canvas->Brush->Color = clSilver; // меняется цвет фона
    //DBGrid_Hardware->DefaultDrawColumnCell(Rect, DataCol, Column, State);// перерисовка
    }
}