Программа зависает при закрытии

@Andy1 · Регистрация: 03.03.2014

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

Здравствуйте

У меня следующая проблема - программа зависает при срабатывании

C++
1
frmMain->Close()

При чем если это дело записать в обработчик кнопки - то по кнопке все закрывается ровно. Если же программа закрывается, проработав какое-то время, автоматически (по причине зависания оборудования) - то виснет..
При чем то, что находится перед Close() - выполняется (видно по добавлению записи в БД)

Подскажите, что это может быть?
На всякий случай ниже обработчик закрытия формы:

C++
1
2
3
4
5
6
7
8
9
10
11
12
void __fastcall TfrmMain::FormClose(TObject *Sender, TCloseAction &Action)
{
 
    ShowInfoToUser(2, 0, L"Лог сервера", L" Программа закрыта");
    AdModem1->CancelCall();
 
    Port1->Open=false;
 
    TIniFile* Ini2=new TIniFile(ExtractFileDir(Application->ExeName)+"\\Tools\\Server.ini");
    Ini2->WriteString(L"TerminalParams",L"ClearWhenLines",edtLinesToDel->Text);
    delete Ini2;
}

C++ Builder XE3, Win7.
Заранее благодарен

@BRcr · 03.03.2014, 11:18

Если есть возможность симулировать зависание оборудования, сделай это в режиме отладки и поставь breakpoint в обработчике FormClose - так сможешь увидеть, на какой строчке виснет. Там уже можно копать дальше.

@Andy1 · 04.03.2014, 05:16 **[ТС]**

попробую, спасибо..

@SatanaXIII · 04.03.2014, 09:37

Сообщение от Andy1

Если же программа закрывается, проработав какое-то время, автоматически (по причине зависания оборудования) - то виснет..

Как я понял у вас проблема не в том, что приложение плохо закрывается, а в том, что оно виснет. Всмысле тут дело совсем не в процедуре закрытия. Вам нужно смотреть работу с устройством. Скорее всего программа бесконечно ждет ответа зависшего модема.

@BRcr · 04.03.2014, 11:11

Да, согласен. Скорее всего CancelCall() или что-либо в этом же духе в другом месте надо заменить на что-то более агрессивное, не ожидающее никаких ответов от устройства.

@Andy1 · 11.03.2014, 09:27 **[ТС]**

Извиняюсь за задержку..
В общем попробовал, чтоб наверняка, вообще закомментировать всё, что было в FormClose()..
Теперь выскакивает ошибка (в эврике), которая ссылается на vcl.. Сглупил, на автомате закрыл окошко.. В следующий раз заскриню (думаю сутки-двое, не позже

).

В общем с пустым OnClose - закрытие по событию приводит к ошибке. Если просто закрыть - все нормально.
Да, ещё пробовал Application->Terminate() - там тоже ошибка вылетала.

Функция, внутри которой находится закрытие формы - исполняется очень много раз, но зависание происходит только когда форма закрывается (срабатывает условие)

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    if(srctServParams.ModemFailsOneByOne > srctServParams.MaxModemFailsOneByOne)
    {
            spRozetkaReboot->Parameters->Refresh();
            spRozetkaReboot->Parameters->ParamValues["@CodeOperation"] = 1;
            spRozetkaReboot->Parameters->ParamValues["@Roz1Reboot"] = (srctServParams.ID_Server==1) ? 1:0 ;
            spRozetkaReboot->Parameters->ParamValues["@Roz2Reboot"] = (srctServParams.ID_Server==2) ? 1:0 ;
            spRozetkaReboot->Parameters->ParamValues["@Roz3Reboot"] = (srctServParams.ID_Server==3) ? 1:0 ;
            spRozetkaReboot->Parameters->ParamValues["@Roz4Reboot"] = (srctServParams.ID_Server==4) ? 1:0 ;
            spRozetkaReboot->Parameters->ParamValues["@Roz5Reboot"] = (srctServParams.ID_Server==5) ? 1:0 ;
            spRozetkaReboot->Parameters->ParamValues["@Roz6Reboot"] = (srctServParams.ID_Server==6) ? 1:0 ;
            spRozetkaReboot->Parameters->ParamValues["@Roz7Reboot"] = (srctServParams.ID_Server==7) ? 1:0 ;
            spRozetkaReboot->Parameters->ParamValues["@AutomaticReboot"] = 1;
            spRozetkaReboot->ExecProc();
            ShowInfoToUser(2, 2, L"Лог сервера", L"Завис модем. Программа будет закрыта, модем перезагружен. ModemFailsOneByOne=" + IntToStr(srctServParams.ModemFailsOneByOne) + L", MaxModemFailsOneByOne=" + IntToStr(srctServParams.MaxModemFailsOneByOne));
           
            TIniFile* Ini3=new TIniFile(ExtractFileDir(Application->ExeName)+"\\Tools\\Server.ini");
            Ini3->WriteDateTime(L"RozetkaRebootParams",L"LastRebootDate",Now());
            delete Ini3;
            
            frmMain->Close();
    }

SQL запрос выполняется (добавляется запись в таблице БД), а дальше - ахтунг..
Среди меня бытует мнение, что ошибка связана с этими сладкими юникодами...

Добавлено через 21 минуту

Сообщение от Andy1

Среди меня бытует мнение, что ошибка связана с этими сладкими юникодами...

точнее с моим их использованием, или же, как я сейчас почитал, с обновлениями windows (у нас сервер 2012 х64)

@vxg · 11.03.2014, 09:27

включите code guard в настройках проекта и наблюдайте.

@BRcr · 11.03.2014, 09:28

Так ошибки выбивает или виснет программа? Если ошибки - то какие именно? Это раз.

Два - это точки останова. Ставь точку внутри этого условия и трассировщиком смотри точное место ошибки или зависания. Ну, или если нет возможности работать отладчиком по какой-то непонятной мне причине, пиши что-нибудь в лог после каждой строчки внутри этого условия.

И еще.
Что из себя представляет функция ShowInfoToUser(), используется ли она где-то еще?
Что такое srctServParams и srctServParams.ModemFailsOneByOne, обращаешься ли ты к этому параметру где-то еще?
В остальном все чинно, разве что sql может глючить... но в этом я не разбираюсь толком.

@Andy1 · 11.03.2014, 10:25 **[ТС]**

vxg, про CodeGuard понял, спасибо. Сейчас займусь.

BRcr, при указанном в самом начале FormClose И использовании frmMAin->Close() - виснет
при полном или частичном комментировании FormClose ИЛИ использовании Application->Terminate() - вылетает ошибка в эврике. Отчеты, как только появятся, выложу (думаю сутки-двое - максимум до них).
Отладчиком не получается потому, что на рабочем сервере нет билдера...
в лог непосредственно перед закрытием добавляется запись (о том, что завис модем и программа будет перезапущена). Учитывая, что FormClose() пустой, комментировать по-моему особо нечего..
Функция ShowInfoToUser вызывается буквально на каждом шаге программы, минимум каждые 15 секунд. Вот содержимое её и вызываемой ею функции.

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
void __fastcall TfrmMain::ShowInfoToUser(unsigned short TerminalMarker, unsigned short LogMarker, const WideString Title,
                                const WideString InfoForUser)
{
    switch(TerminalMarker)
    {
        case 0: //выводить всегда
                memTerminal->Lines->Add((WideString)(DateTimeToStr(Now()) + L" " + InfoForUser));
                break;
        case 1: //выводить в отладке
                if(rgTerminal->ItemIndex == 0) memTerminal->Lines->Add((WideString)(DateTimeToStr(Now()) + L" <debug> " + InfoForUser));
                break;
        case 2: //выводить в рабочем режиме
                if(rgTerminal->ItemIndex <= 1) memTerminal->Lines->Add((WideString)(DateTimeToStr(Now()) + L" " + InfoForUser));
                break;
    }
 
    switch(LogMarker)
    {
        case 0: //выводить всегда
                Logging(Title, InfoForUser);
                break;
        case 1: //выводить в отладке
                if(rgLog->ItemIndex == 0) Logging(Title, L" <debug> " + InfoForUser);
                break;
        case 2: //выводить в рабочем режиме
                if(rgLog->ItemIndex <= 1) Logging(Title, InfoForUser);
                break;
    }
    srctServParams.InfoForUser=L"_Empty_";
}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::Logging(const WideString wideTitle, const WideString wideLogMessage)
{
 
    AnsiString ansiPath, ansiPtt;
    AnsiString ansiTitle;
 
    WideString widePath, widePtt;
 
    widePath=ExtractFileDir(Application->ExeName) + L"\\Log\\Log" + Now().FormatString(" dd-mm-yy") + L".log";
    ansiPath=AnsiString(widePath);
    FILE* LogFile=fopen(ansiPath.c_str(),"a");
 
    ansiTitle=AnsiString(wideTitle);
    fputs(("\n" + ansiTitle + "\n").c_str(),LogFile);
 
    widePtt=DateTimeToStr(Now()) + L"           " + wideLogMessage;
    ansiPtt=AnsiString(widePtt);
    fputs(ansiPtt.c_str(),LogFile);
 
    fclose(LogFile);
 
}

