适用于 Android 的 C++ Builder WSDL 客户端

Question

我有一个令人困惑的问题。 我正在尝试制作一个使用WSDL的 Web 客户端。 我正在使用 C++ RAD Studio 10 Seattle，但在 RAD Studio XE8（旧版本）中也出现了同样的问题。

1.我创建了一个多设备应用程序，添加了一个编辑组件和一个按钮。

2.我通过将 WSDL 文件的位置更改为：“ http://www.w3schools.com/webservices/tempconvert.asmx?WSDL ”来创建一个WSDL导入器，并将所有其他设置保留为默认值。

3.在按钮的ButtonClick事件上我写了两行代码：

 _di_TempConvertSoap Converter = GetTempConvertSoap(true,    
 "http://www.w3schools.com/webservices/tempconvert.asmx?WSDL");

 Edit1->Text = Converter->CelsiusToFahrenheit("32");

所以在这三个步骤之后，我有了一个单元，它是带有 Form 和按钮事件的主单元。 以及 WSDL 导入程序生成的一个文件“tempconvert.cpp” 。 它实际上只是将 WSDL 代码转换为 C++ 代码并定义与服务器通信的方法。 就我而言，我有两种方法： FahrenheitToCelsius()和CelsiusToFahrenheit() ，在示例中我使用CelsiusToFahrenheit() 。

我将它编译到 32 位 Windows 平台，运行它，当我单击按钮时，结果“89.6”出现在 Edit 组件的文本中。 所以这是按预期工作的。

但是当我将目标平台更改为“Android”并使用带有Android 4.1.2的手机“Samsung GT-I8262”并运行该项目时，它只是停止并退出。 我调试了这个问题，它在RegTypes()方法的"tempconvert.cpp"中的第一个命令处停止。

// ************************************************************************ 
//
// This routine registers the interfaces and types exposed by the WebService.
// ************************************************************************ //
static void RegTypes()
{
  /* TempConvertSoap */
  InvRegistry()->RegisterInterface(__delphirtti(TempConvertSoap), L"http://www.w3schools.com/webservices/", L"utf-8");
  InvRegistry()->RegisterDefaultSOAPAction(__delphirtti(TempConvertSoap), L"http://www.w3schools.com/webservices/%operationName%");
  InvRegistry()->RegisterInvokeOptions(__delphirtti(TempConvertSoap), ioDocument);
  /* TempConvertSoap.FahrenheitToCelsius */
  InvRegistry()->RegisterMethodInfo(__delphirtti(TempConvertSoap), "FahrenheitToCelsius", "",
                                    "[ReturnName='FahrenheitToCelsiusResult']", IS_OPTN);
  /* TempConvertSoap.CelsiusToFahrenheit */
  InvRegistry()->RegisterMethodInfo(__delphirtti(TempConvertSoap), "CelsiusToFahrenheit", "",
                                    "[ReturnName='CelsiusToFahrenheitResult']", IS_OPTN);
  /* TempConvertHttpPost */
  InvRegistry()->RegisterInterface(__delphirtti(TempConvertHttpPost), L"http://www.w3schools.com/webservices/", L"utf-8");
  InvRegistry()->RegisterDefaultSOAPAction(__delphirtti(TempConvertHttpPost), L"");
}
#pragma startup RegTypes 32

有人知道为什么会发生这种情况吗？ 我尝试了另外两部三星手机，但没有奏效。 关闭程序的错误是“Segmentation fault(11)”，更准确地说，它停在“System.pas”文件中的以下代码行：

u_strFromUTF8(PUChar(Dest), MaxDestChars, DestLen, MarshaledAString(Source), SourceBytes, ErrorConv);

以下是我发现的有关该功能的一些信息：

1. u_strFromUTF8 - 将 UTF-8 字符串转换为 UTF-16 的函数。
2. UCHAR 是一个 Byte（在 Delphi 中），所以 PUCHAR 是一个指向 Byte 的指针。

我不知道这个函数可能会出什么问题，它显然只转换一个字符串。

所以我的问题是为什么该项目可以在 Windows 32 位版本上运行，但在 Android 上它会引发 Segmentation fault(11)？

我希望我能找到解决这个问题的方法。 我会继续寻找。

谢谢，

兹德拉夫科·多涅夫 :)

更新：

我拆解了这条线：

InvRegistry()->RegisterInterface(__delphirtti(TempConvertSoap), L"http://www.w3schools.com/webservices/", L"utf-16");

要得到 ：

  TInvokableClassRegistry *Class = InvRegistry();
  TTypeInfo *Info = __delphirtti(TempConvertSoap);
  UnicodeString Namespace = "http://www.w3schools.com/webservices/";
  UnicodeString WSDLEncoding = "utf-8";

  Class->RegisterInterface(Info, Namespace, WSDLEncoding);

而且我看到调用InvRegistry()函数时出现了问题，但由于我无法访问该函数的源代码，我仍然没有发现问题。

Answer 1

我找到了解决方案。

我删除了该行

#pragma startup RegTypes 32

并在我创建表单时自己调用方法RegTypes()并且它起作用了。