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

* Use AppendPathInfo

Browse Source 
git-svn-id: trunk@43061 -
This commit is contained in:
michael 2019-09-23 15:19:25 +00:00
parent 43685c95a8
commit 85616e7dc7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/examples/simpleserver/simpleserver.pas
View File

@ -132,7 +132,7 @@ begin
EHTTP.CreateFmt('Invalid proxy definition: %s',[aProxyDef]); EHTTP.CreateFmt('Invalid proxy definition: %s',[aProxyDef]);
N:=Copy(aProxyDef,1,P-1); N:=Copy(aProxyDef,1,P-1);
URL:=Copy(aProxyDef,P+1,Length(aProxyDef)); URL:=Copy(aProxyDef,P+1,Length(aProxyDef));
ProxyManager.RegisterLocation(N,URL); ProxyManager.RegisterLocation(N,URL).AppendPathInfo:=True;
end; end;
@ -177,7 +177,7 @@ begin
begin begin
L.GetNameValue(I,P,U); L.GetNameValue(I,P,U);
if (P<>'') and (U<>'') then if (P<>'') and (U<>'') then
ProxyManager.RegisterLocation(P,U); ProxyManager.RegisterLocation(P,U).AppendPathInfo:=true;
end; end;
finally finally
L.Free; L.Free;