Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > C++ Builder > Непонятки с потоком

Автор: vikaz 25.9.2009, 20:38

Всем добрый вечер!
Возникла сл. проблемка. У меня в программе происходит загрузка КЛАДР'а из локальной БД в сетевую. Сначала я делал без потока, так сказать для проверки, все работает, но естественно окно подвисает. Сейчас решил сделать через потоки. Сначала попробывал создать поток посредством среды, (Files->New->Othner->ThreadObject). В теле потока (Execute), написал цикл, и сделал вывод в ProgressBar через Synchronize. Запускаю поток и у меня появляется ошибка, но как только я убираю строку ProgressBar, то все работает нормально. Не поняв прикола, я создал чистый проект и повторил там вывод, все заработало. Стало грустно. Попробовал создать в чистом проекте поток с помощью CreateThread, написал проверил, работает. Возвращаюсь в свой проект переношу код с CreateThread, запускаю и опять ошибка Access Violation, и тут до меня доходит, что форма где происходят все действия создается не автоматом а руками:

Код


(new TForm_Kladr(Application))->ShowModal();

Вот и думаю, правда из-за этого может, если да, то как исправить, а если нет, то из-за чего это может быть?

Автор: vikaz 25.9.2009, 20:53

В общем проверил я на пустом проекте это, действительно, ошибка появляется когда форма не создается автоматически. Если вызывать через Show(), то все работает отлично! :(
Совсем грустно.
подскажите, как это побороть? Заранее спасибо.

Автор: Anikmar 25.9.2009, 21:45

В какой последовательности вы запускаете поток, создаете форму и прогресс-бар? В каком месте программы?

Автор: vikaz 25.9.2009, 21:50

Цитата(Anikmar @ 25.9.2009, 21:45

)

В какой последовательности вы запускаете поток, создаете форму и прогресс-бар? В каком месте программы?

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

Код


(new TForm_Kladr(Application))->ShowModal();

Появляется нужная форма со всем элементами, ProgressBar, лежит как раз на этой форме. Нажимаю кнопку в которой код:

Код


hThreadKladr = CreateThread (NULL, 0, ThreadKladr, 0, 0, &dwThreadKladr);

Это сам код потока:

Код


DWORD WINAPI ThreadKladr (LPVOID lpParam)
{
 for (int i = 0; i < 100; i++)
 {
  for (int j=0; j < 100; j++)
  {
   Form_Kladr->sGauge->Progress = j;
   if (j == 99) TerminateThread(hThreadKladr, 0);
  }
 }
}

Автор: Anikmar 25.9.2009, 21:58

Цитата(vikaz @ 25.9.2009, 21:50

)

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

Можно глянуть целиком обработчик этого пункта меню?

Автор: vikaz 25.9.2009, 22:02

Код



#include <vcl.h>
#pragma hdrstop

#include "Main_Unit.h"
#include "FormList_Unit.h"
#include "Kladr_Unit.h"
#include "Address_Unit.h"
#include "SN_Unit.h"


//---------------------------------------------------------------------------
#pragma package(smart_init)


#pragma link "acAlphaImageList"
#pragma link "acProgressBar"
#pragma link "DBAccess"
#pragma link "MemDS"
#pragma link "MyAccess"
#pragma link "sHintManager"
#pragma link "sMemo"
#pragma link "sMonthCalendar"
#pragma link "sPageControl"
#pragma link "sPanel"
#pragma link "sSkinManager"
#pragma link "sSkinProvider"
#pragma link "sStatusBar"
#pragma link "sToolBar"
#pragma resource "*.dfm"

TMain_Form *Main_Form;
//---------------------------------------------------------------------------
__fastcall TMain_Form::TMain_Form(TComponent* Owner)
    : TForm(Owner)
{
 Refresh ();
}
//---------------------------------------------------------------------------
void __fastcall TMain_Form::N2Click(TObject *Sender)
{
 //Контрагент
 (new TFormList(Application, 1))->ShowModal();
  Refresh();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::N6Click(TObject *Sender)
{
 // Методы доставки
 (new TFormList(Application, 2))->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::N8Click(TObject *Sender)
{
  (new TForm_Kladr(Application))->ShowModal();
 }
//---------------------------------------------------------------------------
void __fastcall TMain_Form::Refresh()
{

 QueryMaster->Close();
 QueryMaster->SQL->Text = "SELECT COUNT(ind) FROM contracting_party";
 QueryMaster->Open();
 sStatusBar1->Panels->Items[1]->Text = "Кол-во подписчиков: " + QueryMaster->FieldByName("count(ind)")->AsString;
 QueryMaster->Close();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::N7Click(TObject *Sender)
{
 // Типы дисков ИТС
 (new TFormList(Application, 3))->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::N9Click(TObject *Sender)
{
  // подписки
  (new TFormList(Application, 4))->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::FormClose(TObject *Sender, TCloseAction &Action)
{
 if (MessageBox(0, "Вы действительно хотите выйти из программы?", "Выход из программы", MB_ICONQUESTION|MB_YESNO) == IDYES)
  exit (0);
 Action = caNone;
}
//---------------------------------------------------------------------------

void __fastcall TMain_Form::N10Click(TObject *Sender)
{
   // Серийные номера ПП
  (new TFormList(Application, 5))->ShowModal();
}
//---------------------------------------------------------------------------

Нас интересует N8Click

Автор: Anikmar 25.9.2009, 22:11

Код


void __fastcall TMain_Form::N8Click(TObject *Sender)
{
  (new TForm_Kladr(Application))->ShowModal();
 }

А в обработчике потока
Form_Kladr->sGauge->Progress = j;

Вы не забыли присвоить значение Form_Kladr?

Автор: vikaz 25.9.2009, 22:14

можно подробнее с этого места?

Автор: Anikmar 25.9.2009, 22:19

Цитата(vikaz @ 25.9.2009, 22:14

)

можно подробнее с этого места?

Попробуйте так:

Код


void __fastcall TMain_Form::N8Click(TObject *Sender)
{
Form_Kladr = new TForm_Kladr(Application);
Form_Kladr->ShowModal();
 }

Автор: vikaz 25.9.2009, 22:24

Цитата(Anikmar @ 25.9.2009, 22:19

)

Попробуйте так:
Выделить всёкод C++ Builder
void __fastcall TMain_Form::N8Click(TObject *Sender)
{
Form_Kladr = new TForm_Kladr(Application);
Form_Kladr->ShowModal();
}

Сразу же попробовал не прокатило! Единственное, что вернул форму в автосоздаваемые и вызываю Form_Kladr->ShowModal();
:(

Автор: Anikmar 25.9.2009, 22:31

В главной форме нет переменной с именем Form_Kladr?

Автор: vikaz 25.9.2009, 22:35

Нет! только указатели на TForm и все!

Автор: Anikmar 25.9.2009, 22:39

Попробуйте посмотреть чему равно значение Form_Kladr в обработчике потока. Мне кажется, что этот адрес не указывает на форму.

Автор: vikaz 25.9.2009, 22:47

Подскажите, как это сделать! smile

Автор: Anikmar 25.9.2009, 23:18

Цитата(vikaz @ 25.9.2009, 22:47

)

Подскажите, как это сделать!

Попробуйте отладчиком.

Автор: SVN74 26.9.2009, 14:53

Цитата(vikaz @ 25.9.2009, 20:38

)

В теле потока (Execute), написал цикл, и сделал вывод в ProgressBar через Synchronize. Запускаю поток и у меня появляется ошибка, но как только я убираю строку ProgressBar, то все работает нормально.

И не будет работать, пока применяется ShowModal - нужно перестраиваться на Show()...
===================================================================
А если применять CreateThread, - то нельзя просто так ( на прямую ) обращаться к VCL объектам, - тут необходимо использовать ShowMessage, а в главной форме делать обработчик события, - но опять же все будет зависать, так, как обработчик главной формы будет ждать окончания работы ShowModal формы.

Автор: Anikmar 26.9.2009, 18:30

Цитата(SVN74 @ 26.9.2009, 14:53

)

И не будет работать, пока применяется ShowModal - нужно перестраиваться на Show()...

Почему не будет, если создавать отдельный поток?

Цитата(SVN74 @ 26.9.2009, 14:53

)

необходимо использовать ShowMessage

Это что? В смысле PostMessage?

Цитата(SVN74 @ 26.9.2009, 14:53

)

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

А зачем нам главная форма? Вопрос почему отдельный поток вызывает AV. То, что из потоков с VCL нельзя напрямую работать понятно, но для этого синхронизация и придумана.
Я когда-то делал нечто подобное и у меня все работало прекрасно. Правда я ProgressBar использовал, а не Gauge, но думаю разницы нет. К сожалению не могу вспомнить что это было, поэтому примера под рукой нет.

Если вместо ShowModal использовать Show - возникают дополнительные трудности, если дальнейшая работа невозможна без завершения долгой операции. Если можно пока работать, то тогда действительно, нужно заменить модальную на немодальную. Но причина ошибки как мне видится не в этом.

Автор: SVN74 26.9.2009, 19:52

Цитата(Anikmar @ 26.9.2009, 18:30

)

Почему не будет, если создавать отдельный поток?

Form_Kladr->sGauge->Progress = j; // Если это из основной формы, то все станет в модальной форме...
Так, как основное окно ожидает завершения Модального окна...

Цитата(vikaz @ 25.9.2009, 21:50

)

DWORD WINAPI ThreadKladr (LPVOID lpParam)
{
for (int i = 0; i < 100; i++)
{
  for (int j=0; j < 100; j++)
  {
   Form_Kladr->sGauge->Progress = j; // Это потенциальная ошибка, если сделать TerminateThread
   if (j == 99) TerminateThread(hThreadKladr, 0); // Если это вырубает само себя, тогда в этом нет смысла, просто надо "break", а если это
//для другого потока, то тогда это вообще на 101% вероятности, что возникнет ошибка, так как во первых нет синхронизации для
//общего   "Form_Kladr->sGauge->Progress"  и во вторых зразу же выдаст ошибку, если вырубить какой ни будь поток...
  }
}
}

А вообще трудно сделать заключение, на обрывках кода

Автор: Anikmar 27.9.2009, 00:09

Цитата(SVN74 @ 26.9.2009, 19:52

)

А вообще трудно сделать заключение, на обрывках кода

Однозначно

Автор: vikaz 27.9.2009, 08:23

Спасибо ребята, буду смотреть! Но я думаю, тема не закрыта! И переход ShowModal() на Show() не возможно. Точнее возможно, но не нужно. И повторюсь, как только я делаю, что окно создается автоматически, а вызывается в программе посредством ShowModal(), то все работает нормально.

Цитата(SVN74 @ 26.9.2009, 19:52

)

if (j == 99) TerminateThread(hThreadKladr, 0);

За подсказку, что нужно использовать только break, спасибо. Переборщил.

Добавлено @ 08:33
Вечерком создам проект в котором размещу то, что хотел сделать в своей программе и там поэкспериментируем!

Появилось немного времени вот исходники:

Автор: vikaz 27.9.2009, 09:14

Anikmar был прав, AV возникает из-за того, что просматривая значение Form3 оно оказалось = NULL.
Меняя строчку вызова на (new TForm3(Application))->Show(); ничего не меняется. Ошибка та же!

Автор: SVN74 27.9.2009, 11:34

Просмотрев твой проект, немного подправил, его...
Проблема была в том, что у тебя поток ничего не знал о Form3, - надо было просто передать указатель на Form3 через конструктор потока и все...
Теперь можно применять и Show(), и запускать множество Form3 одновременно...
Вот подправленный проект:

Автор: Anikmar 27.9.2009, 12:23

Цитата(SVN74 @ 27.9.2009, 11:34

)

Проблема была в том, что у тебя поток ничего не знал о Form3

Ага

Автор: vikaz 27.9.2009, 15:28

. Спибо. +1 всем в бортовой журнал! smile

Автор: vikaz 29.9.2009, 18:44

Тему продолжим! Создаю уже подобное в своей программе, при добавлении строчки Synchronize (pb());
появляется сл. ошибка:
[BCC32 Error] Thread_Kladr_Unit.cpp(31): E2285 Could not find a match for 'TThread::Synchronize(void)'

Автор: SVN74 29.9.2009, 21:24

Цитата(vikaz @ 29.9.2009, 18:44

)

Synchronize (pb());

Обычно указывается только имя функции Synchronize (pb), или указатель на функцию Synchronize (&pb), в зависимости от версии билдера

Автор: vikaz 29.9.2009, 22:19

Цитата(SVN74 @ 29.9.2009, 21:24

)

Спасибо! Моя невнимательность!