Равиль Зарипов (ZuBy)

XML RPC API - модуль для работы с форумом fire-monkey.ru
 
Реализованы все методы (спасибо Ярославу Бровину)
 
модуль кроссплатформенный, для Windows можно использовать MSXML, также поддерживается OXml для мобильных платформ
 
XML RPC API.zip

Модифицируйте на здоровье. Мне не жалко :-)

Приступил к разработке клиента с использованием FireMonkey для форума. В будущем код будет открытым и каждый сможет посмотреть, как реализованы те или иные вещи.
А пока пара скриншотов:

procedure TFormFM.NavigationTreeView(aTree: TTreeView; const aData: string); var Root, Child, SubChild, Item: TTreeViewItem; StrList: TStringList; i, c: integer; Str, ParseStr: string; begin StrList := TStringList.Create; StrList.Text := aData; aTree.BeginUpdate; aTree.Clear; for i := 0 to StrList.Count - 1 do begin Str := StrList.Strings[i]; ParseStr := Parse('">', '</option>', Str); if Pos('a', ParseStr) > 0 then ParseStr := StringReplace(ParseStr, 'a', 'a', [rfReplaceAll]); Item := TTreeViewItem.Create(nil); Item.StyleLookup := 'treeviewitemstyle'; Item.Text := trim(StringReplace(ParseStr, '-', '', [rfReplaceAll])); Item.HelpKeyword := Parse('<option value="', '">', Str); Item.ClipChildren := false; if Pos('-', ParseStr) = 0 then begin aTree.AddObject(Item); Root := Item; end else if ParseStr.StartsWith('-- ') then begin Root.AddObject(Item); Child := Item; end else if ParseStr.StartsWith('---- ') then begin Child.AddObject(Item); SubChild := Item; end else if ParseStr.StartsWith('------ ') then begin SubChild.AddObject(Item); end; end; aTree.EndUpdate; aTree.RealignContent; FreeAndNil(StrList); end; вот решение если кто столкнется с таким же багом
спасибо Ярославу!

поменять среду разработки на XE8 или XE7 update 1 + lollipop hotfix

Тема: Новый подход к разработке компонентов FireMonkey в RAD Studio XE8. Часть 2 Дата и время: 10 июня 2015 года в 12:00 Участники: Денис Васильев и Бровин Ярослав Регистрация: ссылка Участие бесплатное Запись вебинара будет доступна здесь: http://www.youtube.com/playlist?list=PLNexYoB7XRWZv-6QviwJzdRKthKuBR_dG
В рамках вебинара продолжим знакомство с новым подходом разработки компонентов FireMonkey "Контрол – Модель – Презентация". Создание нативных представлений для iOS. Разберем несколько примеров. 
В вебинаре примет участие Ярослав Бровин, ведущий разработчик Embarcadero.
 

Здравствуйте!
 
Сегодня начал писать клиента для нашего форума, надеюсь Ярослав не будет против.
Проект open-source и любой сможет дополнить проект, затем выложить его в эту тему.
Для тех кому это будет интересно, некоторые правила
Использовать только родные компоненты Комментировать код Переименовывать переменные и компоненты Сделал я пока немного
парсинг последних сообщений парсинг последних тем авторизация через почту (т.к. я ей пользуюсь) работает на android и windows

 
Проект
 

Добрый вечер,
uses FMX.VirtualKEyboard, FMX.Platform; procedure TForm3.Button1Click(Sender: TObject); var Service: IFMXVirtualKeyboardToolbarService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardToolbarService, Service) then Service.SetToolbarEnabled(False); end;

Bass отлично работает на андроиде, у меня если клиент на этой библиотеке.
На офф сайте есть тема для delphi xe

В стиле нужном удали линию или visible false

Я вот так у себя сделал:
procedure TFormMain.CButtonScanClick(Sender: TObject); begin If IsAppInstalled('com.google.zxing.client.android')Then TKRBarCodeScanner.Scan Else OpenURL('https://play.google.com/store/apps/details?id=com.google.zxing.client.android&hl=ru'); end; function TFormMain.IsAppInstalled(const AAppName: string): Boolean; var PackageManager: JPackageManager; begin PackageManager := SharedActivity.getPackageManager; try PackageManager.getPackageInfo(StringToJString(AAppName), TJPackageManager.JavaClass.GET_ACTIVITIES); Result := True; except on Ex: Exception do Result := False; end; end; procedure TFormMain.OpenURL(const AUrl: string); {$IFDEF ANDROID} var Uri: Jnet_Uri; OpenLinkIntent: JIntent; {$ENDIF ANDROID} begin {$IFDEF MSWINDOWS} ShellExecute(0, 'open', PChar(AUrl), nil, nil, SW_SHOWNORMAL); {$ENDIF MSWINDOWS} {$IFDEF ANDROID} Uri := StrToJURI(AUrl); OpenLinkIntent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW, Uri); SharedActivity.startActivity(OpenLinkIntent); {$ENDIF ANDROID} end;

