Поиск

Собственно поступаю я так - передаю по ссылке в процедуру 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 и работает исправно. Кто что может сообщить по данному вопросу, вдруг кто сталкивался?