dim

Воспользовался компонентом mEngine, при написании запускал на Lenovo все работало нормально, перенес на планшетник, все вроде работает

только не геокодирует по координатам mEngine.Geocoding адрес не возвращает (при этом на ленове тут же все нормально показывает)

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

procedure TMasterDetailForm.OnLocationChange(Sender: TObject; const OldLocation,
  NewLocation: TLocationCoord2D);
begin
  TThread.Synchronize(nil,
    procedure
    begin
      // перемещаемся по карте в текущие координаты, с зумом 14 (макс 16)
      myLoc := TMapCoordinate.Create(NewLocation.latitude, NewLocation.longitude);
      MapView1.Location := myLoc;
      MapView1.Zoom := 17;

      TTask.Run(
        procedure
        begin
          // геолокация
          mEngine.Geocoding(myLoc, myLocInfo); // геокодинг для записи заголовка в marker

          TThread.Synchronize(nil,
            procedure
            var
              markDescriptor: TMapMarkerDescriptor;
            begin
              // MyLocInfo хранит все данные геокодинга
              Label6.Text := myLocInfo.FormattedAddress;
              Label6.Text := Label6.Text+ ' -> '+KlLocInfo.FormattedAddress;
              markDescriptor := TMapMarkerDescriptor.Create(myLoc, myLocInfo.FormattedAddress);
              SetMarker(MapView1,myLoc,1,'',markDescriptor);
            end);
        end);
    end);
end;

нет, у меня на всех работать перестала, может с key гуглевым связано? может где то что то у них поменялось

Есть код который работает при смещении карты и получив координаты центра пытаюсь получить адрес по ним.

procedure TMasterDetailForm.MapView3CameraChanged(Sender: TObject);
var
  myCoordinat: TLocationCoord2D;
begin
  inherited;
  myCoordinat.Create(MapView3.Location.Latitude,MapView3.Location.longitude);
  if (int(myCoordinat.Latitude)<>0) then begin //проверяю, что координаты определены

    if not Assigned(fGeocoder) then
    begin
      if Assigned(fGeocoder.Current) then
        fGeocoder := TGeocoder.Current.Create;
      if Assigned(fGeocoder) then
        fGeocoder.OnGeocodeReverse := OnGeocodeReverseEventStart;
    end;
    if Assigned(fGeocoder) and not fGeocoder.Geocoding then
      fGeocoder.GeocodeReverse(myCoordinat);
  end
end;

все работало до очередного обновления, а сейчас ругается "java.io.IOException: Service not Available" на fGeocoder.GeocodeReverse(myCoordinat);

подскажите куда копать

Сделал по типу "ScrollableForm". При открытии клавиатуры форма сдвигается, вроде все работает как надо, но если после набора текста нажать на кнопку "Сохранить" то происходит закрытие клавиатуры и смещение кнопки "Сохранить" и соответственно сохранение не происходит и требуется еще раз нажать на кнопку.

Можно как то это обойти, например сделать задержку закрытия клавиатуры?

как отобразить движение маркера без мигания. Пытаюсь сделать так:

        while not dateset.Eof do Begin
          bdcoord:=TMapCoordinate.Create(dateset.FieldByName('Latitude').AsFloat, dateset.FieldByName('longitude').AsFloat);
		  IFind:=false;
          for Marker in FMarkers do
          begin
            if Marker.Descriptor.Snippet=dateset.FieldByName('driverid').AsString Then Begin
              Marker.Remove;
              SetMarker(MapView3,bdcoord,1,dateset.FieldByName('driverid').AsString);
              IFind:=true;
              Break;
            End;
          end;
          if not IFind then
            SetMarker(MapView3,bdcoord,1,dateset.FieldByName('driverid').AsString);

          dateset.Next;
        End;

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

for Marker in FMarkers do
  begin
      Marker.Remove;
  end;
  FMarkers.Clear;

то работает, но идет мигание маркеров
 

а как делают другие программы там на карте и поля поиска располагают и кнопки

пока сделал так (очень криво):

