SASGIS

Веб-картография и навигация

FlightRadar+SAS

Форум для обсуждения деталей разработки программы SAS.Планета

Модераторы: vdemidov, Tolik

Re: FlightRadar+SAS

Сообщение vdemidov » 26 фев 2011, 15:23

Э, нет, отображение треков в ближайшее время вам никто не обещал. Если нужны треки, делайте свой веб сервер, который будет генерить пнг с изображением треков, поднимайте его локально и добавляйте zmp с новым слоем.
Чтобы понять программу, вы должны стать одновременно и машиной, и программой.
Аватара пользователя
vdemidov
Гуру
 
Сообщения: 1687
Зарегистрирован: 12 дек 2008, 13:10
Откуда: Киев
Благодарил (а): 191 раз.
Поблагодарили: 136 раз.

Re: FlightRadar+SAS

Сообщение IC7K » 28 фев 2011, 08:05

ну тогда задача упрощается, можно и без треков
главное чтобы объекты двигались :roll:
сильный поедает вкусного
IC7K
Новичок
 
Сообщения: 19
Зарегистрирован: 25 фев 2011, 14:35
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.

Re: FlightRadar+SAS

Сообщение IC7K » 03 мар 2011, 10:40

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

Код: Выделить всё
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 может с ним работать?
сильный поедает вкусного
IC7K
Новичок
 
Сообщения: 19
Зарегистрирован: 25 фев 2011, 14:35
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.

Re: FlightRadar+SAS

Сообщение vdemidov » 03 мар 2011, 11:07

function GetFixedInBitmap: TPoint; //Задает в какой точке иконки привязка к географическим координатам.
function GetPictureBits: PColor32; //собственно сама иконка заданная массивом 32-х битных пикселей. Указатель на левый верхний пиксель.
IC7K писал(а):еще вопрос, у объекта есть курс (направление) в градусах (радианах) - как быть с ним? SAS может с ним работать?

Используйте его, для поворота иконки, если необходимо.
Чтобы понять программу, вы должны стать одновременно и машиной, и программой.
Аватара пользователя
vdemidov
Гуру
 
Сообщения: 1687
Зарегистрирован: 12 дек 2008, 13:10
Откуда: Киев
Благодарил (а): 191 раз.
Поблагодарили: 136 раз.

Re: FlightRadar+SAS

Сообщение vdemidov » 03 мар 2011, 11:08

IC7K писал(а): function GetNotifier: IJclNotifier;   //?????       


[url=http://sasgis.org/wikisasiya/doku.php/общие_для_всех_типов_плагинов_структуры]общие_для_всех_типов_плагинов_структуры[/url]
Чтобы понять программу, вы должны стать одновременно и машиной, и программой.
Аватара пользователя
vdemidov
Гуру
 
Сообщения: 1687
Зарегистрирован: 12 дек 2008, 13:10
Откуда: Киев
Благодарил (а): 191 раз.
Поблагодарили: 136 раз.

Re: FlightRadar+SAS

Сообщение IC7K » 03 мар 2011, 13:32

так, для начала надо скачать и установить http://wiki.delphi-jedi.org/index.php?t ... de_Library ...
сильный поедает вкусного
IC7K
Новичок
 
Сообщения: 19
Зарегистрирован: 25 фев 2011, 14:35
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.

Re: FlightRadar+SAS

Сообщение vdemidov » 03 мар 2011, 13:45

Та ну. Это ровно один файл. Точнее в оригинале один. Я разделил на два. По прошлой ссылке можно скачать оба файла. Все привязки к JEDI убраны
Чтобы понять программу, вы должны стать одновременно и машиной, и программой.
Аватара пользователя
vdemidov
Гуру
 
Сообщения: 1687
Зарегистрирован: 12 дек 2008, 13:10
Откуда: Киев
Благодарил (а): 191 раз.
Поблагодарили: 136 раз.

Re: FlightRadar+SAS

Сообщение IC7K » 03 мар 2011, 13:50

а PColor32 ?
сильный поедает вкусного
IC7K
Новичок
 
Сообщения: 19
Зарегистрирован: 25 фев 2011, 14:35
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.

Re: FlightRadar+SAS

Сообщение vdemidov » 03 мар 2011, 14:12

Указатель на TColor32. Можете воспользоваться Graphics32 она очень активно используется в SAS.Планете
Чтобы понять программу, вы должны стать одновременно и машиной, и программой.
Аватара пользователя
vdemidov
Гуру
 
Сообщения: 1687
Зарегистрирован: 12 дек 2008, 13:10
Откуда: Киев
Благодарил (а): 191 раз.
Поблагодарили: 136 раз.

Re: FlightRadar+SAS

Сообщение IC7K » 03 мар 2011, 20:07

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

Код: Выделить всё
  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*****************
сильный поедает вкусного
IC7K
Новичок
 
Сообщения: 19
Зарегистрирован: 25 фев 2011, 14:35
Благодарил (а): 2 раз.
Поблагодарили: 0 раз.

Пред.След.

Вернуться в Раздел для разработчиков программы SAS.Планета

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0