notricky

TRestRequets содержит внутренний компонент IdHttp, который, имея, property Compressor умеет декомпрессировать сжатые данные автоматически. Но доступ к нему извне не дан, потому код для того, чтобы получить к нему доступ.

Речь про TRestRequest. Код - чтобы подключить декомпрессию в "авторежиме" (можно еще мануально декомпрессить RawBytes) А вот как делать компрессию и отправлять в GZIP-е - в этом состоит вопрос.

Собственно есть способ получать и распаковывать данные, полученные в GZIP. В качестве примера: procedure TFMain.FormCreate(Sender: TObject); begin (ReqGet.Client.HTTPClient.Peer.GetObject as TIdCustomHTTP).Compressor := TIdCompressorZLib.Create(ReqGet.Client.HTTPClient.Peer.GetObject as TIdCustomHTTP); ReqGet.AcceptEncoding := 'gzip,deflate'; ... end; А вот как их отправить (как запаковать - механизм? и куда подставить строку) - не понятно. Отправка интересует и POST и GET Прошу помощи.

наверное возможно. Но дело в том, что хочется понять вообще совместимость дельфи с питоном и возможности встроить это в приложении на мобильниках. Есть же Питон4Дельфи. Насколько далеко можно с э\тим зайти... Это своего рода исследование, ресеч.

Вообще задача стоит так: получить от команды блютус устройства, преобразовать сигналы по алгоритму и выдаиь действие в приложении. Обработкм планировалась нв питоне. В этос смысл.

Тогда вопрос иначе. Можно ли на фаерманки написать приложение для андроида/иос с использованием кода/библиотек на питоне?

Интересует вопрос и ноу-хау. Если есть код на Питоне, который нужно выполнять в рамках Андроид и айОС приложений - как это лучше всего делать и как это будет выглядеть? Читал, что есть Python4Delphi и это речь про DLL. Хотелось бы понять, как это будет выглядеть на iOS и Android - это дополнительный файл надо с собой такскать как в Windows или он будет внутри APK/APP ?

Ну в общем... не долго думая TPopupHelper = class helper for TPopup procedure SetOnKeyDown(KeyDown: TKeyEvent); end; ... { TPopupHelper } procedure TPopupHelper.SetOnKeyDown(KeyDown: TKeyEvent); begin TCustomPopupForm(self.PopupForm).OnKeyDown := KeyDown; end; И вызываю SetOnKeyDown при показе Popup-a. В итоге при показываемом Popup-e нажатии кнопки "Назад" просто выполняется условие один (из первоначального поста): ItemLayout переходит в MainLayout, при этом Попап не закрывается. Если в первоначальный код для MyForm.OnKeyDown(), где проверка на vkHardwareBack, добавить проверку ... Key := 0; if Sender.InheritsFrom(TCustomPopupForm) then begin HideHint; DebugLog('PopupFormBackButton'); end else ... то можно и предотвратить закрытие приложения и закрыть попап. Приложение более не закрывается, попап закрывается, проблем solved. Хочу только сказать, что это некрасиво. Если есть фиксы или более интересные решения - готов послушать.

С OnKeyUp - да и вообще с кнопкой "Назад" Все это нужно ведь делать с формой TPopup-а. А как это сделать-то? Что переопределить? Хелпер написать что ли?

Буду рад, если подскажете как. Расскажите по-подробнее - каким образом это использовать? Пока не представляю. К тому же мне кажется, там уже не будет того же сообщения на down. Ошибаюсь?

Не нашел тега TPopup. Напишу тут. Ситуация в следующем. Я использую TPopup + TCalloutPanel для хинтов (подсказок). С анимацией FadeIn FadeOut. Все вроде просто. На основной форме есть стандартная проверка FormKeyDown if Key in [vkHardwareBack] then begin TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FService)); if (FService <> nil) and (TVirtualKeyboardState.Visible in FService.VirtualKeyBoardState) then begin DebugLog('KeyboardOnBackButton'); end else begin Key := 0; if ItemLayout.Visible then begin DebugLog('ItemLayoutBackButton'); btCancelClick(btCancel); end else begin DebugLog('MainLayoutBackButton'); MessageDlg('Are you sure to exit now?', TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], -1, procedure (const AResult: TModalResult) begin if AResult = mrOk then begin DebugLog('CloseOnBackButton'); Close; end; end); end; end; end В общем ничего сверхестественного. Затем, когда появляется хинт: procedure TFParent.ShowHint(AControl: TControl; AText: string; ATitle: string=''; Duration: single = 3; ImageIndex: integer = -1); begin DebugLog('ShowHint'); lbHint.Text := AText; puHint.PlacementTarget := AControl; faHintFadeOut.Delay := Duration; puHint.IsOpen := true; ivHint.Visible := ImageIndex <> -1; lbHintTitle.Text := ATitle; lbHintTitle.Visible := ATitle <> ''; end; все тоже хорошо. Однако, когда я нажимаю кнопку назад - сначала пропадает хинт. А если я нажимаю снова кнопку назад, то вообще говоря я жду два варианта: ItemLayout переходит в MainLayout Программа запрашивает выход MessageDlg Но на деле приложение просто закрывается. При чем без ошибок. Что с этим можно сделать?