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

chmhelp: Add resource protection block to TIpChmDataProvider.BuildURL

Browse Source 
git-svn-id: trunk@56129 -
This commit is contained in:
wp 2017-10-18 17:49:55 +00:00
parent faa58c53b1
commit 11aad71dab
1 changed files with 28 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
components/chmhelp/lhelp/chmdataprovider.pas
View File

@ -195,36 +195,39 @@ begin
end;
ParentDirs := GetDirsParents(OldURL);
RemoveDirCount := 0;
repeat
X := Pos('../', fNewURL);
if X > 0 then
begin
Delete(fNewURL, X, 3);
Inc(RemoveDirCount);
end;
until X = 0;
try
RemoveDirCount := 0;
repeat
X := Pos('../', fNewURL);
if X > 0 then
begin
Delete(fNewURL, X, 3);
Inc(RemoveDirCount);
end;
until X = 0;
repeat
X := Pos('./', fNewURL);
if X > 0 then
Delete(fNewURL, X, 2);
until X = 0;
repeat
X := Pos('./', fNewURL);
if X > 0 then
Delete(fNewURL, X, 2);
until X = 0;
Result := '';
for X := 0 to ParentDirs.Count-RemoveDirCount-1 do
Result := Result + ParentDirs[X] + '/';
Result := '';
for X := 0 to ParentDirs.Count-RemoveDirCount-1 do
Result := Result + ParentDirs[X] + '/';
Result := Result+fNewURL;
Result := Result+fNewURL;
repeat
X := Pos('//', Result);
if X > 0 then
Delete(Result, X, 1);
until X = 0;
repeat
X := Pos('//', Result);
if X > 0 then
Delete(Result, X, 1);
until X = 0;
ParentDirs.Free;
//WriteLn('res = ', Result);
finally
ParentDirs.Free;
//WriteLn('res = ', Result);
end;
end;
function TIpChmDataProvider.GetDirsParents(ADir: String): TStringList;