srctServParams - структура, в которой хранятся различные параметры, необходимые для работы программы.
srctServParams.ModemFailsOneByOne - элемент этой структуры типа int. когда эта цифра достигает значения больше 10 - программа должна молча закрыться, но увы=)

ps в Logging(...) все так накручено из за того, что функция портировалась из с++ builder 6, в RAD Studio C++ Builder XE3. А последний дюже ругался на старый добрый ансистринг и c_str();

Добавлено через 15 минут
с CodeGuard-ом чудеса...
В свойствах проекта в с++ debug разделе он включен, и все "подгалочки" тоже активны.
В tools->CodeGuard Configuration тоже Enable отмечено, но файлов cgl не создается.. Специально сейчас прописал в обработчике кнопки

C++
1
2
3
4
5
void __fastcall TfrmMain::Button2Click(TObject *Sender)
{
int*qqq = new int;
memTerminal->Lines->Add("fdsfsdfsddddddddddddddddddddddddddddddddd");
}

строка в терминале появляется, а ошибок кодгуард не фиксирует при закрытии программы (ну и файл не создаёт).. Хотя старый файл (с прошлого года ещё) валяется в папке, значит работал нормально раньше..

Добавлено через 13 минут
srctServParams.ModemFailsOneByOne - элемент этой структуры типа int. Изменяется этот параметр, например, при выборе абонента для дозвона - инкрементируется. При соединении с абонентом - обнуляется. То есть несколько раз в час изменится однозначно. Может даже за минуту пару раз сменить значение. Когда эта цифра достигает значения больше 10 - программа должна молча закрыться, но увы

//сообщение редактировать уже не дает, дописываю отдельно

@Andy1 · 14.03.2014, 02:16 **[ТС]**

Господа, есть ли какие мысли у вас по моей проблемке?=)

@vxg · 14.03.2014, 09:51

Сообщение от Andy1

мысли

что то трет чужую память. как вариант - функции получающие указатели пишут туда больше чем нужно и "забивают" соседний объект. без гварда - конкурс "пытливый глаз"

@BRcr · 14.03.2014, 11:28

Сообщение от Andy1

при полном или частичном комментировании FormClose ИЛИ использовании Application->Terminate() - вылетает ошибка в эврике. Отчеты, как только появятся, выложу (думаю сутки-двое - максимум до них).

Не зная, что за ошибка, предположения делать будет неправильно.
А насчет повисаний - опять-таки надо знать, на чем именно код спотыкается.

