[VB.NET] Compilare codice dinamicamente caricandolo da un file sorgente esterno

[gnjak47]

ciao ragazzi volevo porvi il mio quesito.

Dalla mia applicazione principale voglio poter compilare un file(eseguibile), a partire da un codice che si trova all interno dell' applicazione principale.

E' possibile secondo voi? c' è una classe del framework che permette la compilazione da codice che si trova all' interno della mia applicazione(scritto all' interno di una classe)

Grazie a tutti

[Jeremy75]

Ciao.
Giuro che l'ho letta e riletta almeno 6 volte .... ma ancora non ho capito.

[gnjak47]

Allora cerco di spiegarmi meglio

Vorrei che la mia applicazione leggesse un file testuale(txt) che contiene del codice vb.net
Cliccando su un bottone vorrei che mi compilasse quel codice.

E' possibile?
Ho cercato in Msdn ma non trovo niente che soddisfa le mie richieste

[Jeremy75]

Vorrei che la mia applicazione leggesse un file testuale(txt) che contiene del codice vb.net

Ora ho capito ... vuoi creare un compilatore ...
Per ottenere il testo scritto all'interno di un file .txt puoi usare le classi del .Net Framework sotto il namespace System.IO .... per il resto devi lavorare molto di RegularExpression.
Ma non credo che sia un'impresa semplice .... auguroni di vero cuore.

Facci sapere...
Ciao

[gnjak47]

ho trovato questa sub in un vecchio progetto
potrebbe funzionare?

Sub Compile(ByVal Code As String, ByVal Path As String, ByVal FormProgram As Boolean, ByVal MainClass As String, ByVal CSharp As Boolean)
Dim CodeProvider As Object
If CSharp Then
CodeProvider = New Microsoft.CSharp.CSharpCodeProvider
Else
Dim providerOptions = New Collections.Generic.Dictionary(Of String, String)
providerOptions.Add("CompilerVersion", "v2.0")
CodeProvider = New Microsoft.VisualBasic.VBCodeProvider

End If
Dim Parameters As New CodeDom.Compiler.CompilerParameters
With Parameters
.GenerateExecutable = True
.OutputAssembly = Path
If FormProgram Then .CompilerOptions += "/target:winexe"
.MainClass = MainClass
.IncludeDebugInformation = False




For Each ASM In AppDomain.CurrentDomain.GetAssemblies
.ReferencedAssemblies.Add(ASM.Location)

.ReferencedAssemblies.Add("System.Data.dll")
Next
End With
Dim Results = CodeProvider.CompileAssemblyFromSource(Parameters, Code)
If Results.Errors.Count > 0 Then
MsgBox("An error occured, please try again")
End If
End Sub

[Jeremy75]

Ciao
Sinceramente non ero proprio a conoscenza di questa classe ....
Prova a fare una ricerca partendo da Qui .... sembra proprio che serva a quello scopo.
C'è anche un esempio.

Facci sapere....
Ciao

[gnjak47]

Ho utilizzato la Classe CodeDom con il seguente codice




Imports System
Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports System.Collections
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Windows.Forms
Imports Microsoft.CSharp
Imports Microsoft.VisualBasic



Public Class Form1
Inherits System.Windows.Forms.Form
Private run_button As New System.Windows.Forms.Button()
Private compile_button As New System.Windows.Forms.Button()
Private generate_button As New System.Windows.Forms.Button()
Private textBox1 As New System.Windows.Forms.TextBox()
Private comboBox1 As New System.Windows.Forms.ComboBox()
Private label1 As New System.Windows.Forms.Label()
Private Function GetCurrentProvider() As CodeDomProvider

Dim provider As CodeDomProvider
Select Case CStr(Me.comboBox1.SelectedItem)
Case "CSharp"
provider = CodeDomProvider.CreateProvider("CSharp")
Case "Visual Basic"
provider = CodeDomProvider.CreateProvider("VisualBasic")
Case "JScript"
provider = CodeDomProvider.CreateProvider("JScript")
Case Else
provider = CodeDomProvider.CreateProvider("CSharp")
End Select
Return provider
End Function
Public Shared Function BuildHelloWorldGraph() As CodeCompileUnit

