Realizar WebService en VB6 o ASP
La tecnología de servicios web permite que el entorno informático heterogéneo comparta datos y comunicación para lograr la consistencia de la información. Podemos usar
El protocolo HTTP Post/Get Protocol, SOAP para llamar a los servicios web.
1. Use el protocolo SOAP para llamar a los servicios web en VB6
;
<webMethod ()> _
Función pública getTring (byval str as string)
Regresa hola mundo, & str &!
función final
Los servicios web contienen solo un método GetString para devolver una cadena. Cuando llamamos a estos servicios web, el mensaje SOAP enviado a la página .smx fue ::
<? Versión XML = 1.0 codificación = utf-8?>
<Jabón: sobre xmlns: xsi = http://www.w3.org/2001/xmlschema-instance
xmlns: xsd = http://www.w3.org/2001/xmlschema xmlns: jabón = http: //
schemas.xmlsoap.org/soap/envelope/>
<Jabón: cuerpo>
<GetString xmlns = http://tempuri.org/testwebservice/service1>
<str> cadena </fuerte
</ettettring>
</jabón: cuerpo>
</jabón: sobre>
El mensaje SOAP devuelto es:
<? Versión XML = 1.0 codificación = utf-8?>
<Jabón: sobre xmlns: xsi = http://www.w3.org/2001/xmlschema-instance
xmlns: xsd = http://www.w3.org/2001/xmlschema xmlns: jabón =
http://schemas.xmlsoap.org/soap/envelope/>
<Jabón: cuerpo>
<GetStringResponse xmlns = http://tempuri.org/testwebservice/service1>
<tetTringRsult> string </getStringResult>
</GetTringResponse>
</jabón: cuerpo>
</jabón: sobre>
Este simple servicio web en VB6 puede usar el protocolo XMLHTTP para enviarlo a la página .asmx
Enviar jabón para implementar.
En VB6, cree un proyecto simple, la interfaz se muestra en la figura.
Servicios web individuales
Dim strxml como cadena
Dim str como cadena
str = text2.Text
'Defina los mensajes de jabón
Strxml = <?
xmlns: xsi = 'http://www.w3.org/2001/xmlschema-instance'
xmlns: xsd = 'http://www.w3.org/2001/xmlschema'
xmlns: jabón = 'http://schemas.xmlsoap.org/soap/envelope/'> <sap: body> <getString xmlns = 'http: //tempuri.org/testwebservice/service1'> <tr> & str.
</Strong </getstring> </jabón: cuerpo> </jabón: envolvente>
'Defina un objeto HTTP, envíe un mensaje de publicación al servidor
dim h como msxml2.serverxmlhttp40
'Defina un objeto de documento de XML, convierta la escritura a mano o el contenido XML aceptado en objetos XML
dim x como msxml2.document40
'Inicializar el objeto XML
establecer x = nuevo msxml2.document40
'Convierta la cadena de jabón escrita a mano en objeto XML
X.Loadxml strxml
'Inicializar el objeto HTTP
establecer h = nuevo msxml2.serverxmlhttp40
'Enviar mensaje de publicación a la URL especificada
H.open Post, http: //localhost/testwebservice/service1.asmx, falso
H.SetRequestHeader Content-Type, Text/XML
H.Send (STRXML)
Mientras que H.readyState <> 4
encaminarse a
'Mostrar la información XML devuelta
text1.text = H.ResponsExtext
'Analice la información XML devuelta y muestre el valor de retorno
establecer x = nuevo msxml2.document40
x.loadxml text1.text
text1.text = x.childnodes (1) .Text
Ingresamos "China" en el botón de texto y clic, para que podamos mostrar "Hello World, China" en el cuadro de texto a continuación. Mostrar como se muestra en la figura: