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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Потоки и OnTerminate 
:(
    Опции темы
WolfON
Дата 30.12.2005, 19:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 8
При вызове функции, которая прописана в OnTerminate у потока мне нужно передавать какую-нибюудь информацию той функции, которая и будет заверщать поток, какие идеи на счет реализации?

Перегрзука OnTerminate???!
PM MAIL ICQ   Вверх
Guedda
Дата 30.12.2005, 22:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

Репутация: 14
Всего: 78
Можешь сделать так:
Код

// юнит, откуда закрываешь поток
... 
public
  i : Integer; // собственно то, что будешь передавать
...

// юнит, потока

procedure TThreadIII.OnTerminate;
begin
...
  Unit1.i := ;//то, что хочешь передать.
...
end;



--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
WolfON
Дата 30.12.2005, 22:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 8
Плохая идея на мой взгляд - потоки могут завершиться с небольшим промежутком и i будет изменена в процессе выполнения OnTerminate => трудноуловимая ошибка
PM MAIL ICQ   Вверх
Alexeis
Дата 3.1.2006, 13:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
WolfON
Можно в функции OnTerminate послать некоторое пользовательское
сообщение параметры передавать как lparam и wparam, а в основной
програме ловить это сообщение.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
WolfON
Дата 16.1.2006, 01:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 8
Слишком извращенный метод.

Может каким-либо образом сделать перегрузку?
PM MAIL ICQ   Вверх
Albinos_x
Дата 16.1.2006, 01:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
вообще не совсем понятно что хочешь сделать, но
может так:
Код

private
    status : Integer;

ты ведь будешь знать какой поток завершаешь и следовательно можешь обратиться к его внутренним переменным...
Добавлено @ 01:56
а вообще скорее тебе нужно что-то наподобии динамического массива, где для каждого потока хранить информацию, тогда и на случай:
Цитата(Guedda @ 30.12.2005, 22:23 Найти цитируемый пост)

Можешь сделать так:

код Pascal/Delphi
// юнит, откуда закрываешь поток
... 
public
  i : Integer; // собственно то, что будешь передавать
...
// юнит, потока
procedure TThreadIII.OnTerminate;
begin
...
  Unit1.i := ;//то, что хочешь передать.
...
end;

Цитата(WolfON @ 30.12.2005, 22:46 Найти цитируемый пост)

Плохая идея на мой взгляд - потоки могут завершиться с небольшим промежутком и i будет изменена в процессе выполнения OnTerminate => трудноуловимая ошибка

не будет косяков, и информацию передавать сможешь без проблем...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Демо
Дата 16.1.2006, 04:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure TerminateThr(Sender: TObject);
  end;

  TMyThread=class(TThread)
  protected
    procedure Execute; override;
  public
    FResult: String;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TMyThread }

procedure TMyThread.Execute;
begin
    FResult := 'Результат, который передаем в OnTermnate';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    with TMyThread.Create(True) do
    begin
        OnTerminate := TerminateThr;
        FreeOnTerminate := True;
        Resume;
    end;
end;

procedure TForm1.TerminateThr(Sender: TObject);
begin
  ShowMessage(TMyThread(Sender).FResult);
end;

end.




--------------------
    
PM MAIL ICQ Skype   Вверх
WolfON
Дата 16.1.2006, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 8
Неуж-то никто не занимался перегрузкой каких-нибудь вызовов, вроде OnTerminate. OnClick

По тому методу есть опасения, что :-/
PM MAIL ICQ   Вверх
Демо
Дата 16.1.2006, 21:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 30
Всего: 50
Цитата(WolfON @ 16.1.2006, 21:59)
Неуж-то никто не занимался перегрузкой каких-нибудь вызовов, вроде OnTerminate.

Что-то я не понял, чем пример постингом выше не устраивает?


--------------------
    
PM MAIL ICQ Skype   Вверх
Guedda
Дата 17.1.2006, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

Репутация: 14
Всего: 78
А зачем ты там Resume применил? Объясни, я не понял.


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Демо
Дата 17.1.2006, 10:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 30
Всего: 50
Цитата(Guedda @ 17.1.2006, 11:28)
А зачем ты там Resume применил? Объясни, я не понял.

Поток же создается в приостановленном состоянии - TMyThread.Create(True).



--------------------
    
PM MAIL ICQ Skype   Вверх
Alexeis
Дата 17.1.2006, 10:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
Цитата

А зачем ты там Resume применил?

так поток же спящим создается


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Guedda
Дата 17.1.2006, 10:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


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

Репутация: 14
Всего: 78
Зняюсь. Не увидел параметр.
Вроде как false был...


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
WolfON
Дата 18.1.2006, 00:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: нет
Всего: 8
А оказываеть пример-то очень даже и неплохой - потестил - работает соверщенно без глюков!
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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