VPF::Вывод из дочернего потока - Форум программистов

npr2

Дата 29.4.2008, 11:22 (ссылка)

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

Загрузка ...

Новичок

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

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

Только начинаю работать с потоками. Может и не по адресу обращаюсь.
Создала форму. Создала дочерний поток в котором читаю данные из сом-порта. Нужно после обработки этих данных, выложить в Edit.text значение этой переменной. Делаю так

Код


  type
     TCommThread=class(TThread)
   private
    Stroka:string;
    HFile:TextFile;
    Procedure ShowStroka;
   protected
     Procedure Execute; override;
  end;
var
  Scale_Form: TScale_Form;
  TT:TCommThread;
Это описание потока.
Запускаю поток при создании формы    TT:=TCommThread.Create(False);
procedure TCommThread.Execute;
var
begin
...
    stroka:=Separ_float(w1);
    TT.Synchronize(ShowStroka);
...
end;


procedure TCommThread.ShowStroka;
begin
  Scale_Form.Edit1.Text:=Stroka;
end;

При выводе переменной задача вылетает по ошибке Access Violation at address. Если пытаюсь выводить значение в заголовок окна, то вообще ничего не происходит.
Где я ошибаюсь?

Rennigth

Дата 29.4.2008, 12:10 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(npr2 @ 29.4.2008, 11:22

)

TT.Synchronize(ShowStroka);

на кой так? Ты же и так находишься в контексте TCommThread.

Код


procedure TCommThread.Execute;
var
begin
...
    stroka:=Separ_float(w1);
    Synchronize(ShowStroka);
...
end;

Небюось к этому времени TT как раз и неинициализирована.

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

(* Honesta mors turpi vita potior *)

npr2

Дата 29.4.2008, 12:36 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата

stroka:=Separ_float(w1);
Synchronize(ShowStroka);

Это был первоначальный вариант, а потом пошли вариации. Я в ShowStroka пишу еще stroka в файл, там все нормально проходит, а на выводе загибается.

Rennigth

Дата 29.4.2008, 12:47 (ссылка)

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

Загрузка ...

Эксперт

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

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

npr2, думаю проблеммы не с выводом строки, а AV это уже следствие ошибки в другом месте. Покажи код Separ_float и что за переменная w1?

Добавлено через 1 минуту и 23 секунды
кстати Scale_Form к моменту вывода уже существует?

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

(* Honesta mors turpi vita potior *)

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