Попробуй погонять такие варианты и скажи результаты:

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
void __fastcall TfrmMain::FormClose(TObject *Sender, TCloseAction &Action)
{
    unsigned file( FileCreate( "TfrmMain_on_close_log.txt" ) );
 
    FileWrite( file, "line 1 next...\n", 15 );
    ShowInfoToUser(2, 0, L"Лог сервера", L" Программа закрыта");
    
    FileWrite( file, "line 2 next...\n", 15 );
    AdModem1->CancelCall();
    
    FileWrite( file, "line 3 next...\n", 15 ); 
    Port1->Open=false;
    
    FileWrite( file, "line 4 next...\n", 15 ); 
    TIniFile* Ini2=new TIniFile(ExtractFileDir(Application->ExeName)+"\\Tools\\Server.ini");
    
    FileWrite( file, "line 5 next...\n", 15 );
    Ini2->WriteString(L"TerminalParams",L"ClearWhenLines",edtLinesToDel->Text);
    
    FileWrite( file, "line 6 next...\n", 15 );
    delete Ini2;
    
    FileWrite( file, "end", 3 );
    FileClose( file );
}

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
if(srctServParams.ModemFailsOneByOne > srctServParams.MaxModemFailsOneByOne)
    {
            unsigned file( FileCreate( "if_condition_log.txt" ) );
 
            FileWrite( file, "line 1 next...\n", 15 );    
            spRozetkaReboot->Parameters->Refresh();
            
            FileWrite( file, "line 2 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@CodeOperation"] = 1;
            
            FileWrite( file, "line 2 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@Roz1Reboot"] = (srctServParams.ID_Server==1) ? 1:0 ;
            
            FileWrite( file, "line 3 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@Roz2Reboot"] = (srctServParams.ID_Server==2) ? 1:0 ;
            
            FileWrite( file, "line 4 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@Roz3Reboot"] = (srctServParams.ID_Server==3) ? 1:0 ;
            
            FileWrite( file, "line 5 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@Roz4Reboot"] = (srctServParams.ID_Server==4) ? 1:0 ;
            
            FileWrite( file, "line 6 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@Roz5Reboot"] = (srctServParams.ID_Server==5) ? 1:0 ;
            
            FileWrite( file, "line 7 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@Roz6Reboot"] = (srctServParams.ID_Server==6) ? 1:0 ;
            
            FileWrite( file, "line 8 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@Roz7Reboot"] = (srctServParams.ID_Server==7) ? 1:0 ;
            
            FileWrite( file, "line 9 next...\n", 15 );  
            spRozetkaReboot->Parameters->ParamValues["@AutomaticReboot"] = 1;
            
            FileWrite( file, "line 10 next...\n", 16 );  
            spRozetkaReboot->ExecProc();
            
            FileWrite( file, "line 11 next...\n", 16 ); 
            String s1( IntToStr( srctServParams.ModemFailsOneByOne ) );
            
            FileWrite( file, "line 12 next...\n", 16 ); 
            String s2( IntToStr( srctServParams.MaxModemFailsOneByOne ) );
            
            FileWrite( file, "line 13 next...\n", 16 ); 
            ShowInfoToUser( 2, 
                            2, 
                            L"Лог сервера", 
                            L"Завис модем. Программа будет закрыта, модем перезагружен. ModemFailsOneByOne=" + s1 + L", MaxModemFailsOneByOne=" + s2 );
           
            FileWrite( file, "line 14 next...\n", 16 );  
            TIniFile* Ini3=new TIniFile(ExtractFileDir(Application->ExeName)+"\\Tools\\Server.ini");
            
            FileWrite( file, "line 15 next...\n", 16 );  
            Ini3->WriteDateTime(L"RozetkaRebootParams",L"LastRebootDate",Now());
            
            FileWrite( file, "line 16 next...\n", 16 );  
            delete Ini3;
            
            FileWrite( file, "line 17 next...\n", 16 );  
            frmMain->Close();
            
            FileWrite( file, "end", 3 );
            FileClose( file );
    }

А вообще, конечно, лучше поставил бы билдер на рабочую машину и не заморачивался. Отладка без отладчика - совершенно лишний гемор.

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	03.03.2014, 11:18
	Если есть возможность симулировать зависание оборудования, сделай это в режиме отладки и поставь breakpoint в обработчике FormClose - так сможешь увидеть, на какой строчке виснет. Там уже можно копать дальше. 0

@Andy1 2 / 2 / 1 Регистрация: 03.03.2014 Сообщений: 17
	04.03.2014, 05:16 [ТС]
	попробую, спасибо.. 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	04.03.2014, 11:11
	Да, согласен. Скорее всего CancelCall() или что-либо в этом же духе в другом месте надо заменить на что-то более агрессивное, не ожидающее никаких ответов от устройства. 0

@vxg Модератор 3409 / 2180 / 354 Регистрация: 13.01.2012 Сообщений: 8,461
	11.03.2014, 09:27
	включите code guard в настройках проекта и наблюдайте. 0

@BRcr 4043 / 2333 / 292 Регистрация: 03.02.2011 Сообщений: 5,066 Записей в блоге: 10
	11.03.2014, 09:28
	Так ошибки выбивает или виснет программа? Если ошибки - то какие именно? Это раз. Два - это точки останова. Ставь точку внутри этого условия и трассировщиком смотри точное место ошибки или зависания. Ну, или если нет возможности работать отладчиком по какой-то непонятной мне причине, пиши что-нибудь в лог после каждой строчки внутри этого условия. И еще. Что из себя представляет функция ShowInfoToUser(), используется ли она где-то еще? Что такое srctServParams и srctServParams.ModemFailsOneByOne, обращаешься ли ты к этому параметру где-то еще? В остальном все чинно, разве что sql может глючить... но в этом я не разбираюсь толком. 0

@Andy1 2 / 2 / 1 Регистрация: 03.03.2014 Сообщений: 17
	14.03.2014, 02:16 [ТС]
	Господа, есть ли какие мысли у вас по моей проблемке?=) 0