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

Форум программистов > C++ Builder > Интерфейс пользователя & выполнение операции

Автор: Oberon83 17.11.2006, 14:44

У меня есть операция работы с БД, которая занимает значительное время. Для того, чтобы пользователь не сидел "сложа руки" во время работы программы с БД я поместил операции работы с БД в отдельный поток. Но при выполнении потока кнопки формы не активны (т.е. активны, но ка-то странно). Дело в том, что пока поток не завершит свое выполнение обработчики событий для кнопок не обрабатываются (да и сами кнопки "не нажимаются", т.е. событие нажатия на кнопку фиксируется, но визуально это не отображается). В чем может быть дело? Может быть я неправильно понимаю саму идею потоков? Или все дело в методе Sinchronize потока (поток работает с визуалом формы)? Заранее благодарен за помощь.

Автор: RatHat 17.11.2006, 14:53

А зачем такая возня с потоками? Либо периодически обновляй форму, либо проставь в цикле следующий код: Application->ProcessMessage(); Тогда программа будет время от времени обрабатывать накопившиеся сообщения.

Автор: Vyacheslav 17.11.2006, 15:14

Наверное не правильно. Только не понятно в чем? Все должно быть не связано и работать так, как Вы и планировали. Иначе теряется thread  Кстати о птичках. Надеюсь в нитке при работе с БД используются отдельные DataSet ? И возможно, коннекшион тоже. Есть вариант, что ваша нитка и нитка приложения вызывают используют какой-нибудь метод( нитка использует через  Sinchronize), тогда идет попеременная блокировка ниток. Добавлено @ 15:16  Цитата(RatHat @ 17.11.2006,  14:53) А зачем такая возня с потоками? Либо периодически обновляй форму, либо проставь в цикле следующий код: Application->ProcessMessage(); Тогда программа будет время от времени обрабатывать накопившиеся сообщения. Ему же не обновление кнопок нужно, а обеспечить нормальную работу пользователя, пока  дополнительная нитка  обрабатывает БД

Автор: anwe 17.11.2006, 15:20

А созданый тобой поток "рабочий"? Может у тебя и в нем проводится общение с пользователем, в смысле обрабатываются сообщения? Надо, чтобы они обрабатывались в главном потоке, а  рабочий лишь делал операции работы с БД.

Автор: Oberon83 17.11.2006, 16:15

anwe, нет, работы с пользователем там нет. Цитата(Vyacheslav @  17.11.2006,  15:14 ) Есть вариант, что ваша нитка и нитка приложения вызывают используют какой-нибудь метод( нитка использует через  Sinchronize), тогда идет попеременная блокировка ниток. Я вот тоже об этом думаю. В выходные проанализирую заново код - в понедельник доложу о результатах

Автор: Vyacheslav 17.11.2006, 16:23

Цитата(Oberon83 @  17.11.2006,  16:15 )  выходные проанализирую заново код - в понедельник доложу о результатах   С нетерпением ждем отчета   В свою очередь могу сказать, что я делал примерно тоже. Причем было организовано так, что для пользователя высвечивалось дополнительно небольшое плавающее окошко в режиме поверх всех, в котором отражалось состояние процесса(сколько выполнено)  и кнопка для того, чтобы пользователь мог при необходимости прекратить процесс

Автор: Oberon83 21.11.2006, 14:33

Просмотрев код, систематизировал объекты, связанные с формой: 1. Используется конект к БД с помощью ТIBDataBase; 2. Используются запросы TIBQuery; 3. Так же идет работа с OleContainer (в нем открыта книга Excel в которую заносятся данные из БД); Теперь вопрос: как это все поместить отдельно в поток? Т.е. и подключение к БД, выполнение запросов и обработка объекта в контейнере ole? Т.к. блокировка кнопок форм скорее всего происходит потому что поток использует OlecOntainer для считывания/записи данных (поскольку при простом запуске функции потока пез метода Synchronize, компилятор быдает ошибку контейнера ole). P.S.: При работе потока, подключение к БД и запросы ничем больше не используются.

Автор: Vyacheslav 21.11.2006, 15:50

Во-первых, я ничего не понял  Вам нужно, определить что может одновременно используется отвновным потоком и дополнительным потоком Вы же пишите Цитата Просмотрев код, систематизировал объекты, связанные с формой: Ну и что следует из этого? Вы же используете некоторые методы через Synchronize. По всей видимости, либо эти же методы либо используемые объекты в них одновременно пользует основной поток Я не понял, что значит  Цитата(Oberon83 @  21.11.2006,  14:33 ) поместить отдельно в поток достаточно просто иметь отдельную копию  для дополнительного потока. Как Вы уж это сделаете = Ваша проблема. Либо чденами класса Вашего TThread, либо используя средства дизайна - TDataModule  со всеми необходимыми для работы дополнительного потока компонентами.

Автор: Oberon83 7.12.2006, 11:44

Цитата(Vyacheslav @  17.11.2006,  16:23 ) В свою очередь могу сказать, что я делал примерно тоже. Причем было организовано так, что для пользователя высвечивалось дополнительно небольшое плавающее окошко в режиме поверх всех, в котором отражалось состояние процесса(сколько выполнено)  и кнопка для того, чтобы пользователь мог при необходимости прекратить процесс  У меня примерно то же самое. На основной форме есть панель, которая закрывает основную рабочую область. На этой панели расположен прогрессбар и кнопка отмены, так вот она ведет себя так как я описывал в первом посте. Работу с БД (коннект, запросы) вынес в отдельный datamodule, но это все-равно не помогло. Скорее всего кнопка ведет себя так потому что я постоянно из потока работаю со прогрессбаром, с помощью которого показывается процесс выполнения операции. Как можно "вынести" обработку прогрессбара из потока?

Автор: Artemon 7.12.2006, 15:06

А ты сначала попробуй отключить прогресс бар. Если все заработает на ура, вот тогда и выноси обработку прогресс бара из потока.

Автор: Oberon83 7.12.2006, 16:18

Похоже что без кода не обойтись. Структура программы выглядит следующим образом: у меня существуют статистические формы, которые приходят к нам в электронном виде. Их нужно занести в БД и потом производить какие-либо действия (например формирование сводных отчетов и т.д.). В БД, грубо говоря, существуют 3 таблицы: CATEGORY, THEMES, WRITE. CATEGORY - таблица, которая представляет из себя столбцы таблицы (наименование поля, номер ячейки Excel и т.д.), THEMES - строки (наименование поля, номер ячейки Excel), а WRITE - таблица для сохранения результатов (ном. столбца, ном. строки, значение). Excel формы загружаются в OLE контейнер, расположенный на форме. После этого мне нужно сохранить результат в базу, причем так, чтобы приложение "не висело" и пользователь мог остановить процесс загрузки данных как в OLE контейнер, так и в базу данных (как раз этого не получается). Код __fastcall operation_BD::operation_BD(bool CreateSuspended, int op,AnsiString write, AnsiString themes, AnsiString category, AnsiString gen, Variant sheets_temp, int i)         : TThread(CreateSuspended) {         operation = op; //Операция          id = i; //Номер элемента         sheets = sheets_temp; //Рабочая область Excel - Form1->OleContainer1->OleObject.OlePropertyGet("Worksheets");          gen_tab = gen; //Таблица с которой работает запрос         write_tab = write; //Таблица с которой работает запрос         themes_tab = themes; //Таблица с которой работает запрос         category_tab = category; //Таблица с которой работает запрос } Функция запуска потока: Код void __fastcall operation_BD::Execute() {         switch(operation){         //Загрузка формы         case 1: Synchronize(load_operation);         break;         //Сохранение формы         case 2: Synchronize(save_operation);         break;         default: Terminated;         } } Загрузка формы в программу: Код void __fastcall operation_BD::         load_operation(void) {                  //Подключаемся к БД         DataModule2->connect_database("C:\\Documents and Settings\\oberon\\Рабочий стол\\DB\\SMI.GDB","SYSDBA","masterkey");         //Обработка визуальных компонентов         Form1->sPanel1->Visible = true;         Form1->sGauge1->Visible = true;         Form1->sLabelFX6->Caption = "Загрузка...";         Form1->sLabelFX6->Visible = true;         //Инициализация статусбара         Form1->sStatusBar1->SimpleText = "Подготовка к редактированию формы";         //Сбрасываем прогрессбар         Form1->sGauge1->Progress = 0;           AnsiString sql1;           AnsiString sql2;           AnsiString sql3;           AnsiString temp_string;           AnsiString x;           AnsiString y;           AnsiString page;           //Число проходов для выполнения операции сохранения в БД           int kol_zap = 0;           //Счетчик проходов           int i = 0;           //Временная переменная для округления результата до целого           int temp = 0;           sql1 = "SELECT * FROM " + write_tab + " WHERE COMPATIBILITY = ";           sql1 += AnsiString(id);           sql1 += " ORDER BY CATEGORY, THEMES";           DataModule2->IBQuery1->SQL->Clear();           DataModule2->IBQuery1->SQL->Add(sql1);           DataModule2->IBQuery1->Open();           DataModule2->IBQuery1->FetchAll();           kol_zap = DataModule2->IBQuery1->RecordCount;           while(!DataModule2->IBQuery1->Eof && !Terminated){                 sql2 = "SELECT * FROM " + themes_tab + " WHERE ID = ";                 sql2 += DataModule2->IBQuery1->operator []("THEMES");                 sql3 = "SELECT * FROM " + category_tab + " WHERE ID = ";                 sql3 += DataModule2->IBQuery1->operator []("CATEGORY");                 DataModule2->IBQuery2->SQL->Clear();                 DataModule2->IBQuery2->SQL->Add(sql2);                 DataModule2->IBQuery2->Open();                 //Выбираем ячейкц темы и страницу                 page = DataModule2->IBQuery2->operator []("PAGE");                 x = DataModule2->IBQuery2->operator []("CELL");                 DataModule2->IBQuery2->Close();                 DataModule2->IBQuery3->SQL->Clear();                 DataModule2->IBQuery3->SQL->Add(sql3);                 DataModule2->IBQuery3->Open();                 //Выбираем ячейку категории                 y = DataModule2->IBQuery3->operator []("CELL");                 DataModule2->IBQuery3->Close();                 sheet = sheets.OlePropertyGet("Item",StrToInt(page));                 cells = sheet.OlePropertyGet("Cells").OlePropertyGet("Item",StrToInt(x),StrToInt(y));                 temp_string = DataModule2->IBQuery1->operator []("VAL");                 if(!cells.OlePropertyGet("Locked"))                         if(temp_string != "0")                              cells.OlePropertySet("Value",temp_string.c_str());                 //Процентная панель                 i += 1;                 temp = (i*100)/kol_zap;                 Form1->sGauge1->Progress = temp;                 Form1->Update();                 DataModule2->IBQuery1->Next();                 }           if(Terminated) MessageBox(0, "Внимание! Форма загружена не полностью", "Загрузка формы", MB_OK);           DataModule2->IBQuery1->Close();           //Закрываем подключение к БД           DataModule2->IBDatabase1->Close();           //Обработка визуальных компонентов           Form1->sPanel1->Visible = false;           //Убираем надпись со статусбара           Form1->sStatusBar1->SimpleText = "";           Form1->sPanel1->Visible = false;           //Отключаемся от БД           DataModule2->disconnect_database(); } Загрузка шаблона формы в OLE контейнер и начальная инициализация: Код bool load_form(AnsiString path){         try{         Form1->OleContainer1->CreateObjectFromFile(path,false);         Form1->OleContainer1->DoVerb(ovShow);         Form1->Hide();         }         catch(EOleSysError &e){                 AnsiString message;                 message = "Невозможно открыть шаблон:\n";                 message += e.Message;                 MessageBox(0, message.c_str(), "Открытие шаблона", MB_OK);                 Form1->Show();                 return 0;         }         Variant hg;         Variant hg2;         hg = Form1->OleContainer1->OleObject.OlePropertyGet("Windows");         hg2 = hg.OlePropertyGet("Item",1);         //Убираем горизонтальную прокрутку         hg2.OlePropertySet("DisplayHorizontalScrollBar",false);         //Убираем панели инструментов Excel         Form1->OleContainer1->OleObject.OlePropertyGet("CommandBars","Standard").OlePropertySet("Visible",false);         ...         ...         ...         Form1->OleContainer1->OleObject.OlePropertyGet("CommandBars","Control Toolbox").OlePropertySet("Visible",false);         Form1->sheets = Form1->OleContainer1->OleObject.OlePropertyGet("Worksheets");         Form1->sheet = Form1->sheets.OlePropertyGet("Item",1);         //Активируем первый лист         Form1->sheet.OleProcedure("Activate");         Form1->Show();         return 1; } P.S.: Прошу не ругать за "удобочитаемость" кода.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)