fixed: TIdSoapWebBroker: WSDL is not generated

WSDL is generated for the service. Service anname is taken from URL
cutting `/wsdl*/` part, but not all ther servers set URL.
Let's rely on PATH_INFO.

source/IdSoapWebBroker.pas

@@ -277,7 +277,7 @@ function TIdSoapWebBrokerWSDL.DispatchRequest(ASender: TObject; ARequest: TWebRe
   LResponseStream := TStringStream.Create('');
   try
     FServer.GenerateWSDLPage(Copy(FWebDispatch.PathInfo, 1, Length(FWebDispatch.PathInfo) - 1),
-                             copy(ARequest.URL, length(FWebDispatch.PathInfo), $FF),
+                             copy(ARequest.PathInfo, length(FWebDispatch.PathInfo), $FF),
                              ARequest.Host + '/' + copy(FServer.WebDispatch.PathInfo, 1, length(FServer.WebDispatch.PathInfo)-1),
                              LResponseStream, LContentType);
     AResponse.ContentType := LContentType;