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

Question

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

Delphi 默认将“service”添加到服务名称中。是否可以覆盖这个？

“服务”添加到 TWebServEx.GenerateWSDL 方法中(Soap.WebServExp，第 261 行)。

Answer 1

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

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