Pax Beach

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

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

  • Посещение

  • Days Won

    8

Pax Beach last won the day on 23 января

Pax Beach had the most liked content!

О Pax Beach

  • Звание
    Продвинутый пользователь

Информация

  • Пол
    Мужчина
  • Город
    Moscow

Контакты

  • Skype
    PaxBeach
  • StackOverflow
    http://stackoverflow.com/users/6255550/pax-beach

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

1 043 просмотра профиля
  1. Проблема в MUI. Предполагаю, что надо искать решение в запросе разрешений на уведомления, разбудить телефон, показать приложение поверх других окон, еще что-нибудь такое. Потому что в MUI большой упор на энергосбережение, безопасность и спам. Я замучился уже с MUI, не для разработчиков ось =)
  2. Библиотека для работы с изображениями находится здесь. Готовится описание.
  3. Что-то не так в логах. Фигурирует три пакета com.embarcadero... А должно быть максимум два. Надо всё почистить и заново собрать. Если не заработает, смотреть код. GPS трекер отлично работает нас телефонах. Только Xiomi не победил пока.
  4. Что наталкивает нас на мысльо том, что либо сервис стартует без команды дальнейшего перезапуска, либо не перезапускается, либо запускается и валится с ошибкой. Лог монитор в помощь. Что показывает?
  5. Какое устройство, ОС, версия Delphi?
  6. Сразу приходит в голову разумная пауза перед запросом. Не пробовали?
  7. Не сразу понял, что это стеб =)
  8. А где этот флаг в настройках, никак не найду?
  9. HBITMAP — это и есть VCL.TBitmap var hWinDC : THandle; w, h : integer; tmpStream: TMemoryStream; begin GetTargetDimensions(w, h); hWinDC := GetWindowDC(TargetHandle); BitmapVCL.Width := w; BitmapVCL.Height := h; hWinDC := GetWindowDC(TargetHandle); BitBlt(BitmapVCL.Canvas.Handle, 0, 0, BitmapVCL.Width, BitmapVCL.Height, hWinDC, 0, 0, SRCCOPY); ReleaseDC(TargetHandle, hWinDC); tmpStream := TMemoryStream.Create; try BitmapVCL.SaveToStream(tmpStream); BitmapFMX.LoadFromStream(tmpStream); finally tmpStream.Free; end; end;
  10. давай уже ссылку, может там люди что-нить еще рассказывают )
  11. В этом видимо есть какой-то потенциал, если научиться получить DX контекст в качестве устройства для метода ICreateDevEnum
  12. Это граббер с утройств, написер с камеры.
  13. Привожу пример готового FMX приложения, которое рисует на форме с помощью интерфейса IDirect3DDevice9. В примере реализован вызов анонимного метода Present() интерфейса IDirect3DDevice9, имея ссылку на интерфейс и порядковый номер метода. Данная реализация пригодится при установке ловушек (Hooks). Вкратце, суть реализации такая: Объявляю процедурный тип нужного метода type TPresent9 = function(pSourceRect, pDestRect: PRect; hDestWindowOverride: HWND; pDirtyRegion: PRgnData): HResult of object; stdcall; Объявляю переменную этого типа var PPresent: TPresent9; begin ... IntRefToMethPtr(d3d9Dev, PPresent, 17); PPresent(nil, nil, DParametrs.D3DPP.hDeviceWindow, nil); Реализую процедуру получения метода интерфейса по номеру procedure IntRefToMethPtr(const IntRef; var MethPtr; MethNo: Integer); type TVtable = array [0 .. 999] of Pointer; PVtable = ^TVtable; PPVtable = ^PVtable; begin // QI=0, AddRef=1, Release=2, etc TMethod(MethPtr).Code := PPVtable(IntRef)^^[MethNo]; TMethod(MethPtr).Data := Pointer(IntRef); end; А теперь получаем метод интерфейса по его порядковому номеру и вызываем его IntRefToMethPtr(d3d9Dev, PPresent, 17); PPresent(nil, nil, DParametrs.D3DPP.hDeviceWindow, nil); Благодарю за оценку этого решения на StackOverflow. Скачать пример: D3DDemo.zip
  14. Товарищи, как полет с такими настройками, кто пробовал еще?