Visual Studio: How do I integrate a wsdl into a web service?

Question

I need to create an .exe (standalone and without IIS) that contains a web interface.

An existing WSDL was converted into VB.NET code. I have now inserted the vb.net-File, but without .config file.

Incorrectly, the interface is not displayed even though it has been referenced. If I call "http://localhost/?WSDL", the following is displayed:

The original WSDL file has call options that are missing here. Did I forget to reference something? How should I incorporate that?

Module1.vb:

Imports System.Collections.Generic
Imports System.ServiceModel
Imports System.ServiceModel.Description
Imports System.ServiceModel.Web
Imports System.Text

Module Module1

    '"C:\Program Files (x86)\Microsoft SDKs\Windows\v10.0A\bin\NETFX 4.7.2 Tools\SvcUtil.exe" "C:\Sourcen	runk\Entwicklung\VBProgramme.NET\TOOLS\ServerKOS\Client - Variante mittels WebReference\KOSService.wsdl"  /language:VB /syncOnly
    Sub Main()
        'https://learn.microsoft.com/de-de/dotnet/framework/wcf/feature-details/how-to-create-a-basic-wcf-web-http-service#to-host-the-service
        Dim host As ServiceHost = New ServiceHost(GetType(KOS_impl), New Uri("http://localhost:8000/"))
        Try
            Dim ep As ServiceEndpoint = host.AddServiceEndpoint(GetType(FOOPortType), New WebHttpBinding(), "")

            Dim smb As ServiceMetadataBehavior = New ServiceMetadataBehavior()
            smb.HttpGetEnabled = True
            host.Description.Behaviors.Add(smb)

            host.Open()
            Using cf As New ChannelFactory(Of FOOPortType)(New WebHttpBinding(), "http://localhost:8000")

                cf.Endpoint.Behaviors.Add(New WebHttpBehavior())

            End Using

            Console.WriteLine("Press  to terminate")
            Console.ReadLine()

            host.Close()
        Catch cex As CommunicationException
            Console.WriteLine("An exception occurred: {0}", cex.Message)
            host.Abort()
        End Try
    End Sub


End Module

FOO_impl.vb:

Public Class FOO_impl
    Implements FOOPortType

    Public Function FOOAufruf(request As FOOAufrufRequest) As FOOAufrufResponse Implements FOOPortType.FOOAufruf
        Dim tmpFooanfrage As New FOOAnfrage
        Dim tmp As New FOOAufrufResponse(tmpFooanfrage)
        Return tmp
    End Function

End Class

FOO.vb (generated through SvcUtil.exe):

'------------------------------------------------------------------------------
' 
'     Dieser Code wurde von einem Tool generiert.
'     Laufzeitversion:4.0.30319.42000
'
'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
'     der Code erneut generiert wird.
' 
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On



  _
Public Interface FOOPortType
    
    'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang FOOAufruf weder in RPC noch in einem Dokument eingeschlossen ist.
      _
    Function FOOAufruf(ByVal request As FOOAufrufRequest) As FOOAufrufResponse
End Interface

'''
  _
Partial Public Class FOOAnfrage
    
    Private versionField As String
    
    '''
      _
    Public Property Version() As String
        Get
            Return Me.versionField
        End Get
        Set
            Me.versionField = value
        End Set
    End Property
End Class

  _
Partial Public Class FOOAufrufRequest
    
      _
    Public FOOInput As FOOAnfrage
    
    Public Sub New()
        MyBase.New
    End Sub
    
    Public Sub New(ByVal FOOInput As FOOAnfrage)
        MyBase.New
        Me.FOOInput = FOOInput
    End Sub
End Class

  _
Partial Public Class FOOAufrufResponse
    
      _
    Public FOOOutput As FOOAnfrage
    
    Public Sub New()
        MyBase.New
    End Sub
    
    Public Sub New(ByVal FOOOutput As FOOAnfrage)
        MyBase.New
        Me.FOOOutput = FOOOutput
    End Sub
End Class

  _
Public Interface FOOPortTypeChannel
    Inherits FOOPortType, System.ServiceModel.IClientChannel
End Interface

  _
Partial Public Class FOOPortTypeClient
    Inherits System.ServiceModel.ClientBase(Of FOOPortType)
    Implements FOOPortType
    
    Public Sub New()
        MyBase.New
    End Sub
    
    Public Sub New(ByVal endpointConfigurationName As String)
        MyBase.New(endpointConfigurationName)
    End Sub
    
    Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As String)
        MyBase.New(endpointConfigurationName, remoteAddress)
    End Sub
    
    Public Sub New(ByVal endpointConfigurationName As String, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
        MyBase.New(endpointConfigurationName, remoteAddress)
    End Sub
    
    Public Sub New(ByVal binding As System.ServiceModel.Channels.Binding, ByVal remoteAddress As System.ServiceModel.EndpointAddress)
        MyBase.New(binding, remoteAddress)
    End Sub
    
      _
    Function FOOPortType_FOOAufruf(ByVal request As FOOAufrufRequest) As FOOAufrufResponse Implements FOOPortType.FOOAufruf
        Return MyBase.Channel.FOOAufruf(request)
    End Function
    
    Public Function FOOAufruf(ByVal FOOInput As FOOAnfrage) As FOOAnfrage
        Dim inValue As FOOAufrufRequest = New FOOAufrufRequest()
        inValue.FOOInput = FOOInput
        Dim retVal As FOOAufrufResponse = CType(Me,FOOPortType).FOOAufruf(inValue)
        Return retVal.FOOOutput
    End Function
End Class

Theobald Du · Accepted Answer

The reason there is no configuration file is that you use the restapi wcf service, which supports http request to call the service, and is not suitable for calling the service by generating proxy classes. You can modify the binding to basichttpbinding or use httpclient to call the webhttpbinding service . This is the reference:HttpClient Class

Visual Studio: How do I integrate a wsdl into a web service?

Answers (1)

Related Questions