إجراء خدمة ويب في VB6 أو ASP
تتيح تكنولوجيا خدمات الويب بيئة الحوسبة غير المتجانسة مشاركة البيانات والاتصالات لتحقيق اتساق المعلومات. يمكننا استخدام
بروتوكول HTTP Post/GET ، بروتوكول الصابون للاتصال بخدمات الويب.
1. استخدم بروتوكول الصابون للاتصال بخدمات الويب في VB6
؛
<WebMethod ()> _
الوظيفة العامة getString (Byval str as string)
إرجاع مرحبا العالم ، & str &!
وظيفة نهاية
تحتوي خدمات الويب على طريقة GetString واحدة فقط لإرجاع سلسلة. عندما نسمي خدمات الويب هذه ، كانت رسالة الصابون المرسلة إلى صفحة .smx هي ::
<إصدار XML؟
<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/>
<الصابون: الجسم>
<getstring xmlns = http://tempuri.org/testwebservice/service1>
<str> سلسلة </strong
</getstring>
</soap: الجسم>
</soap: الظرف>
رسالة الصابون التي تم إرجاعها هي:
<إصدار XML؟
<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/>
<الصابون: الجسم>
<getStringResponse xmlns = http://tempuri.org/testwebservice/service1>
<GetStringRsult> سلسلة </getStringResult>
</getStringResponse>
</soap: الجسم>
</soap: الظرف>
يمكن لخدمة الويب البسيطة في VB6 استخدام بروتوكول XMLHTTP لإرسالها إلى صفحة .asmx
إرسال الصابون للتنفيذ.
في VB6 ، بناء مشروع بسيط ، يتم عرض الواجهة في الشكل.
خدمات ويب واحدة
Dim Strxml كسلسلة
Dim Str كسلسلة
str = text2.text
تحديد رسائل الصابون
strxml = <
xmlns: xsi = 'http://www.w3.org/2001/xmlschema-inostance'
xmlns: xsd = 'http://www.w3.org/2001/xmlschema'
xmlns: soap = 'http://schemas.xmlsoap.org/soap/envelope/'> <sap: body> <gettring xmlns = 'http: //tempuri.org/testwebservice/service1'>
</strong </getstring> </soap: body> </soap: envelope>
حدد كائن HTTP ، أرسل رسالة منشور إلى الخادم
Dim H مثل msxml2.serverxmlhttp40
حدد كائن مستند لـ XML ، وتحويل محتوى XML المقبول إلى محتوى XML المقبول إلى كائنات XML
Dim X مثل msxml2.document40
تهيئة كائن XML
set x = new msxml2.document40
قم بتحويل سلسلة الصابون المكتوبة بخط اليد إلى كائن XML
x.loadxml strxml
تهيئة كائن HTTP
SET H = جديد msxml2.serverxmlhttp40
أرسل رسالة نشر إلى عنوان URL المحدد
H.Open Post ، http: //localhost/testwebservice/service1.asmx ، false
H.SetRequestHeader من النوع ، Text/XML
H.Send (Strxml)
بينما h.readyState <> 4
ويند
عرض معلومات XML التي تم إرجاعها
text1.text = h.responsetext
قم بتحليل معلومات XML التي تم إرجاعها وعرض قيمة الإرجاع
set x = new msxml2.document40
x.loadxml text1.text
text1.text = x.childnodes (1) .Text
ندخل "الصين" في زر Textbox و Click ، حتى نتمكن من عرض "Hello World ، China" في مربع النص أدناه. تظهر كما هو موضح في الشكل: