Разработка фрагмента специального математического и программного обеспечения передачи данных на основе протокола TCP/IP
Дипломная работа - Безопасность жизнедеятельности
Другие дипломы по предмету Безопасность жизнедеятельности
TfConnect.bConnectClick(Sender: TObject);i: integer;I := 1 to 3 do.TcpClient.RemoteHost := StringGrid.Cells[2,i];.TcpClient.Active := true;fMain.TcpClient.Connected then StringGrid.Cells[3,i] := 'Установленно'StringGrid.Cells[3,i] := 'Не установленно';.TcpClient.Active := false;;I := 1 to 3 doStringGrid.Cells[3,i] = 'Установленно' then.tbConnect.ImageIndex := 5;.tbTask.Enabled := true;.N21.Enabled := true;.N22.Enabled := true;.N23.Enabled := true;;
end;;
Как видно из текста процедуры кнопка tbTask, находящаяся на главной форме и отвечающая за выбор вида сообщения, становится доступной только при установке хотя бы одного соединения.
Формы для отправки сообщений представлены на рисунках 3.7, 3.8, 3.9.
Рисунок 3.7 - Форма отправки запроса
Рисунок 3.8 - Форма отправки донесения
Рисунок 3.9 - Форма постановки огневой задачи.
Рассмотрим процедуру отправки сообщения на примере отправки запроса:
procedure TfQuestion.bSendClick(Sender: TObject);i: integer;: string
//Проверка правильности ввода данных(cbPost.ItemIndex = -1) or (cbTask.ItemIndex = -1) then('Проверьте правильность ввода!',mtError,[mbOk],0,mbOk);;;
//
// Определение адресатаi := 1 to fConnect.StringGrid.RowCount - 1 docbPost.Text = fConnect.StringGrid.Cells[1,i] then break;
//
//Определение типа запросаcbTask.ItemIndex = 0 then ln := 'свои координаты';cbTask.ItemIndex = 1 then ln := 'готовность';cbTask.ItemIndex = 2 then ln := 'обстановку';
//
//Отправка сообщения.TcpClient.RemoteHost := fConnect.StringGrid.Cells[2,i];.TcpClient.Active := True;.TcpClient.Sendln('Доложите ' + ln);.TcpClient.Active := false;
//;
Для приема сообщений используется компонент TcpServer, который всегда находится в режиме дежурный прием, для идентификации приложения используется порт 6510. TcpServer имеет в своем составе событие OnAccept, которое активируется в случае установки соединения. Процедура описывающая это событие имеет вид:
procedure TfMain.TcpServerAccept(Sender: TObject;
ClientSocket: TCustomIpClient);i: integer;
// Определение отправителяi := 1 to fConnect.StringGrid.RowCount - 1 dofConnect.StringGrid.Cells[2,i] = ClientSocket.RemoteHost then.lSender.Caption := fConnect.StringGrid.Cells[1,i];;;
//.mText.Text := ClientSocket.Receiveln; // Прием сообщения.ShowModal; //Вывод сообщения;
Рисунок 3.10 - Форма приема сообщения
Для описания назначения программного продукта разработана специальная форма о программе - рисунок 3.11.
Рисунок 3.11 - Форма описывающая назначение СМПО
Таким образом, разработанный фрагмент СМПО отвечает всем предъявленным к нему требованиям и можно приступать к его тестированию и последующему применению.
боевой артиллерийский передача сообщение протокол
4. порядок работы с разработанным ФРАГМЕНТом СМПО при выполнении огневых задач
В настоящее время автоматизированные системы управления (АСУ) активно развиваются. Происходит централизация управления, интеграция иерархических массивов со строго иерархической системой сбора данных, увеличение объемов перерабатываемой информации, сокращение времени обработки данных, совершенствование методов решения задач, замена устаревшей техники новой, более совершенной и перспективной, улучшение принципов функционирования автоматизированных систем управления в различных режимах работы. Происходит процесс все большего усложнения программно-математического аппарата, появляется возможность решения все большего объема задач.
Вместе с тем расширяются и обогащаются функции личного состава, связанного с АСУ. Для полноценного использования комплексов необходима все более тщательная подготовка специалистов, нужно постоянно поддерживать навыки в работе на автоматизированных рабочих местах машин управления. Поэтому основная задача разрабатываемого фрагмента СМПО - унифицировать и облегчить процессы передачи данных в контуре управления артиллерийского дивизиона, использующего комплекс средств автоматизированного управления.
Предложенный способ адресации на основе IP-адресов имеет существенное преимущество по сравнению с зонной адресацией в том, что появляется возможность передачи данных через существующие глобальные, региональные и локальные компьютерные сети, а также использование и создание аппаратуры, имеющей свой IP-адрес.
Рассмотрим более подробно порядок использования разработанного фрагмента СМПО.
Работу с разработанным фрагментом СМПО можно условно подразделить на два этапа: настройку программы и собственно работу.
Поэтому сначала необходимо произвести настройку. Начнем с таблицы абонентов. Она представляет собой таблицу базы данных и может быть изменена как в самом фрагменте СМПО, так и в СУБД Access, входящей в состав MS Office. Для настройки таблицы абонентов через разработанную программу необходимо нажать кнопку с изображением блокнота на панели инструментов либо выбрать соответствующий пункт главного меню в разделе Настройки. Далее необходимо ввести позывные и IP-адреса должностных лиц (рисунок 4.1).
Рисунок 4.1 - Настройка таблицы абонентов
Так как такую настройку необходимо провести на всех рабочих местах. Целесообразно сначала разработать требуемую базу данных (таблицу абонентов), а потом разослать ее на все рабочие места.
Для полноценного функционирования программного продукта, необходимо убедиться в соответствии IP-адреса АРМ IP-адресу, указанному в таблице абонентов для данного должностного лица. Для этого заходим в подменю Свойства сетевого окружения. В открывшемся окне выбираем пункт Протокол Интернета TCP/IP, нажимаем кнопку Свойства и уточняем (записываем) используемый IP-адрес (рисунок 4.2).
Рисунок 4.2 - Значение IP-адреса
После этого выбирают режим работы программы, путем определения должностного лица, которое будет работать на этом А