VB6 ติดต่อ ASP.NET WebService

ช่วงนี้มีโอกาสกลับไปแก้โปรแกรมเก่าที่เขียนด้วย VB6 ครับ และแน่นอนงานที่แก้ก็คือให้โปรแกรมมันทำงานกับ WebServices ได้นั่นเอง หลังจากลองๆค้นไปค้นมา ก็เลยทำโปรแกรมทดสอบมาก่อนครับ

เริ่มต้นที่ ASP.NET WebServices กันก่อน แรกสุดก็สร้าง Employee Class ครับ

<Serializable()> _
<System.ComponentModel.DefaultProperty("EmployeeID")> _
Public Class Employee

    Private _employeeId As String
    Private _employeeName As String
    Private _employeeSurnam As String

    Public Property EmployeeSurname() As String
        Get
            Return _employeeSurnam
        End Get
        Set(ByVal value As String)
            _employeeSurnam = value
        End Set
    End Property

    Public Property EmployeeName() As String
        Get
            Return _employeeName
        End Get
        Set(ByVal value As String)
            _employeeName = value
        End Set
    End Property

    Public Property EmployeeId() As String
        Get
            Return _employeeId
        End Get
        Set(ByVal value As String)
            _employeeId = value
        End Set
    End Property

    Public Overrides Function ToString() As String
        Return EmployeeId
    End Function

    Public Function Save() As Boolean
        Return True
    End Function

End Class

ที่จริงมี EmployeeManager Class ด้วย แต่ว่าขี้เกียจเอามาลงให้ดู ทีนี้ก็มาสร้าง WebServices กันครับ

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="http://jnithi/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class EmployeeWS
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetEmployee(ByVal empID As String) As Employee
        Dim emp As Employee = Nothing
        emp = EmployeeManager.GetEmployeeByID(empID)
        Return emp
    End Function

    <WebMethod()> _
    Public Function UpdateEmployee(ByVal empID As String, ByVal empName As String, ByVal empSurname As String) As Boolean
        Dim emp As Employee = Nothing
        Dim result As Boolean = False
        emp = EmployeeManager.GetEmployeeByID(empID)
        emp.EmployeeName = empName
        emp.EmployeeSurname = empSurname
        result = emp.Save
        Return result
    End Function

End Class

ลองรัน WebServices ดูครับ ไปที่ http://nithi/TestWeb/EmployeeWS.asmx จะเห็นว่ามี Service 2 ตัว ตามที่เราสร้างไว้ครับ กดเลือก GetEmployee เพื่อดู Service Description

ดูที่ SOAP 1.1 ครับ เดี๋ยวเราจะนำข้อมูลตรงนี้ไปใช้ในการเรียก WebService

ส่วนของ SOAP Request


ส่วนของ SOAP Response


คราวนี้มาที่ VB6 บ้าง เริ่มจากสร้าง Project ใหม่ จากนั้นก็สร้าง Class ชื่อ clsEmployee ครับ ให้มี Property 3 ตัวเหมือนฝั่ง .NET ทีนี้ก็มาสร้าง Class สำหรับจัดการ WebService ครับ ตั้งชื่อ clsEmployeeWS ก่อนอื่นก็ Add Reference ก่อนครับ เลือก Microsoft XML, v4.0 (ผมลองตั้งแต่ v 2.6 ก็ใช้ได้หมดครับ เลยเลือกอันกลางๆ)แล้วก็เขียนโค้ดได้เลย

Dim asmxURL As String
Dim soapAction As String
Dim soapEnvelop As String
Dim domResult As MSXML2.DOMDocument