Доброго времени суток!
Возникла проблема с обновлением Itemом. Суть проблемы в текстовом варианте
Чуток изменил стиль TListBox'a, listboxstyle, сам добавил прозрачность, т.к. не понравился родной стиль из-за отступов по краям. Затем добавляю айтемы со стилем listboxitembottomdetail (по памяти) здесь все прекрасно, проблема в том что при нажатии на айтем должна показываться картинка у выбранного айтема, но она показывается только если проскролить айтем за пределы видимости и снова вернуть. Какой метод вызвать чтобы обновить отрисовку?
Пробовал и применение стиля айтему и всему ListBoxy и Repaint и RecalcContent ничего не помогло
Видео прилагаю, смотрите на 16 айтем
https://youtu.be/HNmDq079Ywg

Профиль - Лайки
Профиль - Темы
Профиль - Сообщения
 
Тексты всех сообщений заползают на названия тем.
 
(Firefox)

Это баг, тоже с этим попал. Пришлось отказаться от этих иконок.
Ресайз не помогает в дизайн тайме,

OpenAsDefault(aUrl, 'audio/mpeg'); - для открытия аудио (использовать нужный MIMEType)
procedure OpenAsDefault(const link: string; const LinkType: string); {$IFDEF ANDROID} var Intent: JIntent; begin Intent := TJIntent.Create; Intent.setAction(TJIntent.JavaClass.ACTION_VIEW); SharedActivity.startActivity(Intent); end; {$ELSE} begin ShellExecute(0, 'open', pchar(link), nil, nil, 0); end; {$ENDIF} 

У меня была похожая проблема, когда нужно было перерисовать итем при выделении. И ApplyStyleLookup изначально не помогал, т. к. при вызове этого метода внутри идет проверка, нужно ли обновлять стиль. И чтобы "убедить" итем, что ему нужно перерисоваться перед ApplyStyleLookup я вызывал метод NeedApplyStyleLookup

ZuBy  http://docwiki.embarcadero.com/RADStudio/XE8/en/Installation_Notes_for_XE8

Ура! "screenSize" в сочетании с android:minSdkVersion="9" android:targetSdkVersion="14" помогло! Все работает отлично. Всем огромное спасибо. Привожу измененных темплейт манифеста, вдруг кому пригодится.
<?xml version="1.0" encoding="utf-8"?> <!-- BEGIN_INCLUDE(manifest) --> <manifest xmlns:android="http://schemas.android.com/apk/res/android" package="%package%" android:versionCode="%versionCode%" android:versionName="%versionName%"> <!-- This is the platform API where NativeActivity was introduced. --> <uses-sdk android:minSdkVersion="9" android:targetSdkVersion="14" /> <%uses-permission%> <application android:persistent="%persistent%" android:restoreAnyVersion="%restoreAnyVersion%" android:label="%label%" android:installLocation="%installLocation%" android:debuggable="%debuggable%" android:largeHeap="%largeHeap%" android:icon="%icon%" android:theme="%theme%" android:hardwareAccelerated="%hardwareAccelerated%"> <!-- Our activity is a subclass of the built-in NativeActivity framework class. This will take care of integrating with our NDK code. --> <activity android:name="com.embarcadero.firemonkey.FMXNativeActivity" android:label="%activityLabel%" android:configChanges="orientation|keyboardHidden|screenSize" android:launchMode="singleTask"> <!-- Tell NativeActivity the name of our .so --> <meta-data android:name="android.app.lib_name" android:value="%libNameValue%" /> <intent-filter> <action android:name="android.intent.action.MAIN" /> <category android:name="android.intent.category.LAUNCHER" /> </intent-filter> </activity> <%activity%> <receiver android:name="com.embarcadero.firemonkey.notifications.FMXNotificationAlarm" /> <%receivers%> </application> </manifest> <!-- END_INCLUDE(manifest) -->

Причина
При  финальной сборке приложения для Application store в файле AndroidManifest.xml отсутствует разрешение для интернета (не смотря на то, что в разделе Uses Permissions разрешение для интернета стоит true), а при сборке Debug в файле AndroidManifest.xml это разрешение присутствует.
 
Решение
Проблема решилась следующим способом:  в разделе Uses Permissions разрешение для интернета ставим false, затем в файл AndroidManifest.template.xml.  вставляем строку:
<uses-permission android:name="android.permission.INTERNET" />

Кто сказал что через ini нельзя?
Всё прекрасно работает

Такая опция добавлена для пользователей. Поддерживаются два типа удалений:
Скрытие. Скрытие от пользователей вашего сообщений с возможностью восстановление. Скрытое сообщение доступно на просмотр модераторам и администраторам Удаление. Полное удаление сообщение без возможности восстановить.

если правильно понял вам нужна это:   в FireMonkey и в Android свойстве TEdit добавлена FilterChar и выглядит это так: procedure TForm1.FormCreate(Sender: TObject); begin   Edit1.FilterChar:= '0123456789'; end;

Vertical Grid

Beta hotfix for FireMonkey apps on Android 5.0 (Lollipop) Available to registered users of RAD Studio XE7, Delphi XE7 and C++Builder XE7 (except non-mobile editions) and Embarcadero All-Access XE Скачать: http://cc.embarcadero.com/item/30110

Hot Fix исправляющий проблему запуска приложений на Android 5.0 (Lollipop)