FAN

Пользователи
  • Публикаций

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

  • Посещение

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

  • Звание
    Пользователь

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

442 просмотра профиля
  1. FAN

    Цифровая подпись

    У startcomca. проблемы, китайский владелец выдал несколько левых сертификатов и его поймали. Зато с сегодняшнего дня можно получить сертификаты бесплатно и персональный, и бизнес.
  2. Очень нравится timagelist, большое спасибо! Но хотелось бы иметь возможность выбрать несколько destination images и отредактировать их свойства Также хотелось бы добавлять destination images не по одиночке а группами с заданными свойствами
  3. procedure TDM1.FDConnection1BeforeConnect(Sender: TObject); begin {$IFDEF DCC} {$IFDEF MSWINDOWS} FDConnection1.Params.Values['ColumnMetadataSupported'] := 'False'; FDConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetDirectoryName(ParamStr(0)), 'baza.sqlite'); FDConnection1.Params.Add('SharedCache=False'); FDConnection1.Params.Add('LockingMode=Normal'); // FDConnection1.Params.Values['Password'] := '52V11aP7_bYnl_VHDXfN|U]F<*^{4,S}1]m5>Ss5a2|!vOhp(o-CW^7=5\DHW4S'; // FDConnection1.Params.Values['NewPassword'] := '52V11aP7_bYnl_VHDXfN|U]F<*^{4,S}1]m5>Ss5a2|!vOhp(o-CW^7=5\DHW4S'; // FDConnection1.Params.Values['Password'] := ''; // ShowMessage(TPath.Combine(TPath.GetDirectoryName(ParamStr(0)), 'baza.sqlite')); {$ENDIF} {$IFDEF ANDROID} FDConnection1.Params.Values['ColumnMetadataSupported'] := 'False'; FDConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetDocumentsPath, 'baza.sqlite'); FDConnection1.Params.Add('SharedCache=False'); FDConnection1.Params.Add('LockingMode=Normal'); // FDConnection1.Params.Values['Password'] := '52V11aP7_bYnl_VHDXfN|U]F<*^{4,S}1]m5>Ss5a2|!vOhp(o-CW^7=5\DHW4S'; {$ENDIF} {$IFDEF MACOS} {$IFDEF IOS} FDConnection1.Params.Values['ColumnMetadataSupported'] := 'False'; FDConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetDocumentsPath, 'baza.sqlite'); FDConnection1.Params.Add('SharedCache=False'); FDConnection1.Params.Add('LockingMode=Normal'); // FDConnection1.Params.Values['Password'] := '52V11aP7_bYnl_VHDXfN|U]F<*^{4,S}1]m5>Ss5a2|!vOhp(o-CW^7=5\DHW4S'; {$ELSE} FDConnection1.Params.Values['ColumnMetadataSupported'] := 'False'; FDConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetDocumentsPath, 'baza.sqlite'); FDConnection1.Params.Add('SharedCache=False'); FDConnection1.Params.Add('LockingMode=Normal'); // FDConnection1.Params.Values['Password'] := '52V11aP7_bYnl_VHDXfN|U]F<*^{4,S}1]m5>Ss5a2|!vOhp(o-CW^7=5\DHW4S'; {$ENDIF} {$ENDIF} {$IFDEF LINUX} {$ENDIF} {$ENDIF} {$IFDEF FPC} {$ENDIF} end; Пароль на sqlite устанавливается так NewPassword Specifies a new password for a database and performs an encryption operation: To encrypt an unencrypted database, specify the non-empty NewPassword and empty Password; To decrypt an encrypted database, specify the empty NewPassword and non-empty Password; To change an encrypted database password, specify the non-empty NewPassword and non-empty Password.
  4. Есть другой подход к проблеме. Добавить к базе таблицу версия и в ней будет храниться одно значение - версия базы. Изначально версия программы и базы 1 Если разработана версия программы 2 и база для нее изменилась, то при запуске проверяем versionCode программы и версию базы. Если отличаются, то через fdConnection изменяем базу с помощью скрипта, и изменяем значение в таблице версия базы. Пользовательские данные сохраняются.
  5. FAN

    HP SlateBook x2 не видит RAD STUDIO

    http://delphi.org/2014/01/custom-android-adb-usb/ Если устройство поддерживается, то должно после редактирования подключиться без проблем
  6. GetSharedDocumentsPath не работает GetDocumentsPath работает FDConnection1.Params.Values['Database'] := TPath.Combine(TPath.GetDocumentsPath, 'lbase.db');
  7. Добрый день Посоветуйте как узнать координаты углов экрана на TMapView.
  8. FAN

    Amazon и Delphi

    Видео - Amazon Web Services Programming Статья: Один год бесплатного облачного хостинга https://klen.github.io/aws.html
  9. FAN

    Видео уроки

    QuarkCube: https://www.youtube.com/user/QuarkCube Embarcadero US: https://www.youtube.com/user/EmbarcaderoTechNet Embarcadero Germany: https://www.youtube.com/user/EmbarcaderoGermany Embarcadero Brazil: https://www.youtube.com/user/embarcaderodobrasil Также Embarcadero Russia: https://www.youtube.com/channel/UCtqzKKPLL1uoI7yyCBmKP1w Было бы неплохо, если Embarcadero Russia делали не только свои видио, а субтиры к ресурсам выше
  10. Условно имеется listview, соединенный с таблицей. В таблице имя, фамилия, пол. Listview отображает мистер Иван Иванов при помощи LinkListControlToField1.FillExpressions Expression.CustomFormat = "Мистер " + %s Все работает хорошо, но хочется добавить немецкий язык, и ListView должен показывать уже не "Мистер" а "Герр". Добавил переменную на форму - FTitle, но добраться до нее из Expression.CustomFormat не могу. Пробовал Self.FTitle, Owner.FTitle, Owner.Owner.FTitle and тд и тп. Получаю 0 вместо "Герр". Можно ли из LiveBindings получить доступ к переменным???
  11. Около 10% от того, что сэкономит заказчик.
  12. FAN

    Создание стиля кнопки

    На http://www.ginne.ru/ имеется бесплатный StyleEditor
  13. FAN

    При подключении к БД черный экран

    С переходом на Х возникла точно такая же проблема. База называлась ххх.db У меня rooted устройство, поэтому зашел в директорию программы и увидел, что размер ххх.db - 0 байт. Переименовал для андроида ххх.db в xxx.sqlite, изменил connection и deployment settings, и все заработало.
  14. FAN

    Скрыть/показать ряд в TStringGrid

    Добрый день Можно ли скрыть/показать ряд в FMX TStringgrid используя код???
  15. Каковы варианты оплаты уроков?