VPF::Обращение к окну из параллельного потока

Gershkovich

Дата 22.5.2006, 10:47 (ссылка)

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

Загрузка ...

Бывалый

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

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

Всем привет.

МОжет кто сталкивался с сабжем?
Ситуация в следующем:

В главном потоке создаю окно TLogWindow.

Запускаю отдельный поток, который добавляет строки
в созданное окно:

Код


TMyThread.Execute.....
begin
  while not terminated do begin
    LogWindow.Memo.Lines.Add('some string');

    // some processing .....
  end;
end;

При обращении к окну TLogWindow начинаются
самые разнообразные глюки - Memo становится невидимым,
валятся эксепшны типа "bad typecast", приложение
виснет совсем (тока Ctrl-F2 помогает).
Причем глюки каждый раз разные и в разной последовательности.

Делo именно в этой строке:

Код


LogWindow.Memo.Lines.Add('some string');

Если ее закоментарить - все работает нормально.

Экно TLogWindow создавал по разному:
TLogWindow.Create(MainWin) и так TLogWindow.Create(nil)
не помогает.

Пыталя создавать окно даже так:

Код


unit MyLoggerUnit;
....
initialization
  LogWindow:= TLogWindow.Create(nil);
finalization
  LogWindow.Free;
end;

Не помогает.

Исходники не привожу т.к. там ничего нет.
Единственный код который я писал - см. выше.

Что я неправильно делаю ?
МОжет к окну можно обращаться тока из главного потока ?
Как тогда мне логировать параллельный поток ?

Заранее спасибо.

Romikgy

Дата 22.5.2006, 11:07 (ссылка)

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

Загрузка ...

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

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

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

А окно создать в другом потоке пробовал?

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Rennigth

Дата 22.5.2006, 11:15 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Gershkovich @ 22.5.2006, 10:47

)

код Pascal/Delphi
TMyThread.Execute.....
begin
  while not terminated do begin
    LogWindow.Memo.Lines.Add('some string');

    // some processing .....
  end;
end;

Gershkovich,

Нельзя в принцыпе юзать VCL не из MainThread в паралельных потоках а тем более принадлежашее окно MainTread-у, тем более таким "варварским" способом... без синхронизации и тд.

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

(* Honesta mors turpi vita potior *)

Gershkovich

Дата 22.5.2006, 11:16 (ссылка)

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

Загрузка ...

Бывалый

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

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

Пробовал. Не помогает.

Добавлено @ 11:22
Rennigth, а што делать?

Как отобразить лог?

Придется наверно искать обходные пути ...

Rennigth

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

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

Загрузка ...

Эксперт

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

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

Gershkovich,
самое простое что могу предложить это треду передавать handle твоего TLogWindow и из него слать ему мессаджи которые будешь уже обрабатывать уже в контексте главного треда.

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

(* Honesta mors turpi vita potior *)

Snowy

Дата 22.5.2006, 11:29 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

А зачем ты вызываешь метод мемы из другого треда?
Это нужно делать в методе синхронизации.

Gershkovich

Дата 22.5.2006, 12:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

Snowy, Боюсь что не понимаю.

Это такие методы которые помечены как synchronized ?
Насколькоя помню, они выполняются в VCL потоке.

Т.е. если я все правильно понимаю, то в классе потока я
объявлю метод который synchronized
и он без проблем обращается к Memo ?

Я ничего не перепутал ?

Демо

Дата 22.5.2006, 12:18 (ссылка)

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

Загрузка ...

Эксперт

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

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

Код


private
  FValue: String;
  procedure Disp;
...

procedure TMyThread.Execute;
begin
  while not Terminated do
  begin 
   ...
    FValue := MyStr;
    Synchronize(Disp);
    ...
  end;
end;

procedure TMyThread.Disp;
begin
  Form1.Memo1.Lines.Add(FValue);
end;

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

Gershkovich

Дата 22.5.2006, 12:26 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо.

Жаль что сегодня не получится проверить.

Демо

Дата 22.5.2006, 12:30 (ссылка)

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

Загрузка ...

Эксперт

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

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

Статья по потокам:
http://www.delphimaster.ru/articles/panov/index.html

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

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