Как условно установить ServiceModel.EndpointAddress URI во время выполнения

Question

У меня есть класс, в котором переменная конечная точка должна быть глобальным (для других подпрограмм и функций в классе):

Public Class MyFirstVbNetClassEver 
    Dim testEndpoint As New ServiceModel.EndpointAddress("https://test.my.employer.com/ws/soap?wsdl") 
    Dim productionEndpoint As New ServiceModel.EndpointAddress("https://my.employer.com/ws/soap?wsdl") 

    Public Sub Run() 
     If (PRDOCUTION) Then 
      Dim endpoint As New ServiceModel.EndpointAddress(productionEndpoint) 
     Else 
      Dim endpoint As New ServiceModel.EndpointAddress(testEndpoint) 
     End If 
    End Sub 
End Class 

Проблема заключается в том, что ServiceModel. EndpointAddress не имеет конструктора, который принимает параметр своего типа (т. Е. «Конструктор копирования»).

И не имеет конструктора по умолчанию, который позволяет позже установить URI.

Каков правильный способ достижения того, что я хочу делать в VB.NET?

Answer 1

Просто не создавайте новый. Используйте один у вас уже есть:

Public Sub Run() 
    Dim endpoint As ServiceModel.EndpointAddress = Nothing 
    If (PRDOCUTION) Then 
     endpoint = productionEndpoint 
    Else 
     endpoint = testEndpoint 
    End If 
    ' ... 
End Sub 

В качестве альтернативы, вы можете сохранить два оконечных адреса в виде строки, а не как EndpointAddress объектов:

Public Class MyFirstVbNetClassEver 
    Dim testUri As String = "https://test.my.employer.com/ws/soap?wsdl" 
    Dim productionUri As String = "https://my.employer.com/ws/soap?wsdl" 

    Public Sub Run() 
     If (PRDOCUTION) Then 
      Dim endpoint As New ServiceModel.EndpointAddress(productionUri) 
     Else 
      Dim endpoint As New ServiceModel.EndpointAddress(testUri) 
     End If 
    End Sub 
End Class