Перенаправление данных 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 трекера, которые понимает и обрабатывает парсер. Например, если трекер посылает несколько типов пакетов, а парсер обрабатывает только один из них, то перенаправить можно будет только один этот пакет.

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

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) данных выберите его в списке и кликните по кнопке "Настроить" под списком.

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

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

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

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

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

Установка

Настройка

• Настройка парсера, для GPS трекера, использующего текстовый формат данных (возможности: парсер ASCII, разбор пакета).
• Перенаправление пакетов от GPS трекера, на другой сервер без изменения формата (возможности: модуль перенаправления данных).
• Конвертация пакетов от GPS трекера в формат другого трекера и передача их на другой сервер.
• Конвертация пакетов от GPS трекера в формат ASCII другого трекера и передача их на другой сервер, используя модули из стандартной поставки.
• Обработка СМС от GPS трекера, используя модули из стандартной поставки.