длительный процесс (риторический вопрос)

← →
tButton © (2008-02-05 08:36) [0]

есть некое приложение в главном модуле - обработчики. в доп. модуле метод выполняющий длительные вычисления. длительный настолько, что иногда возникают сомнения в том, что приложение не повисло.

если б вычисления производились в главном модуле, то все решил бы Application.ProcessMessages
а как быть в вышеописаной ситуации.

← →
Slym © (2008-02-05 09:09) [1]

Отдельный поток? и ненавязчивый прогресбар

← →
tButton © (2008-02-05 09:56) [2]

Отдельный поток?
подскажите где копать?

← →
Рамиль © (2008-02-05 09:58) [3]

А что подразумевается под дополнительным модулем? DLL?

← →
Slym © (2008-02-05 10:25) [4]

tButton © (05.02.08 9:56) [2]
TThread +F1

← →
ANB (2008-02-05 11:44) [5]

> если б вычисления производились в главном модуле, то все
> решил бы Application.ProcessMessages

Во всех прочих модулях основного потока Application.ProcessMessages
так же все решит. Тока модуль Формс надо заюзать.
ЗЫ. Совет. Application.ProcessMessages может добавить тормозов, если вызывать его слишком часто. Посему лучше продумать алгоритм определения, что его пора вызвать.

← →
ketmar © (2008-02-05 12:55) [6]

>[5] ANB(05.02.08 11:44)
нечего, нечего. уносить вычисления в thread, пусть там крутятся. «отмороженый» UI — не лучшее, имо, решение.

ну, или как вариант — раз в пару там секунд рисовать где-то на окне «я живой, я просто думаю!». для этого обрабатывать сообщения не надо. но UI, конечно, заглохнет тогда.

← →
tButton © (2008-02-06 00:46) [7]

Рамиль © (05.02.08 09:58) [3]
А что подразумевается под дополнительным модулем?
юнит. в котором описан класс, который производит вычисления. например, загружает указаный файл, обрабатывает, выгружает результат.

Slym © (05.02.08 10:25) [4]
хорошо

← →
Германн © (2008-02-06 00:50) [8]

> tButton © (06.02.08 00:46) [7]
>
> Рамиль © (05.02.08 09:58) [3]
> А что подразумевается под дополнительным модулем?
> юнит. в котором описан класс, который производит вычисления.
> например, загружает указаный файл, обрабатывает, выгружает
> результат.
>

Тогда при чем тут:

> если б вычисления производились в главном модуле, то все
> решил бы Application.ProcessMessages
?

← →
tButton © (2008-02-06 01:39) [9]

Германн © (06.02.08 00:50) [8]
не вижу проблемы. будет там класс или просто три процедуры. сути дела это не меняет.
отдельный модуль (нет доступа к Application) длительные вычисления приостанавливающие выполнение кода главного модуля (и других не главных в составе приложения)

зыж
вопрос риторический)

← →
Германн © (2008-02-06 01:46) [10]

> Button © (06.02.08 01:39) [9]
>
> Германн © (06.02.08 00:50) [8]
> не вижу проблемы. будет там класс или просто три процедуры.
> сути дела это не меняет.
> отдельный модуль (нет доступа к Application)

Это как это? Как добиться того, чтобы в модуле(юните) входящем в состав приложения не было доступа к Application? Это нонсенс.

> зыж
> вопрос риторический)
>

Вопрос дурной. Ибо (как мне подсказывает мой телепатор) задан не так, не теми терминами.

← →
tButton © (2008-02-06 01:56) [11]

счас сбегаю домой - проверю.

← →
Германн © (2008-02-06 02:09) [12]

> tButton © (06.02.08 01:56) [11]
>
> счас сбегаю домой - проверю.
>

А что проверять собрался?
Этот "отдельный модуль" твой? Если нет, то есть ли у тебя его исходники? Если нет, тогда действительно "нет доступа к Application". Тогда только доппоток.

← →
tButton © (2008-02-06 02:10) [13]

ANB (05.02.08 11:44) [5]
помогает. копаю треды.

← →
Германн © (2008-02-06 02:23) [14]

> tButton © (06.02.08 02:10) [13]
>
> ANB (05.02.08 11:44) [5]
> помогает. копаю треды.
>

???

← →
tButton © (2008-02-06 02:30) [15]

А что проверять собрался?
Этот "отдельный модуль" твой?
да на коленке написалмодуль с функцией миллион раз извлекающей квадратный корень =)

по тредам.
тред создается как класс выполняющий определеннуюмфункцию.
т.е. я могу в любой момент создать экземпляр, он выполнит необходимые операции, после чего его можно освобождать. так? в ходе выполнения я могу обращаться к его свойству, отображающему прогресс выполнения, например с помощью цикла do while. так?

← →
tButton © (2008-02-06 02:37) [16]

Удалено модератором

← →
Германн © (2008-02-06 02:47) [17]

> по тредам.
> тред создается как класс выполняющий определеннуюмфункцию.
>
> т.е. я могу в любой момент создать экземпляр, он выполнит
> необходимые операции, после чего его можно освобождать.
> так? в ходе выполнения я могу обращаться к его свойству,
> отображающему прогресс выполнения, например с помощью цикла
> do while. так?
>

Обращаться к свойству можешь. А вот с "отображением" есть проблемы. Отображение выполняется в основном потоке. А из доппотока в основной можно получить доступ для "отображения" чего-либо только через Synchronize.

← →
tButton © (2008-02-06 03:33) [18]

я имею в виду
ft := myThread.create; while ft.complete < 100 do progressBar1.progress := ft.complete; ft.free;
примерно так

← →
Сергей М. © (2008-02-06 09:07) [19]

> tButton © (06.02.08 03:33) [18]

При таком решении пропадает весь практический смысл использования доп.треда .
Осн.тред у тебя только тем и занят, что в while-цикле ждет окончания работы доп.треда, хотя мог бы все это время с успехом заниматься своим собственным "хозяйством". На то ведь они и треды, чтобы выполняться параллельно.

Одно из "классических" решений задачи:

type TProgressRoutine = procedure(AObject: TObject; AProgress: Integer) of object; TMyThread = class(TThread) private FProgress: Integer; FOnProgress: TProgressRoutine; procedure DoProgress; protected procedure Execute; override; public constructor Create(Suspended: Boolean; ProgressRoutine: TProgressRoutine); property OnProgress: TProgressRoutine read FOnProgress write FOnProgress; end; constructor TMyThread.Create(Suspended: Boolean; ProgressRoutine: TProgressRoutine); begin OnProgress := ProgressRoutine; inherited Create(Suspended); end; procedure TMyThread.DoProgress; begin if Assigned(FOnProgress) then FOnProgress(Self, FProgress); end; procedure TMyThread.Execute; begin .. FProgress := 0; while not Terminated and (FProgress < 100) [ and SomeAdditionalConditions ] do begin .. do something .. Inc(FProgress); if Assigned(FOnProgress) then Synchronize(DoProgress); end; .. end;
Недостаток такого решения - доп.тред, всякий раз вызывая метод Synchronize(), будет ждать при этом, пока осн.тред не сподобится отвлечься от своего "хозяйства" и не выполнит тело обработчика события OnProgress.

← →
tButton © (2008-02-06 09:51) [20]

Сергей М. © (06.02.08 09:07) [19]
спасибо. сейчас рабочий день кончится, пойду разбирать.

Осн.тред у тебя только тем и занят, что в while-цикле ждет окончания работы доп.треда, хотя мог бы все это время с успехом заниматься своим собственным "хозяйством"
пример, конечнно я слабенький привел. расскажу на словах.
программа подгружает доп. ресурсы, коих много. пока тред грузит ресурсы, распаковывает, обрабатывает, основной тред пусть не в цикле, пусть по таймеру или в onIdle (но такое кажется невозможно?) рисует пользователю loading screen с прогрессбаром. пользователь счастлив =)

← →
ANB (2008-02-06 10:02) [21]

ИМХО :
Неоправданное использование доп.потоков, когда они реально не нужны (сабж - классический пример) ведет к повышению глюкавости приложения.
Как правило за потоки хватаются, когда не умеют грамотно применять ПроцессМессагес. И при этом не знают множества тонкостей работы с ними. Отсюда непонятные аксесс виолэйшион, проблемы с отладкой.
Визуализация хода обработки, если она последовательная, - классический пример когда доп.поток не нужен.
До кучи - работа с портами тоже не требует доп.потоков.

← →
Сергей М. © (2008-02-06 10:02) [22]

> основной тред пусть не в цикле, пусть по таймеру или в onIdle
> (но такое кажется невозможно?) рисует пользователю loading
> screen с прогрессбаром

А почему бы этим не заняться самому осн.треду ?
Он утебя что, шибко занят, коль поручает эту "грязную работу" доп.треду ?

← →
Dennis I. Komarov © (2008-02-06 10:38) [23]

> [22] Сергей М. © (06.02.08 10:02)

Конечно!!! он же рисует!!!

← →
Сергей М. © (2008-02-06 11:08) [24]

> Dennis I. Komarov © (06.02.08 10:38) [23]

