Перенаправление данных GPS трекера на другой сервер c изменением формата на ASCII

Задача:

Стоит задача принять пакеты данных от автомобильного GPS трекера (GPS трекера) и переслать их для последующей обработки на другой сервер. При этом другой сервер (другое программное обеспечение) понимает только один формат данных, и нет возможности подключить другие трекеры к нему напрямую. Т.е. в этом случае GPS Tracker Data Logger будет работать как конвертер. Другой сервер может принимать информационные посылки в формате ASCII и не требует авторизации. Пример информационной посылки:

IMEI,ггггммддччммсс,0дд.дддддд,шш.шшшшшш,скор,
нап,000высота,сп,RID,вхд,вы,A1.вхд,A2.вхд
<ВК><ПС>

1. IMEI - идентификатор устройства;
2. Год месяц дата часы минуты секунды;
3. Долгота и широта в градусах и их долях десятичных;
4. Скорость (км/ч);
5. Направление (градусы);
6. Высота (м);
7. Количество спутников;
8. Неизвестный параметр RID;
9. Цифровые входы в битах типа 1+2+4+8;
10. Цифровые выходы;
11. Два аналоговых входа (напряжения в вольтах);
12. Завершается это всё возвратом каретки и переводом строки.

Требования:

• GPS Tracker Data Logger Professional или пробная версия;
• Парсер для любого трекера;
• Модуль "Script Execute" для Data Logger;
• Модуль перенаправления данных для логгера;
• Модуль "DDE server" для логгера (опционально, для тестирования).

Подразумевается что:

1. Вы настроили параметры связи с устройством и парсер для автомобильного GPS трекера так, как это сделать было описано в другой статье;
2. Настроили TCP/IP соединение с другим сервером как описано в этой статье.

Решение:

После настройки и опробования парсера с помощью DDE можно приступать к настройке.

1. Необходимо сформировать новый пакет данных для перенаправления. Это можно сделать с помощью модуля-фильтра "Script Execute". Данный модуль позволяет задать скрипт, который будет вызываться для каждого пакета данных, который выделил и обработал парсер. В этом примере используется парсер для трекеров "Телтоника". Данный парсер имеет ряд переменных, на которые он разбивает пакет данных. Эти переменные будут использоваться в скрипте.

2. Активировать модуль перенаправления данных "Data redirecting". При этом модуль "Data redirecting" должен располагаться в списке ниже модуля "Script execute" (рис. 1).

Замечание: Программа может перенаправить только те данные GPS трекера, которые понимает и обрабатывает парсер. Например, если трекер посылает несколько типов пакетов, а парсер обрабатывает только один из них, то перенаправить можно будет только один этот пакет.

Рис.1. GPS трекер. Настройка модуля перенаправления данных.

Написание скрипта

Модуль "Script Execute" позволяет написать скрипт на нескольких скриптовых языках. В данном примере будет приведен скрипт на языке Pascal (рис. 2).

Рис.2. GPS трекер. Скрипт.

Полный текст скрипта:

var lat, lon, speed, angle, alt: single; i, v1, v2, mask, sat: integer; dt: TDateTime; dev_id: string; data_packet: string; sName: string; sTmp: string; sDate_Name:string = 'TIMESTAMP_UTC'; sLat_Name:string = 'LATITUDE'; sLon_Name:string = 'LONGITUDE'; sSpeed_Name:string = 'SPEED'; sAngle_Name:string = 'ANGLE'; sAlt_Name:string = 'ALTITUDE'; sSat_Name:string = 'SATELLITES'; sDevId_Name:string = 'IMEI'; sDI_Name:string = 'DI'; iDI_Count: integer = 4; // number of digital inputs sDO_Name:string = 'DO'; iDO_Count: integer = 4; // number of digital outputs sDataPacket_Name:string = 'ASCII_DATA_PACKET'; begin // checks that a variable is exists in a data packet if IsVariableDefined(sDate_Name) then // retrieves a value from the data packet dt := GetVariable(sDate_Name) else // data packet doesn't contain necessary value exit; // preparing all values if IsVariableDefined(sDevId_Name) then dev_id := GetVariable(sDevId_Name) else exit; if IsVariableDefined(sLat_Name) then lat := GetVariable(sLat_Name) else // use a default values lat := 0; if IsVariableDefined(sLon_Name) then lon := GetVariable(sLon_Name) else lon := 0; if IsVariableDefined(sSpeed_Name) then speed := GetVariable(sSpeed_Name) else speed := 0; if IsVariableDefined(sAlt_Name) then alt := GetVariable(sAlt_Name) else alt := 0; if IsVariableDefined(sAngle_Name) then angle := GetVariable(sAngle_Name) else angle := 0; if IsVariableDefined(sSat_Name) then sat := trunc(GetVariable(sSat_Name)) else sat := 0; if length(dev_id)>7 then dev_id := copy(dev_id, length(dev_id)-6, 7); dev_id := '101'+dev_id; while length(dev_id)<10 do dev_id := dev_id + '0'; // building the new ASCII data packet //1012903129,20110720153058,0dd.741915,dd.459011,00000,095,000000068,05,002,006,00,00.000,00.000 data_packet := dev_id+','+FormatDateTime('YYYYMMDDHHNNSS', dt)+','; sTmp := FormatFloat('000.000000', lon); i := pos(',', sTmp); if i>0 then sTmp[i] := '.'; data_packet := data_packet + sTmp +','; sTmp := FormatFloat('00.000000', lat); i := pos(',', sTmp); if i>0 then sTmp[i] := '.'; data_packet := data_packet + sTmp +','; data_packet := data_packet + FormatFloat('00000', trunc(speed))+','; data_packet := data_packet + FormatFloat('000', trunc(angle))+','; data_packet := data_packet + FormatFloat('000000000', trunc(alt))+','; data_packet := data_packet + FormatFloat('00', sat)+','; data_packet := data_packet + '000,'; // RID - unknown value, use 000 v1 := 0; mask := 1; for i:=1 to iDI_Count do begin sName := sDI_Name+IntToStr(i); if IsVariableDefined(sName) then v2 := trunc(GetVariable(sName)) else v2 := 0; if v2<>0 then v1 := v1 and mask; mask := mask * 2; end; data_packet := data_packet + FormatFloat('000', v1)+','; // digital inputs v1 := 0; mask := 1; for i:=1 to iDO_Count do begin sName := sDO_Name+IntToStr(i); if IsVariableDefined(sName) then v2 := trunc(GetVariable(sName)) else v2 := 0; if v2<>0 then v1 := v1 and mask; mask := mask * 2; end; data_packet := data_packet + FormatFloat('00', v1)+','; // digital outputs data_packet := data_packet + '00.000,'; // AI1 - using a default value data_packet := data_packet + '00.000'; // AI2 - using a default value data_packet := data_packet + #13+#10; // add a variable with the new data packet to existing data packet // and pass it down to filters below and data export plugins SetVariable(sDataPacket_Name, data_packet); end.

