VPF::Остановка выполнения программы с доступом к форме

ivan219

Дата 26.10.2007, 20:12 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

Репутация: 2
Всего: 12

Работа ведётся с COM портом в него отправляются данные и делаем перерыв:

Код


.
.
 Timer1.Enabled := True;
 While Tall < 1 do Application.ProcessMessages;
 Timer1.Enabled := False;
.
.
.
procedure TFNPC01S.Timer1Timer(Sender: TObject);
begin
..
..
 Inc(Tall);
..
..
end;

ждём пока данные отправятся и вернётся ответ если ответа нет больше 1с то (исключение) после продолжаем работу программы.
Как то иначе это можно реализовать чтобы вовремя этой операции был доступ к форме т.е. я мог её закрыть и.т.д.?

--------------------

Мой первый сайт и моя первая программа!!!!!

Bose

Дата 26.10.2007, 20:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

Репутация: 23
Всего: 51

Цитата(ivan219 @ 26.10.2007, 20:12

)

Как то иначе это можно реализовать чтобы вовремя этой операции был доступ к форме т.е. я мог её закрыть и.т.д.?

Код


Форма.ShowModal;

Цитата(ivan219 @ 26.10.2007, 20:12

)

ждём пока данные отправятся и вернётся ответ если ответа нет больше 1с то (исключение) после продолжаем работу программы.

Положить на форму Ttimer. По событию OnTimer закрывать форму.

--------------------

Лучшее о Delphi за 2013 год. Подборка ссылок.

MetalFan

Дата 26.10.2007, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

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

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »