ดำเนินการเว็บไซต์ใน VB6 หรือ ASP
เทคโนโลยีบริการเว็บช่วยให้สภาพแวดล้อมการคำนวณที่แตกต่างกันสามารถแบ่งปันข้อมูลและการสื่อสารเพื่อให้ได้ข้อมูลที่สอดคล้องกัน เราสามารถใช้
โปรโตคอล HTTP Post/Get, โปรโตคอล SOAP เพื่อเรียกบริการเว็บ
1. ใช้โปรโตคอล SOAP เพื่อเรียกบริการเว็บใน VB6
;
<webMethod ()> _
ฟังก์ชั่นสาธารณะ getString (byval st string)
กลับมา Hello World & Str &!
ฟังก์ชันสิ้นสุด
บริการเว็บมีวิธีการ getString เพียงวิธีเดียวเท่านั้นที่จะส่งคืนสตริง เมื่อเราเรียกบริการเว็บนี้ข้อความ SOAP ที่ส่งไปยังหน้า. SSMX คือ ::
<? XML เวอร์ชัน = 1.0 การเข้ารหัส = UTF-8?>
<SOAP: ซองจดหมาย 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: body>
</soap: ซองจดหมาย>
ข้อความ SOAP ที่ส่งคืนคือ:
<? XML เวอร์ชัน = 1.0 การเข้ารหัส = UTF-8?>
<SOAP: ซองจดหมาย 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>
<TetStringRsult> สตริง </getStringResult>
</getStringResponse>
</soap: body>
</soap: ซองจดหมาย>
บริการเว็บง่าย ๆ นี้ใน VB6 สามารถใช้โปรโตคอล XMLHTTP เพื่อส่งไปยังหน้า. asmx
ส่งสบู่ไปใช้
ใน VB6 สร้างโครงการง่าย ๆ อินเทอร์เฟซจะแสดงในรูป
บริการเว็บเดี่ยว
dim strxml เป็นสตริง
Dim Str เป็นสตริง
str = text2.text
'กำหนดข้อความสบู่
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'
</strong </getstring> </soap: body> </soap: envelope>
'กำหนดวัตถุ HTTP ส่งข้อความโพสต์ไปยังเซิร์ฟเวอร์
Dim H เป็น msxml2.serverxmlhttp40
'กำหนดวัตถุเอกสารของ XML แปลงเนื้อหาการเขียนด้วยลายมือหรือเนื้อหา XML ที่ได้รับการยอมรับเป็นวัตถุ XML
dim x เป็น 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
เราป้อน "จีน" ในกล่องข้อความและคลิกปุ่มเพื่อให้เราสามารถแสดง "Hello World, China" ในกล่องข้อความด้านล่าง แสดงตามที่แสดงในรูป: