I will consume the Customer WCF Service which I developed in Part 1 on WS* Http Binding, you can implement the best security, transactions and many more things using this way. However, I will consume in a very simplistic way in this post. I assume that you have already deployed the WCF Service under IIS and have a working URL ready to be referenced and you are planning to use the customer WCF service in ASPX web Page.

 

Create a Test Web Site Project using Visual Studio 2008/5 and focus on following 3 files

1.       Web.Config

2.       CustomerWcfServiceTest.aspx – The page you added for testing the WCF Service

3.       CustomerWcfServiceTest.aspmx.vb – Code behind file for WCF Service Test Page

Steps: Right Click on the project and click add the Customer WCF Service using Add Service Reference. Let’s say you give it a name called CustomerWcfService.

<system.serviceModel>

   <bindings>

    <wsHttpBinding>

    <bindingname="WSHttpBinding_ICustomerService"closeTimeout="00:01:00"

     openTimeout="00:01:00"receiveTimeout="00:10:00"sendTimeout="00:01:00"

     bypassProxyOnLocal="false"transactionFlow="false"hostNameComparisonMode="StrongWildcard"

     maxBufferPoolSize="524288"maxReceivedMessageSize="65536"messageEncoding="Text"

     textEncoding="utf-8"useDefaultWebProxy="true"allowCookies="false">

     <readerQuotasmaxDepth="32"maxStringContentLength="8192"maxArrayLength="16384"

      maxBytesPerRead="4096"maxNameTableCharCount="16384" />

     <reliableSessionordered="true"inactivityTimeout="00:10:00"

      enabled="false" />

     <securitymode="Message">

      <transportclientCredentialType="Windows"proxyCredentialType="None"

       realm="" />

      <messageclientCredentialType="Windows"negotiateServiceCredential="true"

       algorithmSuite="Default"establishSecurityContext="true" />

     </security>

    </binding>

   </wsHttpBinding>

</bindings>

<client>

   <endpointaddress="http://vishwa/ExampleService/CustomerService.svc"

    binding="wsHttpBinding"bindingConfiguration="WSHttpBinding_ICustomerService"

    contract="CustomerWcfService.ICustomerService"name="WSHttpBinding_ICustomerService">

    <identity>

     <dnsvalue="localhost" />

    </identity>

   </endpoint>  

</client>

 

</system.serviceModel>

 

Remember, you will be using binding Name WSHttpBinding_ICustomerService for consuming this service in code behind file.

 CustomerWCFServiceTest.aspx: Add the following code inside the body of this page

 <form id="form1" runat="server">               

                <table>

                <tr>

                    <td colspan="2"><b>Through Server Side Service Reference</b></td>

                </tr>

                <tr>

                    <td >Customer ID :</td>

                    <td><asp:TextBox ID="txtCustID" runat="server" Text="12345"></asp:TextBox></td>

                </tr>    

                <tr>

                    <td>Customer Name :</td>

                <td>

                    <asp:TextBox ID="txtCustName" runat="server" Text="Joe Smith"></asp:TextBox>

                </td>

                </tr>

                <tr>

                    <td>Customer DOB (yyyy-mm-dd):</td>

                    <td><asp:TextBox ID="txtCustDOB" runat="server" Text="1988-08-08"></asp:TextBox></td>

                </tr>

               <tr>

                    <td>Customer Address:</td>

                    <td><asp:TextBox ID="txtCustAddress" runat="server" Text="unknown"></asp:TextBox></td>

                </tr>

                <tr>

                    <td><asp:Button ID="btnGetCustomer" runat="server" Text="Get Customer" /></td>

                    <td><asp:Button ID="btnAddCustomer" runat="server" Text="Add Customer" /></td>

                </tr>

                <tr>

                    <td><asp:Button ID="btnUpdateCustomer" runat="server" Text="Update Customer" /></td>

                    <td><asp:Button ID="btnDeleteCustomer" runat="server" Text="Delete Customer" /></td>

                </tr>

                <tr>

                    <td>

                    <asp:Button id="btnGetCustomers" runat="server" Text="Get All Customers"/></td>

                    <td><asp:Label ID="lblStatus" runat="server" Text="Status"

                            ForeColor="#CC3300" style="font-weight: 700"></asp:Label></td>

                </tr>               

               </table>        

              

           </form>

            <br />

            <form id="frmCustomerS" method="post" action="CustomerWcfServiceTest.aspx">

            <div>   

                <table>

                <tr><td colspan="2"><b>Through Client Side SOAP/XML HTTP POST</b></td></tr>

                <tr><td>Customer ID :</td><td><input name="ID" id="ID" type="text" value="12345" /> </td></tr>

                <tr><td>Customer Name :</td><td><input name="Name" id="Name" type="text" value="Chris Clark" /> </td></tr>

                <tr><td>Customer DOB (yyyy-mm-dd):</td><td><input name="DOB" id="DOB" type="text" value="1988-08-08"/> </td></tr>

                <tr><td>Customer Address:</td><td><input name="Address" id="Address" type="text" value="unknown"/> </td></tr>

                 <tr>

                    <td><input type="button" name="btnGetCustomer" value="Get Customer" onclick="GetCustomerSOAP()" /></td>

                    <td><input type="button" name="btnAddCustomer" value="Add Customer" onclick="AddCustomerSOAP()" /></td>

                </tr>

                 <tr>

                    <td><input type="button" name="btnUpdateCustomer" value="Update Customer" onclick="UpdateCustomerSOAP()" /></td>

                    <td><input type="button" name="btnDeleteCustomer" value="Delete Customer" onclick="DeleteCustomerSOAP()"/></td>

                </tr>    

                <tr>

                    <td colspan="2"><input type="button" name="btnGetAllCustomers" value="Get All Customers" onclick="GetCustomersSOAP()"/></td>

                </tr>   

                </table>               

            </div>  

            </form>