Нет, ну я имел ввиду в осн.потоке собственно загрузку/обработку ресурсов + визуализация прогресса этих операций

← →
tButton © (2008-02-06 11:30) [25]

данные хранятся в разных форматах. под каждый формат свой загрузчик. да и не вижу я смысла весь "черный" код пихать в основной модуль. графикой м-у прочим занимается еще один класс и описан он тоже в отдельном модуле. а основной только собирает отчеты и раздает задания. т.е. занимается высокоуровневым менеджментом =)

← →
Zeqfreed © (2008-02-06 11:46) [26]

Определить ф-цию обратного вызова (что-то типа OnProgress), которую будут вызывать модули в тот момент, когда загрузят единицу данных. Из нее уже можно вызвать заветный Application.ProcessMessages. Потоки здесь, как уже заметили, не нужны.

← →
Сергей М. © (2008-02-06 12:07) [27]

> tButton © (06.02.08 11:30) [25]

Причем здесь модули ?

Речь идет о целесообразности распараллеливания выполнения вычислительных алгоритмов !

← →
tButton © (2008-02-06 12:45) [28]

Zeqfreed © (06.02.08 11:46) [26]
вариант.

Сергей М. © (06.02.08 12:07) [27]
в рамках риторичности вопроса, предположим что целесообразность есть. вы же не грузите файлы в бд вручную поштучно.

← →
ANB (2008-02-06 12:46) [29]

> да и не вижу я смысла весь "черный" код пихать в основной
> модуль.

В принципе для отмораживания приложения по барабану, в каком модуле живет твой код. ПроцессМессагес мона вызвать из ЛЮБОГО модуля, если ты его выполняешь в основном потоке.

А по поводу сабжа - в данном случае потоки как раз категорически вредны.
Интересно, в объекты какого потока он собирается грузить свои ресурсы ?
Если в объекты потока - то либо придется после окончания потока перегружать все к себе в основной (при этом объект потока удалять низзя), либо использовать прямо оттуда. (Я даже не пробовал так делать). При этом не факт, что используемые при этом классы и функции мультипоточнобезопасны. Если же все надо закинуть в объекты основного потока, то весь код придется выполнять в синхронизед, что опять таки повесит приложение.

← →
ANB (2008-02-06 12:48) [30]

> в рамках риторичности вопроса, предположим что целесообразность
> есть. вы же не грузите файлы в бд вручную поштучно.

Именно по штучно большей частью. В установленном ТЗ порядке. И не часто. Причем даже с зависанием интерфейса юзеры согласны, лишь грузилось побыстрее :)

> данные хранятся в разных форматах. под каждый формат свой
> загрузчик. да и не вижу я смысла весь "черный" код пихать
> в основной модуль. графикой м-у прочим занимается еще один
> класс и описан он тоже в отдельном модуле. а основной только
> собирает отчеты и раздает задания. т.е. занимается высокоуровневым
> менеджментом =)

Какая связь между модулями и потоками? Никакой.

> tButton © (06.02.08 12:45) [28]

> предположим что целесообразность есть

Чудесно.

Если она есть, то см., к примеру, [19]

> вы же не грузите файлы в бд вручную поштучно

Не понял ... А как их еще можно грузить ?)

> [24] Сергей М. © (06.02.08 11:08)

> [31] Anatoly Podgoretsky © (06.02.08 12:58)

Просто автор не видит различий между модулями и потоками. У него это едино... Сделал unit - получил поток. ИМХО

← →
ANB (2008-02-06 18:04) [36]

> Просто автор не видит различий между модулями и потоками.
> У него это едино... Сделал unit - получил поток. ИМХО

Скорее всего автор сабжа просто не понял, что достаточно в юзес отдельного модуля добавить формс и станет ему счастье. Он пытается просто пользовать ПроцессМесагес, а компилятор ругается.

← →
ага (2008-02-06 19:24) [37]

Странный народ...Ясно же сказано - вопрос риторический. Так нет, набежали с ответами.

ответы тоже риторические )

> ИМХО :
> ......................
> Как правило за потоки хватаются, когда не умеют грамотно
> применять ПроцессМессагес. И при этом не знают множества
> тонкостей работы с ними. Отсюда непонятные аксесс виолэйшион,
> проблемы с отладкой.

Это один из редких случаев, когда "ИМХО" Очень хорошо вписывается...

> Anatoly Podgoretsky © (06.02.08 12:58) [31]

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

> ANB (06.02.08 18:04) [36]

читайте
> tButton © (06.02.08 02:10) [13]

длительный процесс (риторический вопрос) Найти похожие ветки