ОФИЦИАЛЬНЫЙ ФОРУМ ГРУППЫ КОМПАНИЙ «ТЕХНОКОМ»

- - Вопрос: СОМ-сервер АвтоГРАФ (http://forum.tk-chel.ru/showthread.php?t=8747)

СОМ-сервер АвтоГРАФ

Получить данные.

Код:

AG.StartComputing  ("",НомерУстройства,НачПериода,КонПериода,"GSM",0); 

      AG.WaitForComputing("",НомерУстройства,НачПериода,КонПериода,"GSM",0);

AG.TripEntriesListTypeName="over_speed"

Данные получаю по параметрам из настроек объекта мониторинга Максимальный порог ,км.ч 70
Игнорировать превышения 180
Могу ли я передать отличные от настроек в дизайнере параметров параметры в расчет и получить результат?

СОМ-сервер АвтоГРАФ

Добрый день.

Нажмите для просмотра содержимого...

Код:

Процедура НарушениеСкоростногоРежима(НомерУстройства,ДатаНачало,ДатаОкончание,ПорогПревышения,ПорогПродолжительности,МассивУчастков)

         НачПериода = Формат(ДатаНачало,   "ДЛФ=ДВ");

         КонПериода = Формат(ДатаОкончание,"ДЛФ=ДВ");

         AG = Новый COMОбъект("AutoGRAPH.AutoGRAPHAutomation");   

         ddd  = AG.WaitForInitializing();

         AG.WaitForComputing("",НомерУстройства,НачПериода,КонПериода,"GSM",0);

         КолРейсов = AG.TripsNum;

          МассивУчастков = Новый Массив;         

                 Для ИндексРейса = 1 По КолРейсов Цикл 

                         AG.TripIndex = ИндексРейса;

                         AG.TripEntriesListTypeName="over_speed";

                             Для ИндексЗаписи = 1 По AG.TripEntriesNum Цикл 

                                         AG.EntryIndex = ИндексЗаписи;

                                         Если НетСигнала(НомерУстройства,AG.EntryStartRealTime,AG.EntryEndRealTime) Тогда

                                            Продолжить; 

                                         КонецЕсли;

                                         ////////

                                         ////////

                                         ////////

                                         ////////

                                         ////////  Обрабатываю результат отчета

                                         ////////

                                         ////////

                                         ////////

                                         ////////

                                 КонецЦикла;

                КонецЦикла;

КонецПроцедуры

Результат получаю по значениям параметров в дизайнере параметров объекта мониторинга
- Максимальный порог и игнорировать превышения с продолжительностью менее,с
ВОПРОС: Можно ли передать в расчет свои параметры порога скорости и и длительности нарушения отличные от установленных в дизайнере параметров?
АвтоГРАФ.Pro 7.2

ngbr, для Вас в редакторе форума предусмотрены коды. Пользуйтесь.

Цитата:

Сообщение от ngbr (Сообщение 206090)

ВОПРОС: Можно ли передать в расчет свои параметры порога скорости и и длительности нарушения отличные от установленных в дизайнере параметров?

Нет. Расчет с произвольными параметрами, задаваемыми при вызове расчета, не предусмотрен и даже вреден в плане получения сфальсифицированных данных и утаивания реальных нарушений.

Цитата:

Сообщение от ngbr (Сообщение 206090)

Добрый день.

Нажмите для просмотра содержимого...

Код:

Процедура НарушениеСкоростногоРежима(НомерУстройства,ДатаНачало,ДатаОкончание,ПорогПревышения,ПорогПродолжительности,МассивУчастков)

         НачПериода = Формат(ДатаНачало,   "ДЛФ=ДВ");

         КонПериода = Формат(ДатаОкончание,"ДЛФ=ДВ");

         AG = Новый COMОбъект("AutoGRAPH.AutoGRAPHAutomation");   

         ddd  = AG.WaitForInitializing();

         AG.WaitForComputing("",НомерУстройства,НачПериода,КонПериода,"GSM",0);

         КолРейсов = AG.TripsNum;

          МассивУчастков = Новый Массив;         

                 Для ИндексРейса = 1 По КолРейсов Цикл 

                         AG.TripIndex = ИндексРейса;

                         AG.TripEntriesListTypeName="over_speed";

                             Для ИндексЗаписи = 1 По AG.TripEntriesNum Цикл 

                                         AG.EntryIndex = ИндексЗаписи;

                                         Если НетСигнала(НомерУстройства,AG.EntryStartRealTime,AG.EntryEndRealTime) Тогда

                                            Продолжить; 

                                         КонецЕсли;

                                         ////////

                                         ////////

                                         ////////

                                         ////////

                                         ////////  Обрабатываю результат отчета

                                         ////////

                                         ////////

                                         ////////

                                         ////////

                                 КонецЦикла;

                КонецЦикла;

КонецПроцедуры

А зачем вы балуетесь COM сервером? Не проще работать с АПИ Веб Сервера?

Цитата:

Сообщение от ngbr (Сообщение 206090)

Добрый день.

ВОПРОС: Можно ли передать в расчет свои параметры порога скорости и и длительности нарушения отличные от установленных в дизайнере параметров?
АвтоГРАФ.Pro 7.2

1. Перестаете использовать COM, переходите на Web API
2. Параметризуете через реестр свойств расчёт нужных параметров
3. Пишете в реестр свойств нужные значения свойств перед запросом расчёта.
4. Запрашиваете.
5. Получаете нужный результат.

Цитата:

Сообщение от MartynenkoES (Сообщение 206251)

1. Перестаете использовать COM, переходите на Web API

не всегда это так легко и просто, может быть легко интегрировано в структуру предприятия, где выхода на внешний веб нет, а свой стваить то еще удовольствие

COM-сервер Автограф 4

Добрый день.
Помогите, пожалуйста!
Не могу разобраться как из СОМ-клиента в приложении Автограф 4 открыть нужный вид отрезка данных?
Открываю приложение и нужное ТС за период времени, например следующим образом:
Set AutoGRAPH = CreateObject("AutoGRAPH.AutoGRAPHAutomation")
If InStr(AutoGRAPH.CurrentVersion, "4.0") > 0 Then
AutoGRAPH.ReceiveOnlineData Блок 'обновляем данные по ТС с сервера
AutoGRAPH.StartComputing "*", Блок, ДатаИзИмениФайла, ДатаИзДанных, "GSM", 0
AutoGRAPH.ShowApplication
End If

Что значит "нужный вид"???
COM-сервер не предназначен для управления интерфейсом ПО.
Некоторые побочные эффекты в интерфейсе при расчете через COM обусловлены устаревшей архитектурой, от которой избавились в версии 5 и выше.
Почти 10 лет прошло с выхода последней сборки АвтоГРАФ 4.х...