Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Запус процедур на Delphi
|
|||
|---|---|---|---|
|
#18+
В литературе подобное плохо объяснено, поэтому спрашиваю здесь. Ситуация такая: Есть компонента для работы с COM-портами. Когда чего-нибудь приходит по порту - генерится событие(процедурка). Соответственно в этой процедурке обрабатываются данные, пришедшие по порту (идут запросы, вставка и удаление записей в IB-базе для пришедших данных из порта). Теперь сама суть вопроса: Выполнение этой процедурки может значительно затянуться (несколько секунд). А в это время, возможно, придет еще одна порция данных с порта - вызовется снова по событию эта процедурка и т.д. Меня интересует, как будет распределяться память для переменных в каждой запущенной процедуре (по идее, как я понимаю, каждый раз для КАЖДОЙ ВЫПОЛНЯЕМОЙ ПРОЦЕДУРЫ создается "клон" этой процедуры в памяти со всеми ее переменными - иначе как бы реализовывалась рекурсия - к примеру). Надо ли давать процессору выполнять что-то еще во время выполнения этой процедуры? Или пусть она сжирает весь процессор? Будут ли при этом генериться события при появлении данных по порту (предчуствую, что нет)? Создавать ли транзакцию и Query для каждой процедуры? Стоит ли создавать Thread для каждой процедуры, или они формируются Дельфей автоматически? В общем, как быть в данной ситуации? Может будут какие-нибудь советы? Разъясните, пожалуйста, сам механизм работы при таком запуске процедур. Заранее, благодарен. P.S. Delphi 5(+sp), FB 1.0.2.908 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.11.2003, 14:43 |
|
||
|
Запус процедур на Delphi
|
|||
|---|---|---|---|
|
#18+
есть у меня подобная задача я решал это двумя потоками и одной очередью.... в первом потоке происходит опрос порта (либо ожидаем данных оттуда, что не важно) при получении данных с порта, поток укладывает их в очередь. Второй поток занят тем что опрашивает очередь выбирает данные и пишет в базу. В итоге, все что не успел записать первый поток, это лежит в очереди. Самое главное в этом, чтобы в среднем, второй поток работал не медленее первого, а то забьешь всю память да и еще предостережение, не используй в качестве очереди TQueue. Она не поддерживает многопоточность. В связи с этим поймаешь глюки, которые выловить ой как сложно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.11.2003, 06:35 |
|
||
|
Запус процедур на Delphi
|
|||
|---|---|---|---|
|
#18+
Что-то подобное мне и представлялось, только не знаю как организовать... А можно ли использовать для очереди (хранения сообщений) TStringList? Из порта - будет Add, а просматривающий очередь - читать и удалять первую строчку? Как создать два потока на Delphi (а надо ли их вообще)? В смысле, где про TThread почитать можно? Можно ли обойтись обычными событиями при приходе данных с порта, а просмотрщик событий из очереди повесить, например на Таймер? Или это коряво будет? StarWind: Помоги, подскажи, пожалуйста, как организовать, чтоб глюков и тормозов поменьше было. Приложение довольно-таки очень критичное к глюкам (на серваке крутится и чем меньше к нему подходить, тем лучше). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.11.2003, 12:58 |
|
||
|
Запус процедур на Delphi
|
|||
|---|---|---|---|
|
#18+
ну твоя идея не пойдет в смысле на одном потоке..... пока у тебя будет обрабатываться событие таймера, слстояние порта ты контролировать не будешь... а ты сам говоришь что возможна такая ситуация, когда запись будет идти достаточно долго. TStringList тоже не пойдет для организации очереди... вобщем надо прежде чем подобное писать, почитать про многопоточники и синхронизацию потоков. Контроллером очереди могу подетится, если хочешь. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.11.2003, 05:48 |
|
||
|
Запус процедур на Delphi
|
|||
|---|---|---|---|
|
#18+
Намыль, если не сложно, контроллер очереди (хотя бы - каким макаром организовать хранение сообщений?). Почему TStringList не прокатит? И вообще, где можно в Инете почитать (где хорошо объяснено) про потоки? Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.11.2003, 14:06 |
|
||
|
Запус процедур на Delphi
|
|||
|---|---|---|---|
|
#18+
по поводу потоков, а точнее их синхронизации почитай тут . Самое главное понять как синхронизировать потоки, а чтобы создать новый... пишем наследника от TThread и переопределяем метод Execute, который и будет функцией потока. Но есть ряд причин, по которым мне не нравится этот класс и я предпочитаю пользоваться функцией CreateThread и сопутствующие ей. Их описание можно найти в хелпе по Win API, который устанавливается вместе с дельфей. А почему не пойдет... Почитай про синхронизацию, там в кратце изложена суть проблемы. А очередь... вышлю. Она в принципе не плохо коментирована(по крайней мере описаны все функции), так что я думаю разберешься. возможно что-то упростишь. (там вставляется куча коментариев при опмсании очереди... у меня это используется, в твоем случае может не нужно будет). Буду признателен, если найдешь глюки и сообщишь ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.11.2003, 03:23 |
|
||
|
|
start [/forum/topic.php?fid=58&msg=32321565&tid=2115877]: |
0ms |
get settings: |
9ms |
get forum list: |
12ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
53ms |
get topic data: |
10ms |
get forum data: |
3ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 242ms |
| total: | 368ms |
| 0 / 0 |
