Лидеры

Места проведения и даты:Санкт-Петербург (26.11.15) Официальный сайт мероприятия: http://www.delphitour.ru Регистрация: http://forms.embarcadero.com/EM15Q4RUDeveloperDirectLive Приглашаем вас принять участие в Мировом туре RAD Studio 10, который пройдет 26 ноября в Санкт-Петербурге в отеле Golden Garden. У вас будет возможность не только ознакомиться с новыми возможностями продуктов, но и своими глазами увидеть, почему комплексная среда RAD Studio 10 является универсальным решением для разработчика, позволяющая заниматься быстрым созданием приложений, обладающих всем необходимым функционалом по взаимодействию с практически любыми устройствами, корпоративными источниками данных и популярными облачными сервисами. В программе: Разработка приложений для Windows 10 и использование новых компонент VCL; Ускорение разработки мобильных приложений для Android и iOS (отладка iOS 64-bit, тестирование кода); Использование нового компилятора C++ 11 CLANG; Эффективное использование среды разработки и новые возможности GetIt; Создание приложений для «Internet of Things» и Beacons; Применение новых возможностей FIreDAC для расширенной поддержки JSON и BSON Быстрое создание приложений для работы с NoSQL СУБД MongoDB с помощью новых компонент, классов, реализующих MongoDB API, и нового драйвера FireDAC для MongoDB. Кроме этого вы сможете задать все ваши вопросы экспертам, поделиться впечатлениями о продуктах и узнать о дальнейших планах по развитию портфеля решений компании. Ни один вопрос не останется без внимания! Количество мест ограничено! Участие в мероприятии бесплатное! Участие в мероприятии бесплатное.

Goggle Drive в качестве имени ставит то, что указано в Intent.putExtra(TJIntent.JavaClass.EXTRA_SUBJECT, StringToJString(aComment)); Т.е. прописывайте в это поле имя файла без пути, Mail.ru не пробовал.

Разобрался. Перед использованием нужно установить TakePhotoFromCameraAction1.MaxHeight , TakePhotoFromCameraAction1.MaxWidth под вашу камеру.

uses maskUtils Edit1.Text := MaskDoFormatText('000.000.000.000;#0',Edit1.Text, #0);

Решено Zuby и Cody71727172 , может кому пригодиться: Вообщем кнопочка MyLocation на MapView цепляет данные c LOCATION_SERVICE (Androidapi.JNI.Location) и если отсутствует GPS датчик в телефоне, тогда: Прописываем функцию: function CheckGPSActive: Boolean; // uses Androidapi.JNIBridge, Androidapi.JNI.Location, Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText, Androidapi.Helpers {$IFDEF ANDROID} var LocManagerObj: JObject; LocationManager: JLocationManager; allProviders: JList; I: Integer; begin Result := false; LocManagerObj := SharedActivityContext.getSystemService (TJContext.JavaClass.LOCATION_SERVICE); // запрашиваем сервис Location if Assigned(LocManagerObj) then begin LocationManager := TJLocationManager.Wrap((LocManagerObj as ILocalObject).GetObjectID); // получаем LocationManager if Assigned(LocationManager) then begin allProviders := LocationManager.getProviders(true); // запрашиваем список всех провайдеров if Assigned(allProviders) then with TStringList.Create do begin for I := 0 to allProviders.size - 1 do Add(JStringToString(allProviders.get(I).ToString)); if ((IndexOf('gps') >= 0) or (IndexOf('network') >= 0) or (IndexOf('passive') >= 0)) then Result := true; Free; end; end; end; {$ELSE} begin Result := false; {$ENDIF} end; и при запуске LocationSensor например на Form.Create проверяем procedure TForm_main.FormCreate(Sender: TObject); begin {$IFDEF ANDROID} LocationSensor.Active:=true; if not LocationSensor.Active then if not CheckGPSActive then ShowMessage('Включите GPS для определения Вашего местоположения!') else LocationSensor.Active := true; {$ENDIF} end; LocationSensor сам подключит источник данных, поэтому изменять в LSensor1LocationChanged ничего не нужно, например: procedure TForm_Main.LSensor1LocationChanged(Sender: TObject; const [Ref] OldLocation, NewLocation: TLocationCoord2D); //uses Maps.Engine var MapsEngine: TMapsEngine; MapsLoc: TMapCoordinate; MapsData: TMapsEngineGeoData; begin MapsLoc := TMapCoordinate.Create(NewLocation.Latitude, NewLocation.Longitude); MapsEngine.SetOptionsYandex(''); MapsEngine.Geocoding(NewLocation, MapsData); Edit1.text:= MapsData.FormattedAddress; end;