' Create a new CodeCompileUnit to contain
' the program graph.
Dim compileUnit As New CodeCompileUnit()

' Declare a new namespace called Samples.
Dim samples As New CodeNamespace("Samples")

' Add the new namespace to the compile unit.
compileUnit.Namespaces.Add(samples)

' Add the new namespace import for the System namespace.
samples.Imports.Add(New CodeNamespaceImport("System"))

' Declare a new type called Class1.
Dim Form1 As New CodeTypeDeclaration("Form1")

' Add the new type to the namespace type collection.
samples.Types.Add(Form1)

' Declare a new code entry point method.
Dim start As New CodeEntryPointMethod()

' Create a type reference for the System.Console class.
Dim csSystemConsoleType As New CodeTypeReferenceExpression("System.Console")

' Build a Console.WriteLine statement.
Dim cs1 As New CodeMethodInvokeExpression( csSystemConsoleType, "WriteLine", New CodePrimitiveExpression("Hello World!"))

' Add the WriteLine call to the statement collection.
start.Statements.Add(cs1)

' Build another Console.WriteLine statement.
Dim cs2 As New CodeMethodInvokeExpression(csSystemConsoleType, "WriteLine", New CodePrimitiveExpression("Press the Enter key to continue."))

' Add the WriteLine call to the statement collection.
start.Statements.Add(cs2)

' Build a call to System.Console.ReadLine.
Dim csReadLine As New CodeMethodInvokeExpression(csSystemConsoleType, "ReadLine")

' Add the ReadLine statement.
start.Statements.Add(csReadLine)

' Add the code entry point method to
' the Members collection of the type.
Form1.Members.Add(start)

Return compileUnit
End Function

Public Shared Sub GenerateCode(ByVal provider As CodeDomProvider, ByVal compileunit As CodeCompileUnit)

' Build the source file name with the appropriate
' language extension.
Dim sourceFile As String
If provider.FileExtension.StartsWith(".") Then
sourceFile = "TestGraph" + provider.FileExtension
Else
sourceFile = "TestGraph." + provider.FileExtension
End If

' Create an IndentedTextWriter, constructed with
' a StreamWriter to the source file.
Dim tw As New IndentedTextWriter(New StreamWriter(sourceFile, False), " ")
' Generate source code using the code generator.
provider.GenerateCodeFromCompileUnit(compileunit, tw, New CodeGeneratorOptions())
' Close the output file.
tw.Close()
End Sub

Public Shared Function CompileCode(ByVal provider As CodeDomProvider, ByVal sourceFile As String, ByVal exeFile As String) As CompilerResults

' Configure a CompilerParameters that links System.dll
' and produces the specified executable file.
Dim referenceAssemblies As String() = {"System.dll"}
Dim cp As New CompilerParameters(referenceAssemblies, exeFile, False)

' Generate an executable rather than a DLL file.
cp.GenerateExecutable = True

' Invoke compilation.
Dim cr As CompilerResults = provider.CompileAssemblyFromFile(cp, sourceFile)
' Return the results of compilation.
Return cr
End Function

Private Sub generate_button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim provider As CodeDomProvider = GetCurrentProvider()
GenerateCode(provider, BuildHelloWorldGraph())

' Build the source file name with the appropriate
' language extension.
Dim sourceFile As String






If provider.FileExtension.StartsWith(".") Then
sourceFile = "TestGraph" + provider.FileExtension
Else
sourceFile = "TestGraph." + provider.FileExtension
End If

' Read in the generated source file and
' display the source text.
Dim sr As New StreamReader(sourceFile)
textBox1.Text = sr.ReadToEnd()
sr.Close()
End Sub

Private Sub compile_button_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim provider As CodeDomProvider = GetCurrentProvider()

