Провести веб -сервис в VB6 или ASP
Технология веб -сервисов позволяет гетерогенной вычислительной среде обмениваться данными и общением для достижения согласованности информации. Мы можем использовать
Протокол HTTP Post/Get, SOAP Protocol для вызова веб -сервисов.
1. Используйте протокол SOAP для вызова веб -служб в VB6
;
<webmethod ()> _
Публичная функция GetString (Byval Str в качестве строки)
Вернуться Hello World, и Str &!
конечная функция
Веб -сервис содержит только один метод GetRstring для возврата строки. Когда мы называем эти веб -сервисы, сообщение SOAP, отправленное на страницу .SMX, было ::
<?
<SOAP: Overvelope xmlns: xsi = http://www.w3.org/2001/xmlschema-instance
xmlns: xsd = http://www.w3.org/2001/xmlschema xmlns: soap = http: //
Schemas.xmlsoap.org/soap/envelope/>
<Мыло: тело>
<GetString xmlns = http://tempuri.org/testwebservice/service1>
<str> String </strong
</getString>
</Мыло: тело>
</SOAP: конверт>
Возвращаемое сообщение SOAP:
<?
<SOAP: Overvelope xmlns: xsi = http://www.w3.org/2001/xmlschema-instance
xmlns: xsd = http://www.w3.org/2001/xmlschema xmlns: soap =
http://schemas.xmlsoap.org/soap/envelope/>
<Мыло: тело>
<GetStringResponse xmlns = http://tempuri.org/testwebservice/service1>
<GetStringrSult> String </getStringResult>
</GetStringResponse>
</Мыло: тело>
</SOAP: конверт>
Этот простой веб -сервис в VB6 может использовать протокол XMLHTTP, чтобы отправить его на страницу .asmx
Отправить мыло для реализации.
В VB6 построить простой проект, интерфейс показан на рисунке.
Одиночные веб -сервисы
Dim Strxml как строка
Dim Str как строка
str = text2.text
'Определите сообщения SOAP
Strxml = <?
xmlns: xsi = 'http://www.w3.org/2001/xmlschema-instance'
xmlns: xsd = 'http://www.w3.org/2001/xmlschema'
xmlns: soap = 'http://schemas.xmlsoap.org/soap/envelope/'> <sap: body> <getstring xmlns = 'http: //tempuri.org/testwebservice/service1'> <str> & str &
</strong </getString> </soap: body> </soap: envelope>
'Определите объект HTTP, отправьте сообщение сообщений на сервер
Dim H как msxml2.serverxmlhttp40
'Определить объект документа XML, преобразовать почерк или принятое контент XML в объекты XML
Dim x as msxml2.document40
'Инициализировать объект XML
Установите x = новый MSXML2.document40
'Преобразовать рукописную мыльную строку в объект XML
x.loadxml strxml
'Инициализировать объект HTTP
Установите H = новый MSXML2.serverxmlhttp40
'Отправить сообщение в указанный URL -адрес
H.Open post, http: //localhost/testwebservice/service1.asmx, false
H.SetRequestheader-тип контента, текст/XML
H.Send (Strxml)
В то время как H.ReadyState <> 4
Венд
'Покажите возвращенную информацию XML
text1.text = h.responsetext
'Проанализируйте возвращенную информацию XML и отобразите возвратное значение
Установите x = новый MSXML2.document40
x.loadxml text1.text
text1.text = x.childnodes (1) .Text
Мы вводим «Китай» в Textbox и нажимайте кнопку, чтобы отобразить «Hello World, China» в текстовом поле ниже. Показать, как показано на рисунке: