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

Ufomaster

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

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

  • Посещение

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

  1. В 01.12.2016 в 17:03, kami сказал:

    Это не решение вопроса...

    Поделитесь кодом, пожалуйста, возможно проблему удастся решить другим способом. Помимо смены версии IDE.

    procedure TForm1.Button1Click(Sender: TObject);
    var
      SomeStream : TMemoryStream;

    begin

      RESTRequest1.Method:=TRESTRequestMethod.rmGET;
      RESTClient1.BaseURL:='https://content.dropboxapi.com/2/files/download';

      with RESTRequest1.Params.AddItem do begin
        name := 'Authorization';
        Value := 'Bearer Z*************************'; // настоящий токен
        ContentType := ctNone;
        Kind := pkHTTPHEADER;
        Options := [poDoNotEncode];
      end;

       with RESTRequest1.Params.AddItem do begin
        name := 'Dropbox-API-Arg';
        Value := '{"path": "/имя файла на боксе"}';
        ContentType := ctNone;
        Kind := pkHTTPHEADER;
        Options := [poDoNotEncode];
      end;

      RESTRequest1.Execute; 

      SomeStream := tmemorystream.Create;
                  try
                    Somestream.WriteData(RESTResponse1.RawBytes,Length(RESTResponse1.RawBytes));
                    SomeStream.SaveToFile('dowloaded.file');
                  finally
                    SomeStream.free;
                  end;


    end;
     

  2. 39 минут назад, ZuBy сказал:

    ну не положено отправлять на сервер пробел, для этого все параметры проходят через UrlEncode

    что это за ошибка помогите ? 

    First chance exception at $753436EA. Exception class EEncodingError with message 'No mapping for the Unicode character exists in the target multi-byte code page'. Process Project1.exe (5996)

  3. 10 минут назад, ZuBy сказал:

    %20 это и есть пробел, веб серверы его примут правильно.

    Но если это мешает, то можно через Replace заменить %20 на пробел

    Передаю

     RESTRequest1.Params.AddHeader('Authorization', 'Bearer Zjjt*******************************');

     RESTRequest1.Execute;

    Как сделать что бы пробел остался пробелом ?

  4. 1 час назад, Error сказал:

    Я бы не пользовался данной функцией генерации паттернов, судя по тому что TList здесь создается не дженериковый, а обычный, функционал этот довольно заброшен.

    А уж отсутствию(!) у TSubject удаления созданного им TList это еще и говнокод.

    а как этот или можно еще лучше https://github.com/jimmckeeth/DelphiPatterns/blob/master/Behavioral.Observer/Pattern.pas

  5. 17 минут назад, Pax Beach сказал:

    Расскажите, какие цели планируете достигнуть при помощи обсервера?

    Изучаю паттерны.  Меня интересует почему рабочий паттерн отличается от того который среда генерирует по умолчанию. 

  6.  

    Ты прекрасный программист,
    И по жизни оптимист,
    В своем деле – просто ас!
    Всем покажешь высший класс!
    Принимай же поздравленья
    В день прекрасный – День рожденья!
    Будь всегда веселым ты,
    Пусть исполнятся мечты! 

    С Днём рождения!

  7. 1 час назад, Сысоев Максим сказал:

    потому что гугл питается за счет рекламы питается, и за доступы к своим АПИ.

    Потому что раздают свою операционку с открытым кодом, при условии, что будут устанавливаться их сервисы, среди которых плей-маркер, в который что бы залить свое приложение нужно купить сертификат. 

    Но основной доход все же с рекламы.

    Я считаю, что мне пора прекращать отстаивать мое «виденье» проблемы и способа его решения. Сколько людей столько и мнений. Спасибо всем за критику, но в данном случае мало «смотреть» - нужно «видеть». Раз мы так далеко зашли тогда вот мое мнение к решению этой проблемы. Сказанное ниже не для критики, а прислушиваться Embarcadero к этому виденью или нет, это их выбор. И  у каждого выбора есть свое последствие. Где Delphi находится сейчас и какой на него спрос, не для кого, не секрет.

    План развития.

    1. Delphi бесплатный или за символическую цену.
    2. Развивать App сервис. Сейчас что то уже начинается (RAD Server). Платный корпоративный доступ, урезанный бесплатный, лицензии разработчикам и прочее. Это будет основной прибылью компании.
    3. Взаимодействовать с разработчиками Web браузеров (может даже разработать стандарт) для создания и внедрения в браузеры прослойки GUI для взаимодействия в App сервисами.

    Это будет толчком к новой ОС, назовём её ОС «Net».  Если развитие пойдет в эту сторону, тогда будет решена проблема кросплатформенности. По моему то что сейчас происходит в мире с информатикой это застой какой то. Уж Все очень долго заигрались в своих «песочницах». И спорить чья «лучше», или быстрее «лепятся замки»  это нежелание двигаться дальше.  В данном случае деньги это не двигатель прогресса, если компании будут учитывать сиюминутную прибыль в замен на новые горизонты.

     

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