Rock N Code: 建立您的第一個WCF服務(跟著PluralSight的Aaron Skonnard一起作)

1.開啟VSTS2008，專案→新增專案→WCF→WCF服務程式庫→輸入名稱EvalServiceLibrary

2.刪除預設的IService1.vb與Service1.vb

3.對專案EvalServiceLibrary按右鍵→加入→類別→輸入名稱Eval

4.在Eval.vb輸入程式碼
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Runtime.Serialization

Namespace EvalServiceLibrary
    < DataContract() > _
    Public Class Eval
        < DataMember() > _
        Public Id As String
        < DataMember() > _
        Public Submitter As String
        < DataMember() > _
        Public Comments As String
    End Class
End Namespace

5.同步驟3再新增1個類別IEvalService.vb，貼上程式碼如下
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Runtime.Serialization

Namespace EvalServiceLibrary
        < ServiceContract() > _
    Public Interface IEvalService
        < OperationContract() > _
        Sub SubmitEval(ByVal eval As Eval)
        < OperationContract() > _
        Function GetEvals() As List(Of Eval)
        < OperationContract() > _
        Sub RemoveEval(ByVal id As String)
    End Interface
End Namespace

6.再次新增新類別EvalService.vb並輸入下列程式碼
Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text

Namespace EvalServiceLibrary
    Public Class EvalService
    End Class
End Namespace

7.在 Public Class EvalService後面輸入:Implements .NET 的IntelliSense會自動出現各種namespace供你選取，選擇IEvalService後頁面會自動放置你需要實做的各類Interface，也就是步驟5我們所設計的3種[OperationContract]

8. 承前，在Public Class EvalService : Implements IEvalService前輸入
完整程式碼如下highlight
Namespace EvalServiceLibrary
    < ServiceBehavior(InstanceContextMode:=InstanceContextMode.Single) > _
    Public Class EvalService : Implements IEvalService

9.把EvalService.vb的三個method完成後進行偵錯，完整程式碼如下highlight
Public Class EvalService : Implements IEvalService

        Dim evals As New List(Of Eval)()
        Public Function GetEvals() As System.Collections.Generic.List(Of Eval) Implements IEvalService.GetEvals
            Return evals
        End Function

        Public Sub RemoveEval(ByVal id As String) Implements IEvalService.RemoveEval
            evals.Remove(evals.Find(Function(e) e.Id.Equals(id)))
        End Sub

        Public Sub SubmitEval(ByVal eval As Eval) Implements IEvalService.SubmitEval
            eval.Id = Guid.NewGuid().ToString
            evals.Add(eval)
        End Sub
    End Class

10.對App.config按右鍵選擇「編輯WCF組態」