How to override a service name in WSDL using Delphi XE2?

Question

I am using Delphi XE2 to create a webservice application. However, I need to determine the name of the service according to the external specification.

Delphi adds a “service” to the default service name. Is it possible to override this?

The "service" is added in the TWebServEx.GenerateWSDL method (Soap.WebServExp, line 261).

Answer 1

You can use the OnAfterPublishingWSDL event of your TWSDLHTMLPublish component to change the service name:

 procedure TMyWebModule.WSDLHTMLPublishAfterPublishingWSDL(const WSDLDoc: IWSDLDocument); begin WSDLDoc.Definition.Attributes[SName] := 'MyServiceName'; end;