Лидеры

procedure TForm4.Button1Click(Sender: TObject); Var LMediaTime: TTimeSpan; begin // Заполняем TTimeSpan LMediaTime := TTimeSpan.Create(MediaPlayer1.CurrentTime); // Выводим инфу в заголовок формы Caption := string.Join(':', [LMediaTime.Minutes, LMediaTime.Seconds, LMediaTime.Milliseconds]); end; procedure TForm4.FormCreate(Sender: TObject); begin // Загружаем медиафайл MediaPlayer1.FileName := 'C:\Users\Public\Music\Sample Music\Maid with the Flaxen Hair.mp3'; // Воспроизводим его MediaPlayer1.Play; end;

Ссылка: http://delphifmandroid.blogspot.ru/2016/07/admob.html Автор: Андрей Ефимов Описание: Подробная инструкция по добавлению рекламного блока в приложение, разработанное в RAD Studio.

Spring4D это библиотека с открытым исходным кодом для Embarcadero Delphi 2010 and higher. It consists of a number of different modules that contain a base class library (common types, interface based collection types, reflection extensions) and a dependency injection framework. It uses the Apache License 2.0. Присоединяйтесь в Spring4D Google Group. Installation Запустите Build.exe, выберите нужные опции и установите Текущая версия 1.2 Известные ошибки Иногда могут показываться ошибки компилятора на мобильных платформах (iOS ARM и Android). Автор: Stefan Glienke Скачать: git clone https://bitbucket.org/sglienke/spring4d.git zip https://bitbucket.org/sglienke/spring4d/downloads

У меня следующая проблема, когда подключаюсь к камере телефона, то кадры отображаются с ужасной задержкой, нааамного медленнее чем в сторонних приложениях работающих с камерой. Для подключения к камере использую следующий код: procedure TForm1.FormShow(Sender: TObject); var CDM : TCaptureDeviceManager; VC : TVideoCaptureDevice; begin CDM := TCaptureDeviceManager.Current; VC := CDM.DefaultVideoCaptureDevice; if (VC <> nil) then VC.OnSampleBufferReady := VideoBufferReady; VC.StartCapture; end; Для загрузки кадров в TImage этот: procedure TForml.VideoBufferReady(Sender: TObject; const ATime: int64); var VCD : TVideoCaptureDevice; begin VCD := Sender as TVideoCaptureDevice; VCD.SampleBufferToBitmap(Image1.Bitmap, True); end; Ещё раз повторюсь, что всё работает, но чрезвычайно медленно. Пробовал стандартный компонент TCameraComponent, но он работает также или даже ещё медленнее.

Не могу знать во время или нет... это библиотека работает на MAC OS, на андройде не проверял. http://www.ararat.cz/synapse/doku.php/download

В общем рабочее время подходит к концу - поэтому держи: Function SampleSendFile(Const Url, FileName: String): Boolean; var lHttp: THTTPClient; lSendData: TMultipartFormData; lResponse: IHTTPResponse; Begin lHttp := THTTPClient.Create; lSendData := TMultipartFormData.Create; try lSendData.AddFile('FileField', FileName); lResponse := lHttp.Post(Url, lSendData); Result := lResponse.StatusCode = 200; finally lSendData.Free; lHttp.Free; end; End;

Как раз полно статей об уклонении от уплаты налогов ;-) Четкой инструкции о работе как физ. лицо, без создания ИП, не нашел. Мой печальный опыт закончился требованием налоговой предоставить ИНН и КПП гугля (для заполнения листа Б декларации - доходы полученные за рубежом), а объяснения что эти реквизиты чисто российская придумка вызвали у них когнитивный диссонанс. В итоге сказали не мешать им работать своими смешными копейками. Может наведете на полезные статьи? Заранее благодарю.

Самый простой способ это сделать переключение стилей через TStyleManager. Делаете два стиля и переключаете их через TStyleManager. Как раз последний урок записал про это.

FMX.Media.TMediaPlayer.CurrentTime Там написано:

Если речь про мой пример, там измененные модули System.Android.Notification.pas и Androidapi.JNI.Support.pas лежат от Berlin 10.1, увидите комментарии к добавленным строчкам "// PaxBeach". Для XE8 нужно, наверное, модули от XE8 править, просто добавить эти строки в аналогичные модули. Если приложение при запуске будет падать, это уже не в приложении дело, а в совместимости настроек SDK и платформы на устройстве.

Ну, про настройку, вывод и уплату налогов, полно статей в интернете. У меня была цель, описать интеграцию рекламы в приложение, а не общую инструкцию по использованию сайта AdMob. p.s. Про сервисы Firebase (Analytics, Cloud Messaging и т.д.), ещё не успел рассмотреть эту тему, но в планах есть.

