ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / потоки(TThread) и свойства(property), не все понятно
25 сообщений из 29, страница 1 из 2
  1  все
потоки(TThread) и свойства(property), не все понятно
    #39655031
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pcrepair
Гость
Добрый день. Есть следующий демокод:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
unit uNewThread;
interface
uses
  System.Classes,SysUtils,Dialogs,SyncObjs,StrUtils,ExtCtrls,Windows,
  WideStrUtils,Vcl.Forms;

  procedure  ThreadDoJob(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);

type
  DoJob = class(TThread)
  private
    fHost,fErrorMsg:string;
    fIsJobDone:Boolean;
  protected
    procedure Execute; override;
  public
    property ErrorMsg:string read fErrorMsg;
    property IsJobDone:Boolean read fIsJobDone;

    constructor Create(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
    destructor Destroy; override;
  end;

implementation

procedure  ThreadDoJob(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
var
  ThreadJob:DoJob;
begin
  ThreadJob:=DoJob.Create(aHost,aErrorMsg,aIsMailJobDone);
  aErrorMsg:=ThreadJob.ErrorMsg; 
  aIsMailSended:=ThreadJob.IsMailSended;
end;

constructor DoJob.Create(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
begin
  inherited Create(False);
  FreeOnTerminate := True;
  Self.Priority := tpLower;
  fHost:=aHost;
end;

destructor DoJob.Destroy;
begin
  inherited Destroy;
end;

procedure DoJob.Execute;
var
  flg:Boolean;
begin
  flg:=true;  (*or FALSE just for fun*)

  if flg then
  begin
    fIsJobDone:=TRUE;
    fErrorMsg:='7777';
  end
  else
  begin
    fIsJobDone:=FALSE;
    fErrorMsg:='6666';
  end;

end.


прогнозируемо aErrorMsg:=ThreadJob.ErrorMsg; и aIsMailSended:=ThreadJob.IsMailSended; выводят "ничего" в выше стоящий код

Вопрос : как правильно вывести результат работы потока в обработчики но без "Synchronize" и прочего из той же оперы а через "property". если такое для потока вообще возможно. что то читал про OnTerminate но ничего канкретно применительно к "property" не нашлось.
...
Рейтинг: 0 / 0
04.06.2018, 16:12
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655042
DesWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DesWind
Гость
Pcrepair,
ИМХО, проще всего отправить сообщение об окончании работы потока.
...
Рейтинг: 0 / 0
04.06.2018, 16:18
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655046
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pcrepair
Гость
лутше всего вначале прочитать топик а потом писАть ответ
...
Рейтинг: 0 / 0
04.06.2018, 16:22
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655088
Zelius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Zelius
Участник
Pcrepair,

защищать доступ критическими секциями. но тут другая проблема, поток самоуничтожаем, поэтому в момент считывания его может и не быть уже
...
Рейтинг: 0 / 0
04.06.2018, 16:55
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655104
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
PcrepairВопрос : как правильно вывести результат работы потока в обработчики но без "Synchronize" и прочего из той же оперы а через "property". если такое для потока вообще возможно. что то читал про OnTerminate но ничего канкретно применительно к "property" не нашлось.

А что вы хотите "вывести" из потока, если у вас в конструкторе "FreeOnTerminate := True;"? Как только завершается выполнение Thred.Execute(), то у вас поток уже не существует. Это во-первых.

Во-вторых:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
procedure  ThreadDoJob(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
var
  ThreadJob:DoJob;
begin
  ThreadJob:=DoJob.Create(aHost,aErrorMsg,aIsMailJobDone);
  aErrorMsg:=ThreadJob.ErrorMsg; // сюда вы [возможно] попадёте, когда поток ещё не выполнился, так откуда там возьмётся значение?..
  aIsMailSended:=ThreadJob.IsMailSended;
end;


ИМХО почитайте справку про TThread.WaitFor и вообще статьи на тему взаимодействия потоками, т.к. непонятно зачем в вашем случае он вообще нужен.
...
Рейтинг: 0 / 0
04.06.2018, 17:16
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655121
DesWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DesWind
Гость
Pcrepair,
Я по коду ориентировался, если в конце Execute сделать SendMessage, то поток не уничтожится пока не буде обработано сообщение об окончании работы потока.
...
Рейтинг: 0 / 0
04.06.2018, 17:41
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655146
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Сложно сказать, что именно нужно. Но пока что послать синхронное сообщение об окончании - лучшая идея. Иначе можем напороться на отсутствующий экземпляр, со всеми последствиями. Либо где-то снаружи результат запоминать, что явно хуже.
...
Рейтинг: 0 / 0
04.06.2018, 18:57
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655152
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pcrepair
Гость
неужто никто топик до конца не читает?

авторВопрос : как правильно вывести результат работы потока в обработчики но без "Synchronize" и прочего из той же оперы а через "property". если такое для потока вообще возможно. что то читал про OnTerminate но ничего канкретно применительно к "property" не нашлось.
...
Рейтинг: 0 / 0
04.06.2018, 19:16
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655155
Фотография softwarer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
softwarer
Участник
PcrepairВопрос : как правильно вывести результат работы потока в обработчики но без "Synchronize" и прочего из той же оперы а через "property".
Вопрос звучит примерно так: "Как мне доехать на автомобиле из Москвы в Ленинград, но без бензина и прочего из той же серии, а через руль?"

К сожалению, Ваш текст показывает столь малое знакомство с предметом, что какой-либо осмысленный диалог практически невозможен. Если Вам быстро нужный результат, погуглите что-нибудь типа "как вернуть результат из потока в Delphi" и добросовестно скопируйте тот или иной пример, а если хотите разобраться и понимать происходящее - прочитайте базовые материалы по теме, тогда сможете задавать более осмысленные вопросы.
...
Рейтинг: 0 / 0
04.06.2018, 19:28
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655156
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pcrepair
Гость
а по существу?
...
Рейтинг: 0 / 0
04.06.2018, 19:31
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655169
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Pcrepair,
авторнеужто никто топик до конца не читает?
Вот вот :)
авторЛибо где-то снаружи результат запоминать, что явно хуже.
...
Рейтинг: 0 / 0
04.06.2018, 19:57
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655184
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kealon(Ruslan)
Участник
Pcrepairнеужто никто топик до конца не читает?

авторВопрос : как правильно вывести результат работы потока в обработчики но без "Synchronize" и прочего из той же оперы а через "property". если такое для потока вообще возможно. что то читал про OnTerminate но ничего канкретно применительно к "property" не нашлось.
OnTerminate вызывается в контексте главного потока, там ничего защищать не надо
...
Рейтинг: 0 / 0
04.06.2018, 20:12
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655185
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Pcrepairа по существу?
А по существу тут программист нужон (С)
...
Рейтинг: 0 / 0
04.06.2018, 20:12
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655215
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pcrepair
Гость
ну что же... а теперь для всех шибка грамотных и не очень, а также кому интересно ПРАВИЛЬНЫЙ ОТВЕТ!

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
unit uNewThread;
interface
uses
  System.Classes,SysUtils,Dialogs,SyncObjs,StrUtils,ExtCtrls,Windows,
  WideStrUtils,Vcl.Forms;

  procedure  ThreadDoJob(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);

type
  DoJob = class(TThread)
  private
    fHost,fErrorMsg:string;
    fIsJobDone:Boolean;
  protected
    procedure Execute; override;
  public
    property ErrorMsg:string read fErrorMsg;
    property IsJobDone:Boolean read fIsJobDone;

    constructor Create(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
    destructor Destroy; override;
  end;

implementation

procedure  ThreadDoJob(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
var
  ThreadJob:DoJob;
begin
  ThreadJob:=DoJob.Create(aHost,aErrorMsg,aIsJobDone);
  ThreadJob.WaitFor;
  aErrorMsg:=ThreadJob.ErrorMsg;
  aIsJobDone:=ThreadJob.IsJobDone;
  ThreadJob.Destroy;
end;

constructor DoJob.Create(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
begin
  inherited Create(False);
  FreeOnTerminate := FALSE;
  Self.Priority := tpLower;
  fHost:=aHost;
end;

destructor DoJob.Destroy;
begin
  inherited Destroy;
end;

procedure DoJob.Execute;
var
  flg:Boolean;
begin
  flg:=false;  (*or FALSE just for fun*)

  if flg then
  begin
    fIsJobDone:=TRUE;
    fErrorMsg:='7777';
  end
  else
  begin
    fIsJobDone:=FALSE;
    fErrorMsg:='6666';
  end;

  ReturnValue:=1;
end;

end.



данные входят и выходят. через параметры
...
Рейтинг: 0 / 0
04.06.2018, 21:05
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655217
чччД__
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
чччД__
Гость
Pcrepair,

архигениально.
...
Рейтинг: 0 / 0
04.06.2018, 21:14
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655237
Фотография krapotkin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krapotkin
Участник
freeOnTerminate вовсе не убивает поток сразу после Execute
поэтому абсолютно спокойно поток сходит в обработчик OnTerminate, как уже написано, в главном потоке
там у него можно забрать результаты трудов
а после этого он тихо умрет

а то что вы написали, скорее всего надаёт AV, т.к. синхронизации никакой нет
и то что ссылки на переменные вы пихаете через конструктор, ну ничего не меняет
...
Рейтинг: 0 / 0
04.06.2018, 22:17
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655244
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Pcrepairну что же... а теперь для всех шибка грамотных и не очень, а также кому интересно ПРАВИЛЬНЫЙ ОТВЕТ!
А теперь внимание, вопрос: нахрена там TThread, если код из Execute() можно напрямую запихнуть в ThreadDoJob() с тем же результатом?
...
Рейтинг: 0 / 0
04.06.2018, 22:40
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655245
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
А самое прикольное, это вот эта конструкция:
Код: pascal
1.
2.
3.
4.
5.
6.
begin
  inherited Create(False);
  FreeOnTerminate := FALSE;
  Self.Priority := tpLower;
  fHost:=aHost;
end;


Поток начнёт выполнение раньше, чем получит адрес хоста.
А, учитывая что fHost - это строка, то адок будет тот ещё.
...
Рейтинг: 0 / 0
04.06.2018, 22:42
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655246
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pcrepair
Гость
задача и была именно такой - напихать ссылки через конструктор. сказано ведь -ДЕМОКОД
...
Рейтинг: 0 / 0
04.06.2018, 22:42
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655248
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Pcrepairзадача и была именно такой - напихать ссылки через конструктор. сказано ведь -ДЕМОКОД
У этого демокода только одно применение - показать как не надо делать.
...
Рейтинг: 0 / 0
04.06.2018, 22:45
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655249
Pcrepair
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pcrepair
Гость
а может и так
...
Рейтинг: 0 / 0
04.06.2018, 22:47
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655271
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kealon(Ruslan)
Участник
Pcrepair[src delphi]
procedure ThreadDoJob(const aHost:string; var aErrorMsg:string; var aIsJobDone:Boolean);
var
ThreadJob:DoJob;
begin
ThreadJob:=DoJob.Create(aHost,aErrorMsg,aIsJobDone);
ThreadJob.WaitFor;
aErrorMsg:=ThreadJob.ErrorMsg;
aIsJobDone:=ThreadJob.IsJobDone;
ThreadJob.Destroy;
end;осталось расставить try-finally
alekcvpА теперь внимание, вопрос: нахрена там TThread, если код из Execute() можно напрямую запихнуть в ThreadDoJob() с тем же результатом? самое интересное я одно применение такому коду знаю (полезное имею ввиду, даже видел в проде), но врят ли ТС так глубоко копал.

правды для :
alekcvpПоток начнёт выполнение раньше, чем получит адрес хоста.не начнёт

krapotkinа то что вы написали, скорее всего надаёт AV, т.к. синхронизации никакой нет
и то что ссылки на переменные вы пихаете через конструктор, ну ничего не меняетне найдёт (если речь про 21467861 ), очень сильно меняет
...
Рейтинг: 0 / 0
05.06.2018, 00:04
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655278
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Pcrepair,

:facepalm: как обычно :)
...
Рейтинг: 0 / 0
05.06.2018, 00:21
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655279
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Pcrepairкак правильно вывести результат работы потока в обработчики но без "Synchronize" и прочего из той же оперы
Как бы вам сказать...
Работать с потоками без объектов синхронизации, это примерно как крутить барабан из 12 патронов с 11-ю заряженными у виска.
Если вы реально не хотите ничего синхронизировать, тогда вам в помощь lockfree, но в вашем случае, это как слетать в магазин на шаттле.

Вообще если вам надо выполнить работу и получить результат то можете сделать так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
type
  TRez = record
    Msg: string;
    Success: Boolean;
  end;
var
  a: IFuture<TRez>;
  Rez: TRez;
begin
  a := TTask.Future<TRez>(
    function: TRez
    var
      flg:Boolean;
    begin
      flg:=true;  (*or FALSE just for fun*)

      if flg then
      begin
        Result.Success := True;
        Result.Msg := '7777';
      end
      else
      begin
        Result.Success := False;
        Result.Msg := '6666';
      end;
    end
  );
  a.Start();
  // blabla
  Rez := a.Value;
  //
end;
...
Рейтинг: 0 / 0
05.06.2018, 00:25
| Ответить | Цитировать | Написать  
потоки(TThread) и свойства(property), не все понятно
    #39655284
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
kealon(Ruslan)alekcvpПоток начнёт выполнение раньше, чем получит адрес хоста.не начнёт
Да, действительно, защиту от дурака встроили, умнО :)
...
Рейтинг: 0 / 0
05.06.2018, 00:52
| Ответить | Цитировать | Написать  
25 сообщений из 29, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / потоки(TThread) и свойства(property), не все понятно
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39655217&tid=2040750]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 152ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 77ms
get tp. blocked users:
 1ms
others: 244ms
total:  516ms
созд. / загр.: 516ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]