Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TThread.Synchronize в ActiveX 
V
    Опции темы
CatATonik
Дата 16.1.2007, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8
Такая проблема: есть ActiveX контрол написанный на Delphi, в нем создается поток, при вызове в этом потоке Synchronize - поток виснет, т.е. в Execute не выполняется код следующий за вызовом Synchronize. Проблема именно в Synchronize, т.к. убрал весь лишний код вызывал пустой метод, пробовал менять потоковые модели компонента, ничего не помогает.
Кто нибудь сталкивался с подобной проблеммой?
PM MAIL   Вверх
Sunvas
Дата 16.1.2007, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
CatATonik, может код покажешь?


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
CatATonik
Дата 16.1.2007, 14:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8
Вот этого вполне достаточно:

Код

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
    procedure DoNothing;
  end;

procedure TMyThread.Execute;
var
  x: Integer;
begin
  // До сюда доходит:
  Synchronize(DoNothing);
  // (Что-б было куда breakpoint влепить), а до сюда нет:
  x := 0;
end;

procedure TMyThread.DoNothing;
begin
end;
PM MAIL   Вверх
Romikgy
Дата 16.1.2007, 16:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
CatATonik, а ты создал это 
Цитата(CatATonik @  16.1.2007,  13:29 Найти цитируемый пост)
TMyThread

имхо 
Цитата(CatATonik @  16.1.2007,  13:29 Найти цитируемый пост)
этого вполне

недостаточно


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Sunvas
Дата 16.1.2007, 17:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
CatATonik, не лепи Synchronize в TMyThread.Execute;!
Процедура-то override. Поэтому и не работает.



--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Romikgy
Дата 16.1.2007, 18:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(Sunvas @  16.1.2007,  16:53 Найти цитируемый пост)
не лепи Synchronize в TMyThread.Execute;!

улыбнуло smile а куда его лепить то?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Sunvas
Дата 16.1.2007, 18:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(Romikgy @  16.1.2007,  18:00 Найти цитируемый пост)
улыбнуло  а куда его лепить то?

В procedure TMyThread.DoNothing; например.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
Romikgy
Дата 16.1.2007, 18:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146
Цитата(Sunvas @  16.1.2007,  17:03 Найти цитируемый пост)
В procedure TMyThread.DoNothing; например. 

и что в качестве параметра задавать?


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
bems
Дата 16.1.2007, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88
x := 0 уберет оптимизатор и бряк не сработает


--------------------
Обижено школьников: 8
PM MAIL   Вверх
Sunvas
Дата 16.1.2007, 18:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Соль и сахар
****


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

Репутация: 28
Всего: 89
Цитата(Romikgy @  16.1.2007,  18:05 Найти цитируемый пост)
и что в качестве параметра задавать?

Оно так иногда не работает на бряках.


--------------------
Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.
PM MAIL   Вверх
CatATonik
Дата 16.1.2007, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8
2Sunvas:

Метод Execute для того и существует что-б туда вставить код исполняемыей в потоке, метод Synchronize для того и существует, что-б из потока безопасно выполнить код обращающийся к данным другого потока (DoNothing), зачем вызывать Synchronize из DoNothing я вообще не понял. Читайте документацию.

Очевидно проблема не в том, что где и как я вызываю, а в работе VCL'ного TThread в во вражеском окружении (ActiveX). Поэтому и вопрос: существуют ли методы обойти эту проблему. Пока я склоняюсь к тому что придется использовать WinAPI,  хотя опыта работа с потоками через API у меня нет и вообще геморойно это smile
PM MAIL   Вверх
MetalFan
Дата 17.1.2007, 12:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
CoInitializeEx/CoUninitialize в потоке может поможет?
p.s. а вообще приведенного кода явно недостаточно.то что написано - должно работать 100%. DoNothing выполняется?

Это сообщение отредактировал(а) MetalFan - 17.1.2007, 12:32


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
CatATonik
Дата 17.1.2007, 12:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8
Не не помогло.

Кстати создал новый проект (ActiveX Library) с одним простым ActiveX контролом, зарегестрил его, создал новый пустой проект, куда его вставил. Таже фигня!

Добавлено @ 13:03 
Кто не верит, вот файл с тестовыми проектами, там есть Test.bpg. Открываете сначала компилите TestControl.ocx, потом меню "Run \ Register ActiveX Server", потом запускаете Project1.exe и нажимаете кнопку Start.
Может это только у меня не работает? 

Присоединённый файл ( Кол-во скачиваний: 3 )
Присоединённый файл  ActiveXTest.rar 16,36 Kb
PM MAIL   Вверх
MetalFan
Дата 17.1.2007, 13:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128
а... ну понятно... у ActiveX и Приложения разные TApllication. а так же разные списки синхронизации, что более критично.
вариант - отказаться от использования Synchronize

Это сообщение отредактировал(а) MetalFan - 17.1.2007, 13:40


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
CatATonik
Дата 17.1.2007, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 95
Регистрация: 12.1.2007
Где: Москва

Репутация: 6
Всего: 8
Короче из документации:
Warning: Do not call Synchronize from within the main thread. This can cause an infinite loop.

smile

Будем делать ручками smile

2CatATonik: Читай документацию smile
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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