Rusland

Переключил режим Энергосбережения с Оптимальный на Отключено и сразу проблема с коннектом пропала 

Я получал, получаю и буду получать ;-) Все бесплатно, срок 3 месяца, но продление полностью автоматизировано (по крону запускаешь скрипт и она сам продляет). Отличная система, рекомендую.

Сроки перенесли на 2018 год, видимо на весну.
PS. @Brovin Yaroslav, вылечи своего робота, он картинки не показывает.
 

Если нужно просто запустить программу, нажмите на "Подробнее", появится кнопка для запуска.

инфа по цифровой подписи:
Code Signing сертификаты или сертификаты разработчика. Виды, как выбрать
Code signing для Open Source от Certum
Code Signing в Windows, просто и недорого
Где приобрести сертификат : KSoftware, Comodo, Symantec ... (ссылки есть в статьях)
Как подписывать

с нового года пользуюсь приложением для подсчета расходов на автомобиль. довольно неплохое приложение
Авто Расходы - Car Expenses

Официальное название: Тинькофф Официальный сайт: http://tinkoff.ru Платформы: Android, iOS

Форма должна иметь значение свойства FormStyle равное fsPopup. См. также Всплывающие формы в XE5

Переключил режим Энергосбережения с Оптимальный на Отключено и сразу проблема с коннектом пропала 

Переключил режим Энергосбережения с Оптимальный на Отключено и сразу проблема с коннектом пропала 

Исходный код TCustomWebBrowser.FormHandleCreated исправлен?
 
На всякий случай - привожу сам код исправления. Файл FMX.WebBrowser.pas необходимо скопировать из исходников студии себе в проект, положив его рядом с dpr.
И уже в нем сделать метод FormHandleCreated следующего вида (часть проверок 100% лишняя, но когда менял - подумал "пусть будет"):
procedure TCustomWebBrowser.FormHandleCreated(const Sender: TObject; const Msg: TMessage); var WBService: IFMXWBService; begin if not Assigned(Self) then Exit; if not Assigned(Self.Root) then Exit; if Sender <> Self.Root.GetObject then Exit; if not(csDesigning in ComponentState) and TPlatformServices.Current.SupportsPlatformService(IFMXWBService, WBService) then // if not Assigned(FWeb) then begin if FWeb <> nil then WBService.DestroyWebBrowser(FWeb); FWeb := nil; // possibly, this not needed... FWeb := WBService.CreateWebBrowser; FWeb.SetWebBrowserControl(Self); FWeb.UpdateContentFromControl; FWeb.URL := FURL; FWeb.Navigate; end; end;  

Спустя полгода решение проблемы все-таки нашлось. Благодарю эксперта kami!
 

Soccerstand (результаты матчей онлайн)
http://www.soccerstand.com
Android
 

Проблема в MUI.
Предполагаю, что надо искать решение в запросе разрешений на уведомления, разбудить телефон, показать приложение поверх других окон, еще что-нибудь такое. Потому что в MUI большой упор на энергосбережение, безопасность и спам.
Я замучился уже с MUI, не для разработчиков ось =)

Официальное название: Тинькофф Официальный сайт: http://tinkoff.ru Платформы: Android, iOS

Официальное название: Тинькофф Официальный сайт: http://tinkoff.ru Платформы: Android, iOS

ENERGY Для получения всех активных уведомлений в Android существует метод:
getActiveNotifications added in API level 23 StatusBarNotification[] getActiveNotifications () FMX (Berlin и ниже точно, Tokyo не смотрел) не предоставляет доступ к этому методу, в исходниках (Androidapi.JNI.App.pas) он закомментирован. Возможно при использовании своего wrapper для класса JNotificationManager или отсюда можно получить доступ к требуемому функционалу.

