Melakukan layanan web di VB6 atau ASP
Teknologi Layanan Web memungkinkan lingkungan komputasi yang heterogen untuk berbagi data dan komunikasi untuk mencapai konsistensi informasi. Kita bisa menggunakannya
Protokol HTTP/Get Protocol, SOAP untuk menghubungi Layanan Web.
1. Gunakan protokol SOAP untuk menghubungi Layanan Web di VB6
; Pertama kali gunakan .net untuk merilis layanan web sederhana
<webmethod ()> _
Fungsi publik getString (byval str as string)
Kembalikan Hello World, & Str &!
fungsi akhir
Layanan Web hanya berisi satu metode getstring untuk mengembalikan string. Ketika kami memanggil layanan web ini, pesan SOAP yang dikirim ke halaman .smx adalah ::
<? Versi XML = 1.0 Encoding = UTF-8?>
<SOAP: amplop 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/>
<Soap: Body>
<GetString xmlns = http://tempuri.org/testwebservice/service1>
<str> string </strong
</getstring>
</sabun: body>
</sabun: amplop>
Pesan sabun yang dikembalikan adalah:
<? Versi XML = 1.0 Encoding = UTF-8?>
<SOAP: amplop 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/>
<Soap: Body>
<GetStringResponse xmlns = http://tempuri.org/testwebservice/service1>
<gittringrsult> string </settringResult>
</GetStringResponse>
</sabun: body>
</sabun: amplop>
Layanan web sederhana ini di VB6 dapat menggunakan protokol XMLHTTP untuk mengirimkannya ke halaman .asmx
Kirim sabun untuk diimplementasikan.
Di VB6, membangun proyek sederhana, antarmuka ditunjukkan pada gambar.
Layanan Web tunggal
Redup strxml sebagai string
redup str as string
str = text2.text
'Tentukan pesan sabun
Strxml = <? Xml Version = '1.0' encoding = '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/'> <gets: body> <gettring xmlns = 'http: //tempuri.org/testwebservice/service1'>
</strong </getstring> </an sabun: body> </an sabun: amplop>
'Tentukan objek HTTP, kirim pesan pos ke server
redup h sebagai msxml2.serverxmlhttp40
'Tentukan objek dokumen XML, ubah tulisan tangan atau konten XML yang diterima menjadi objek XML
redup x sebagai msxml2.document40
'Inisialisasi objek XML
set x = msxml2.document40 baru
'Konversi string sabun tulisan tangan ke objek XML
x.loadxml strxml
'Inisialisasi objek HTTP
set h = msxml2.serverxmlhttp40 baru
'Kirim pesan posting ke URL yang ditentukan
H.Open Post, http: //localhost/testwebservice/service1.asmx, false
H.SetRequestHeader Konten-Type, Teks/XML
H.Send (strxml)
Sedangkan H.ReadyState <> 4
pergi ke
'Tunjukkan informasi XML yang dikembalikan
Text1.Text = H.Responsetext
'Menganalisis informasi XML yang dikembalikan dan menampilkan nilai pengembalian
set x = msxml2.document40 baru
x.loadxml Text1.Text
text1.text = x.childnodes (1) .text
Kami memasukkan "China" di TextBox dan Klik tombol, sehingga kami dapat menampilkan "Hello World, China" di TextBox di bawah ini. Tunjukkan seperti yang ditunjukkan pada gambar: