Перейти к содержанию
Fire Monkey от А до Я

XXXXXX

Пользователи
  • Постов

    46
  • Зарегистрирован

  • Победитель дней

    2

XXXXXX стал победителем дня 24 августа 2016

XXXXXX имел наиболее популярный контент!

Информация о XXXXXX

  • День рождения 02.06.2023

Информация

  • Пол
    Не определился

Посетители профиля

Блок последних пользователей отключён и не показывается другим пользователям.

  1. XXXXXX

    Gif File

    Здравствуйте. Есть один вариант с использованием TBitmapListAnimation: Кидаем обычный TImage на форму. Под TImage создаём TBitmapListAnimation. Структура должна выглядеть так: В свойствах TBitmapListAnimation: AnimationBitmap - загружаем ленту картинок. Например: Для коротких Gif -ок можно использовать онлайн конверторы: http://ezgif.com/split - разделение Gif на отдельные фреймы (картинки) http://www.photojoiner.net/merge-photos/editor/# - соединение нескольких картинок в одну (соединяет до 8 штук) AnimationCount - сколько раздельных картинок в нашей объеденённой по горизонтали (в нашем слечае 8) AnimationRowCount - сколько рядов в нашей картинке (в нашем случае 1) Enabled = True Duration - указываем промежуток времени, которое должна занимать гифка (в секундах). PropertyName - прописываем Bitmap
  2. Отличные изменения. Ещё было бы неплохо увидеть закреплённую верхнюю панель при скролле вниз, ну или плавающую кнопку которая будет скролить вверх
  3. var Notification: TNotification; begin Notification := NotificationCenter1.CreateNotification; Notification.Name := 'Notification1'; Notification.AlertBody := 'Message'; Notification.FireDate := Now; NotificationCenter1.ScheduleNotification(Notification); есть такой код, он выкидывает локальное уведомление. можно ли получить кол-во "Неотменённых" уведомлений, т.е. активных?
  4. Код: function TfMain.CheckMobileInternetSpeed: String; var mTelephonyManagerObj: JObject; mTelephonyManager: JTelephonyManager; mNetworkType: Integer; ReturnValue: string; begin mTelephonyManagerObj := SharedActivityContext.getSystemService(TJContext.JavaClass.TELEPHONY_SERVICE); mTelephonyManager := TJTelephonyManager.Wrap((mTelephonyManagerObj as ILocalObject).GetObjectID); mNetworkType := mTelephonyManager.getNetworkType(); with TJTelephonyManager.JavaClass do begin if mNetworkType = NETWORK_TYPE_UMTS then ReturnValue := 'GPRS' else if mNetworkType = NETWORK_TYPE_UMTS then ReturnValue := 'EDGE' else if mNetworkType = NETWORK_TYPE_UMTS then ReturnValue := 'CDMA' else if mNetworkType = NETWORK_TYPE_UMTS then ReturnValue := '1xRTT' else if mNetworkType = NETWORK_TYPE_UMTS then ReturnValue := 'IDEN' else if mNetworkType = NETWORK_TYPE_UMTS then ReturnValue := 'UMTS' else if mNetworkType = NETWORK_TYPE_EVDO_0 then ReturnValue := 'EVDO_0' else if mNetworkType = NETWORK_TYPE_EVDO_A then ReturnValue := 'EVDO_A' else if mNetworkType = NETWORK_TYPE_HSDPA then ReturnValue := 'HSDPA' else if mNetworkType = NETWORK_TYPE_HSUPA then ReturnValue := 'HSUPA' else if mNetworkType = NETWORK_TYPE_HSPA then ReturnValue := 'HSPA' else if mNetworkType = NETWORK_TYPE_EVDO_B then ReturnValue := 'EVDO_B' else if mNetworkType = NETWORK_TYPE_EHRPD then ReturnValue := 'EHRPD' else if mNetworkType = NETWORK_TYPE_HSPAP then ReturnValue := 'HSPAP' else if mNetworkType = NETWORK_TYPE_LTE then ReturnValue := 'LTE'; end; Result := ReturnValue; end; Советую почитать, насчёт того, какие буквы используются чтоб отобразить уровень сигнала на андроиде (G, E, H, H+ и т.д.) П.с. учтите, что это уровень сигнала а не скорость подключения.
  5. У меня тоже была проблема на устройствах: Samsung S6 , ОС: Lolipop 5.1.1 Samsung s4 , ОС: Lolipop 5.0 при активации Edit, программа просто закрывалась с сообщением "Project1 Stopped working.". Однако при создании нового проекта такого не происходило. Так и не смог разобраться.
  6. Попробуйте использовать этот модуль. При помощи него можете выполнять действие в отдельном потоке. Использование: procedure StartAsyncThread; begin Run(TAsyncTask, procedure(ATask: IAsyncTask) begin //что делать end, procedure(ATask: IAsyncTask) begin //Что делать после завершения end); end; AsyncTask.zip
  7. Странно, нет у меня ничего подобного, всё устанавливается/ запускается, помимо самого сервиса
  8. я тоже пытался выполнить задачу этим компонентом, но ничего не вышло, стрим просто не хочет запускаться, хотя в VLC плеере проигрывается отлично
  9. Спасибо большое, действительно помогли посты, к сожалению для стрима у меня вот такая ссылка, ​rtmp://92.51.103.10/live/tiflistv2 я с самого начала неправильно написал, извините, наверное это уже для новой темы вопрос, если можно тут задам, кто-нибудь сталкивался с ​rtmp? как обычную ссылку не могу проиграть, насколько я понял там другая структура потока.
  10. XXXXXX

    Проиграть видео с Url

    Есть ли возможность проиграть видео на андроиде находящееся по определённой ссылке? Допустим: https://archive.org/download/ksnn_compilation_master_the_internet/ksnn_compilation_master_the_internet_512kb.mp4 Желательно запустить видео в самой программе, без интентов. После поисков в интернете наткнулся на ссылку http://code.tutsplus.com/tutorials/streaming-video-in-android-apps--cms-19888 Тут объясняется как сделать это в андроид студие (при помощи VideoView). К сожалению на fm не нашёл нигде рабочего примера.
  11. а запуск звонока и смс работают? нет, но можете вызывать любую процедуру в окончании ивентов
  12. Если кому-нибудь понадобится Listbox такой-же как и в списке сообщений в андроиде. ListboxInteractions.zip
  13. Я думаю можно изменять размер ползунка в стиле динамически, но вот как это реализовать не уверен.
  14. Кстати на скролбаре что ползунок, его никак не увеличить? Из-за того что он меньше чем ползунок listview, образуется "слепая зона", в которой двигаешь ползунок а список остаётся на месте
  15. Если посадить на ListView1ScrollViewChange, то будет вечный конфликт ) Изменение Scrollbar1.Value влечет вызов ScrollBar1Change где происходит скроллирование LV. Следовательно будет вызван ListView1ScrollViewChange... получится бесконечный цикл ) ну тогда можно взять переменную, и переключать её когда меняется из ListView ListView1ScrollViewChange: ScrollBarChange := True; ScrollBar1.Value := ListView1.getFirstVisibleItemIndex; ScrollBarChange := False; ​ ScrollBar1Change: if not ScrollBarChange then ListView1.ScrollTo(Round(ScrollBar1.Value));
×
×
  • Создать...