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

Rusland

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

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

  • Посещение

  • Победитель дней

    26

Сообщения, опубликованные Rusland

  1. Попробуйте

    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;' );

     

    В 28.08.2017 в 19:03, gelo1 сказал:

    Query1.SQL.Add('SELECT * Tab_Izv where OTDEL like '+#39+ bsSkinComboBox1.Text+ '%' +#39+
                       ' AND DATA between (to_char('+ Ot+','+''''+'dd.mm.yyyy'+''''+')) and (to_char('+ Doo+','+''''+'dd.mm.yyyy'+''''+')) ORDER BY NOMER'  );

     

  2. 2 часа назад, M1shQa сказал:

    а вот у заказчиков не захотело

    Так вот у меня на планшете Lenovo Tab 2 a8-50l (Android 5) с этим кодом ни в какую координаты не передаются, значок GPS не появляется. Не пойму отчего это зависит

  3. @M1shQa насколько помню, подключение измененных System.Android.SensorsDD, System.SensorsDD требовалось для Seattle. Зачем их сейчас подключать? На Берлине с обычными System.Android.Sensors, System.Sensors будет работать

  4. Вот так получаю список файлов:

    procedure TForm1.GetFileList();
    var
      Link,Mem:String;
      Code:Integer;
    begin  
      RESTRequest1.Params.Clear;
      RESTRequest1.Params.Add;
    
      RESTRequest1.Params[0].Kind:=TRESTRequestParameterKind.pkHTTPHEADER;
      RESTRequest1.Params[0].name:='Authorization';
      RESTRequest1.Params[0].Options:=[poDoNotEncode];
      RESTRequest1.Params[0].Value:='OAuth ' + OAuth2Authenticator1.AccessToken;
    
    
    
      RESTRequest1.AddParameter('path', 'disk:/');  
      RESTRequest1.AddParameter('limit', '100');    //  ограничение списка файлов до 100
      RESTRequest1.AddParameter('media_type', 'video'); // не срабатывает этот фильтр
    
    
    
      RESTRequest1.Resource:='/disk/resources';
      RESTRequest1.Method:=rmGet;
      
      RESTRequest1.Execute;
      if RESTRequest1.Response.StatusCode=200 then begin
        Memo1.Lines.Text:=RESTRequest1.Response.Content;
        // TODO дальше надо бежать по списку и найдя нужный файл скачать его
      end 
      else Memo1.Lines.Add('запрос ссылки - ошибка '+RESTRequest1.Response.StatusCode.ToString);
    end;

    Почему не срабатывает ограничение 'media_type', 'video' ?

  5. 10 минут назад, Anatoliy сказал:

    А может это связано, что в отличии от проекта ZuBy отключено разрешение READ PHONE STATE? Если его вставить гугл требует писать политику конфиденциальности...

    Евгений Корепов где-то давал ссылку как писать эту политику и даже сайт свой предлагал для ее размещения

  6. У меня почему- то не работает Доступные сети. Пишет Всего:0 и сети не ищет (галочка Сканирование стоит).

    DHCP информация тоже пуста. Не знаю, может так и должно быть.

     

    UPD: DHCP информация через какое-то время появилась

     

    PS. Redmi Note 4 Snapdragon

  7. @marsden В Берлине, в отличии от Токио, у RESTRequest нет метода AddFile. Как это обойти?

     

     

    Попробовал скопировать в папку с проектом файлы REST.Client.pas, REST.Types.pas, IPPeerAPI.pas из Токио, при компиляции получаю ошибку:

    [dcc32 Fatal Error] IPPeerAPI.pas(1260): F2051 Unit REST.HttpClient was compiled with a different version of IPPeerAPI.IIPMultipartFormDataStream

×
×
  • Создать...