Ссылка на скачивание (Только для RAD Studio Berlin): fgx_0.7.1.112.zip Инструкция по установке: "Инструкция по установке набора компонентов FGX" FGX - Donate: QIWI: 4890 4941 7671 0929 Yandex.Money: 4100175510891 Описание Эта версия включает в себя следующий набор компонентов: Дизайнер итемов - дизайнер итемов. TfgToast - класс отображения быстрых сообщений TfgFlipView - слайдер изображений. Поддерживает несколько способов переключения фотографий при помощи эффектов и сдвигов. При первом использовании ОБЯЗАТЕЛЬНО прочитать инструкцию "TfgFlipView - Инструкция загрузки стиля" TfgPositionAnimation - анимация свойств типа TPosition TfgPosition3DAnimation - анимация свойств типа TPosition3D TfgBitmapLinkAnimation - анимация свойств типа TBitmapLink TfgProgressDialog (UPDATED) - Компонент для отображения диалогового окна в момент выполнения длительной фоновой операции, когда время выполнения фоновой операции можно оценить. TfgActivityDialog (UPDATED) - компонент для отображения диалогового окна в момент выполнения длительной фоновой операции, когда время выполнения операции не возможно адекватно оценить. TfgActionSheet (UPDATED) - Аналог контекстного меню для мобильных платформ. TfgColorsPanel - Палитра цветов с возможностью выбора цвета. TfgGradientEdit - Компонент выбора градиента. TfgLinkedLabel - Метка поддерживающая открытие Web ссылки в браузере по умолчанию. TfgApplicationEvents (UPDATED) - компонент с возможностью легко задать обработчики на основные события приложения: Отслеживание смены состояния приложения, простой, обновление и выполнение действий Actions, Изменение ориентации устройства и тд. TfgVirtualKeyboard - компонент облегчающий работу с виртуальной клавиатурой. Позволяет задать пользовательские кнопки над виртуальной клавиатурой под iOS, а так же отлавливать события по отображению и скрытию клавиатуры. Зарегистрированы все стилевые объекты на вкладке "FGX: Style objects" Список изменений TfgActionSheet: Добавлены и реализованы события TfgActionSheet.OnShow, TfgActionSheet.OnHide, TfgActionSheet.OnItemClick. Добавлены свойство TfgActionSheet.Theme, позволяющее выбрать вариант темы: Auto - выбирает темную или светлую тему автоматически на основании текущего стиля; Light - использует светлую тему; Dark - темную Обновлен пример ActionSheetDemo. TfgApplicationEvents - добавлены новые событии: OnActivityResult (Андроид) - позволяет получить результаты/интенты из других приложений. OnFormBeforeShown - вызывает непосредственно до момент отображения формы OnFormActive - Вызывается, когда форма активируется. OnFormDeactivate - Вызывается, когда форма деактивируется OnFormCreate - Вызывается после создания экземпляра формы OnFormDestroy - Вызывается до разрушения формы OnScaleChanged - Вызывается, когда меняется скейл у формы. Например, при перетаскивании формы с одного экрана с одним скейлом на другой с другим скейлом (Больше актуально для OSX) TfgProgressDialog, TfgActivityDialog: Добавлены свойство Theme, позволяющее выбрать вариант темы: Auto - выбирает темную или светлую тему автоматически на основании текущего стиля; Light - использует светлую тему; Dark - темную. Общие изменения: Ассерты перенесены в скоп TfgAssert.

Berlin LocalMultiline.zip

Лучше сделайте сразу правильно, все равно придете к этому, при загрузке фото на сервер переименовывайте файл, общепринятый вариант дать определенное стандартное имя, например наименование вашего проекта и время в формате unix, например: Name+1424238237362, далее от имени сгенерировать MD5 хэш, и записать его в базу, после чего вернуть в ответ имя нового файла если нужен. Таким образом даже если будут одинаковые файлы имена не повторятся, а вот Random без проверки точно повторится, да и проверять надо постоянно базу шерстить.

и самое обидное, что нет никакой инфы, что разработчики будут с такой ситуацией делать, и есть ли вообще возможность что-то сделать, или fmx так и останется демо-фреймворком

Да, спасибо, получилось, как вы написали. В «FMX.Media.pas» для CameraComponent есть свойство FocusMode с такими вариантами значений. В приложении доработал пример работы TCameraComponent с возможностью фокусировки камеры. На моем HTC One фокусировка работает только в значении fmContinuousAutoFocus. procedure RegisterAliases; begin AddEnumElementAliases(TypeInfo(TDevicePosition), ['dpUnspecified', 'dpFront', 'dpBack']); AddEnumElementAliases(TypeInfo(TFlashMode), ['fmAutoFlash', 'fmFlashOff', 'fmFlashOn']); AddEnumElementAliases(TypeInfo(TFocusMode), ['fmAutoFocus', 'fmContinuousAutoFocus', 'fmLocked']); AddEnumElementAliases(TypeInfo(TTorchMode), ['tmModeOff', 'tmModeOn', 'tmModeAuto']); AddEnumElementAliases(TypeInfo(TVideoCaptureQuality), ['vcPhotoQuality', 'vcHighQuality', 'vcMediumQuality', 'vcLowQuality']); AddEnumElementAliases(TypeInfo(TCameraKind), ['ckDefault', 'ckFrontCamera', 'ckBackCamera']); end; Мое мнение, компонент TCameraComponent не пригоден пока для промышленной эксплуатации — очень тяжело работает, для примеров разве что. Решил в проекте использовать Standart Action — TTakePhotoFromCameraAction — стандартная камера устройства сама сделает качественное фото, остается только его обработать. CameraComponentWith.zip

Brovin Yaroslav, может вообще не стоит использовать Single, ведь пиксели все равно не делятся и где-то округляются.

По большей части расстраивает даже не ожидание, а результат. Ждем то апдейтов, а вместо них выходят новые версии. Ну бывают, конечно, апдейты. Но они в реальности не существенны. Ждешь, ждешь, а в итоге выходит новая версия, которая, чаще всего, несет в себе изменения требующие пересборки пакетов. Так как некоторые вещи либо получаются несовместимы с предыдущими, либо вообще отказываются работать. И это не говоря уже о необходимости постоянной покупки новых версий. Все понятно, разумеется, что Embarcadero вынуждена поступать таким образом чтобы поддерживать "на плаву" свое детище и как-то развиваться. Но проблема то как-раз и заключается в том что - "поддерживать на плаву"... З.Ы. Очень хотелось бы видеть не одно, в лучшем случае, обновление, а постоянные апдейты, с действительно необходимыми исправлениями багов. А не добавление новых фишек с привнесением очередной порции глюков. Сообщество Delphi (и RAD Studio) само бы развило бы функционал за счет новых модулей, компонентов и т.д. Однако это требует стабильности работы и среды и компилятора, и исправление багов. А то большая часть времени создания проектов уходит именно не написание проекта, а на ловлю багов и глюков FMX. Как-то так... З.З.Ы. Без личных притензий к владельцам форума! (Им за этот форум - отдельное спасибо!)

http://www.fmxexpress.com/ten-tips-for-migrating-from-c-and-net-to-multi-platform-object-pascal-and-delphi-firemonkey/ поржал от души )) для опытного дельфиста не составит особого труда изучить .net. Я для себя нашел столько полезного... Только нужно привыкнуть: - условие операторе if условие всегда заключается в скобки - {} вместо begin end - нету процедур. есть функции возвращающие void - тип возвращаемого значения метода указывается до имени метода, а не после - в паскале все классы обычно начинают с T, в шарпе такого нет, префиксы не указывают - имена классов, методов, переменных чувствительны к регистру - нету "объявлений" классов. все "по месту". т.е. interface и implementation объединены - область видимости указывается не для группы методов, а перед каждым методом - вместо class function идет static - хэлперов может быть сколько угодно, классы хэлперов взаимодополняют друг друга - наследование дженериков(да и вообще наследование) реализовано шикарно, не как в дельфях это только то, к чему нужно привыкнуть.. а так... небо и земля... я вот даже преимущество дельфей не могу перечислить, хотя не один год писал... + visual studio community edition. все бесплатно. по поводу ксамарина.. полное покрытие всего апи, собирал демки: размер апк, объем занимаемой в оперативе памяти, как если бы собирал андроид студией. да, нужно изучать api каждой платформы( android\ios ), да gui рисуется отдельно для каждой платформы, но подумайте сколько времени Вы тратите на "рисование" гуи, а сколько на отлов багов\исправление "недо-фич", а сколько нервишек то сэкономиться... Может кто и не согласен, готов побеседовать.. Это ведь так... мой скромный опыт

У Осипова получение снимка с камеры описано так: Осипов. Delphi. Программирование для Windows, OS X, iOS и Android. стр. 131. Предопределенные команды. 1. Разместите на форме элементы TImage, TButton и TActionList 2. Выберите кнопку и в Инспекторе объектов найдите свойство Action. Разверните комбинированный список и, пройдя по цепочке New Standard Action | Media Library, выберите предопределенную команду TTakePhotoFromCameraAction. 3. В окне Инспектора объектов перейдите на вкладку Events и найдите событие OnDidFinishTaking() для только что созданного командного объекта. 4. Двойной щелчок по строке события перенесет нас в редактор кода, в котором нам придется написать всего одну строку procedure TForm1.TakePhotoFromCameraActionlDidFinishTaking(Image: TBitmap); begin Image1.Bitmap.Assign(Image); end;