如何使用Delphi XE2覆盖WSDL中的服务名称？

Question

我正在使用Delphi XE2来创建webservice应用程序.但是我需要根据外部规范定义服务名称.

Delphi默认将"服务"添加到服务名称.有可能覆盖这个吗？

'service'在TWebServEx.GenerateWSDL方法中添加(Soap.WebServExp,第261行).

Answer 1

您可以使用组件的OnAfterPublishingWSDL事件TWSDLHTMLPublish来更改服务名称:

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