VPF::CreateThread и функция класса - Форум программистов

ButtonOFF

Дата 2.5.2014, 17:50 (ссылка)

(нет голосов)

Загрузка ...

улетевший

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

Репутация: нет
Всего: нет

Объясните пожалуйста.

Есть форма - главное окно. Необходимо создать поток через CreateThread и передать в качестве функции - функцию класса

Код


  TfmMain = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    class procedure WorkProc(lpParameter: Pointer); stdcall;
  public
    { Public declarations }
  end;

class procedure TfmMain.WorkProc(lpParameter: Pointer); stdcall;
begin
  // работа потока
end;

procedure TfmMain.FormCreate(Sender: TObject);
begin
    CreateThread(nil, 0, @WorkProc, Self, 0, thrID);
end;

Что я делаю не так? и как сделать так как хочется?

Это сообщение отредактировал(а) ButtonOFF - 2.5.2014, 17:51

kami

Дата 2.5.2014, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Как минимум - ThreadProc - это функция с результатом типа DWORD

Добавлено через 2 минуты и 10 секунд
Ну и, раз не используется BeginThread - надо бы самостоятельно выставить IsMultiThread:=True;

ButtonOFF

Дата 2.5.2014, 21:35 (ссылка)

(нет голосов)

Загрузка ...

улетевший

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

Репутация: нет
Всего: нет

Цитата

Ну и, раз не используется BeginThread - надо бы самостоятельно выставить IsMultiThread:=True;

Можно поподробнее

kami

Дата 2.5.2014, 21:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Понял, в чем был вопрос smile

Код


CreateThread([email protected]...

Но это не отменяет предыдущего сказанного.

Добавлено через 4 минуты и 45 секунд

Цитата(ButtonOFF @ 2.5.2014, 21:35

)

Можно поподробнее

Попытаюсь. Емнип, IsMultiThread влияет на работу менеджера памяти, переключая его в какой-то специальный режим.
BeginThread, помимо прочих действий, делает IsMultiThread = True. Если так уж надо использовать CreateThread, то надо самому выставить эту системную переменную.

Это сообщение отредактировал(а) kami - 2.5.2014, 21:40

ButtonOFF

Дата 2.5.2014, 21:47 (ссылка)

(нет голосов)

Загрузка ...

улетевший

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

Репутация: нет
Всего: нет

Хорошо задам по-другому немного вопрос. Можно ли запустить поток на выполнение функции из класса, как в моем примере, только что бы этот поток мог обращаться ко ВСЕМ объектам класса ?

Код


Но это не отменяет предыдущего сказанного.

Я так и не понял о чем речь...

Цитата

Можно поподробнее

kami

Дата 2.5.2014, 21:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 22
Всего: 72

Цитата(ButtonOFF @ 2.5.2014, 21:47

)

мог обращаться ко ВСЕМ объектам класса

Теперь я не понимаю, о чем речь:) Как это - ко всем объектам класса? Ко всем экземплярам этого класса? Или к полям одного экземпляра?

Повторюсь:
1. WorkProc из процедуры сделать функцией, которая возвращает DWORD.
2. В FormCreate до вызова CreateThread написать IsMultiThread:=True;

ButtonOFF

Дата 3.5.2014, 09:50 (ссылка)

(нет голосов)

Загрузка ...

улетевший

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

Репутация: нет
Всего: нет

kami, Ну вот в первом посте пример, если сделать так, но с поправкой

Код


CreateThread([email protected]...

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

Poseidon

Дата 3.5.2014, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

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

Репутация: 9
Всего: 133

Цитата(ButtonOFF @ 2.5.2014, 21:47

)

Можно ли запустить поток на выполнение функции из класса, как в моем примере, только что бы этот поток мог обращаться ко ВСЕМ объектам класса ?

Вообще очень интересно поставлена задача: из отдельного потока нужно иметь возможность обращаться ко всем полям и методам класса формы! Тут на лицо несоблюдение основного принципа многопоточности - к VCL обращаться только из основного потока. Почему такое категоричное желание использовать CreateThread? Раз используется TForm, то очевидно что это не приложение на WinAPI. Тогда почему бы не воспользоваться TThread и избежать многочасовых поисков глюков?

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

ButtonOFF

Дата 3.5.2014, 18:46 (ссылка)

(нет голосов)

Загрузка ...

улетевший

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

Репутация: нет
Всего: нет

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

stanilar

Дата 5.5.2014, 09:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Цитата(ButtonOFF @ 3.5.2014, 16:46)

У процедуры из WorkProc есть параметры, соответственно ничто не мешает передать весь объект или класс.

bems

Дата 7.5.2014, 03:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 18
Всего: 88

также у классовых методов тоже есть self, поэтому тебе нужен class static

--------------------

Обижено школьников: 8

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »