FlightRadar+SAS

[vdemidov]

Э, нет, отображение треков в ближайшее время вам никто не обещал. Если нужны треки, делайте свой веб сервер, который будет генерить пнг с изображением треков, поднимайте его локально и добавляйте zmp с новым слоем.

[IC7K]

ну тогда задача упрощается, можно и без треков
главное чтобы объекты двигались

[IC7K]

расшифровав почти все то что вы предложили, хотелось убедиться что все правильно, а также получить информацию по неясным пунктам:

Код: Выделить всё

type
  IShowObject = interface
    function GetLonLat: TDoublePoint; //выдает координаты объекта
    function GetBitmapSize: TPoint;    //выдает размер иконки
    function GetFixedInBitmap: TPoint; //?????
    function GetPictureBits: PColor32;   //?????
    function GetHintText: WideString;  //выдает хинт при наведении мыши
    function GetInfoHTML: WideString; //выдает ссылку при щелчке на объект??
  end; 
  IObjectSet = interface
    function GetCount: integer;  //выдает количество активных объектов
    function GetItem(AIndex: integer): IShowObject; //выдает параметры объекта #AIndex (коорд, хинт и т.п.)
  end;
  IObjectTracker = interface
    function GetObjectSet: IObjectSet;    //выдает набор объектов
    function GetNotifier: IJclNotifier;   //?????         
  end;

еще вопрос, у объекта есть курс (направление) в градусах (радианах) - как быть с ним? SAS может с ним работать?

[vdemidov]

function GetFixedInBitmap: TPoint; //Задает в какой точке иконки привязка к географическим координатам.
function GetPictureBits: PColor32; //собственно сама иконка заданная массивом 32-х битных пикселей. Указатель на левый верхний пиксель.

еще вопрос, у объекта есть курс (направление) в градусах (радианах) - как быть с ним? SAS может с ним работать?

Используйте его, для поворота иконки, если необходимо.

[vdemidov]

function GetNotifier: IJclNotifier;   //?????       

[url=http://sasgis.org/wikisasiya/doku.php/общие_для_всех_типов_плагинов_структуры]общие_для_всех_типов_плагинов_структуры[/url]

[IC7K]

так, для начала надо скачать и установить http://wiki.delphi-jedi.org/index.php?t ... de_Library ...

[vdemidov]

Та ну. Это ровно один файл. Точнее в оригинале один. Я разделил на два. По прошлой ссылке можно скачать оба файла. Все привязки к JEDI убраны

[IC7K]

а PColor32 ?

[vdemidov]

Указатель на TColor32. Можете воспользоваться Graphics32 она очень активно используется в SAS.Планете

[IC7K]

я на правильном пути?
а то интерфейсы и классы для меня в новинку практически

Код: Выделить всё

  TSASObject = Class(TInterfacedObject, ISASObject)
  private
    fLonLat: TDoublePoint;
    fBitmapSize: TPoint;
    fFixedInBitmap: TPoint;
    fPictureBits: PColor32;
    fHintText: WideString;
    fInfoHTML: WideString;
    fNumber: Integer;
 
    function GetLonLat: TDoublePoint;
    function GetBitmapSize: TPoint;   
    function GetFixedInBitmap: TPoint;
    function GetPictureBits: PColor32;   
    function GetHintText: WideString; 
    function GetInfoHTML: WideString;
    function GetNumber: Integer;     
  public
    property LonLat: TDoublePoint  read GetLonLat;
    property BitmapSize: TPoint    read GetBitmapSize;
    property FixedInBitmap: TPoint read GetFixedInBitmap;
    property PictureBits: PColor32 read GetPictureBits;
    property HintText: WideString  read GetHintText;
    property InfoHTML: WideString  read GetInfoHTML;
    property Number: Integer       read GetNumber;
  published
    constructor Create(LonLat: TDoublePoint; BitmapSize: TPoint; FixedInBitmap: TPoint; PictureBits: PColor32; HintText: WideString; InfoHTML: WideString; Number: Integer);
  end;

implementation

{$R *.dfm}

//****************SAS OBJECT START*****************
constructor TSASObject.Create(LonLat: TDoublePoint; BitmapSize: TPoint; FixedInBitmap: TPoint; PictureBits: PColor32; HintText: WideString; InfoHTML: WideString; Number: Integer);
begin
  fLonLat:= LonLat;
  fBitmapSize:=BitmapSize;
  fFixedInBitmap:=FixedInBitmap;
  fPictureBits:=PictureBits;
  fHintText:=HintText;
  fInfoHTML:=InfoHTML;
  fNumber:=Number;
end;

function TSASObject.GetLonLat:TDoublePoint;
begin
  Result:=fLonLat;
end;

function TSASObject.GetBitmapSize:TPoint;
begin
  Result:=fBitmapSize;
end;

function TSASObject.GetFixedInBitmap:TPoint;
begin
  Result:=fFixedInBitmap;
end;

function TSASObject.GetPictureBits:PColor32;
begin
  Result:=fPictureBits;
end;

function TSASObject.GetHintText:WideString;
begin
  Result:=fHintText;
end;

function TSASObject.GetInfoHTML:WideString;
begin
  Result:=fInfoHTML;
end;

function TSASObject.GetNumber:Integer;
begin
  Result:=fNumber;
end;
//****************SAS OBJECT START*****************