Перейти к содержанию
  • Регистрация

Adm123

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

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

  • Посещение

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

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

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

602 просмотра профиля
  1. Размер как раз предсказуем и невелик. Но придется, похоже, так делать, через тот json
  2. Да не в путях тут дело. Чтобы завис нормальный рабочий сервис достаточно просто кинуть ему на форму FDConnection. И ничего никуда не подключать, никак этот FDConnection не использовать... Так что дело тут в использовании компонента. И вопрос остается открытым - как общаться с БД в сервисе?
  3. База по выбранному пути есть и из юнита основной программы нормально цепляется
  4. LoadFromFile - в принципе вариант... но хотелось все-таки базу прицепить
  5. Не секрет. Из нее можно брать условия для парсинга и складывать в нее результаты. Спасибо, попробую
  6. Adm123

    Доступ к БД из сервиса

    Собственно, сабж в заголовке. Как? Пытаюсь использовать SQLite + FDConnection. FDConnection.Params.Database:= TPath.Combine(System.IOUtils.TPath.GetDocumentsPath, 'basename.db'); работает в основной форме, но вешает сервис...
  7. Да, я понимаю почему оно вылезает. И флаги пробовал. Просто тупо все поочередно ставил. Тогда сервис помирает...
  8. Тут вышло недопонимание. Процитированный мной пост ZuBy вовсе не был обращен ко мне, но на тот момент почему-то отображался у меня последним. Видимо, форум после обновления не совсем "очнулся". Так что это не в счёт. А пример из посла Rusland я, конечно, видел и передачи информации из сервиса в приложение добился. Проблема в другом - как сделать, чтоб приложение информацию принимало, но не вылезало рри этом на рабочий стол.
  9. Форум я рыл, вроде, внимательно... Нельзя ли ссылку на тему?
  10. Rusland Спасибо большое, всё работает на ура. Вот только никак не могу добиться, чтоб сервис присылал сообщения втихую, не открывая приложения... Нет идей на эту тему?
  11. В общем, решения толком нет. Нашел большущий костылище - http://codeverge.com/embarcadero.delphi.firemonkey/-android-onkeydown/1056646, но использовать такое рука не поднимается. Буду искать более тривиальное решение задачи.
  12. Суть такая. На форме лежит TabControl. В нем на вкладках VertScrollBar-ы, в них - Edit-ы. Как водится, вылезающая клавиатура закрывает часть полей для ввода. На событии вылезния клавиатуры я меняю Margins.Bottom у TabControla и все в порядке... но при убирании клавиатуры есть грабли. Если ее убирать аппаратной кнопкой - все нормально, обнуляю Margin и снова все красиво. А вот если клавиатура не "родная" и имеет свою кнопку сворачивания (у меня, например, Hitap Keyboard), то событие формы OnKeyboardHidden при нажатии на эту свою кнопку сворачивания не возникает. Вот и хотел я отловить нажатие кнопки на виртуальной клавиатуре...
  13. unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Controls.Presentation, FMX.StdCtrls, FMX.TabControl, FMX.Layouts, FMX.Ani, System.UIConsts, System.DateUtils, FMX.Edit, IdBaseComponent, System.JSON, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, FMX.Objects, System.IOUtils; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; procedure Edit1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if Key = vkReturn then Label1.Text:= inttostr(Key); end; end. И так работает? На каждое нажатие виртуальной клавиши (во время редактирования Edit-а) пишет ее код? Под андроидом?
  14. XE10 проект под андроид. Я совсем сумасшедший, похоже, но второй день не могу отловить события клавиатуры... Подскажите, плиз, что не так?! Собственно, тестовый проект - форма и один edit и одна лэйба на ней... procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin Label1.Text:= 'KeyUp'; end; procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin Label1.Text:= 'KeyDn'; end; И ничего! Ввод буковок-цифирок происходит, а метка не меняется... Отрабатывает KeyDown на аппаратную кнопку сворачивания клавиатуры. А нажатие клавиш не ловится...
×
×
  • Создать...