Удалось зашифровать и дешифровать текст в трех ЯП Delphi, PHP, GoLang
PHP. Используется phpseclib v1.0.7
<?php // phpseclib 1.0.7 // http://phpseclib.sourceforge.net set_include_path('phpseclib'); include('Crypt/AES.php'); $my_key = 'HJORNYCZJXJBUGOA'; $my_iv = '1234567890ABCDEF'; $text = 'Проверка UTF8 текста'; $cipher = new Crypt_AES(); // CRYPT_AES_MODE_CBC $cipher->setKeyLength(128); $cipher->setKey($my_key); $cipher->setIV($my_iv); echo base64_encode($cipher->encrypt($text)).PHP_EOL;  
Delphi. Использую TMS Cryptography Pack
uses CryptBase, AESObj, MiscObj; function AesEncryption:String; var AES: TAESEncryption; begin AES := TAESEncryption.Create(nil); try AES.AType := atCBC; AES.KeyLength := kl128; AES.OutputFormat := base64; AES.Key := 'HJORNYCZJXJBUGOA'; AES.IVMode := AESObj.userdefined; AES.IV := '1234567890ABCDEF'; result := AES.Encrypt('Проверка UTF8 текста'); finally AES.Free; end; end; GoLang. Все родное. Запустить в песочнице
package main import ( "bytes" "crypto/aes" "crypto/cipher" "encoding/base64" "fmt" ) func PKCS5Padding(src []byte, blockSize int) []byte { padding := blockSize - len(src)%blockSize padtext := bytes.Repeat([]byte{byte(padding)}, padding) return append(src, padtext...) } func PKCS5UnPadding(src []byte) []byte { length := len(src) unpadding := int(src[length-1]) return src[:(length - unpadding)] } func AesEncryption(key, iv, plainText []byte) ([]byte, error) { block, err := aes.NewCipher(key) if err != nil { return nil, err } blockSize := block.BlockSize() origData := PKCS5Padding(plainText, blockSize) blockMode := cipher.NewCBCEncrypter(block, iv) cryted := make([]byte, len(origData)) blockMode.CryptBlocks(cryted, origData) return cryted, nil } func AesDecryption(key, iv, cipherText []byte) ([]byte, error) { block, err := aes.NewCipher(key) if err != nil { return nil, err } blockMode := cipher.NewCBCDecrypter(block, iv) origData := make([]byte, len(cipherText)) blockMode.CryptBlocks(origData, cipherText) origData = PKCS5UnPadding(origData) return origData, nil } func main() { originalText := "Проверка UTF8 текста" fmt.Println(originalText) mytext := []byte(originalText) key := []byte("HJORNYCZJXJBUGOA") iv := []byte("1234567890ABCDEF") cryptoText, err := AesEncryption(key, iv, mytext) if err != nil { fmt.Println(err) } fmt.Println(base64.StdEncoding.EncodeToString(cryptoText)) decryptedText, _ := AesDecryption(key, iv, cryptoText) fmt.Println(string(decryptedText)) }  
К сожалению бесплатной либы для Delphi, чтоб работало в WIN и Android не нашел.
 

Эксперементировал на разных формах, кидал WebBrowser в дизайнере на форму, создавал динамически, загружал страницы в потоке... пока не удалось победить. Зависания могли быть и при вызове календаря, интентах. НО после использования браузера.

Вопрос решился применением обновления Delphi до 10.1 Update 2

Столкнулся с такой же проблемой.
Использую «RAD Studio 10 Seattle».
Каждый раз, когда у TMediaPlayer задаешь новый FileName, идёт утечка памяти – это баг Firemonkey.
Скорее всего, ошибка находится в файле «FMX.Media.pas».
Как исправить эту ошибку? Что и как исправлять в файле «FMX.Media.pas»?
 
Проверил на «RAD Studio 10.2 Tokyo» - проблема утечки памяти тоже присутствует.
Просто в цикле задаешь новый (или даже тот же самый) TMediaPlayer.FileName, и каждый раз идёт утечка памяти, и очень скоро программа падает из-за недостатка памяти.
Функция TMediaPlayer.Clear не помогает, ибо память не освобождается.
Из-за этого бага TMediaPlayer является неработоспособным и TMediaPlayer просто невозможно использовать в реальных проектах.
Как решить эту проблему?

В информации о пользователе слева от вопроса или ответа неправильный падеж слова публикация

Вопрос отменяется.
Как всегда документация говорит одно, код- другое, подразумевается третье.
Для Tokyo актуален заголовок
// запуск встроенной функции регистрации соединения
    Procedure onCalculateConnectionRegister(AFunc: TSQLiteFunctionInstance;
      AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject);
 
В примере невнимательно посмотрел. )))
 
Хотя в официозе в примере:
http://docwiki.embarcadero.com/CodeExamples/Tokyo/en/FireDAC.SQLite_Sample
 
procedure TfrmGettingStarted.sqlFunctionCalculate(AFunc: TSQLiteFunction; AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject);

Подправил uChatBox.pas под себя, заменил TLabel на TText, теперь проблем с отрисовкой бордюра не наблюдаю. Добавил выделение заголовка и градиент в "облачка".

ChatBox.zip

как-то так

есть бесплатные компоненты Alcinoe  https://sourceforge.net/projects/alcinoe/