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
chladeAsked:
Who is Participating?
 
gregoryyoungConnect With a Mentor Commented:
I don't know of a call for the wsdl part ... but you can do the rest just using say the CSharpCodeProvider to do the compilation etc (and generate an in memory assembly to load)

Cheers,

Greg
0
 
gregoryyoungCommented:
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
0
 
chladeAuthor Commented:
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?
0
 
chladeAuthor Commented:
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

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.