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

[XE8] TNetHttpRequest.OnRecieveData в деплое для android вешает приложение


notricky

Вопрос

Собственно поступаю я так - передаю по ссылке в процедуру reqReceiveData. 

procedure TFMain.reqReceiveData(const Sender: TObject; AContentLength, AReadCount: Int64; var Abort: Boolean);
begin
  if not PgbUpdate.Visible then
    PgbUpdate.Visible := true;
  PgbUpdate.Max := AContentLength;
  PgbUpdate.Value := AReadCount;
end;

Внутри процедуры соотв создается TNetHttpClient и TNetHttpRequest

В деплое для WIN32 - все работает, показывается прогресс-бар, все скачивается и тд. Однако в деплое для ANDROID при 

function TFMain.RunRequest(AUrl: String = ''; ARespStream: TBytesStream = nil; OnRcvData: TReceiveDataEvent = nil): TJSONObject;
begin
...
  c := TNetHTTPClient.Create(nil);
  r := TNetHTTPRequest.Create(nil);
...
  r.OnReceiveData := OnRcvData; //если закомментировать - все ок. Если нет - то на следующем шаге подвисон.
  resp := r.Get(url, ARespStream);
...
end;

зависает. Если закомментировать присвоение процедуры ресива, то все скачивается (только без прогресса). Процедура используется для всех версий: WIN, IOS, ANDROID,MACOS и работает исправно.

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

Ссылка на комментарий

Рекомендуемые сообщения

  • 0
  • Модераторы

Вы хотите сделать отображение прогресса при скачивании файлов?

Вместе со студией идёт демо-проекты, найти можно примерно по такому пути

C:\Users\Public\Documents\Embarcadero\Studio\18.0\Samples\Object Pascal\RTL

 

Ссылка на комментарий

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

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