रीस्टफुल वेब सेवा

Question

पर प्राप्त/पोस्ट करें मुझे वीबी 6 से एक शानदार वेब सेवा में कुछ गेटिंग और पोस्ट करने की आवश्यकता है। ऐसा करने का सबसे अच्छा और सरल तरीका क्या है?

Answer 1

आप MSXML पुस्तकालय के लिए एक संदर्भ जोड़ने की आवश्यकता होगी :

Dim sUrl As String 
Dim response As String 
Dim xmlhttp 

Set sUrl = "http://my.domain.com/service/operation/param" 

Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "POST", sURL, False 
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
xmlhttp.send() 

Dim response As String = xmlhttp.responseText 

Set xmlhttp = Nothing 

Answer 2

आप प्राप्त करने के लिए की जरूरत है/एक बाकी वेब सेवा से पोस्ट आप बस वेब सेवा का URL के लिए एक HTTP अनुरोध लिख सकते हैं:

http://www.webservicehost.com/webserviceop?<any parameters> 

आप उन्हें क्रमानुसार करने की आवश्यकता होगी आप जटिल वस्तुओं पारित करने के लिए की जरूरत है और फिर उन्हें पारित रूप में मानकों

फिर आप में जो कुछ भी प्रारूप वेब सेवा के रूप में (JSON, एक्सएमएल, आदि) लौटने का फैसला करता है HTTP प्रतिक्रिया प्राप्त कर सकते हैं

Answer 3

मुझे हाल ही में पुराने विरासत आवेदन में जीईटी अनुरोधों के लिए इसकी आवश्यकता है, और चूंकि स्वीकृत उत्तर संकलित नहीं होता है, इसलिए मैंने सोचा कि मैं कुछ कामकाजी कोड पोस्ट करूंगा। मुझे यकीन है कि यह भविष्य में वीबी 6 का उपयोग करके कुछ गरीबों की मदद करेगा;) यहां एक अच्छा साफ कार्य है।

Dim result As String 
Dim url As String 

url = "http://my.domain.com/service/operation/param" 
result = WebRequest(url) 

मुबारक VB6ing:

Public Function WebRequest(url As String) As String 
    Dim http As MSXML2.XMLHTTP 
    Set http = CreateObject("MSXML2.ServerXMLHTTP") 

    http.Open "GET", url, False 
    http.Send 

    WebRequest = http.responseText 
    Set http = Nothing 
End Function 

और यहाँ उदाहरण उपयोग है! :)