Home

Page 301
Page 301
background image

294 Глава 6

end;
Здесь вызывается метод

 который открывает порт для прие-

ма/передачи данных. После этого делаем активными кнопки для отправки

данных и закрытия порта. Кнопку открытия порта наоборот деактивируем,

чтобы пользователь не нажал второй раз на кнопку Открыть порт, потому
что это вызовет ошибку.

Не советую сразу же после открытия отправлять данные, потому что реально

данные могут не уйти. После открытия порта желательно делать задержку хотя

бы в 100 миллисекунд. Обычно я добавляю в проект следующую функцию:

Procedure

 integer);

begin

 true, false,

CloseHandle(h);

end;

Теперь достаточно только вызвать в нужном месте эту процедуру и передать
ей количество миллисекунд, которые надо подождать. Принцип ожидания
вам уже должен быть известен, потому что мы уже не раз использовали его

на протяжении всей книги.
Закрытие порта такое же простое, как и открытие. В обработчике нажатия
кнопки Закрыть порт вы должны написать следующий код:
procedure

 TObject);

begin

end;

Первым делом вызываем метод

 компонента

 который за-

крывает работу порта. После этого деактивируем кнопки отправки данных и
закрытия порта, потому что порт закрыт и отправлять данные уже нельзя.
Кнопку открытия порта, наоборот, делаем активной, чтобы можно было
снова открыть порт.

В обработчике нажатия кнопки Послать нужно написать следующий код:

procedure

 TObject);


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.