Private Function GetResponse(URL As String, action As String, envelop As String) As MSXML2.DOMDocument
    Dim xmlHTTP As New MSXML2.xmlHTTP
    Dim domReturn As New MSXML2.DOMDocument
    Dim domDOC As New MSXML2.DOMDocument
    
    domDOC.loadXML envelop
    
    xmlHTTP.Open "POST", URL, False
    
    ' Create headings
    xmlHTTP.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
    xmlHTTP.setRequestHeader "SOAPAction", action
    
    ' Send
    xmlHTTP.send domDOC.xml
    domReturn.loadXML xmlHTTP.responseText
   
    
    Set xmlHTTP = Nothing
    Set domDOC = Nothing
    Set GetResponse = domReturn
End Function

ผมสร้าง Function ชื่อ GetResponse ไว้สำหรับติดต่อกับ WebServices ครับ Function นี้จะคืนค่าเป็น XMLDOMDocument มาให้ครับ ถ้าเราเรียก WebServices สำเร็จ ลอง debug ดูค่า domReturn.xml เพื่อดูผลลัพธ์ได้ครับ

เสร็จแล้วก็สร้าง Function สำหรับเรียกใช้งาน WebServices ครับ โดยใน GetEmployee Function เราจะระบุ parameter ที่ต้องการได้แก่ asmxURL, soapAction (ดูจาก SOAP Request ในรูปด้านบนครับ) แล้วก็ Envelop (copy มาจาก SOAP Request เหมือนกัน) แต่อย่าลืมเปลี่ยน parameter นะครับ ตรงบรรทัด " & empID & "

Public Function GetEmployee(empID) As clsEmployee
    asmxURL = "http://nithi/testweb/EmployeeWS.asmx"
    soapAction = "http://jnithi/GetEmployee"
    soapEnvelop = " " & _
                  "      " & _
                  "          " & _
                  "             " & _
                  "                 " & empID & " " & _
                  "              " & _
                  "          " & _
                  "      "
    Set domResult = GetResponse(asmxURL, soapAction, soapEnvelop)
    
    Dim oNode As MSXML2.IXMLDOMNode
    Dim oNodes As IXMLDOMNodeList

    'ดึง ... ผลลัพธ์ได้เป็น List (XMLDOMNodeList)
    Set oNodes = domResult.getElementsByTagName("GetEmployeeResult")
    Dim employee As clsEmployee

    If oNodes.length > 0 Then
        Set oNode = oNodes.Item(0)
        Set employee = New clsEmployee
        employee.EmployeeID = oNode.selectSingleNode("EmployeeId").Text
        employee.EmployeeName = oNode.selectSingleNode("EmployeeName").Text
        employee.EmployeeSurname = oNode.selectSingleNode("EmployeeSurname").Text
    End If
    Set GetEmployee = employee
End Function

คราวนี้มาทำหน้าจอทดสอบครับ

Private Sub ClearEmployee()
        Me.txtEmpID.Text = ""
        Me.txtEmpName.Text = ""
        Me.txtEmpSurname.Text = ""
End Sub

Private Sub cmdClear_Click()
    ClearEmployee
    Me.txtSearchID.Text = ""
End Sub

Private Sub cmdSearch_Click()
    Dim ws As New clsEmployeeWS
    Dim employee As clsEmployee

    'เรียก clsEmployeeWS ให้ติดต่อ WebServices
    Set employee = ws.GetEmployee(Me.txtSearchID.Text)
    If employee Is Nothing = False Then
        Me.txtEmpID.Text = employee.EmployeeID
        Me.txtEmpName.Text = employee.EmployeeName
        Me.txtEmpSurname.Text = employee.EmployeeSurname
    Else
        ClearEmployee
        MsgBox "Cannot find employee.", vbInformation + vbOKOnly, App.Title
    End If
End Sub

ลองรันดูผลลัพธ์ครับ



เรียบร้อย ไม่ยากครับ

จริงๆตอนทดสอบ ผมยังลองทำการ Insert, Update, Delete แล้วก็ SELECT ข้อมูลเป็น Array มาด้วย แต่คงไม่ได้เอามาลง Blog ให้ดูครับ เพราะถ้ารู้ concept แล้วที่เหลือก็ไม่ยากแล้วครับ