Mener le service Web dans VB6 ou ASP
Web Services Technology permet à l'environnement informatique hétérogène de partager les données et la communication afin d'atteindre la cohérence des informations. Nous pouvons utiliser
Le protocole HTTP Post / Get, Protocole SOAP pour appeler les services Web.
1. Utilisez le protocole SOAP pour appeler les services Web dans VB6
;
<webMethod ()> _
Fonction publique GetString (Byval Str comme chaîne)
Retour Hello World, & Str &!
fonction finale
Les services Web ne contient qu'une seule méthode GetString pour renvoyer une chaîne. Lorsque nous appelons ces services Web, le message SOAP envoyé à la page .smx était ::
<?
<SOAP: Enveloppe XMLNS: xsi = http://www.w3.org/2001/xmlschema-instance
xmlns: xsd = http://www.w3.org/2001/xmlschema xmlns: soap = http: //
schémas.xmlsoap.org/soap/envelope/>
<Savon: corps>
<GetString xmlns = http://tempuri.org/testwebservice/service1>
<str> String </ Strong
</ getString>
</ savon: corps>
</ savon: enveloppe>
Le message de savon renvoyé est:
<?
<SOAP: Enveloppe XMLNS: xsi = http://www.w3.org/2001/xmlschema-instance
xmlns: xsd = http://www.w3.org/2001/xmlschema xmlns: savon =
http://schemas.xmlsoap.org/soap/envelope/>
<Savon: corps>
<GetStringResponse xmlns = http://tempuri.org/testwebservice/service1>
<GetStringRsult> String </ getStringResult>
</ GetStringResponse>
</ savon: corps>
</ savon: enveloppe>
Ce service Web simple dans VB6 peut utiliser le protocole XMLHTTP pour l'envoyer à la page .asmx
Envoyer du savon pour implémenter.
Dans VB6, créez un projet simple, l'interface est montrée sur la figure.
Services Web uniques
Dim Strxml comme chaîne
Dim Str comme chaîne
str = text2.Text
'Définir les messages 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: //trempuri.org/testwebservice/service1'> <str & st & str & str & str & strad & str & strad & strad & str & str & strad & str & strad & str & strad & str & str & str & str & strad & str & strad & str & str & strad & str & str & str & str & str & str & str & strad & stre
</ Strong </ getString> </ Soap: Body> </ SOAP: Enveloppe>
«Définissez un objet HTTP, envoyez un message de publication au serveur
dim h comme msxml2.serverxmlhttp40
«Définissez un objet de document de XML, convertissez la manuscrite ou le contenu XML accepté en objets XML
Dim x comme msxml2.document40
'Initialiser l'objet XML
Définir x = nouveau msxml2.document40
'Convertir la chaîne de savon manuscrite en objet XML
x.loadxml strXml
'Initialiser l'objet HTTP
set h = nouveau msxml2.serverxmlhttp40
'Envoyer un message de publication à l'URL spécifiée
H.Open Post, http: //localhost/testwebservice/service1.asmx, false
Type de contenu H.SetRequestHeader, texte / xml
H.Send (Strxml)
Tandis que H.readystate <> 4
se promener
'Afficher les informations XML retournées
text1.text = h.ResponSeText
'Analysez les informations XML renvoyées et affichez la valeur de retour
Définir x = nouveau msxml2.document40
x.loadxml text1.Text
text1.text = x.childnodes (1) .Text
Nous entrons "Chine" dans la zone de texte et cliquez sur le bouton, afin que nous puissions afficher "Hello World, China" dans TextBox ci-dessous. Afficher comme indiqué sur la figure: