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

Removed debug output from GetServerURL()

Browse Source 
git-svn-id: trunk@33846 -
This commit is contained in:
marcus 2016-05-29 15:46:12 +00:00
parent 1bd43d9e37
commit 3d448cd55f
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -513,7 +513,6 @@ begin
Result:=':'+IntToStr(URI.Port)+Result;
Result:=URI.Protocol+'://'+URI.Host+Result;
end;
Writeln('Doing URL : ',Result);
end;
function TFPCustomHTTPClient.GetSocketHandler(const UseSSL: Boolean): TSocketHandler;