Сделать слежение

@Fobes · Регистрация: 19.09.2012

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

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

C++
1
2
3
4
5
6
7
8
9
10
bool read;
while(1){
read=true;
slegenie();
sds:
if(read==true){goto sds}
}
void slegenie(){
read=false;
}

В общем должно быть что-то на вроде... мне нужно остановить шаг до выполнения определенных действий в slegenie(); но в конечном итоге получаю зависание всей программы... слышал что можно этот сделать с помощью Thered, но почитав инфу понял, что ничего не понял

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

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

C++
1
slegenie();

не успевает выполниться до прихода на проверку

@M9ICHIK · 12.02.2013, 22:59

C++
1
Application->ProcessMessages();

@QWIPQ · 12.02.2013, 23:03

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

Application->ProcessMessages();

на кой? он слипует и основа программы виснет! все же лучше через TTimer проверять или потоком все же (TThread)... не зная весь код нельзя сказать что вам лучше подойдет...

@Fobes · 12.02.2013, 23:12 **[ТС]**

QWIPQ, в общем, есть функция, которая конектится к БД Аксесса, делает запрос, получает данные построчно, из строчки берется число одно и с ним составляется команда, которая отсылается железяке на ком порт... так вот, нам нужно держать на нужной строке цикл от запроса, пока не пройдет получение и обработка...
Сейчас все работает "на соплях", но работает:

C++
1
2
3
4
5
6
7
8
while(!Form1->ADOQuery1->Eof)
 {
     read=true;
     adres = Form1->ADOQuery1->FieldByName("Adres")->AsInteger;
     create_comand(6); index=6;
     Sleep(100);
     Application->ProcessMessages();
  }

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

@M9ICHIK · 12.02.2013, 23:15

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

на кой?

Та понял (внимательней прочитав задание), что она не нужна, просто не смог удалить сообщение

@QWIPQ · 12.02.2013, 23:32

ну если ЦП не жалко (и TThread не разобрался) то можно создать глобальную переменную целочисленную(int), создать TTimer который проверял бы ваш ответ от БД, время на таймер поставить 200 дет, свойство Timer3 установить Enabled=false;

