pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

LazMapViewer: Fix error 302 in Synapse download engine

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6826 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-03-05 23:29:16 +00:00
parent ae6b7cc7f1
commit 59b8fabd5b
1 changed files with 23 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/lazmapviewer/source/addons/synapse_downloadengine/mvdlesynapse.pas
View File

@ -23,7 +23,7 @@ unit mvDLESynapse;
interface
uses
mvDownloadEngine, SysUtils, Classes, httpsend;
mvDownloadEngine, SysUtils, Classes, ssl_openssl, httpsend;
type
@ -65,6 +65,8 @@ end;
procedure TMVDESynapse.DownloadFile(const Url: string; str: TStream);
var
FHttp: THTTPSend;
realURL: String;
i: Integer;
begin
inherited DownloadFile(Url, str);
FHttp := THTTPSend.Create;
@ -78,11 +80,28 @@ begin
end;
if FHTTP.HTTPMethod('GET', Url) then
begin
// If its a 301 or 302 we need to do more processing
if (FHTTP.ResultCode = 301) or (FHTTP.ResultCode = 302) then
begin
// Check the headers for the Location header
for i := 0 to FHTTP.Headers.Count -1 do
begin
// Extract the URL
if Copy(FHTTP.Headers[i], 1, 8) = 'Location' then
realURL := copy(FHTTP.Headers[i], 11, Length(FHTTP.Headers[i]) - 10); //11);
end;
// If we have a URL, run it through the same function
if Length(realURL) > 1 then
DownloadFile(realURL, str);
end
else
begin
str.Seek(0, soFromBeginning);
str.CopyFrom(FHTTP.Document, 0);
str.Position := 0;
end;
end;
finally
FHttp.Free;
end;