mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-11 05:41:05 +01:00
* Allow re-directs on downloading files from repositories
git-svn-id: trunk@36511 -
This commit is contained in:
parent
743a000675
commit
72f2f400fe
@ -22,6 +22,7 @@ Procedure TFPHTTPDownloader.HTTPDownload(Const URL : String; Dest : TStream);
|
||||
begin
|
||||
With TFPHTTPClient.Create(Nil) do
|
||||
try
|
||||
AllowRedirect := True;
|
||||
Get(URL,Dest);
|
||||
Dest.Position:=0;
|
||||
finally
|
||||
|
||||
Loading…
Reference in New Issue
Block a user