Realizar serviço da web em VB6 ou ASP
A tecnologia de serviços da Web permite que o ambiente de computação heterogênea compartilhe dados e comunicação para obter a consistência das informações. Nós podemos usar
O protocolo HTTP Post/Get Protocol, SOAP para chamar serviços da Web.
1. Use o protocolo SOAP para chamar os serviços da Web em VB6
Primeiro uso .NET para liberar um serviço da web simples
<webmethod ()> _
Função pública Getting (BYVAL STR AS String)
Retorne Hello World, & str &!
Função final
Os Serviços da Web contêm apenas um método para retornar uma string. Quando chamamos esse serviço da web, a mensagem SOAP enviada para a página .smx foi ::
<?
<SOAP: envelope 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/>
<Sabão: corpo>
<Getstring xmlns = http://tempuri.org/testwebservice/service1>
<Str> string </strong
</getstring>
</sabão: corpo>
</sabão: envelope>
A mensagem de sabão devolvida é:
<?
<SOAP: envelope 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/>
<Sabão: corpo>
<GetstringResponse xmlns = http://tempuri.org/testwebservice/service1>
<Getstringrsult> string </ getstringResult>
</GetStringResponse>
</sabão: corpo>
</sabão: envelope>
Este serviço da web simples no VB6 pode usar o protocolo XMLHTTP para enviá -lo para a página .asmx
Envie sabão para implementar.
No VB6, construa um projeto simples, a interface é mostrada na figura.
Serviços da Web única
Dim strxml como string
Dim str como string
str = text2.text
'Defina mensagens de sabão
Strxml = <? Xml versão = '1.0' coding = 'utf-8'?
xmlns: xsi = 'http://www.w3.org/2001/xmlschema-instance'
xmlns: xsd = 'http://www.w3.org/2001/xmlschema'
xmlns: sabonete = 'http://schemas.xmlsoap.org/soap/envelope/'> <Sap: body> <getsTtring xmlns = 'http: //tempuri.org/testwebservice/service1'> <stre> & str & &
</strong </tetstring> </sabão: Body> </sabão: envelope>
'Defina um objeto HTTP, envie uma mensagem de postagem para o servidor
Dim H como msxml2.ServerxMlHttp40
'Defina um objeto de documento de XML, converta a caligrafia ou o conteúdo XML aceito em objetos XML
Dim x como msxml2.document40
'Inicialize o objeto XML
set x = novo msxml2.document40
'Converta a sequência de sabão manuscrita em objeto XML
x.loadxml strxml
'Inicialize o objeto HTTP
SET H = novo msxml2.ServerxmlHttp40
'Enviar mensagem de postagem para o URL especificado
H.Open Post, http: //localhost/testwebsservice/service1.asmx, false
H.SetRequestHeader Content-Type, Text/XML
H.send (strxml)
Enquanto H.ReadyState <> 4
Wend
'Mostre as informações XML retornadas
text1.Text = h.ResponseText
'Analise as informações XML retornadas e exiba o valor de retorno
set x = novo msxml2.document40
x.loadxml text1.text
text1.text = x.childnodes (1) .text
Entramos "China" na caixa de texto e clique em botão, para que possamos exibir "Hello World, China" na caixa de texto abaixo. Mostre como mostrado na figura: