Как ускорить работу"универсальной" функции getFileSize?

[Alex2013]

В общем написал я такую "образину" для получения размера файла, которая работает и сетью (http/https) и с локальными фалами. И все бы хорошо но "сетевой вариант" работает крайне медленно (для сравнительно небольших файлов почти нет разницы между полной загрузкой и запросом размера что по идее полный нонсенс так как это что-то вроде пинга и реальные данные не загружаются от слова совсем )

Код: Выделить всё

Function getFileSize( FPath:String):Int64;
var
  sr: TSearchRec;
  S: string;
  HTTPClient : TFPHttpClient;
  ST:TStringList;
begin
Result := -1;

 If pos('http',FPath)=1 then begin

 HTTPClient := TFPHttpClient.Create(nil);
     ST:=TStringList.Create;

     try
   HTTPClient.Head(FPath,ST);

     except
       HTTPClient.Free;
    St.Free;
    exit;
     end;
 if HTTPClient.ResponseStatusText='' then begin
   S:= HTTPClient.GetHeader(ST,'Content-Length');
   If S<>'' then Result := S.ToInt64;
  end;
    HTTPClient.Free;
   St.Free;
 end else
 begin
 try
if FindFirst(FPath , faAnyFile, sr) = 0 then
begin
Result :=  Sr.Size;
end
finally
FindClose(sr);
   end
 end
end;

[v-t-l]

Возможно [url]https://ru.wikipedia.org/wiki/Постоянное_HTTP-соединение[/url] поможет, но может зависеть и от сервера.

[Alex2013]

Возможно [url]https://ru.wikipedia.org/wiki/Постоянное_HTTP-соединение[/url] поможет, но может зависеть и от сервера.

Хм ! Спасибо, попробую.

Добавлено спустя 22 минуты 9 секунд:
Вроде помогло

Код: Выделить всё

...
   HTTPClient.AddHeader(ST,'Connection', 'Keep-Alive');
   HTTPClient.Head(FPath,ST);
...

Список в 30 URL обработало за 8 секунд вместо 27 секунд.