Thread Ping переполнение памяти

@lifeforce · Регистрация: 27.09.2010

Студворк — интернет-сервис помощи студентам

Привет всем!

Осуществил идею, но столкнулся с проблемой памяти.
Идея: на карте по координатам ставятся динамические точки(кружочки) пингуемых модемов.
и чтоб не мешать работе с программой , выделил поток и там происходит опрос всех модемов по таймеру.
вроде пытался правильно подчищать после использования динамических объектов, но что то упущено.
подскажите где и что можно и нужно изменить для правильной работы процесса Thread Ping.

@lifeforce · 03.02.2018, 15:47 **[ТС]**

сам код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
#include <vcl.h>
#pragma hdrstop
 
#include "UnitHM.h"
#include "FileCalling.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TForm_hotelmodem *Form_hotelmodem;
int rows = 0;
AnsiString direktoria = ExtractFilePath(Application->ExeName);
HMODULE hDLL=NULL;
////////////////////////////////////////////////////////////////////////////////
//  поток для передачи работы
////////////////////////////////////////////////////////////////////////////////
 class  main_thread_t;
 static main_thread_t *main_thread;
 
class main_thread_t : public TThread
{
public:
    main_thread_t(bool CreateSuspended = false): TThread(CreateSuspended)
    {
        FreeOnTerminate = true;
    }
 
    void __fastcall beg(void)//Application->MessageBox( "Начало работы!","Сообщение",  MB_OK );
    {
    Form_hotelmodem->Timer_ping->Enabled=false;
    }
 
    void __fastcall end(void)//Application->MessageBox ( "Готово!","Сообщение",  MB_OK);
    {
        main_thread = false;
        //main_thread->Free();
        Form_hotelmodem->Timer_ping->Enabled=true;
    }
 
    virtual void __fastcall Execute(void)
    {
        Synchronize(beg);
    // определяем тип "указатель на функцию"
    typedef int __stdcall (*dll_func)(char *A, int B, int C);
    dll_func ping = NULL;
    if (hDLL==NULL)
     hDLL = LoadLibrary("PingDll.dll");// HMODULE
    if (!hDLL) {
      ShowMessage("Невозможно загрузить PingDll.dll");
      return;
    }
    // пытаемся найти в таблице экспорта необходимую нам функцию  _Pping
    ping = (dll_func)GetProcAddress(hDLL, "_Pping");
    if (!ping) {
      ShowMessage("Невозможно найти функцию ping");
      return;
    }
    static int L = 1000;// Time
    static int T = 32;  // TTL
    double begin = 0, lost = 0;
    TImage *sh = NULL;
//..............................................................................
        for (int p = 0; p < Form_hotelmodem->StringGrid_ping->RowCount-1; p++)
        {
          char *ip = NULL;
          
        ip = Form_hotelmodem->StringGrid_ping->Cells[1][p].c_str(); //LabeledEdit_ip->Text.c_str();
        Form_hotelmodem->StringGrid_ping->Cells[9][p] = ping(ip,L,T);
 
        begin = Form_hotelmodem->StringGrid_ping->Cells[7][p].ToDouble(),//total
        lost  = Form_hotelmodem->StringGrid_ping->Cells[8][p].ToDouble();//timeout
        begin++;
        Form_hotelmodem->StringGrid_ping->Cells[7][p]= FloatToStr(begin);//begin
 
         if(Form_hotelmodem->StringGrid_ping->Cells[9][p].ToInt() > 0//ms
         &&(Form_hotelmodem->StringGrid_ping->Cells[9][p].ToInt() < Form_hotelmodem->StringGrid_ping->Cells[11][p].ToInt()
         || Form_hotelmodem->StringGrid_ping->Cells[11][p].ToInt()==0
           ))
         Form_hotelmodem->StringGrid_ping->Cells[11][p] = Form_hotelmodem->StringGrid_ping->Cells[9][p];
 
         if(Form_hotelmodem->StringGrid_ping->Cells[9][p].ToInt() > Form_hotelmodem->StringGrid_ping->Cells[12][p].ToInt())
         Form_hotelmodem->StringGrid_ping->Cells[12][p] = Form_hotelmodem->StringGrid_ping->Cells[9][p];
 
         Form_hotelmodem->StringGrid_ping->Cells[13][p] = // average
         (int)(Form_hotelmodem->StringGrid_ping->Cells[11][p].ToInt() + Form_hotelmodem->StringGrid_ping->Cells[12][p].ToInt())/2;
 
             if(Form_hotelmodem->StringGrid_ping->Cells[9][p] =="0")//  || StaticText_ms->Caption ==""
             {
             lost++;
             Form_hotelmodem->StringGrid_ping->Cells[8][p] = FloatToStr(lost) ;
             }
             int l=100.0/begin*lost;
             Form_hotelmodem->StringGrid_ping->Cells[10][p] = IntToStr(l);//lost%
        ////////////////////////////////////////////////////////////////////////////////
        AnsiString pn="";
        //TImage *sh = dynamic_cast <TImage*> (Form1->FindComponent("image12345"));
            if(Form1->mapSize == false)// mini
               pn = "Ping_";
           //   sh  = dynamic_cast <TImage*> (Form1->Karta_rajona->FindComponent("Ping_"+Form_hotelmodem->StringGrid_ping->Cells[6][p]));
            else
            if(Form1->mapSize == true)// open
            pn = "Ping";
            //sh  = dynamic_cast <TImage*> (Form1->Karta_rajona->FindComponent("Ping"+Form_hotelmodem->StringGrid_ping->Cells[6][p]));
        sh  = dynamic_cast <TImage*> (Form1->Karta_rajona->FindComponent(pn+Form_hotelmodem->StringGrid_ping->Cells[6][p]));
        //Form_hotelmodem->Label1->Caption = sh->Name;
        //int s = Form_hotelmodem->StringGrid_ping->Cols[6]->IndexOf(sh->Name.SubString(sh->Name.Pos("g")+1,sh->Name.Length()));
 
            if(Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()==0)
            { // 0%
             sh->Picture  = Form1->Image_pingG->Picture;
            }else
            if(Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()>0
            && Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()<3)
            { //1%-2%
               sh->Picture  = Form1->Image_pingGB->Picture;
            }else
            if(Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()>2
            && Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()<11)
            { // 3%-10%
               sh->Picture  = Form1->Image_pingY->Picture;
            }else
            if(Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()>10
            && Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()<50)
            { // 11%-49%
                sh->Picture  = Form1->Image_pingR->Picture;
            }else
            if(Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()>49
            && Form_hotelmodem->StringGrid_ping->Cells[10][p].ToInt()<100)
            { // 50%-99%
                sh->Picture  = Form1->Image_pingB->Picture;
            }else
            if(Form_hotelmodem->StringGrid_ping->Cells[9][p].ToInt()==0)
            { // off line!
                sh->Picture  = Form1->Image_pingN->Picture;
            }
 
////////////////////////////////////////////////////////////////////////////////
 
         sh = NULL;
         sh->Free();
         delete ip;
        }
//..............................................................................
    //FreeLibrary(hDLL);
    delete sh;
        Synchronize(end);
    }
}; 
 
