paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 14:39:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixed the problem that some packages download from online package manager return status code:302 error

Browse Source
This commit is contained in:
ACTom 2022-03-30 22:21:07 +08:00
parent ae6d20b6a4
commit cbfd897b89
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/onlinepackagemanager/opkman_downloader.pas
View File

@ -487,6 +487,7 @@ begin
FreeOnTerminate := True; FreeOnTerminate := True;
FMS := TMemoryStream.Create; FMS := TMemoryStream.Create;
FHTTPClient := TFPHTTPClient.Create(nil); FHTTPClient := TFPHTTPClient.Create(nil);
FHTTPClient.AllowRedirect := True;
if Options.ProxyEnabled then if Options.ProxyEnabled then
begin begin
FHTTPClient.Proxy.Host:= Options.ProxyServer; FHTTPClient.Proxy.Host:= Options.ProxyServer;