ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вызов Start для приостановленного потока
22 сообщений из 47, страница 2 из 2
  2  все
Вызов Start для приостановленного потока
    #39726962
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
wadmandefecatorпропущено...

давай обёртку, мне надо
Дак тут всё https://github.com/wadman/wthread
я забыл, где оно паслось
...
Рейтинг: 0 / 0
02.11.2018, 09:20
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39726965
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
wadmanПредлагаю взять мою обертку и не париться.
надеюсь, на D2007 взлетит. Спасибо :)
...
Рейтинг: 0 / 0
02.11.2018, 09:24
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39726970
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
ДокwadmanПредлагаю взять мою обертку и не париться.
надеюсь, на D2007 взлетит. Спасибо :)
Летает и на D7 и на 10.x и на маках, убунтах всяких.
...
Рейтинг: 0 / 0
02.11.2018, 09:27
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39726971
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
defecatorПривилегированный пользователь
Модератор форума
wadmanДокпропущено...

надеюсь, на D2007 взлетит. Спасибо :)
Летает и на D7 и на 10.x и на маках, убунтах всяких.
хорошо наговнокодил, молодец !
Щаз буду юзать !
...
Рейтинг: 0 / 0
02.11.2018, 09:28
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39726976
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
defecatorwadmanпропущено...

Летает и на D7 и на 10.x и на маках, убунтах всяких.
хорошо наговнокодил, молодец !
Щаз буду юзать !
...
Рейтинг: 0 / 0
02.11.2018, 09:34
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727047
kealon(Ruslan)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kealon(Ruslan)
Участник
ДокНаткнулся на непонятки в DX10.2.3_CE: если создать доп.поток приостановленным, например так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate:= False;
  Priority:= tpLower;

  if Suspended then Start;
//  if Suspended then Resume;
end;


а затем запустить рекомендуемой процедурой Start, то получаем отлуп

Код: pascal
1.
Cannot call Start on a running or suspended thread.







Старый добрый Resume, показываемый в Code Insight серым цветом (deprecated же), запускает поток корректно. Я что-то пропустил?
я вообще не вижу смысла в твоём коде, делай просто
Код: pascal
1.
2.
3.
4.
5.
6.
constructor TMyThread.Create();
begin
  inherited Create(False);
  FreeOnTerminate:= False;
  Priority:= tpLower;
end;

будет то же самое
...
Рейтинг: 0 / 0
02.11.2018, 10:52
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727133
vavan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vavan
Участник
defecatorкак человек, варивший трубы, скажу, что тут поработал Мастер
 
мне когда на хате ремонт доделали и я уже заезжал, обнаружилось что дурит смеситель с термостатом в ванной, не работает, кипяток льет. выяснилось что монтажники-джамшуты кроме всего прочего и подводку в этом месте перепутали, а есть лишь небольшое ревизионное окошко и думал что придется ломать плитку, не успев заехать. благо спец именно по сантехнике сумел перепаять прям через эту маленькую дверцу
...
Рейтинг: 0 / 0
02.11.2018, 11:55
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727231
ziv-2014
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ziv-2014
Участник
wadman,
Как раз собирался искать :) Спасибо!
...
Рейтинг: 0 / 0
02.11.2018, 14:23
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727237
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
kealon(Ruslan)я вообще не вижу смысла в твоём коде, делай просто
Код: pascal
1.
2.
3.
4.
5.
6.
constructor TMyThread.Create();
begin
  inherited Create(False);
  FreeOnTerminate:= False;
  Priority:= tpLower;
end;


будет то же самое
В моём коде это имеет смысл. На, пробуй свои советы на практике :)
...
Рейтинг: 0 / 0
02.11.2018, 14:35
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727262
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
Док В моём коде это имеет смысл. На, пробуй свои советы на практике :)

Как я понимаю, неважно, создаем мы так
Код: pascal
1.
inherited Create(False)


или же так
Код: pascal
1.
inherited Create(True)


поток в конструкторе TThread.Create создается приостановленным и стартует (даже если в конструкторе наследника используется inherited Create(False) ) только после выполнения конструктора - в процедуре AfterConstruction. Поэтому все операторы и процедуры в конструкторе класса-наследника в любом случае выполнятся до того, как стартует поток.
Может я ошибаюсь, конечно, но по-моему это так.
...
Рейтинг: 0 / 0
02.11.2018, 15:09
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727275
s62
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
s62
Участник
s62,

s62 и стартует (даже если в конструкторе наследника используется inherited Create(False) ) только после выполнения конструктора - в процедуре AfterConstruction
Не даже если, а просто если.
...
Рейтинг: 0 / 0
02.11.2018, 15:26
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727294
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
ДокНаткнулся на непонятки в DX10.2.3_CE: если создать доп.поток приостановленным, например так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate:= False;
  Priority:= tpLower;

  if Suspended then Start;
// if Suspended then Resume;
end;



а затем запустить рекомендуемой процедурой Start, то получаем отлуп

Код: pascal
1.
Cannot call Start on a running or suspended thread.




