На смартфоне с Android 15 скачивание относительно больших файлов (>50 Мб) зависает на 1/10-1/3. На младших версиях Android и при скачивании малых файлов проблем нет. Через Ftp любые файлы качаются. Подскажите, где может быть проблема:
procedure TfmFtp1.fHttp;
var
HttpResponse: IHttpResponse;
Stream:TMemoryStream;
const
CONST_TIMEOUT = 30000; //пробовал разные
begin
try
aTask:= TTask.Run(
procedure
begin
Stream:= TMemoryStream.Create;
NetHTTPClient1.ConnectionTimeout := CONST_TIMEOUT;
NetHTTPClient1.ResponseTimeout := CONST_TIMEOUT;
try
HttpResponse:=NetHTTPClient1.Get('https://therapy.irkutsk.ru/program/'+flname, Stream);
except
on E : Exception do
ShowMessage('File download error ' + E.Message);
end;
if Assigned(HttpResponse) then
if HttpResponse.StatusCode=200 then
begin
Stream.SaveToFile(fileout1);
end;
end);
Вопрос
bfarid
На смартфоне с Android 15 скачивание относительно больших файлов (>50 Мб) зависает на 1/10-1/3. На младших версиях Android и при скачивании малых файлов проблем нет. Через Ftp любые файлы качаются. Подскажите, где может быть проблема:
procedure TfmFtp1.fHttp;
var
HttpResponse: IHttpResponse;
Stream:TMemoryStream;
const
CONST_TIMEOUT = 30000; //пробовал разные
begin
try
aTask:= TTask.Run(
procedure
begin
Stream:= TMemoryStream.Create;
NetHTTPClient1.ConnectionTimeout := CONST_TIMEOUT;
NetHTTPClient1.ResponseTimeout := CONST_TIMEOUT;
try
HttpResponse:=NetHTTPClient1.Get('https://therapy.irkutsk.ru/program/'+flname, Stream);
except
on E : Exception do
ShowMessage('File download error ' + E.Message);
end;
if Assigned(HttpResponse) then
if HttpResponse.StatusCode=200 then
begin
Stream.SaveToFile(fileout1);
end;
end);
finally
Stream.Free;
end;
end;
1 ответ на этот вопрос
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.