void __fastcall TForm_hotelmodem::Timer_pingTimer(TObject *Sender)
{
   Timer_ping->Enabled=false;
//..............................................................................
              if (main_thread)
            {
         return;
            }
            main_thread = new main_thread_t;
//..............................................................................
}
//---------------------------------------------------------------------------
 
void __fastcall TForm_hotelmodem::SpeedButton_stop_pingClick(TObject *Sender)
{
 if(Timer_ping->Enabled)
 {Timer_ping->Enabled= false;
  SpeedButton_stop_ping->Hint = "Start Ping!";
  SpeedButton_stop_ping->Glyph = Image_play->Picture->Bitmap;
  main_thread = false;//
 }
 else {
  Timer_ping->Interval = StrToInt(LabeledEdit_set_time->Text)*1000;
  Timer_ping->Enabled= true;
  SpeedButton_stop_ping->Hint = "Stop Ping!";
  SpeedButton_stop_ping->Glyph = Image_stop->Picture->Bitmap;
 }
}

@lifeforce · 01.03.2018, 21:05 **[ТС]**

Сейчас появилось свободное время.

Обнаружил от чего растет память.
к примеру в стринггриде 5 строк.
в цикле

C++
1
for (int p = 1; p < Form1->StringGrid1->RowCount; p++) //

при проходе стринггрида идет проверка на наличие в колонке IP адреса, если нет то пропускает строку.
получается пустой проход, и в это время увеличивается память.

@lifeforce · 01.03.2018, 21:07 **[ТС]**

но вот если занять все строки с ip адресами - то все работает. и память не увеличивается..

@Avazart · 01.03.2018, 21:31

Не по теме:

C++
1
2
3
4
class  main_thread_t;
 static main_thread_t *main_thread;
 
class main_thread_t : public TThread

Что за ...

@lifeforce · 03.03.2018, 14:14 **[ТС]**

Нашел где уходит память.
Так как использую для закраски ячейки StringGrid1DrawCell, и для опреснения таблицы Form1->StringGrid1->Refresh();
и в этот момент увеличивается память.
может есть прием после закраски ячеек, освободить память?

но вот если занять все строки с ip адресами - то все работает. и память не увеличивается..

пробовал в DrawCell добавить условие если нет в нулевой колонке текста то закрашивать белым.
чтоб закрашивать всю колонку.
все равно увеличивается память.

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234

	Thread Ping переполнение памяти 03.02.2018, 15:44. Показов 681. Ответов 5 Метки нет (Все метки) Привет всем! Осуществил идею, но столкнулся с проблемой памяти. Идея: на карте по координатам ставятся динамические точки(кружочки) пингуемых модемов. и чтоб не мешать работе с программой , выделил поток и там происходит опрос всех модемов по таймеру. вроде пытался правильно подчищать после использования динамических объектов, но что то упущено. подскажите где и что можно и нужно изменить для правильной работы процесса Thread Ping. Миниатюры 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	01.03.2018, 21:07 [ТС]
	но вот если занять все строки с ip адресами - то все работает. и память не увеличивается.. Миниатюры 0

@lifeforce 266 / 211 / 89 Регистрация: 27.09.2010 Сообщений: 1,234
	03.03.2018, 14:14 [ТС]
	Нашел где уходит память. Так как использую для закраски ячейки StringGrid1DrawCell, и для опреснения таблицы Form1->StringGrid1->Refresh(); и в этот момент увеличивается память. может есть прием после закраски ячеек, освободить память? но вот если занять все строки с ip адресами - то все работает. и память не увеличивается.. пробовал в DrawCell добавить условие если нет в нулевой колонке текста то закрашивать белым. чтоб закрашивать всю колонку. все равно увеличивается память. 0