Hi,
I am looking for some help around customizing my screen to consume external web service. I do have customwebapp code that am starting with. Any sample that would consume an external webservice within screens would be of help.
Thanks,
Fren
*This post is locked for comments
Hi,
Today, I don't have time to do a CRUD example, but for now this can help you.
Thanks to http://www.ediy.co.nz/vbjson-json-parser-library-in-vb6-xidc55680.html
Download file http://appsmexico.mx/shared_folder/vb6_json.rar
Add reference to:
C:\Windows\System32\msxml6.dll (Microsoft XML)
C:\Windows\System32\scrrun.dll (Microsoft Scripting Runtime)
C:\Program Files\Common Files\System\ado\msado.15.dll (Microsoft ActiveX Data Objects)
Add objects to proyect:
JSON.bas
cJSONScript.cls
cStringBuilder.cls
ThisScreen:
Option Explicit
Private Sub CNumber_Chk(ChkStrg As String, retval As Integer)
Dim vXmlHttp As MSXML2.XMLHTTP
Set vXmlHttp = New MSXML2.XMLHTTP
Dim vWebServiceUrl As String
Dim vResponse As String
vWebServiceUrl = "http://vmwamdeveloper/un-mx.net/WebServices/rest/Pantallas/GetPantallaById?pantallaId=" & ChkStrg
Call vXmlHttp.open("GET", vWebServiceUrl, False)
vXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Call vXmlHttp.send
vResponse = vXmlHttp.responseText
Dim vPantalla As Object
Set vPantalla = Json_Deserialize(vResponse)
Call SetObjectValue("cName", vPantalla.Item("Nombre"))
Set vXmlHttp = Nothing
End Sub
Hi Juan Carlos,
Thank you for your reply.
we are planning to consumre REST services, want to customize standard screens and perfrom CRUD operations and displaying data on the screen.
Hi Fren,
I think that we need more info about what you really needs.
Regards.
Stay up to date on forum activity by subscribing. You can also customize your in-app and email Notification settings across all subscriptions.
#1
André Arnaud de Cal...
291,280
Super User 2024 Season 2
#2
Martin Dráb
230,214
Most Valuable Professional
#3
nmaenpaa
101,156
Share
Report
All responses (
Answers (