我实现了这个简单的webservice示例: Creating and Consuming Soap Services in Delphi.我在示例中添加了一个多设备应用程序。 它在Windows平台上运行良好,它在三星S6边缘浏览器上运行良好。 但它崩溃执行Android应用程序。
这是服务器端代码:
TMyService = class(TInvokableClass, IMyService)
public
function HelloWorld : String; stdcall;
end;
...
function TMyService.HelloWorld: String;
begin
Result := 'HelloWorld';
end;
这是客户端代码
procedure TForm3.Button5Click(Sender: TObject);
var
Service: IMyService;
begin
// capture interface to service
Service := unitIMyService.GetIMyService();
edit1.Text := Service.HelloWorld; // It crashes here
...
end;
是否有任何错误,或者我在android方面遗漏了什么?