浏览代码

--- Merging r33846 into '.':
U packages/fcl-web/src/base/fphttpclient.pp
--- Recording mergeinfo for merge of r33846 into '.':
U .

# revisions: 33846

git-svn-id: branches/fixes_3_0@34107 -

marco 9 年之前
父节点
当前提交
f564fd7114
共有 1 个文件被更改,包括 0 次插入1 次删除
  1. 0 1
      packages/fcl-web/src/base/fphttpclient.pp

+ 0 - 1
packages/fcl-web/src/base/fphttpclient.pp

@@ -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;