如何在 Basic4Android 中使用网络服务？答案

【问题标题】：how to use a webservice in Basic4Android?如何在 Basic4Android 中使用网络服务？
【发布时间】：2017-07-25 08:22:39
【问题描述】：

我需要在我的 b4a 项目中添加一个 web 服务 .. 请帮助我，我真的不知道该怎么做..我尝试了 https://www.b4x.com/android/forum/threads/how-call-a-web-services-in-b4a.10577/ 和 https://www.b4x.com/android/forum/threads/web-service-consume-in-b4a.17446/ 但它不起作用

【问题讨论】：

标签： web-services basic4android

【解决方案1】：

您的网络服务是什么？（Soap 或 Restful 或 XmlRPC）

肥皂用户https://www.b4x.com/android/forum/threads/soap-is-easier-with-soap-class.56164/#content

对于 XmlRPC，请使用 https://www.b4x.com/android/forum/threads/manage-xmlrpc-with-okhttputils-easily-b4x.82527/#content

为了安静使用 OkHttp 也

【讨论】：

【解决方案2】：

你可以使用 httpjob 。将这两个库添加到您的 b4a ： Okhttp 和 okhttputils2 。在 b4x 论坛中搜索 httjob 示例。

Dim job1 As HttpJob
DIm SoapXML  As String= your xml here
job1.Initialize("Job1", Me)
job1.poststring (webserviceaddress, SoapXML)
job1.GetRequest.SetContentType("text/xml")

你可以得到jobdone事件的结果。并使用saxxmlparser库解析它

 Sub JobDone (Job As HttpJob)
   If Job.Success = True Then
           parser.Parse(Job.GetInputStream ,"Parser")
       Else
      Log("Error: " & Job.ErrorMessage)
      End If
   Job.Release
End Sub

Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)

 ...
End Sub

【讨论】：