CustomerWCFServiceTest.aspx.vb: Add the following code to handle the events

 Partial Class CustomerServiceTest

    Inherits System.Web.UI.Page

 

    Protected Sub btnGetCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetCustomer.Click

        Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")

        Dim cust As CustomerWcfService.Customer = wcfSrv.GetCustomer(CInt(Me.txtCustID.Text))

        If cust.ID > 0 Then

            Me.txtCustID.Text = cust.ID

            Me.txtCustName.Text = cust.Name

            Me.txtCustDOB.Text = cust.DOB

            Me.txtCustAddress.Text = cust.Address

            Me.lblStatus.Text = "Customer found."

        Else

            Me.lblStatus.Text = "Customer not found."

            Me.txtCustName.Text = ""

            Me.txtCustDOB.Text = ""

        End If

        wcfSrv.Close()

    End Sub

 

    Protected Sub btnAddCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAddCustomer.Click

        Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")

        Dim cust As New CustomerWcfService.Customer

        cust.Name = Me.txtCustName.Text

        cust.DOB = CDate(Me.txtCustDOB.Text)

        cust.Address = Me.txtCustAddress.Text

        Dim rtn As Integer = wcfSrv.AddCustomer(cust)

        lblStatus.Text = "Cust ID: " & rtn.ToString

        wcfSrv.Close()

    End Sub

 

    Protected Sub btnUpdateCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdateCustomer.Click

        Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")

        Dim cust As New CustomerWcfService.Customer

        cust.ID = CInt(Me.txtCustID.Text)

        cust.Name = Me.txtCustName.Text

        cust.DOB = CDate(Me.txtCustDOB.Text)

        cust.Address = Me.txtCustAddress.Text

        Dim rtn As Boolean = wcfSrv.UpdateCustomer(cust)

        lblStatus.Text = "Update Status is : " & rtn.ToString

        wcfSrv.Close()

    End Sub

 

    Protected Sub btnDeleteCustomer_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDeleteCustomer.Click

        Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")

        Dim rtn As Boolean = wcfSrv.DeleteCustomer(CInt(Me.txtCustID.Text))

        lblStatus.Text = "Delete Status is : " & rtn.ToString

        wcfSrv.Close()

    End Sub

 

    Protected Sub btnGetCustomers_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetCustomers.Click

        Dim wcfSrv As New CustomerWcfService.CustomerServiceClient("WSHttpBinding_ICustomerService")

        Dim custArr() As CustomerWcfService.Customer

        custArr = wcfSrv.GetCustomers()

 

        For Each cust As CustomerWcfService.Customer In custArr

            Response.Write("ID: " & cust.ID.ToString & " Name: " & cust.Name & "<br/>")

        Next

        lblStatus.Text = "No of Customer Records found: " & custArr.Length.ToString

        wcfSrv.Close()

    End Sub

 

 

End Class

 

You are done. Run the project and test the page, you should be able to Add, Modify, Delete and Get Customer records.