Rusland

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

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

  • Посещение

  • Days Won

    23

Rusland last won the day on 19 сентября

Rusland had the most liked content!

3 подписчика

О Rusland

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

Информация

  • Пол
    Мужчина
  • Интересы
    There's no killer app I haven't run
    At Pascal, well, I'm number one

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

1 238 просмотров профиля
  1. Сроки перенесли на 2018 год, видимо на весну. PS. @Brovin Yaroslav, вылечи своего робота, он картинки не показывает.
  2. @haword А как подобную проблему решить в Windows? Сайт с неверным сертификатом. Как его нормально открыть?
  3. Переключил режим Энергосбережения с Оптимальный на Отключено и сразу проблема с коннектом пропала
  4. Официальное название: Тинькофф Официальный сайт: http://tinkoff.ru Платформы: Android, iOS
  5. проверьте FileExists выдаст что файл действительно лежит по такому пути?
  6. uses FMX.DialogService, FMX.VirtualKeyboard ... procedure TfrSets.txtPassClick(Sender: TObject); begin InputText('Введите пароль', Sender); end; procedure TfrSets.InputText(heading: String; Sender: TObject); var FKService: IFMXVirtualKeyboardService; begin TPlatformServices.Current.SupportsPlatformService(IFMXVirtualKeyboardService, IInterface(FKService)); TDialogservice.InputQuery(heading, ['Ввод'], [(Sender as TText).Text], procedure(const AResult: TModalResult; const AValues: array of string) begin case AResult of mrOk: begin (Sender as TText).Text:=avalues[0]; if (FKService<>nil) and (TVirtualKeyBoardState.Visible in FKService.VirtualKeyBoardState) then begin FKService.HideVirtualKeyboard; end; end; mrCancel: begin if (FKService<>nil) and (TVirtualKeyBoardState.Visible in FKService.VirtualKeyBoardState) then begin FKService.HideVirtualKeyboard; end; end; end; end ); end; Делаю так ^^^
  7. Проверил, запускает и работает (Xiaomi Redmi Note 4 MIUI Global 8.5). Но вот наблюдаю такую проблему: Есть сервис, который при старте делает POST-запрос и создает "будильник", для последующего перезапуска самого себя: function TDM.AndroidServiceStartCommand(const Sender: TObject; const Intent: JIntent; Flags, StartId: integer): integer; begin Result := TJService.JavaClass.START_STICKY; // тут может быть и START_NOT_STICKY - это не важно SendPost('post запрос до сервера'); PendIntent(); end; procedure TDM.PendIntent(); var Intent: JIntent; PendingIntent: JPendingIntent; begin Intent := TJIntent.Create; Intent.setAction(StringToJString('60sec')); Intent.setClassName(TAndroidHelper.Context, StringToJString('com.embarcadero.services.CabSrv')); PendingIntent := TJPendingIntent.JavaClass.getService(TAndroidHelper.Context, 1, Intent, 0); TAndroidHelper.AlarmManager.&set(TJAlarmManager.JavaClass.RTC_WAKEUP, getTimeAfterInSecs(60), PendingIntent); // раз в минуту вызываем сервис end; procedure TDM.SendPost(txt: string); var aResponse: IHTTPResponse; aResponser: TResponser; sStream: TStringStream; aHttpClient: TNetHTTPClient; sList: TStringList; begin TTask.Run( procedure begin try aHttpClient := TNetHTTPClient.Create(nil); aHttpClient.OnValidateServerCertificate := OnValidateServerCertificate; aHttpClient.AcceptLanguage := 'ru,en;q=0.8'; aHttpClient.ContentType := 'application/x-www-form-urlencoded'; aHttpClient.AcceptCharset := 'utf-8'; aHttpClient.Accept := 'text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8'; sStream := TStringStream.Create(); sList := TStringList.Create; sList.Add('txt=' + txt); try aResponse := aHttpClient.Post(Sets.Host, sList, sStream); finally if ((sStream <> nil) and (aResponse <> nil)) then begin Log('SendPost OK'); end else Log('SendPost Error'); sStream.Free; sList.Free; end; finally aHttpClient.Free; end; end); end; Так вот если выгрузить программу (сервис перезапускается) и выключить экран, то через несколько минут сервис не может достучаться до сервера. except java.net.SocketTimeoutException: connect timed out В чем может быть проблема и как ее решить?
  8. Попробуйте Query1.SQL.Add('SELECT * FROM Tab_Izv WHERE OTDEL like '+#39+bsSkinComboBox1.Text+'%'+#39+ ' AND DATA BETWEEN TO_DATE ('+ Ot+', "dd.mm.yyyy") AND TO_DATE ('+ Doo+', "dd.mm.yyyy") ORDER BY NOMER;' );
  9. Должно быть #012 - это символ перевода строки \n Попробуйте убрать через StringReplace.
  10. Работал когда-то. В то время на Seattle делал
  11. Достаточно добавить test_classes.jar в Libraries и все заработает. PS. На Xiaomi не заработало
  12. Так вот у меня на планшете Lenovo Tab 2 a8-50l (Android 5) с этим кодом ни в какую координаты не передаются, значок GPS не появляется. Не пойму отчего это зависит
  13. Вот в Xiaomi (RN4) у меня как раз заработало!
  14. Значек GPS у меня и на планшете Lenovo (андроид 5) не появился... что-то не так с кодом