Rusland

Может быть так? (правда код на Delphi)

Что по этому поводу говорит Remy Lebeau? Временно имеется планшет с Intel Atom (Androd 5.1.1). Можете прислать тестовую программу, проверю.

Кстати, можно же создать свой шрифт с нужными символами. Посмотрите эту тему.

Взял код вот отсюда: procedure TForm10.Button2Click(Sender: TObject); begin Memo1.Lines.Add(Format('%s：%s', ['BOARD', JStringToString(TJBuild.JavaClass.BOARD)])); Memo1.Lines.Add(Format('%s：%s', ['BOOTLOADER', JStringToString(TJBuild.JavaClass.BOOTLOADER)])); Memo1.Lines.Add(Format('%s：%s', ['BRAND', JStringToString(TJBuild.JavaClass.BRAND)])); Memo1.Lines.Add(Format('%s：%s', ['CPU_ABI', JStringToString(TJBuild.JavaClass.CPU_ABI)])); Memo1.Lines.Add(Format('%s：%s', ['CPU_ABI2', JStringToString(TJBuild.JavaClass.CPU_ABI2)])); Memo1.Lines.Add(Format('%s：%s', ['DEVICE', JStringToString(TJBuild.JavaClass.DEVICE)])); Memo1.Lines.Add(Format('%s：%s', ['DISPLAYドID', JStringToString(TJBuild.JavaClass.DISPLAY)])); Memo1.Lines.Add(Format('%s：%s', ['FINGERPRINT', JStringToString(TJBuild.JavaClass.FINGERPRINT)])); Memo1.Lines.Add(Format('%s：%s', ['HARDWARE', JStringToString(TJBuild.JavaClass.HARDWARE)])); Memo1.Lines.Add(Format('%s：%s', ['HOST', JStringToString(TJBuild.JavaClass.HOST)])); Memo1.Lines.Add(Format('%s：%s', ['ID', JStringToString(TJBuild.JavaClass.ID)])); Memo1.Lines.Add(Format('%s：%s', ['MANUFACTURER', JStringToString(TJBuild.JavaClass.MANUFACTURER)])); Memo1.Lines.Add(Format('%s：%s', ['MODEL', JStringToString(TJBuild.JavaClass.MODEL)])); Memo1.Lines.Add(Format('%s：%s', ['PRODUCT', JStringToString(TJBuild.JavaClass.PRODUCT)])); Memo1.Lines.Add(Format('%s：%s', ['RADIO', JStringToString(TJBuild.JavaClass.RADIO)])); Memo1.Lines.Add(Format('%s：%s', ['TAGS', JStringToString(TJBuild.JavaClass.TAGS)])); Memo1.Lines.Add(Format('%s：%d', ['TIME', TJBuild.JavaClass.TIME])); // Memo1.Lines.Add(Format('%s：%s', ['TYPE', // JStringToString(TJBuild.JavaClass.&TYPE)])); Memo1.Lines.Add(Format('%s：%s', ['UNKNOWN', JStringToString(TJBuild.JavaClass.UNKNOWN)])); Memo1.Lines.Add(Format('%s：%s', ['USER', JStringToString(TJBuild.JavaClass.USER)])); Memo1.Lines.Add(Format('%s：%s', ['CODENAME', JStringToString(TJBuild_VERSION.JavaClass.CODENAME)])); Memo1.Lines.Add(Format('%s：%s', ['INCREMENTAL', JStringToString(TJBuild_VERSION.JavaClass.INCREMENTAL)])); Memo1.Lines.Add(Format('%s：%s', ['RELEASE', JStringToString(TJBuild_VERSION.JavaClass.RELEASE)])); Memo1.Lines.Add(Format('%s：%d', ['SDK_INT', TJBuild_VERSION.JavaClass.SDK_INT])); end; Единственное упоминание Intel в Fingerprint... ну хоть что-то

Тут есть код на java для Lollipop: import android.os.Build; Log.i(TAG, "CPU_ABI : " + Build.CPU_ABI); Log.i(TAG, "CPU_ABI2 : " + Build.CPU_ABI2); Log.i(TAG, "OS.ARCH : " + System.getProperty("os.arch")); Log.i(TAG, "SUPPORTED_ABIS : " + Arrays.toString(Build.SUPPORTED_ABIS)); Log.i(TAG, "SUPPORTED_32_BIT_ABIS : " + Arrays.toString(Build.SUPPORTED_32_BIT_ABIS)); Log.i(TAG, "SUPPORTED_64_BIT_ABIS : " + Arrays.toString(Build.SUPPORTED_64_BIT_ABIS)); Есть ли в Delphi обертка android.os.Build?

А интересная же идея. Вставлять готовый код для отображения символа в TPath.Data и размещать их один за другим, а еще лучше, если научится в один TPath все пихать.

Вот приложение с маркета (а также всякие CPU-Z, Aida64) как-то определяет ведь что процессор intel. Как они это делают?

Проверил на intel Atom код {$IF defined(CPUARM)} Label1.text := 'armv7'; {$ELSEIF defined(CPUX86)} Label1.text := 'intel'; {$ENDIF} Выдает armv7

KillFocusByReturn=true Правда у меня на планшете Леново 7'' (Android 4.4) это не срабатывает и нажатие Enter приводит к переводу каретки... была уже тема такая

Подозреваю, что антивирус тоже лучше выключить - у меня DrWeb сильно напрягался во время установки.

