Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Непонятки с потоком 
V
    Опции темы
vikaz
Дата 25.9.2009, 20:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

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

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


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

Это сообщение отредактировал(а) vikaz - 25.9.2009, 20:40


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
vikaz
Дата 25.9.2009, 20:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

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


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Anikmar
Дата 25.9.2009, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
В какой последовательности вы запускаете поток, создаете форму и прогресс-бар? В каком месте программы?
PM MAIL ICQ   Вверх
vikaz
Дата 25.9.2009, 21:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
Цитата(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);
  }
 }
}



--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Anikmar
Дата 25.9.2009, 21:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Цитата(vikaz @  25.9.2009,  21:50 Найти цитируемый пост)
запускается главная форма, у нее есть меню,через меню выбираю пункт который мне нужен, на этом пункте сл. код:

Можно глянуть целиком обработчик этого пункта меню?
PM MAIL ICQ   Вверх
vikaz
Дата 25.9.2009, 22:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
Код


#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

Это сообщение отредактировал(а) vikaz - 25.9.2009, 22:03


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Anikmar
Дата 25.9.2009, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Код

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


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

Вы не забыли присвоить значение Form_Kladr?
PM MAIL ICQ   Вверх
vikaz
Дата 25.9.2009, 22:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
можно подробнее с этого места?


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Anikmar
Дата 25.9.2009, 22:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Цитата(vikaz @  25.9.2009,  22:14 Найти цитируемый пост)
можно подробнее с этого места? 

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

void __fastcall TMain_Form::N8Click(TObject *Sender)
{
Form_Kladr = new TForm_Kladr(Application);
Form_Kladr->ShowModal();
 }
PM MAIL ICQ   Вверх
vikaz
Дата 25.9.2009, 22:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
Цитата(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();
:(



--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Anikmar
Дата 25.9.2009, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
В главной форме нет переменной с именем Form_Kladr?
PM MAIL ICQ   Вверх
vikaz
Дата 25.9.2009, 22:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
Нет! только указатели на TForm и все!


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Anikmar
Дата 25.9.2009, 22:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Попробуйте посмотреть чему равно значение Form_Kladr в обработчике потока. Мне кажется, что этот адрес не указывает на форму.
PM MAIL ICQ   Вверх
vikaz
Дата 25.9.2009, 22:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 869
Регистрация: 15.2.2006

Репутация: 10
Всего: 12
Подскажите, как это сделать! smile 


--------------------
user posted image

Нет ничего настолько исправного, чтобы в нем не было ошибок. /Ф. Петрарка/ 
PM MAIL ICQ Skype   Вверх
Anikmar
Дата 25.9.2009, 23:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2513
Регистрация: 26.11.2006
Где: Санкт-Петербург

Репутация: 34
Всего: 59
Цитата(vikaz @  25.9.2009,  22:47 Найти цитируемый пост)
Подскажите, как это сделать!   

Попробуйте отладчиком. 
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0619 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.