Данный скрипт с помощью функций GetVariable получает значения переменных, которые подготовил парсер, форматирует их и формирует новый пакет данных. Сформированный новый пакет данных в формате ASCII, готовый для перенаправления, добавляется к имеющимся переменным парсера с помощью функции SetVariable под именем ASCII_DATA_PACKET. Значения, которые отсутствуют в переменных парсера, заменяются значениями по умолчанию. Если в переменных парсера отсутствуют значения идентификатора устройства или даты, то данный пакет данных игнорируется.

Легко заметить, что с помощью переменных скрипта вида sDate_Name:string = 'TIMESTAMP_UTC'; задается имя переменной парсера, которое затем будет использоваться в теле скрипта.

Перенаправление данных

Для настройки модуля перенаправления (рис.3) данных выберите его в списке и кликните по кнопке "Настроить" под списком.

Рис.3. GPS tracker. Настройка модуля перенаправления данных.

1. Указываем имя переменной парсера, данные из которой будут перенаправляться;
2. Указываем IP адрес и порт назначения в той форме, как этого отображается в главном окне программы.

Теперь необходимо сохранить все изменения. Для этого закройте все диалоговые окна, кликнув на кнопке "OK".

После приема данных от GPS трекера вы увидите в логе сообщений программы информацию о том, что данные перенаправляются (рис. 3).

Рис.3. GPS трекер. Сообщение о перенаправлении данных.

Если в главном окне программы переключиться на конфигурацию TCP клиента (рис. 4), то можно увидеть перенаправляемые данные.

Рис.4. GPS трекер. Перенаправляемые данные.

Сопутствующие статьи:

• Анализ и разбор данных от сканера штрих кодов (данные в фиксированной позиции, нет признаков начала и окончания пакета данных);
• Парсинг данных сканера штрих кодов (данные в фиксированной позиции, есть признак окончания пакета данных);
• Парсинг данных с использованием регулярных выражений (сложный формат данных, регулярные выражения, фильтрация данных);
• Прием и обработка данных от авиационного двигателя (пример использования, специальный парсер данных);
• Обработка данных от лабораторного оборудования (простой формат данных, регулярные выражения);
• Прием и обработка GPS данных на примере Garmin Geko301 (простой формат данных, данные в фиксированной позиции, есть признаки начала и окончания пакета данных);
• Анализ и разбор данных от фасовочной машины (простой формат данных, данные через разделитель, есть признак окончания пакета данных, фильтр данных);
• Анализ и разбор данных от АТС (простой формат данных, данные в фиксированной позиции, есть признак окончания пакета данных, фильтр данных);
• Логгер данных измерителя давления (запрос данных с устройства, простой формат данных, данные в фиксированной позиции, есть признак окончания пакета данных, фильтр данных);
• Сбор данных в "Управляющей информационной системе учета добычи" (сложный формат данных, регулярные выражения, фильтрация данных);
• Объединение данных из двух портов для экспорта одной строкой (простой формат данных, данные в фиксированной позиции, есть признак окончания пакета данных, фильтр данных);
• Анализ и парсинг данных от весов (простой формат данных, данные в фиксированной позиции, есть признак окончания пакета данных, фильтр данных).