Visual Studio：如何将 wsdl 集成到 Web 服务中？

Posted 2023-05-07

【中文标题】Visual Studio：如何将 wsdl 集成到 Web 服务中？

【英文标题】：Visual Studio: How do I integrate a wsdl into a web service?

【发布时间】：2021-04-18 07:48:48

【问题描述】：

我需要创建一个包含 Web 界面的 .exe（独立且没有 IIS）。

现有的 WSDL 已转换为 VB.NET 代码。我现在插入了 vb.net-File，但没有 .config 文件。

错误的是，即使已引用该界面，也不会显示该界面。如果我调用“http://localhost/?WSDL”，会显示如下：

<?xml version="1.0" encoding="UTF-8"?>
<wsdl:definitions xmlns:wsam="http://www.w3.org/2007/05/addressing/metadata" xmlns:wsa10="http://www.w3.org/2005/08/addressing" xmlns:wsp="http://schemas.xmlsoap.org/ws/2004/09/policy" xmlns:i0="http://FOO.bar.example.net" xmlns:msc="http://schemas.microsoft.com/ws/2005/12/wsdl/contract" xmlns:wsaw="http://www.w3.org/2006/05/addressing/wsdl" xmlns:wsap="http://schemas.xmlsoap.org/ws/2004/08/addressing/policy" xmlns:wsx="http://schemas.xmlsoap.org/ws/2004/09/mex" xmlns:wsa="http://schemas.xmlsoap.org/ws/2004/08/addressing" xmlns:tns="http://tempuri.org/" xmlns:soap12="http://schemas.xmlsoap.org/wsdl/soap12/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:wsu="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:wsdl="http://schemas.xmlsoap.org/wsdl/" targetNamespace="http://tempuri.org/" name="FOO_impl">
    <wsdl:import location="http://localhost:8000/?wsdl=wsdl0" namespace="http://FOO.bar.example.net"/>
    <wsdl:types/>
    <wsdl:service name="FOO_impl"/>
</wsdl:definitions>

原始 WSDL 文件具有此处缺少的调用选项。我忘了参考什么吗？我应该如何整合它？

模块1.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\trunk\Entwicklung\VBProgramme.NET\TOOLS\ServerKOS\Client - Variante mittels WebReference\KOSService.wsdl"  /language:VB /syncOnly
    Sub Main()
        'https://docs.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 <ENTER> 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（通过 SvcUtil.exe 生成）：

'------------------------------------------------------------------------------
' <auto-generated>
'     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.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict Off
Option Explicit On



<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"),  _
 System.ServiceModel.ServiceContractAttribute([Namespace]:="http://FOO.bar.example.net", ConfigurationName:="FOOPortType")>  _
Public Interface FOOPortType
    
    'CODEGEN: Der Nachrichtenvertrag wird generiert, da der Vorgang FOOAufruf weder in RPC noch in einem Dokument eingeschlossen ist.
    <System.ServiceModel.OperationContractAttribute(Action:="#abc", ReplyAction:="*"),  _
     System.ServiceModel.XmlSerializerFormatAttribute()>  _
    Function FOOAufruf(ByVal request As FOOAufrufRequest) As FOOAufrufResponse
End Interface

'''<remarks/>
<System.CodeDom.Compiler.GeneratedCodeAttribute("svcutil", "4.7.3081.0"),  _
 System.SerializableAttribute(),  _
 System.Diagnostics.DebuggerStepThroughAttribute(),  _
 System.ComponentModel.DesignerCategoryAttribute("code"),  _
 System.Xml.Serialization.XmlTypeAttribute([Namespace]:="http://FOO.bar.example.net")>  _
Partial Public Class FOOAnfrage
    
    Private versionField As String
    
    '''<remarks/>
    <System.Xml.Serialization.XmlElementAttribute(Order:=0)>  _
    Public Property Version() As String
        Get
            Return Me.versionField
        End Get
        Set
            Me.versionField = value
        End Set
    End Property
End Class

<System.Diagnostics.DebuggerStepThroughAttribute(),  _
 System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"),  _
 System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced),  _
 System.ServiceModel.MessageContractAttribute(IsWrapped:=false)>  _
Partial Public Class FOOAufrufRequest
    
    <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://FOO.bar.example.net", Order:=0)>  _
    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

<System.Diagnostics.DebuggerStepThroughAttribute(),  _
 System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0"),  _
 System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced),  _
 System.ServiceModel.MessageContractAttribute(IsWrapped:=false)>  _
Partial Public Class FOOAufrufResponse
    
    <System.ServiceModel.MessageBodyMemberAttribute([Namespace]:="http://FOO.bar.example.net", Order:=0)>  _
    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

<System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")>  _
Public Interface FOOPortTypeChannel
    Inherits FOOPortType, System.ServiceModel.IClientChannel
End Interface

<System.Diagnostics.DebuggerStepThroughAttribute(),  _
 System.CodeDom.Compiler.GeneratedCodeAttribute("System.ServiceModel", "4.0.0.0")>  _
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
    
    <System.ComponentModel.EditorBrowsableAttribute(System.ComponentModel.EditorBrowsableState.Advanced)>  _
    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

【参考方案1】：

没有配置文件的原因是你使用restapi wcf服务，支持http请求调用服务，不适合通过生成代理类调用服务。您可以将绑定修改为 basichttpbinding 或使用 httpclient 调用 webhttpbinding 服务。这是参考：HttpClient Class