procedure TMasterDetailForm.MapView3CameraChanged(Sender: TObject);
var
  myGeocoder: TGeocoder;
  myCoordinat: TLocationCoord2D;
begin

  if not Assigned(myGeocoder) then
  begin
    if Assigned(myGeocoder.Current) then
      myGeocoder := TGeocoder.Current.Create;
    if Assigned(myGeocoder) then
      myGeocoder.OnGeocodeReverse := OnGeocodeReverseEventStart;
  end;
  // Translate location to address
  myCoordinat.latitude := MapView3.Location.Latitude;
  myCoordinat.longitude := MapView3.Location.longitude;
  if FMyMarkers<>nil then FMyMarkers.Remove;
    SetMarker(MapView3,TMapCoordinate.Create(myCoordinat.Latitude,myCoordinat.Longitude),0);
  if Assigned(myGeocoder) and not myGeocoder.Geocoding then
    myGeocoder.GeocodeReverse(myCoordinat);
end;

при смещении карты маркер всегда встает по центру, но не постоянно, а только после перемещения.

помогите, неужели ни кто не делал определение адреса по карте.

Подскажите как сделать. Нужно разместить маркер по центру компонента MapView и что бы при перемещении по карте он так и оставался видимым по центру и соответственно 

  myCoordinat.latitude := MapView3.Location.Latitude;
  myCoordinat.longitude := MapView3.Location.longitude;

выдавал координаты под этим маркером
и второй вопрос: по полученным координатам я получаю адрес myGeocoder.GeocodeReverse(myCoordinat) , но он не соответствует КЛАДР (да и вообще много ошибок в названии улиц), а мне надо привязать к своей базе адресов. Посоветуйте кто как выходил из ситуации, или как получить из него список всех улиц по городу 

спасибо

на KeyUp у Edit не срабатывает (на текст срабатывает, а когда #13 нет).

на FormKeyUp срабатывает, но не могу определить какой Edit сейчас активный

как сделать переход между контролами?

почитал про returnkeytype=Next но у меня не работает, максимум KillFocusByReturn если true закрывает клаву, но хотелось бы сделать переход.

если SetFocus ставить то работает, но это не правильно для каждого Edita прописывать, раньше (для винды) делал

procedure TForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13)then
  begin
        Key := #0;
        Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;
 

Есть ли что то подобное для андроида?

спасибо, получилось

есть форма вверху image, внизу Edit при начале редактирования снизу открывается клавиатура и перекрывает поле ввода. Как сделать что бы форма прокрутилась вверх и edit был виден

спасибо, получилось

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

если отловив ее на клиенте делаю    

SQLConnection1.Connected:= False; 

SQLConnection1.Connected:= True;

все равно не работает дальше, надо закрыть программу и снова открыть

как избавится от этого?

xe10.1

Если на форме лежит MultiView у которого Mode:= TMultiViewMode.Drawer на нем лежит MapView. Если открывается боковое меню то оно находиться под MapView и соответственно не доступно. Как это исправить?

сейчас модно показывать аватарки круглыми, можно ли на XE10 у timage это сделать?

не могу вспомнить, но вроде где-то  наталкивался, что толи настройками, толи стилями это делается легко

Я тоже так думал, но он возвращает null а owner возвращает form2

Создаю динамически ListBoxItem и размещаю на них кнопу

  lbi:=TListBoxItem.Create(ListBox2);
  lbi.Parent:=ListBox2;
  lbi.StyleLookup:='listboxitembottomdetail';
  lbi.Height:=57;
  lbi.ItemData.Text:='Добавить';
  lbi.ItemData.Detail:='';

  SpeedButton2:=TSpeedButton.Create(lbi);
  SpeedButton2.Action:=del_adres;
  SpeedButton2.Align:=TAlignLayout.Right;
  SpeedButton2.StyleLookup:='trashtoolbutton';
  SpeedButton2.Width:=48;
  SpeedButton2.Parent:=lbi;
  SpeedButton2.Tag:=ListBox2.Count-2;

как при нажатии на кнопку получить ее ListBoxItem чтобы удалить