Старый добрый Resume, показываемый в Code Insight серым цветом (deprecated же), запускает поток корректно. Я что-то пропустил?Правильно тебя посылает. Скорей всено, Start выполняет запуск потока, который запрещен в конструкторе. Передай False в параметр Suspended - и всё, никаких Resume не надо будет и все будет хорошо.
Suspended нужно для того, чтобы после конструктора но до запуска потока что-то изменить в объекте потока. Не твой случай.
...
Рейтинг: 0 / 0
02.11.2018, 15:51
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727299
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
wadmanВот минимальный поток с доп. функционалом
wadman
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure TMyThread.AfterConstruction;
begin
    inherited AfterConstruction;
    FEvent := TEvent.Create(nil, false, false, 'MyEvent');
end;

destructor TMyThread.Destroy;
begin
    Terminate;
    FEvent.SetEvent;
    Sleep(100);
    FEvent.Free;
    inherited Destroy;
end;


Брррр.
Надо хоть так:

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
procedure TMyThread.AfterConstruction;
begin
    FEvent := TEvent.Create(nil, false, false, 'MyEvent');
    inherited AfterConstruction;
end;

destructor TMyThread.Destroy;
begin
    Terminate;
    FEvent.SetEvent;
    inherited Destroy;
    FEvent.Free;
end;
...
Рейтинг: 0 / 0
02.11.2018, 15:55
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727300
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
YuRock,

А еще желательно в деструкторе проверять на Assigned( FEvent ), если в конструкторе возможны исключения.
...
Рейтинг: 0 / 0
02.11.2018, 15:57
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727444
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
YuRockСкорей всено, Start выполняет запуск потока, который запрещен в конструкторе.
Абсолютно верно. На Tokyo Start разрешен только в основном потоке, а вот в Лазарусе - везде(и в конструкторе, и в основном потоке).

И, теперь вижу, что это правильно: ибо, если создать поток так
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
    try
      fThread:= TMyThread.Create(True);
      try
        frmSplash:= TfrmSplash.Create(Self);
//        if fThread.Suspended then fThread.Start;
        frmSplash.ShowModal;
      finally
        FreeAndNil(frmSplash);
      end;

      frmChild.ShowModal;
    finally
      FreeAndNil(fThread);
    end;


, но "забыть" стартануть его, то код в основном потоке продолжится дальше без выполнения fThread.Execute. А вот это уже фэйл :)

YuRockПередай False в параметр Suspended - и всё, никаких Resume не надо будет и все будет хорошо.
Я это делаю намеренно: мне нужно быть точно уверенным, что некоторые переменные будут инициализированы в конструкторе ДО запуска доп.потока
...
Рейтинг: 0 / 0
02.11.2018, 21:58
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727446
Фотография X-Cite
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
X-Cite
Участник
Вообще не понимаю смысла приостановленных нитей. Они ж нужны чтобы выполнить работу в определенный момент времени. А если надо пауза, то это дело объектов синхронизации.
...
Рейтинг: 0 / 0
02.11.2018, 22:06
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727453
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
ДокЯ это делаю намеренно: мне нужно быть точно уверенным, что некоторые переменные будут инициализированы в конструкторе ДО запуска доп.потока
Независимо от параметра - ВСЕ переменные будут инициализированы в конструкторе ДО запуска потока.
...
Рейтинг: 0 / 0
02.11.2018, 22:44
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727468
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
alekcvpВСЕ переменные будут инициализированы в конструкторе ДО запуска потока
это описано в доке или просто твоя уверенность?
...
Рейтинг: 0 / 0
02.11.2018, 23:23
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727476
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
Я чуть выше неточно выразился: мне инициализировать некоторые переменные ДО запуска, но не только в конструкторе (например, frmSplash в коде выше).
...
Рейтинг: 0 / 0
02.11.2018, 23:40
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727479
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
ДокalekcvpВСЕ переменные будут инициализированы в конструкторе ДО запуска потока
это описано в доке или просто твоя уверенность?Да, но ищи сам. Главное, это описано в исходниках класса TThread - запуск потока происходит в AfterConatruction.
...
Рейтинг: 0 / 0
02.11.2018, 23:55
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727480
YuRock
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YuRock
Участник
ДокЯ чуть выше неточно выразился: мне инициализировать некоторые переменные ДО запуска, но не только в конструкторе (например, frmSplash в коде выше).Тогда да, надо. Но тогда и Start должен сработать.
...
Рейтинг: 0 / 0
02.11.2018, 23:56
| Ответить | Цитировать | Написать  
Вызов Start для приостановленного потока
    #39727484
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
YuRockэто описано в исходниках класса TThread - запуск потока происходит в AfterConatruction
в справке тоже об этом сказано. По коду, оба метода: и Start, и AfterConstruction вызывают InternalStart, только с разными параметрами. Так что, про "все в конструкторе инициализируется ДО" Execute доп.потока - это я просто сам не догадался :)

Познавательно, однако...
...
Рейтинг: 0 / 0
03.11.2018, 00:49
| Ответить | Цитировать | Написать  
22 сообщений из 47, страница 2 из 2
  2  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Вызов Start для приостановленного потока
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39727300&tid=2040173]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 157ms
get topic data:
 8ms
get forum data:
 4ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 239ms
total:  502ms
созд. / загр.: 502ms
x
x
Закрыть


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