Проложить Маршрут (офлайн) Delphi

[triamera977]

Всем привет! Подскажите люди добрые, не кто не делал что-то подобное, типо гугл карты, интергис, 2гис, чтоб можно было проложить маршрут через delphi?

 

[Lomanu4]

Для Androida?

 

[triamera977]

На ПК.

 

[Sascha]

1. Указание центра, формата и вида карты

uses
  ..., Google.Maps, System.UITypes;
procedure TfrmMain.Button1Click(Sender: TObject);
var
  Map: TGoogleMap;
begin
  Map:=TGoogleMap.Create;
  try
    //формат карты - 32-битный PNG
    Map.MapFormat:=mfPNG32;
    //вид карты - спутник
    Map.MapType:=mtSatellite;
    //центр карты
    Map.Center.Latitude:=55.0269;
    Map.Center.Longitude:=73.3029;
    //добавляем одну метку
    Map.Markers.Add(TMapMarker.Create(55.0269,73.3029));
    Map.Markers.Last.Text:='1';
    //выводим карту в TWebBrowser
    WebBrowser1.Navigate2(Map.URL);
  finally
    Map.Free;
  end;
end;

2. Указание нескольких маркеров разных цветов и размеров

 Map:=TGoogleMap.Create;
  try
    Map.MapFormat:=mfPNG32;
    //вид карты - карта дорог
    Map.MapType:=mtRoadmap;
    //маркер красного цвета, нормального размера
    Map.Markers.Add(TMapMarker.Create(55.0269,73.3029));
    Map.Markers.Last.Color:=clRed;
    Map.Markers.Last.Size:=msMid;
    Map.Markers.Last.Text:='1';
    //маркер зеленого цвета, нормального размера
    Map.Markers.Add(TMapMarker.Create(55.0270,73.3029));
    Map.Markers.Last.Color:=clGreen;
    Map.Markers.Last.Size:=msMid;
    Map.Markers.Last.Text:='2';
    //маркер синего цвета, маленького размера (текст не отобразится)
    Map.Markers.Add(TMapMarker.Create(55.0270,73.3033));
    Map.Markers.Last.Color:=clBlue;
    Map.Markers.Last.Size:=msSmall;
    Map.Markers.Last.Text:='3';
    //маркер желтого цвета, самого маленького размера (текст не отобразится)
    Map.Markers.Add(TMapMarker.Create(55.0269,73.3033));
    Map.Markers.Last.Color:=clYellow;
    Map.Markers.Last.Size:=msTiny;
    Map.Markers.Last.Text:='4';
    WebBrowser1.Navigate2(Map.URL);
  finally
    Map.Free;
  end;

3. Указание путей
Прокладываем путь через все четыре маркера из предыдущего примера (сами маркеры показывать не будем):

Map:=TGoogleMap.Create;
  try
    Map.MapFormat:=mfPNG32;
    Map.MapType:=mtRoadmap;
    //добавляем новый путь
    Map.Paths.Add(TMapPath.Create);
    //значение альфа-канала (от 0 - 100% прозрачность до 255 - непрозрачная линия)
    Map.Paths.Last.ColorAlpha:=255;
    //цвет линии
    Map.Paths.Last.Color:=TColorRec.Blue;
    //толщина линии
    Map.Paths.Last.Weight:=2;
    //добавляем точки пути
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0269,73.3029));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0270,73.3029));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0270,73.3033));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0269,73.3033));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0269,73.3029));
    WebBrowser1.Navigate2(Map.URL);
  finally
    Map.Free;
  end;

3.1 Заливка области
Всю площадь, построенную в предыдущем примере, можно залить каким-нибудь цветом, например так:

 Map:=TGoogleMap.Create;
  try
    Map.Scale:=2;//увеличиваем количество пикселей в 2 раза
    Map.MapFormat:=mfPNG32;
    //спутниковая съемка
    Map.MapType:=mtSatellite;
    Map.Sensor:=True;
    Map.Center.Latitude:=55.0269;
    Map.Center.Longitude:=73.3029;
    Map.Paths.Add(TMapPath.Create);
    //добавили цвет заливки
    Map.Paths.Last.FillColor:=TColorRec.Yellow;
    //прозрачность заливки (от 0 до 255)
    Map.Paths.Last.FillAlpha:=90;
    Map.Paths.Last.ColorAlpha:=255;
    Map.Paths.Last.Color:=TColorRec.Blue;
    Map.Paths.Last.Weight:=2;
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0269,73.3029));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0270,73.3029));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0270,73.3033));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0269,73.3033));
    Map.Paths.Last.PathData.Add(TMapPoint.Create(55.0269,73.3029));
    WebBrowser1.Navigate2(Map.URL);
  finally
    Map.Free;
  end;

Ну и, конечно, никто не запрещает использовать на карте и маркеры и пути. Код уже приводить не буду, просто соберу все примеры в одну карту:

Вот, пожалуй, все возможности, какие поддерживает модуль:

Спойлер: Скачать:

Google.Maps_.zip

 

[triamera977]

Спасибо! Щас посмотрим что с этим можно сделать

 

[Sascha]

http://sourceforge.net/projects/gmlibrary/

или вот попробуй

 

[triamera977]

Sascha, тебе тоже спасибо!

 

[Sascha]

Sascha, тебе тоже спасибо!

Рад помочь+1!!

 

[Lomanu4]

Саня ты селен !!!

 

[triamera977]

Как я понимаю без интернета не будет работать карта?

 

[Sascha]

Как я понимаю без интернета не будет работать карта?

Конечно нет

 

[triamera977]

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

 

[Sascha]

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

 

[Sascha]

в TImage вставить картинку карты мира или использовать какое-нить MapInfo

 

[Sascha]

http://dps.dzzzr.ru/maps.html вот к примеру таких карт и по координатам выводишь