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

procedure CloseApp;
begin
{$IFDEF ANDROID}
  TAndroidHelper.Activity.moveTaskToBack(true);
  // MainActivity.finish;
{$ELSE}
  Application.Terminate
  // Application.MainForm.Close;
{$ENDIF}
end;

procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  inherited;
  if Key in [vkEscape, vkHardwareBack] then
  begin
    CloseApp;
    Key := 0;
  end;
end;

Забудьте про сервисы (в FMX) они не работают как положено в Андроиде

Разве нужно разрешение чтобы писать в папку приложения? Или вы пишете на внешнюю память?

Нет разницы, а в чем заключается задача?

1 час назад, DMS сказал:

Можете кинуть простой пример, а то справки у компонента нет. Спасибо

вся справка тут, в виде демок

https://github.com/rzaripov1990/ModernListView

1 час назад, МихаилЪ чайковЪ сказал:

В Windows вся проблема. Как известно, в этой ОС можно нажимать как мышью, так и пальцем. Вопрос: как сделать так, чтобы OnTap срабатывал не только на палец, но и на мышь?

программно определять мышь или тач и в соответствии результата динамически присваивать события.

Но это не точно, нужно тестить

Только что, x11 сказал:

Но я, кстати, проверял это на относительно старом Андроиде - 5.0.2.

Holo это 4+, но ниже 4.4

не парьтесь, скорее всего это связано с ресурсом из темы.

но fmx морально устарел, он использует тему android holo

ну еще вариант

TTask.Run(procedure
begin
	//тут отправляем данные на сервер через THTTPClient.Post

	TThread.Synchronize(TThread.CurrentThread, procedure 
	begin
		// если нужно делаем что-то в основном потоке
	end)
end)

В андроиде 5+ появился из коробки киоскмоде, на стоке точно.

можно перекрыть кнопку назад, но другие кнопки не перекрыть

это максимум что вы можете сделать

7 часов назад, x11 сказал:

Т.е. служба почему-то закрывается аварийно.

емба сломала это еще в Берлине, в Токио не починили.

Службы "нормально" работают только в Сиетле

ну незнаю, у меня работает

procedure TForm3.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 49 do
    ListBox1.Items.Add(I.ToString);
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  ListBox1.ScrollToItem(ListBox1.ItemByIndex(ListBox1.Count - 1));
end;

никак

23 часа назад, Akad сказал:

Почему я не хочу 100500 классов? Потому что там везде придётся прописать один и тот-же код, а при доработках моих коллег править придётся код в более чем одном месте. А парсинг там и так не простой в плане дикого количества ньюансов. Так что это  равносильно прямо пропорциональному увеличению проблем, которые начнут вылазить, например, через месяц. Причём в среднем 1 раз в месяц.

хотите облегчить себе жить? ваших коллег не следует допускать к бэкенду.

изучите все вместе структуру json и приведите ответы сервера в порядок. 

я давно для себя придумал структуру ответов и незнаю горя

для ошибки

{
  "status": "ERROR",
  "text": "Тут текст ошибки"
}

для данных структура всегда одна - data ВСЕГДА массив, ну а в элементах массива уже что хотите

{
  "status": "OK",
  "data": [
    {
      "id": 1,
      "name": "asdasd"
    }
  ]
}

есть такая штука (писалось для себя), ну и не боитесь использовать де/маршалинг 

что за анонимные потоки?

нуу, давайте так...

массив - [], объект - {}

или даже так 

В 06.02.2018 в 14:23, Winexcel сказал:

Здравствуйте, хотелось бы задать подобный вопрос пользователя AlexG.

На форуме работает упоминание @AlexG

смотрите код на джава, примеров уйма на стаке.

сравните что в вашем коде выше не так, вот ссылочка для примера 

эмба вроде настаивает чтобы служба имела начало "com.embarcadero" а дальше всё кроме service

если кратко то вот

 TTask.Run(
    procedure
    begin
        что-то качаем
      TThread.Synchronize(TThread.CurrentThread,
        procedure
        begin
          допустим выводим что скачали
        end); 

    end);

6 часов назад, Akad сказал:

Сейчас с ходу что он не распарсил не прилетело, но вот распарсил криво:

{"0":{"PRODUCT_ID":"808","OPTIONS":null,"AMOUNT":1,"SECTION_ID":"35"},"additional_849":{"AMOUNT":3,"TYPE":"additional","IS_ADDITIONAL":true,"ADDITIONAL_ID":849,"ID":"additional_849","PRODUCT_ID":"additional_849"},"additional_850":{"AMOUNT":"2","TYPE":"additional","IS_ADDITIONAL":true,"ADDITIONAL_ID":850,"ID":"additional_850","PRODUCT_ID":"additional_850"},"additional_851":{"AMOUNT":2,"TYPE":"additional","IS_ADDITIONAL":true,"ADDITIONAL_ID":851,"ID":"additional_851","PRODUCT_ID":"additional_851"},"additional_852":{"AMOUNT":2,"TYPE":"additional","IS_ADDITIONAL":true,"ADDITIONAL_ID":852,"ID":"additional_852","PRODUCT_ID":"additional_852"}}

Obj := SO(s); 
Assert(obj.AsArray <> nil); 

Сработал assert, хотя root - это массив.

Основная проблема стандартной библиотеки - это кривость работы с массивами [], и постоянные ассерты, когда нет элемента. Ну и общая громоздкость кода парсинга. То есть если структура JSON изначально известна и "стандартна", то проблем не будет. А если шаг влево, шаг вправо, то...

 

правильно сработал, это не массив а объект. смотрите внимательно

поиск по форуму ModernListView, ModernLV

21 час назад, Alisson R Oliveira сказал:

Доброе утро ... жаль открывать тропик после долгого времени, но я утверждал приложение на других устройствах, что панель навигации не является физической (назад, дома, окнами), и с этим она становится полностью прозрачной, а элементы управления белыми, например могу я решить ???

благодарный

попробуйте последнюю версию

нужно использовать нативный плеер, а не компонент TMediaPlayer

В интернете были примеры

данные сохраняются в проектном файле .dproj, откройте текстовым редактором и исправьте