[TMapView] [XE8] Подскажите материалы по использованию компонента карт?

[Martifan]

Доброго времени сутки

кто разобрался как использовать MapView может поделитесь?

заранее спасибо

[Brovin Yaroslav]

Добрый день,

• Руководство использования
• Конфигурация андроид приложения для работы с Google Maps
• Статья в блоге об использовании TMapView в iOS и Android приложения

[Martifan]

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

Normal, Satellite, Hybrid фон меняется то белым то серым становится и внизу написана Google а правом угле + и - но когда указываю координаты карта не грузится что не так?

unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Edit, FMX.Controls.Presentation, FMX.Maps;
 
type
  TForm1 = class(TForm)
    MapView1: TMapView;
    ToolBar1: TToolBar;
    ArcDial1: TArcDial;
    edLat: TEdit;
    edLong: TEdit;
    Button1: TButton;
    ToolBar2: TToolBar;
    Layout1: TLayout;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure ArcDial1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure MapView1MapClick(const Position: TMapCoordinate);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.ArcDial1Change(Sender: TObject);
begin
  MapView1.Bearing := ArcDial1.Value;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  mapCenter: TMapCoordinate;
begin
  mapCenter := TMapCoordinate.Create(StrToFloat(edLat.Text),
    StrToFloat(edLong.Text));
  MapView1.Location := mapCenter;
end;
 
procedure TForm1.MapView1MapClick(const Position: TMapCoordinate);
var
  MyMarker: TMapMarkerDescriptor;
begin
  MyMarker := TMapMarkerDescriptor.Create(Position, 'MyMarker');
  // Make a marker draggable
  MyMarker.Draggable := True;
  // Make a marker visible
  MyMarker.Visible :=True;
  MapView1.AddMarker(MyMarker);
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  MapView1.MapType := TMapType.Normal;
  ArcDial1.Value := 0.0;
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  MapView1.MapType := TMapType.Satellite;
  ArcDial1.Value := 0.0;
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  MapView1.MapType := TMapType.Hybrid;
  ArcDial1.Value := 0.0;
end;
 
end.

[Martifan]

 

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

Normal, Satellite, Hybrid фон меняется то белым то серым становится и внизу написана Google а правом угле + и - но когда указываю координаты карта не грузится что не так?

unit Unit1;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Edit, FMX.Controls.Presentation, FMX.Maps;
 
type
  TForm1 = class(TForm)
    MapView1: TMapView;
    ToolBar1: TToolBar;
    ArcDial1: TArcDial;
    edLat: TEdit;
    edLong: TEdit;
    Button1: TButton;
    ToolBar2: TToolBar;
    Layout1: TLayout;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure ArcDial1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure MapView1MapClick(const Position: TMapCoordinate);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.fmx}
 
procedure TForm1.ArcDial1Change(Sender: TObject);
begin
  MapView1.Bearing := ArcDial1.Value;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  mapCenter: TMapCoordinate;
begin
  mapCenter := TMapCoordinate.Create(StrToFloat(edLat.Text),
    StrToFloat(edLong.Text));
  MapView1.Location := mapCenter;
end;
 
procedure TForm1.MapView1MapClick(const Position: TMapCoordinate);
var
  MyMarker: TMapMarkerDescriptor;
begin
  MyMarker := TMapMarkerDescriptor.Create(Position, 'MyMarker');
  // Make a marker draggable
  MyMarker.Draggable := True;
  // Make a marker visible
  MyMarker.Visible :=True;
  MapView1.AddMarker(MyMarker);
end;
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  MapView1.MapType := TMapType.Normal;
  ArcDial1.Value := 0.0;
end;
 
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  MapView1.MapType := TMapType.Satellite;
  ArcDial1.Value := 0.0;
end;
 
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  MapView1.MapType := TMapType.Hybrid;
  ArcDial1.Value := 0.0;
end;
 
end.

может у кого получилась как все сделать? поделитесь пожалуйста заранее спасибо

[Martifan]

UP

[StrangerMX]

Разобрался. Заработало и причем довольно шустро

Изменено 21 апреля, 2015 пользователем StrangerMX

[Martifan]

тему можно закрыть всем разобрался спасибо

[xenon54]

Если разобрался, так напиши в чем дело было, для будущих поколений.

[Martifan]

там все просто было я не правильно создавал Google Api Key как исправил компонент заработал нормально