Евгений Корепов, а в Update1 это исправлено?

Проверил работу Firemonkey на планшете Dexp Ursus gx180 (на нем установлен процессор Intel Atom Z3735F, видео тоже интел). Верх формы залезает под системный statusbar (решением является StatusBar Color от ZuBy http://fire-monkey.ru/topic/2577-statusbar-color/#comment-14604), либо установить свойство формы Fullscreen=true, но тогда нажимать на кнопки приходится чуть выше чем они видны. Причем похоже MapView выставляет свое положение правильно, в отличии от остальных элементов. Кстати, никакие lib*.so отключать не пришлось. Программа запускается и работает, что не может не радовать. Тосты показывает. К чему это я... может не стоит исключать устройства с Intel Atom из списка поддерживаемых? )

А у меня код выдает No mapping for the Unicode character exists in the target multi-byte code page.

cherezovmax, uses AndroidApi.Log, // LOGI Androidapi.Timer, ... private { Private declarations } FTimerHandle: integer; FTimerCounter: integer; TimerInterval: integer; procedure StartTimer; procedure WaitComplete(TimerId: Integer); ... procedure TDM.AndroidServiceCreate(Sender: TObject); begin FTimerHandle := AndroidTimerCreate; FTimerCounter := 0; TimerInterval:=5000; end; function TDM.AndroidServiceStartCommand(const Sender: TObject; const Intent: JIntent; Flags, StartId: Integer): Integer; begin StartTimer; LogI('TJService.JavaClass.START_STICKY'); Result := TJService.JavaClass.START_STICKY; end; procedure TDM.StartTimer; begin LogI('... timer to be started'); AndroidTimerSetInterval(FTimerHandle, TimerInterval); AndroidTimerSetHandler(WaitComplete); LogI('+ Timer started'); end; procedure TDM.WaitComplete(TimerId: Integer); begin LogI('WaitComplete procedure') end;

Не, тут никто не знает... ) Ну может так еще попробуете: recorder := TJMediaRecorder.Create;

брал отсюда Интересно что в стандартном Androidapi.JNI.App.pas вроде те же функции описаны, но с ним не получается работать.

Pax Beach, а какой версии Андроид? Права не нужны. У меня аппарат не рутованный, андроид 5

Один только прикол - показывает приложения, которые с запущенными сервисами, а обычные или с остановленными сервисами нет.

ZuBy, огромное спасибо, выручил )

ZuBy, а что конкретно показало? Принтскрин можно? У меня показывает запущенные сервисы, но не программы.

ZuBy, сейчас проверю.

Виноват Это вот апи скачанные с интернета: AndroidApi.zip В uses Androidapi.JNI.GraphicsContentViewText, // TJIntent (Receive Intent) Androidapi.JNI.JavaTypes, // JList Androidapi.JNIBridge, // ILocalObject Androidapi.JNI.App, // TJService Androidapi.Helpers, // StringToJString AndroidApi.Log, // LOGI Androidapi.JNI.RunningServiceInfo, // поиск запущенных приложений - https://stackoverflow.com/questions/34262554/how-to-check-if-a-service-is-running-in-delphi-10-seattle Androidapi.JNI.ActivityManager, // поиск запущенных приложений - http://blog.csdn.net/flcop/article/details/17190009uses b:boolean;

Вот функция для получения списка всех запущенных сервисов: function TForm1.ServicesStarted: String; var ActivityServiceManager: JObject; FActivityManager : JActivityManager; List: JList; Iterator: JIterator; ri: JActivityManager_RunningServiceInfo; s: String; begin s:=''; Result:=''; ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE); FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID); List := FActivityManager.getRunningServices(MAXINT); Iterator := List.iterator; while Iterator.hasNext do begin ri := TJActivityManager_RunningServiceInfo.Wrap((Iterator.next as ILocalObject).GetObjectID); s := s+ JStringToString(ri.service.getClassName) + ' |'; end; Result:=s; end; Пытаюсь подобным образом получить список запущенных приложений: function TForm1.TasksStarted(): String; var ActivityServiceManager: JObject; FActivityManager : JActivityManager; List: JList; Iterator: JIterator; //ri: JActivityManager_RunningServiceInfo; ra: JActivityManager_RunningAppProcessInfo; s: String; begin s:=''; Result:=''; ActivityServiceManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.ACTIVITY_SERVICE); FActivityManager := TJActivityManager.Wrap((ActivityServiceManager as ILocalObject).GetObjectID); List := FActivityManager.getRunningTasks(MAXINT); Iterator := List.iterator; while Iterator.hasNext do begin ra := TJActivityManager_RunningAppProcessInfo.Wrap((Iterator.next as ILocalObject).GetObjectID); s := s+ JStringToString(ra.processName) + ' |'; // тут Aborted end; b:= not b; Result:=s; end; Получаю Aborted. В чем ошибка? Если от балды заменяю строку на s := s+ JStringToString(ra.toString) + ' |'; то выдает примерно следующее: android.app.ActivityManager$RunningTaskInfo@c2187d3| android.app.ActivityManager$RunningTaskInfo@1db4f10| Помогайте братцы. PS. Вот еще одна ссылка по получению списка запущенных приложений (если не ошибаюсь у меня выдавал только мое приложение)

https://www.embarcadero.com/ru/products/delphi/starter/promotional-download

Будем терпеливо ждать )