有誰知道如何使用渠道工廠的客戶端訪問wcf服務？

Question

我想這一個...但它不工作..

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
    Dim channel As New ChannelFactory(Of IWidgetServiceProxy)(
           New WSHttpBinding(), 
           "http://localhost:4676/WidgetServiceProxy.svc") 
    Dim client As IWidgetServiceProxy = channel.CreateChannel() 

    Dim str As String = client.GetWidgetInstanceTitle() 


    Response.Write(str) 
    'ProcessStatuses(resp) 

End Sub 

Answer 1

此代碼爲我工作：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)  Handles Me.Load 

    Dim intr As IWc fInterface 
    Dim chnl As ChannelFactory(Of IWcfInterface) = New ChannelFactory(Of IWcfInterface)(New WebHttpBinding(), "http://localhost:49821/Service1.svc") 
    chnl.Endpoint.Behaviors.Add(New WebHttpBehavior()) 
    intr = chnl.CreateChannel() 

    Using New OperationContextScope(DirectCast(intr, IContextChannel)) 

     Dim rspnse As List(Of UserDetails) = intr.GetDataFromDB() 
     GridView1.DataSource = rspnse 
     GridView1.DataBind() 
    End Using 
End Sub