0002440: Закидывание через неопределенное время метки из стороннего ПО, например, метки отбор проб.

SASGIS - SAS.Планета

View Issue Details

Project

Category

View Status

Date Submitted

Last Update

0002440

SAS.Планета

[All Projects] Хотелка

public

29-05-2014 04:39

02-06-2014 09:09

Reporter

Waleryth

Assigned To

vdemidov

Priority

normal

Severity

minor

Reproducibility

have not tried

Status

closed

Resolution

duplicate

Platform

Windows

OS Version

Ultimate

Product Version

Target Version

Fixed in Version

Summary

0002440: Закидывание через неопределенное время метки из стороннего ПО, например, метки отбор проб.

Description

Я тут поизучал темы на форуме и пришел к выводу что такая небольшая модификация придется по вкусу многим пользователя SAS.Планета. Необходимо чтобы происходила запись трека и одновременно в фоне происходило закидывание меток, например, отбор проб.

Steps To Reproduce

1). С треком все понятно.(Для эмуляции трека использовал GPSGate).
2). Для отправки в CAC данных точек я использовал - wm_copydata по handle реализованом в ПО для обработки спектра на VisualBasic.
В CAC я реализовал обработчик для принятия сообщения. далее я разбивал строку на составляющие.

s:=PAnsiChar(MessageData.CopyDataStruct.lpData); //Устанавливаем текст из полученных данных
    tSL := TStringList.create; //создаём класс
    tSL.text := stringReplace(s,';',0000013#10,[rfReplaceAll]); //заменяем все ';' на символы конца строки
//получаем StringList
    In_PointName:=tSL[0]; //название точки
    // tSL[1] //Lat широта Y_
    // tSL[2] //Lon долгота X_
    In_PointDesc:=tSL[3]; //Описание точки

Для добавления точки на карту использовал
при этом указал координаты точки полученные от 'wm_copydata'
VLonLat.X:=X_; //Lon долгота
VLonLat.Y:=Y_; //Lat широта
if FMarkDBGUI.AddNewPointModal(VLonLat) then begin
    FState.State := ao_movemap;
  end;

Далее добавил дополнительную функцию
TMarksDbGUIHelper.AddNewPointModal(const ALonLat: TDoublePoint): Boolean;
которая является аналогом с некоторыми изменениями
TMarksDbGUIHelper.NewPointModal(const ALonLat: TDoublePoint): Boolean;

Долее для установки метки без запуска модальной формы добавления точки закоментил
//VMark := FfrmMarkAddPoint.EditMark(VMark, true, VVisible);

функция получилась так:
function TMarksDbGUIHelpe.AddNewPointModal(const ALonLat: TDoublePoint): Boolean;
var
  VMark: IMarkPoint;
  VVisible: Boolean;
  VResult: IMark;
begin
  Result := False;
  VVisible := true; //коорд, имя точки, описание
  VMark := FMarksDb.MarksDb.Factory.CreateNewPoint(ALonLat, frmMain.In_PointName, frmMain.In_PointDesc);
  //установка точки без запуска модальной формы добавления точки
  //закометнировал вызов формы добавления метки
  //VMark := FfrmMarkAddPoint.EditMark(VMark, true, VVisible);
  if VMark <> nil then begin
    VResult := FMarksDb.MarksDb.UpdateMark(nil, VMark);
    if VResult <> nil then begin
      FMarksDb.MarksDb.SetMarkVisible(VMark, VVisible);
      Result := True;
    end;
  end;
end;

Получается происходит добавление новой точки в фоновом режиме.
Но как предварительно указать тип рисунка метки и категорию куда будет добавляться метка без вызова формы добавления меток.
Может подскажите как предварительно указать тип рисунка метки и категорию куда будет добавляться метка!!!

Additional Information