int REZULT=0; //глобальная
.
.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
     if(!Form1->ADOQuery1->Eof)
     {
          read=true;
          adres = Form1->ADOQuery1->FieldByName("Adres")->AsInteger;
          create_comand(6); index=6;
          Application->ProcessMessages();
     {
     else
     {
          REZULT=1;
          Timer1->Enabled=false;
     {
}

а вместо вашего кода вставить

C++
1
2
3
4
Timer1->Enabled=true;
do{
}while(REZULT)!=1);
REZULT=0;

P.S. ну как-то так, над экспериментировать)

@Fobes · 12.02.2013, 23:36 **[ТС]**

QWIPQ, спасибо за наводку... но хотелось бы это дело на Thered повесить... почему то кажется что таймер будет что и слип - танцы с бубном... Вы не напишите простой пример как через класс Thered отследить завершенность функции ? был бы признателен, а то в том что я нашел примеры какие-то сомнительные...

@Avazart · 12.02.2013, 23:38

Все зависит от того завязан ли ADOQuery с видимыми компонетами ...

@QWIPQ · 12.02.2013, 23:46

TTimer - эквивалентен в принципе TThread, просто срабатывает по времени, как вам и надо в принципе! Тот же поток который назначается и высвобождается по времени.

P.S. сейчас основной комп отработает и скину пример потока...

@Avazart · 12.02.2013, 23:48

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

TTimer - эквивалентен в принципе TThread, просто срабатывает по времени, как вам и надо в принципе! Тот же поток который назначается и высвобождается по времени.

Не надо Ля-ля не одно и то же совсем...

Код в обработчике таймера выполняется в основном потоке и не требует синхронизации.

Компонент выполняющий запрос не должен участвовать в перерисовке окна программы ( не косвенно, не напрямую), иначе в использовать поток нет смысла....

@QWIPQ · 12.02.2013, 23:59

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

Код в обработчике таймера выполняется в основном потоке и не требует синхронизации.

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

Вы не напишите простой пример как через класс Thered отследить завершенность функции ?

человек хочет обычную проверку организовать, зачем ему использовать поток и еще его синхронизировать для таких вещей????
я могу представить если всю программу запихнуть в поток и там уже вызывать функцию и применять например SuspendThread() и ResumeThread(), тогда никаких блин зависаний и таймеров!!!

@Avazart · 13.02.2013, 00:06

Если говорить GUI и потоке то без синхронизации никак не обойтись...
Для банальной "проверки" нужен вывод в лог или еще куда что уже требует простую, но синхронизацию...

P.S. QWIPQ, Учите матчасть...

@Fobes · 13.02.2013, 14:48 **[ТС]**

Avazart, ADOQuery связан с событием приема данных от платы... событие из компонента

mimicria · 13.02.2013, 14:58

Вот вы развели маразм, таймеры, нити

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

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

Да засуньте вы эту другую функцию, которая обрабатывает данные в этот же цикл и всё. Если я прально понял, всё будет как-то так:

C++
1
2
3
4
5
6
7
while(!Form1->ADOQuery1->Eof) // пока что-то там
 {
     adres = Form1->ADOQuery1->FieldByName("Adres")->AsInteger; // получили исх.данные
     create_comand(6); index=6; // послали данные в железку
     read_answer(); // функция приёма ответа от железки
     Application->ProcessMessages(); // продолжаем цикл
  }

И пока read_answer() не закончится цикл не продолжится.

@SatanaXIII · 13.02.2013, 15:08

mimicria, ну и на read_answer(); попросту зависнет (пока не получит ответ), не дойдя таким образом до Application->ProcessMessages();.
А ребята хотят изобрести семафоры.

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

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

И пока read_answer() не закончится цикл не продолжится.

А, пардон, вы ж это и предлагаете.

mimicria · 13.02.2013, 15:12

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

ну и на read_answer(); попросту зависнет (пока не получит ответ)

А я насколько понял, программа и не должна ничего делать дальше, пока не получит ответ. А вопрос зависания - это вопрос реализации самой функции read_answer().
Ну и в самом верху топика написано:

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

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

@Fobes · 13.02.2013, 15:22 **[ТС]**

mimicria, я бы с радостью вставил туда всю обработку, но обработка 100 с лишним строчек да и обращается к ней не только эта частичка кода... хотелось бы просто согласовать это

mimicria · 13.02.2013, 15:34

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

но обработка 100 с лишним строчек

Эти строчки можно вынести в отдельную функцию? А добавить одну строчку вызова функции уже не так страшно.

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

да и обращается к ней не только эта частичка кода

А тем более, если и обращений несколько, надо делать отдельную функцию. Или под обращениями вы понимаете кучу goto в коде?

Сейчас как эта обработка организована?

@Fobes · 13.02.2013, 15:44 **[ТС]**

mimicria, хм, вот так:

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
void __fastcall TForm1::CommPort1DataReceived(TObject *Sender, DWORD Count)
{
  while( Form1->CommPort1->InBuffUsed ){
          answer+= Form1->CommPort1->GetChar();
          }
Form1->Memo1->Lines->Add("Ответ: " + answer);
//начинаем обработку ответа...
if(answer!=""){
int errors = answer.Pos("$");  //ищем символ ошибки
if(errors==0){  //если нет ошибок
              extern Variant App;
              switch(index){
                           case 0:{ //обработка текущего времени
                           int ts,tm,th,ty1,ty2,ty3;  AnsiString t;
                           ts = StrToInt("$"+answer.SubString(5,2));
                             Form1->Edit3->Text=ts;
                           tm = StrToInt("$"+answer.SubString(7,2));
                             Form1->Edit4->Text=tm;
                           th = StrToInt("$"+answer.SubString(9,2));
                             Form1->Edit5->Text=th;
                           ty1 = StrToInt("$"+answer.SubString(11,2));
                             Form1->Edit6->Text=ty1;
                           ty2 = StrToInt("$"+answer.SubString(13,2));
                             Form1->Edit7->Text=ty2;
                           ty3 = StrToInt("$"+answer.SubString(15,2));
                             Form1->Edit8->Text=ty3;
                           index=-1;
                           }break;
                           case 1:{   //текущее значение
                           //дата
                           int ty1,ty2,ty3;
                           ty1 = StrToInt("$"+answer.SubString(5,2));
                              Form1->Edit14->Text=ty1;
                           ty2 = StrToInt("$"+answer.SubString(7,2));
                             Form1->Edit15->Text=ty2;
                           ty3 = StrToInt("$"+answer.SubString(9,2));
                             Form1->Edit16->Text=ty3;
                             //обрабатываем показания счетчиков
                           int CWD,CWM,CWG,HWD,HWM,HWG;
                           CWD =StrToInt("$"+decode(answer.SubString(11,4)));
                             Form1->Edit17->Text=CWD;
                           HWD =StrToInt("$"+decode(answer.SubString(15,4)));
                             Form1->Edit20->Text=HWD;
                           CWM =StrToInt("$"+decode(answer.SubString(19,6)));
                             Form1->Edit18->Text=CWM;
                           HWM =StrToInt("$"+decode(answer.SubString(25,6)));
                             Form1->Edit21->Text=HWM;
                           CWG =StrToInt("$"+decode(answer.SubString(31,8)));
                             Form1->Edit19->Text=CWG;
                           HWG =StrToInt("$"+decode(answer.SubString(39,8)));
                             Form1->Edit22->Text=HWG;
                             index=-1;
                           }break;
                        /**   case 2:{
                           //дата
                           int ty1,ty2,ty3;
                           ty1 = StrToInt("$"+answer.SubString(5,2));
                              Form1->Edit23->Text=ty1;
                           ty2 = StrToInt("$"+answer.SubString(7,2));
                             Form1->Edit24->Text=ty2;
                           ty3 = StrToInt("$"+answer.SubString(9,2));
                             Form1->Edit25->Text=ty3;
                            Form1->GroupBox4->Caption="Выводим: за день";
                            index=-1;
                           }break; */
                        /**   case 3:{
                           int ty1,ty2,ty3;   //читаем дату
                           ty1 = StrToInt("$"+answer.SubString(5,2));
                              Form1->Edit26->Text=ty1;
                           ty2 = StrToInt("$"+answer.SubString(7,2));
                             Form1->Edit27->Text=ty2;
                           ty3 = StrToInt("$"+answer.SubString(9,2));
                             Form1->Edit28->Text=ty3;
                            //обрабатываем показания
                            Form1->GroupBox4->Caption="Выводим: за месяц";
                            index=-1;
                           }break; */
                           case 4:{ //идентификатор
                           int sn; AnsiString id;
                           sn = StrToInt("$"+decode(answer.SubString(5,4)));
                           Form1->Edit12->Text=sn;
                             for (int i=0;i<40;i++){
                              id+=( char )("0x"+answer.SubString(13+i*2,2)).ToInt( );
                               }
                           Form1->Edit13->Text=id;
                           index=-1;
                           }break;
                           case 6:{
                             //обрабатываем показания счетчиков
                           int CWD,CWM,CWG,HWD,HWM,HWG;
                           DataSource1->DataSet->Edit();
                           CWM =StrToInt("$"+decode(answer.SubString(19,6)));
 DataSource1->DataSet->FieldByName("CW:month")->Value = CWM;
                           HWM =StrToInt("$"+decode(answer.SubString(25,6)));
 DataSource1->DataSet->FieldByName("HW:month")->Value = HWM;
                           CWG =StrToInt("$"+decode(answer.SubString(31,8)));
DataSource1->DataSet->FieldByName("CW:general")->Value = CWG;
                           HWG =StrToInt("$"+decode(answer.SubString(39,8)));
DataSource1->DataSet->FieldByName("HW:general")->Value = HWG;
                             index=-1;
                             Form1->ADOQuery1->Next();
                           read=false;
                           }
                           }
 
}else{ //расшифровка ошибок
if(answer[6]=='0'){Form1->Memo1->Lines->Add("Операция записи успешно выполнена");}
if(answer[6]=='1'){Form1->Memo1->Lines->Add("Ошибка при выполнении");}
if(answer[6]=='2'){Form1->Memo1->Lines->Add("Команда не найдена");}
if(answer[6]=='3'){Form1->Memo1->Lines->Add("Неверный формат команды");}
if(answer[6]=='4'){Form1->Memo1->Lines->Add("Параметр занят");}
if(answer[6]=='5'){Form1->Memo1->Lines->Add("Не верна CRC16 сумма");}
if(answer[6]=='6'){Form1->Memo1->Lines->Add("Готов к программированию");}
if(answer[6]=='7'){Form1->Memo1->Lines->Add("Переполнение буфера");}
if(answer[6]=='8'){Form1->Memo1->Lines->Add("Неверные данные");}
}
}
//тут конец
answer="";
}

это событие от компонента билдера... оно запустится, как только данные пойдут

@Fobes · 16.02.2013, 20:55 **[ТС]**

Ап, может кто все-же подскажет с TThread ?

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника 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, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Fobes 17 / 17 / 5 Регистрация: 19.09.2012 Сообщений: 216
	12.02.2013, 23:36 [ТС]
	QWIPQ, спасибо за наводку... но хотелось бы это дело на Thered повесить... почему то кажется что таймер будет что и слип - танцы с бубном... Вы не напишите простой пример как через класс Thered отследить завершенность функции ? был бы признателен, а то в том что я нашел примеры какие-то сомнительные... 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	12.02.2013, 23:38
	Все зависит от того завязан ли ADOQuery с видимыми компонетами ... 0

@QWIPQ 144 / 123 / 14 Регистрация: 10.10.2011 Сообщений: 366 Записей в блоге: 2
	12.02.2013, 23:46
	TTimer - эквивалентен в принципе TThread, просто срабатывает по времени, как вам и надо в принципе! Тот же поток который назначается и высвобождается по времени. P.S. сейчас основной комп отработает и скину пример потока... 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	13.02.2013, 00:06
	Если говорить GUI и потоке то без синхронизации никак не обойтись... Для банальной "проверки" нужен вывод в лог или еще куда что уже требует простую, но синхронизацию... P.S. QWIPQ, Учите матчасть... 0

@Fobes 17 / 17 / 5 Регистрация: 19.09.2012 Сообщений: 216
	13.02.2013, 14:48 [ТС]
	Avazart, ADOQuery связан с событием приема данных от платы... событие из компонента 0

@Fobes 17 / 17 / 5 Регистрация: 19.09.2012 Сообщений: 216
	13.02.2013, 15:22 [ТС]
	mimicria, я бы с радостью вставил туда всю обработку, но обработка 100 с лишним строчек да и обращается к ней не только эта частичка кода... хотелось бы просто согласовать это 0

@Fobes 17 / 17 / 5 Регистрация: 19.09.2012 Сообщений: 216
	16.02.2013, 20:55 [ТС]
	Ап, может кто все-же подскажет с TThread ? 0