' Build the source file name with the appropriate
' language extension.
Dim sourceFile As String
If provider.FileExtension.StartsWith(".") Then
sourceFile = "TestGraph" + provider.FileExtension
Else
sourceFile = "TestGraph." + provider.FileExtension
End If

Dim cr As CompilerResults = CompileCode(provider, _
sourceFile, _
"TestGraph.EXE")

If cr.Errors.Count > 0 Then
' Display compilation errors.
textBox1.Text = "Errors encountered while building " + _
sourceFile + " into " + _
cr.PathToAssembly + ": " + ControlChars.CrLf

Dim ce As System.CodeDom.Compiler.CompilerError
For Each ce In cr.Errors
textBox1.AppendText(ce.ToString() + ControlChars.CrLf)
Next ce
run_button.Enabled = False
Else
textBox1.Text = "Source " + sourceFile + " built into " + _
cr.PathToAssembly + " with no errors."
run_button.Enabled = True
End If
End Sub

Private Sub run_button_Click(ByVal sender As Object, _
ByVal e As System.EventArgs)

Process.Start("TestGraph.EXE")
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load




Me.SuspendLayout()
' Set properties for label1.
Me.label1.Location = New System.Drawing.Point(395, 20)
Me.label1.Size = New Size(180, 22)
Me.label1.Text = "Select a programming language:"
' Set properties for comboBox1.
Me.comboBox1.Location = New System.Drawing.Point(560, 16)
Me.comboBox1.Size = New Size(190, 23)
Me.comboBox1.Name = "comboBox1"
Me.comboBox1.Items.AddRange(New String() {"CSharp", "Visual Basic", "JScript"})
Me.comboBox1.Anchor = System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right Or System.Windows.Forms.AnchorStyles.Top
Me.comboBox1.SelectedIndex = 0
' Set properties for generate_button.
Me.generate_button.Location = New System.Drawing.Point(8, 16)
Me.generate_button.Name = "generate_button"
Me.generate_button.Size = New System.Drawing.Size(120, 23)
Me.generate_button.Text = "Generate Code"
AddHandler generate_button.Click, AddressOf Me.generate_button_Click
' Set properties for compile_button.
Me.compile_button.Location = New System.Drawing.Point(136, 16)
Me.compile_button.Name = "compile_button"
Me.compile_button.Size = New System.Drawing.Size(120, 23)
Me.compile_button.Text = "Compile"
AddHandler compile_button.Click, AddressOf Me.compile_button_Click
' Set properties for run_button.
Me.run_button.Enabled = False
Me.run_button.Location = New System.Drawing.Point(264, 16)
Me.run_button.Name = "run_button"
Me.run_button.Size = New System.Drawing.Size(120, 23)
Me.run_button.Text = "Run"
AddHandler run_button.Click, AddressOf Me.run_button_Click
' Set properties for textBox1.
Me.textBox1.Anchor = System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right
Me.textBox1.Location = New System.Drawing.Point(8, 48)
Me.textBox1.Multiline = True
Me.textBox1.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
Me.textBox1.Name = "textBox1"
Me.textBox1.Size = New System.Drawing.Size(744, 280)
Me.textBox1.Text = ""
' Set properties for the CodeDomExampleForm.
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(768, 340)
Me.MinimumSize = New System.Drawing.Size(750, 340)
Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.textBox1, _
Me.run_button, Me.compile_button, Me.generate_button, _
Me.comboBox1, Me.label1})
Me.Name = "CodeDomExampleForm"
Me.Text = "CodeDom Hello World Example"
Me.ResumeLayout(False)


End Sub

Private Sub InitializeComponent()
Me.SuspendLayout()
'
'Form1
'
Me.ClientSize = New System.Drawing.Size(284, 262)
Me.Name = "Form1"
Me.ResumeLayout(False)

End Sub
End Class






Viene creata un applicazione Console...


E' possibile creare un applicazione windows Form al posto della console magari scrivendo all interno di una textbox "Hello World"

grazie a tutti per l aiuto

[gnjak47]

qualcuno mi può indicare come modificare il codice sopra proposto per creare un form al posto di una applicazione console??