asked on

Web Reference and compile on-the-fly

I have a wsdl file. I can create a new Class Library project in Visual Studio, add the wsdl file as a Web Reference, and then compile the project into a DLL.

What I would like to do is write a program that will automate this. The user will specify the path to the wsdl file and click a button. The program will then automatically do the steps up above.

I am familiar with compiling on-the-fly like this, but am not sure how to incorporate adding the Web Reference.

How can I do this?

Thanks,
Chris

gregoryyoung

command line .. http://msdn.microsoft.com/en-us/library/7h3ystb6(VS.71).aspx

wsdl http://your.com/url

you can also specify the name of the .cs file to generate ... building the .cs from the command line is also extremely easy.

csc /R:dllname.dll file.cs

Cheers,

Greg

chlade

ASKER

Is there a way to do this within code? Otherwise, I need to shell out, run wsdl.exe to create a file, read the file in, compile, etc. If I could do this all in memory, that would be ideal. But perhaps that's not possible?

ASKER CERTIFIED SOLUTION

gregoryyoung

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

chlade

ASKER

Thanks. That got me going. I ended up finding more information and created a small test app that will do it for me. Here is the code that I ended up with:

Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports System.Security.Permissions
Imports System.Web.Services.Description
 
Public Class Module1
 
    Public Shared Sub Main()
 
        Dim WsdlFileName As String = "test.wsdl"
        Dim DllFileName As String = "test.dll"
 
        Try
            CompileWsdlIntoDll(WsdlFileName, DllFileName)
            MsgBox("Successfully compiled " & WsdlFileName & " into " & DllFileName & ".")
        Catch ex As Exception
            MsgBox("Error compiling WSDL into a DLL." & ControlChars.CrLf & ControlChars.CrLf & _
                ex.Message)
        End Try
 
    End Sub
 
    <SecurityPermissionAttribute(SecurityAction.Demand, Unrestricted:=True)> _
    Public Shared Sub CompileWsdlIntoDll(ByVal WsdlFileName As String, ByVal DllFileName As String)
 
        Dim ResultMsg As String = ""
 
        Dim description As ServiceDescription = ServiceDescription.Read(WsdlFileName, True)
 
        ' Initialize a service description importer. 
        Dim sdi As New ServiceDescriptionImporter()
        sdi.ProtocolName = "Soap"
        sdi.AddServiceDescription(description, Nothing, Nothing)
 
        ' Generate a proxy client. 
        sdi.Style = ServiceDescriptionImportStyle.Client
 
        ' Generate properties to represent primitive values. 
        sdi.CodeGenerationOptions = System.Xml.Serialization.CodeGenerationOptions.GenerateProperties
 
        ' Initialize a Code-DOM tree into which we will import the service. 
        Dim nmspace As New CodeNamespace()
        Dim unit1 As New CodeCompileUnit()
        unit1.Namespaces.Add(nmspace)
 
        ' Import the service into the Code-DOM tree. This creates proxy code that uses the service. 
        Dim warning As ServiceDescriptionImportWarnings = sdi.Import(nmspace, unit1)
 
        If warning = 0 Then
            ' Generate and print the proxy code in C#. 
            Dim provider As CodeDomProvider = CodeDomProvider.CreateProvider("VisualBasic")
 
            ' Compile the assembly with the appropriate references 
            Dim refs As String() = New String(1) {"System.Web.Services.dll", "System.Xml.dll"}
            Dim cp As New CompilerParameters(refs)
            cp.OutputAssembly = "test.dll"
            Dim cr As CompilerResults = provider.CompileAssemblyFromDom(cp, unit1)
 
            For Each ce As CompilerError In cr.Errors
                ResultMsg &= String.Format("  {0}", ce.ToString()) & ControlChars.CrLf
            Next
 
        Else
            ' Print an error message. 
            ResultMsg &= "Warning: " & warning.ToString
        End If
 
        If ResultMsg <> "" Then
            Throw New Exception("Error compiling WSDL (" & _
                "WSDL FileName: " & WsdlFileName & _
                ", DLL FileName: " & DllFileName & _
                ", Compile Messages: " & ResultMsg & _
                ")")
        End If
 
    End Sub
 
End Class

Open in new window