Перейти к содержанию
Fire Monkey от А до Я

AES

Пользователи
  • Постов

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

  • Посещение

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

Блок последних пользователей отключён и не показывается другим пользователям.

Достижения AES

  1. Проблема описана тут. Требуется подправить мой код, либо полностью переработать алгоритм... Цена договорная, писать в ЛС или на имейл remus-xe2@ya.ru.
  2. Подскажите, у меня программа проверяет наличие новой версии и выводит уведомление... Хочу что бы программа сама закачивала APK и запускала его на установку... Скачать по идее не проблема, а вот как показать окно юзеру, мастера установки этого АПК ? Можно какой нибудь образец на Delphi ? Пока вот что имею: procedure TUpdateAppThread.Execute; CONST url_download_nsis_script = 'https://.com/android/.apk'; var http: TNetHTTPClient; q: tmemorystream; begin q := tmemorystream.Create; http := TNetHTTPClient.Create(nil); try try http.Get(PChar(url_download_nsis_script), q); q.Position := 0; q.SaveToFile(TPath.Combine(TPath.GetDocumentsPath, 'hs.update.apk')); if FileExists(TPath.Combine(TPath.GetDocumentsPath, 'hs.update.apk')) then Synchronize(StartUpdateApp); except Synchronize(ErrorUpdateApp); end; finally q.Free; http.Free; end; end; скачал APK, ошибок нет вроде, все ок... Запихиваю апк в jnet_uri Procedure StartUpdateApp; var ApkFile: JFile; ApkUri: Jnet_Uri; path, filename: string; begin try filename := TPath.Combine(TPath.GetDocumentsPath, 'hs.update.apk'); ApkFile := TJfile.JavaClass.init(StringToJString(filename)); ApkUri := TAndroidHelper.JFileToJURI(ApkFile); StartActivity(ApkUri); except on E: Exception do ShowMessage(E.ClassName + 'StartUpdateApp поднята ошибка, с сообщением : ' + E.Message); end; UpdateForm.Label1.Text := 'Download ok.'; end; Запускаю активность... procedure StartActivity(ApkUri: Jnet_Uri); var Intent: JIntent; begin try Intent := TJIntent.Create(); Intent.setAction(TJIntent.JavaClass.ACTION_VIEW); Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK or TJIntent.JavaClass.FLAG_ACTIVITY_CLEAR_TOP or TJIntent.JavaClass.FLAG_GRANT_WRITE_URI_PERMISSION or TJIntent.JavaClass.FLAG_GRANT_READ_URI_PERMISSION); Intent.setDataAndType(ApkUri, StringToJString('application/vnd.android.package-archive')); TAndroidHelper.Activity.StartActivity(Intent); except on E: Exception do ShowMessage(E.ClassName + 'StartActivity поднята ошибка, с сообщением : ' + E.Message); end; end; сейчас у меня ошибка в процедуре StartUpdateApp Java type Jcontent_fileprovider could not be found. Разрешений пока не каких не запрашивал.... Сохраняю в TPath.Combine(TPath.GetDocumentsPath, 'hs.update.apk') сюда я так понимаю разрешения не нужны...
  3. в общем немного некорректно описание на сайтах про это ограничение... Если я правильно понял это ограничение для ОДНОВРЕМЕННО открытых файловых дескрипторов... И да, я забыл переменную освободить... Набежало 1024 файла открытых все стало. А при увеличении лимита память заканчивалась примерно на тех же 1024 файлах ) Тема закрыта.
  4. AES

    Лимит открытых файлов Linux

    Пишу что то типа файлового менеджера. Передаю файлы с linux на windows станцию. Как только лимит открытых файлов на мой процесс достигает 1024 все перестает работать... Пробовал расширять лимит редактируя /etc/security/limits.conf, безрезультатно. Теже 1024 файла, причем при проверке текущего лимита показывает лимит в 65353 который указан в limits.conf. Как победить? Варианты есть ?
  5. Народ, как правильно узнать кто владелец файла и права доступа к нему (то что выдает ls - l <filename>). Пока только на ум приходит парсить вывод команды ls, но это не красивое решение.
  6. AES

    Запуск внешней программы

    как это осуществить? POPEN видел, не то немного... Так как родитель может быть закрыт раньше потомка что его подвешивает до закрытия потомка...
  7. Всем привет, изучаю сервисы, есть пара вопросов... правильно я понимаю? При: function TDM.AndroidServiceStartCommand(const Sender: TObject; const Intent: JIntent; Flags, StartId: Integer): Integer; begin Result:= TJService.JavaClass.START_STICKY; //Перезапускать при отключении end; сервис не должен отрубаться при завершении работы основной программы ? Я в цикле вывод сообщения в сервис засунул, все работает даже при свернутой программе, но стоит ее закрыть и все... Уведомления перестают приходит, сервис помер.. Как заставит работать сервис даже при закрытой программе запустившей его?
  8. Парни, можно как то апперансы в ListView выравнять ? На все доступное пространство на пример....
  9. AES

    апперансы

    Парни дайте мануал какой нибудь, почитать \ посмотреть. Не могу догнать как с аперансами работать... 1 вопрос ) Примерно, понял как работать с записями в красной зоне а как обратится к значениям в шапке и подвале ? Или они не относятся к определенной строке в Listview и их может быть только по 1 шт.? 2 вопрос) выровнять текст можно как то по левому краю в ячейках (и сами ячейки)?
×
×
  • Создать...