Delphi Win32 从 ASP.NET 服务接收数据表

Question

我正在构建一个 Delphi Win32 应用程序，它应该使用 Soap 服务，结果是一个基于 .NET 的应用程序。一个函数返回一个数据表。当然，Delphi Win32（不是 Delphi .NET）本身无法理解这一点。

我有什么办法可以让它发挥作用吗？我也很乐意手动解析 XML，但我不知道如何获取原始 XML 响应。

WSDL：https://stratus.voxamvia.co.za/api.asmx?WSDL< /a>

函数：GetNotifications 返回 GetNotificationsResult，其构建为：

  GetNotificationsResult = class(TRemotable)
  private
    Fnamespace: WideString;
    Fnamespace_Specified: boolean;
    FtableTypeName: WideString;
    FtableTypeName_Specified: boolean;
    procedure Setnamespace(Index: Integer; const AWideString: WideString);
    function  namespace_Specified(Index: Integer): boolean;
    procedure SettableTypeName(Index: Integer; const AWideString: WideString);
    function  tableTypeName_Specified(Index: Integer): boolean;
  published
    property namespace:     WideString  Index (IS_ATTR or IS_OPTN) read Fnamespace write Setnamespace stored namespace_Specified;
    property tableTypeName: WideString  Index (IS_ATTR or IS_OPTN) read FtableTypeName write SettableTypeName stored tableTypeName_Specified;
  end;

任何帮助表示赞赏！

如果我实现 RemObjects 有帮助吗？

Answer 1

您可以从 xml 构建数据集。这应该为您提供一个起点： http://www.gekko-software.nl/DotNet /Art07.htm 和 http://www.gekko-software.nl/DotNet/Art08.htm。

我没有使用过 RemObjects 中的 DataAbstract，所以我无法给出建议。

LE：您可以按照 drbob 写的这篇简单文章来访问和使用 .net 编写的 Web 服务 - Consuming C# Web Services with Delphi 7 Professional

其中还包含一个关于如何动态构建以及如何使用 THttpRio 的小示例（与 Mikael 的相同）埃里克森的回答）

Answer 2

有什么办法可以让它发挥作用吗？我很乐意手动解析 XML
我也是，但我不知道如何获取原始 XML 响应。

您可以在 OnAfterExecuteEvent 中获取它在你的THTTPRIO 组件。在那里您将有 SOAPResponse: TStream 作为参数。

更新：

要触发事件，您需要添加 THTTPRIO 组件、创建事件处理程序并使用 RIO 组件作为 GetAPISoap 的第三个参数。

这对我有用。 HTTPRIO1 是表单上的一个组件。

procedure TForm7.Button1Click(Sender: TObject);
var
  A: APISoap;
begin
  A := GetAPISoap(False, '', HTTPRIO1);
  A.Validate_User('', '');
end;