jimmysevenlopez
Member
Hola.
Tengo un webservice en net asmx que regresa un dataset.
Funciona bien en el navegador y regresa un XML con el resultado de mi consulta.
Deseo ese dataset utilizarlo en B4A y desplegar los datos en unas cajas de texto
He buscado y he llegado hasta este punto donde si entra al jobdone pero hasta ahí me quedé sin ningún error hasta el momento pero si me faltan los datos del dataset
¿Alguna ayuda en mi programación.?
Ya solo me falta resolver este detalle para seguir con mi aplicación.
Tengo un webservice en net asmx que regresa un dataset.
Funciona bien en el navegador y regresa un XML con el resultado de mi consulta.
Deseo ese dataset utilizarlo en B4A y desplegar los datos en unas cajas de texto
He buscado y he llegado hasta este punto donde si entra al jobdone pero hasta ahí me quedé sin ningún error hasta el momento pero si me faltan los datos del dataset
¿Alguna ayuda en mi programación.?
Ya solo me falta resolver este detalle para seguir con mi aplicación.
B4X:
#Region Project Attributes
#ApplicationLabel: DatosFinal
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Private xui As XUI
End Sub
Sub Globals
'These global variables will be redeclared each time the activity is created.
Dim xmlParser As SaxParser
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub Button1_Click
ConsumirServiciPOST("solo")
End Sub
Sub ConsumirServiciPOST(Solo As String)
Dim job1 As HttpJob
Dim XML As String
XML = "<?xml version='1.0' encoding='utf-8'?><soap12:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap12='http://www.w3.org/2003/05/soap-envelope'><soap12:Body><LeeDatos xmlns='http://192.168.0.7/CargaDatos/' /></soap12:Body></soap12:Envelope>"
job1.Initialize("JOBSOAP", Me)
job1.PostString ("http://192.168.0.7/CargaDatos/WebService1.asmx", XML)
job1.GetRequest.SetContentType("application/soap+xml")
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success Then
Select Job.JobName
Case "JOBSOAP"
Dim Res As String
Dim ResIS As InputStream
Res = Job.GetString
ResIS = Job.GetInputStream
'Dim wsTable As String = CommonFuncs.xmlGetTagContent(Res,"GetDataSetResult")
'xmlParser.Parse(ResIS,"xmlParserSub")
'ResIS.Close 'Close the inputstream
End Select
End If
Job.Release ' Release the job
End Sub
'Sub xmlParserSub_EndElement (Uri AsString, Name As String, Text As StringBuilder)
'If xmlParser.Parents.IndexOf("GetDataSetResult") > -1 Then
''do your additional parsing here..
'End If
'End Sub