Rusland

MapView показывает текущее положение маркером синего цвета. Как узнать координаты этой синей точки?

Выходит ошибка (если смотреть дебагером): raised exception class EInvalidCast with message 'Invalid class typecast' при втором вызове процедуры отрисовки маршрута (в MapView1MapClick). // удаляем старые if Assigned(myTapMarker) then myTapMarker.Remove; if Assigned(myPolyLine) then myPolyLine.Remove; // <- вот тут, когда myPolyLine не nil По F7 выяснилось что ошибка происходит в модуле FMX.Maps.Android: procedure TAndroidMapPolyline.Remove; begin inherited; TUIThreadCaller.InvokeIfNotNil<JPolyline>(procedure (P: JPolyline) begin P.remove; end, FJavaPolyline); FMapView.RemoveMapObject(JStringToString(FJavaPolyline.getId)); // <- здесь end; Отчего это? PS. Delphi 10 Seattle

Vitaldj, да, видимо на такую древность ничего не поставить

Почитал несколько статей и эту в том числе, в основном показан доступ к чтению списка файлов... а вот как читать/записывать в файл в облаке что-то мало информации

Есть ли готовое решение для доступа к Yandex.Disk? Есть REST API Диска на Java для Android, Swift для iOS, PHP: https://tech.yandex.ru/disk/rest/ А есть ли что-нибудь для Delphi?

Вопрос не очень в тему, но все же... Познакомился с DataSnap REST, из этого видео скомпилировал себе пример... как все просто... столько всего нового и удобного. Но это для новых версий Delphi. Что делать если есть программа (назовем Сервер) написанная на Delphi7 (БД Firebird) и ее нужно связать с программой (назовем Клиент) для Android, написанным на Delphi 10 Seattle FMX? Хочется из Клиента через интернет получить данные из таблицы БД через сервер. Подскажите как это сделать? Через какие компоненты связать?

ZuBy, класс! Жаль что тоже не с первого раза срабатывает.

Задал вопрос и забыл о нем Так и сделал как в проекте ScrollableForm, но это же ужас добавлять столько кода и доп.компоненты ради этого эффекта. А если форм несколько? Вообще мрак PS. Кроме того этот вариант поглючивает - при первом запуске бывает все равно перекрывает Edit (у меня клавиатура Swype Dragon)

Посмотрел видео https://www.youtube.com/watch?v=ITqDt5iGWSw Похоже тут все гораздо сложнее, чем с андроид. Нужно установить Mac Os, на нее XCode и много других телодвижений...

Единственное эппловское устройство у меня - iPod Touch (первой версии). Можно ли скомпилировать на Delphi 10 Seattle приложение под него? Что нужно установить чтобы проект компилировался и записывался на iPod Touch? PS. версия 3.1.3

Подправил вот так (чтобы работало в Delphi 10 Seattle): procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); var FService : IFMXVirtualKeyboardService; begin if Key = vkHardwareBack then begin TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService)); if (FService <> nil) and (TVirtualKeyBoardState.Visible in FService.VirtualKeyBoardState) then begin // Back button pressed, keyboard visible, so do nothing... end else begin MessageDlg('Закрыть приложение?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes,TMsgDlgBtn.mbNo], 0, procedure(const AResult: TModalResult) begin Case AResult of mrYes: FormMain.Close; mrNo: Exit; end; end); Key:=0; end; end; end; Работает нормально, только в диалоге запроса No стоит впереди. Как бы No и Yes поменять местами? А еще лучше заменить на Да и Нет.

Как сделать так чтобы после нажатия кнопки Назад программа не закрывалась, а сначала выдавала запрос? Как отловить это событие?

Не-не, это не ко мне ))

Можно ли уменьшить высоту TabControl? Или снова упираемся в настройки платформы Android?

Это совсем не то что мне нужно Мне бы хотелось в самом Edit уже видеть точки, чтобы пользователь мог вводить числа между этими точками (цифра в каждой ячейке не обязательно 3х значная... для примера ввод ip-адреса). В общем целый компонент городить надо. Но все равно спасибо.

Изначально у меня все маркеры оранжевого цвета. Заметил вот что - если изменить битмап (меняю на голубой цвет) у одного маркера (по событию OnMarkerDoubleClick) А затем удаляю все маркеры с карты procedure TFormMain.ClearListPV; var Marker: TMapMarker; begin for Marker in FMarkers do begin Marker.Remove; Marker.Free; end; FMarkers.Clear; end; и расставляю их заново procedure TFormMain.SetMarker(ID:integer;NAIM:String;Lat,Lon:Double); var Descrip: TMapMarkerDescriptor; MyLocation: TMapCoordinate; begin TThread.Queue(nil, procedure begin try MyLocation:=TMapCoordinate.Create(Lat,Lon); MapView.Location:=MyLocation; Descrip:=TMapMarkerDescriptor.Create(MyLocation); Descrip.Icon:=ImageListMarker.Source[0].MultiResBitmap.Items[1].Bitmap; Descrip.Draggable:=True; Descrip.Title:=NAIM; Descrip.Snippet:='['+ID.ToString+'] '+Descrip.Position.ToString; MyMarker:=MapView.AddMarker(Descrip); FMarkers.Add(MyMarker); except LabInfo.Text:='Произошла ошибка'; end; end); end; procedure TFormMain.FillListPV; begin DM.FDQuerySelect.First; while not DM.FDQuerySelect.Eof do begin try SetMarker(DM.FDQuerySelect.FieldByName('ID').AsInteger, DM.FDQuerySelect.FieldByName('NAIM').AsString, DM.FDQuerySelect.FieldByName('LATITUDE').AsFloat, DM.FDQuerySelect.FieldByName('LONGITUDE').AsFloat); DM.FDQuerySelect.Next; finally end; end end; То все маркеры становятся голубыми. Это баг?

Компилятор ругается на Marker.Descriptor.Visible:=false; E2064 Left side cannot be assigned to Оказывается есть функция SetVisible Marker.SetVisible(false); Marker.SetVisible(true); Но все равно не помогло.

Как создать понятно. Непонятно как изменить Вот я создаю маркер var Descrip: TMapMarkerDescriptor; MyLocation: TMapCoordinate; begin MyLocation:=TMapCoordinate.Create(Lat,Lon); Descrip:=TMapMarkerDescriptor.Create(MyLocation); Descrip.Icon:=ImageListMarker.Source[0].MultiResBitmap.Items[1].Bitmap; /// в ImageList у меня хранятся картинки Descrip.Draggable:=True; Descrip.Title:='Title'; Descrip.Snippet:='Snippet'; MyMarker:=MapView.AddMarker(Descrip); // появляется маркер с первой картинкой FMarkers.Add(MyMarker); end; если я пытаюсь загнать в маркер другой Bitmap, то ничего не происходит Marker.Descriptor.Icon.Assign(ImageListMarker.Source[0].MultiResBitmap.Items[0].Bitmap); // картинка не меняется

Хочу в одном Edit иметь маску вида: 250.250.250.250 Числа и между ними точки. Какие варианты на FMX? PS. На текущий момент решение вижу только в нескольких Edit-ах и Label-ах стоящих подряд, но как-то некрасиво.

Ясно. Дежавю прям... уже где-то обсуждалось это... А бегать по маркерам тут также?

krapotkin, не понимаю в чем принципиальное отличие TList<TMapMarker> и TObjectList<TMapMarker>? FreeAndNil(List); сразу удаляет все маркеры на карте?

UP

krapotkin, пожалуйста пример в студию

Проверил. Нормально работает