Templates in the executable (VB.Net / netframework)

Note

This demo is available in your FlexCel installation at <FlexCel Install Folder>\samples\vb\VS2022\netframework\20.Reports\60.Templates In The Exe and also at https:​//​github.​com/​tmssoftware/​TMS-​FlexCel.​NET-​demos/​tree/​master/​vb/​VS2022/​netframework/​Modules/​20.​Reports/​60.​Templates In The Exe

Overview

Sometimes you might want to distribute your templates embedded in your application, instead of shipping the separately.

Concepts

• How to embed a template directly in the exe file. For step-by-step instructions please read Embedding Excel files in your application

• Dealing with includes. Included files are normally searched on the same path as the original file, but here, as we are reading from a stream, we must tell FlexCel where to find the embedded template. This is done with the FlexCelReport.GetInclude event.

• While here we show how to use a stream to read a template from the executable, you can use a very similar approach to store your templates in a database, or in any place you like. Just call the FlexCelReport.Run with a stream with your data, and assign the FlexCelReport.GetInclude event to assign the data for the included files.

Files

AssemblyInfo.vb

Imports System.Reflection
Imports System.Runtime.CompilerServices

'
' General Information about an assembly is controlled through the following 
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
'
<Assembly: AssemblyTitle("")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyConfiguration("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("")>
<Assembly: AssemblyCopyright("(c) 2002 - 2014 TMS Software")>
<Assembly: AssemblyTrademark("")>
<Assembly: AssemblyCulture("")>

'
' Version information for an assembly consists of the following four values:
'
'      Major Version
'      Minor Version 
'      Build Number
'      Revision
'
' You can specify all the values or you can default the Revision and Build Numbers 
' by using the '*' as shown below:

<Assembly: AssemblyVersion("6.2.1.0")>

'
' In order to sign your assembly you must specify a key to use. Refer to the 
' Microsoft .NET Framework documentation for more information on assembly signing.
'
' Use the attributes below to control which key is used for signing. 
'
' Notes: 
'   (*) If no key is specified, the assembly is not signed.
'   (*) KeyName refers to a key that has been installed in the Crypto Service
'       Provider (CSP) on your machine. KeyFile refers to a file which contains
'       a key.
'   (*) If the KeyFile and the KeyName values are both specified, the 
'       following processing occurs:
'       (1) If the KeyName can be found in the CSP, that key is used.
'       (2) If the KeyName does not exist and the KeyFile does exist, the key 
'           in the KeyFile is installed into the CSP and used.
'   (*) In order to create a KeyFile, you can use the sn.exe (Strong Name) utility.
'       When specifying the KeyFile, the location of the KeyFile should be
'       relative to the project output directory which is
'       %Project Directory%\obj\<configuration>. For example, if your KeyFile is
'       located in the project directory, you would specify the AssemblyKeyFile 
'       attribute as [assembly: AssemblyKeyFile("..\\..\\mykey.snk")]
'   (*) Delay Signing is an advanced option - see the Microsoft .NET Framework
'       documentation for more information on this.
'
<Assembly: AssemblyDelaySign(False)>
<Assembly: AssemblyKeyFile("")>
<Assembly: AssemblyKeyName("")>

Form1.Bds.vb

'On Borland Developer Studio you can not embed xls files directly.
'On this demo you can see how to do it, converting it to resx files with the
'XlsEmbed utility included on the Tools folder.

Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports System.IO
Imports System.Diagnostics
Imports System.Reflection
Imports System.Resources
Imports FlexCel.Core
Imports FlexCel.XlsAdapter
Imports FlexCel.Report
Imports FlexCel.Demo.SharedData


Namespace TemplatesInTheExe
    ''' <summary>
    ''' Summary description for Form1.
    ''' </summary>
    Public Class mainForm
        Inherits System.Windows.Forms.Form

        Private WithEvents button1 As System.Windows.Forms.Button
        Private saveFileDialog1 As System.Windows.Forms.SaveFileDialog
        Private label1 As System.Windows.Forms.Label
        Private WithEvents btnCancel As System.Windows.Forms.Button
        Private WithEvents ordersReport As FlexCel.Report.FlexCelReport
        ''' <summary>
        ''' Required designer variable.
        ''' </summary>
        Private components As System.ComponentModel.Container = Nothing

        Public Sub New()
            InitializeComponent()
            InitializeReports()
        End Sub

        ''' <summary>
        ''' Clean up any resources being used.
        ''' </summary>
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If components IsNot Nothing Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        #Region "Windows Form Designer generated code"
        ''' <summary>
        ''' Required method for Designer support - do not modify
        ''' the contents of this method with the code editor.
        ''' </summary>
        Private Sub InitializeComponent()
            Me.button1 = New System.Windows.Forms.Button()
            Me.saveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
            Me.ordersReport = New FlexCel.Report.FlexCelReport()
            Me.label1 = New System.Windows.Forms.Label()
            Me.btnCancel = New System.Windows.Forms.Button()
            Me.SuspendLayout()
            ' 
            ' button1
            ' 
            Me.button1.Anchor = (CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles))
            Me.button1.BackColor = System.Drawing.Color.Green
            Me.button1.ForeColor = System.Drawing.Color.White
            Me.button1.Location = New System.Drawing.Point(152, 88)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(112, 23)
            Me.button1.TabIndex = 0
            Me.button1.Text = "GO!"
'           Me.button1.Click += New System.EventHandler(Me.button1_Click)
            ' 
            ' saveFileDialog1
            ' 
            Me.saveFileDialog1.Filter = "Excel Files|*.xls"
            Me.saveFileDialog1.RestoreDirectory = True
            ' 
            ' ordersReport
            ' 
            Me.ordersReport.Canceled = False
            Me.ordersReport.DeleteEmptyRanges = False
            Me.ordersReport.ErrorActions = FlexCel.Report.TErrorActions.None
'           Me.ordersReport.GetInclude += New FlexCel.Report.GetIncludeEventHandler(Me.ordersReport_GetInclude)
            ' 
            ' label1
            ' 
            Me.label1.Location = New System.Drawing.Point(24, 24)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(288, 24)
            Me.label1.TabIndex = 2
            Me.label1.Text = "How to read a template from the executable instead of an external file."
            ' 
            ' btnCancel
            ' 
            Me.btnCancel.Anchor = (CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles))
            Me.btnCancel.BackColor = System.Drawing.Color.FromArgb((CByte(192)), (CByte(0)), (CByte(0)))
            Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.btnCancel.ForeColor = System.Drawing.Color.White
            Me.btnCancel.Location = New System.Drawing.Point(272, 88)
            Me.btnCancel.Name = "btnCancel"
            Me.btnCancel.Size = New System.Drawing.Size(112, 23)
            Me.btnCancel.TabIndex = 3
            Me.btnCancel.Text = "Cancel"
'           Me.btnCancel.Click += New System.EventHandler(Me.btnCancel_Click)
            ' 
            ' mainForm
            ' 
            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
            Me.ClientSize = New System.Drawing.Size(416, 133)
            Me.Controls.Add(Me.btnCancel)
            Me.Controls.Add(Me.label1)
            Me.Controls.Add(Me.button1)
            Me.Name = "mainForm"
            Me.Text = "Templates in the exe"
            Me.ResumeLayout(False)

        End Sub
        #End Region

        ''' <summary>
        ''' The main entry point for the application.
        ''' </summary>
       <STAThread> _
        Shared Sub Main()
            Application.Run(New mainForm())
        End Sub

        ''' <summary>
        ''' The datamodule with the access tables.
        ''' </summary>
        Private dataModule As SharedData

        ''' <summary>
        ''' This method will add the databases used by the report. As they won't change, we will do it only once.
        ''' </summary>
        Private Sub InitializeReports()
            dataModule= New SharedData()
            ordersReport.AddTable(dataModule.nwind)
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
            AutoRun()
        End Sub

        Public Sub AutoRun()
            dataModule.LoadData()
            ordersReport.SetValue("Date", Date.Now)

            If saveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                Dim a As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()

                Dim rm As New System.Resources.ResourceManager("template", a)
                Dim WbData() As Byte=CType(rm.GetObject("Templates In The Exe.template.xls"), Byte())
                Using InStream As Stream = New MemoryStream(WbData)
                    Using OutStream As New FileStream(saveFileDialog1.FileName, FileMode.Create)
                        ordersReport.Run(InStream, OutStream)
                    End Using
                End Using

                If MessageBox.Show("Do you want to open the generated file?","Confirm", MessageBoxButtons.YesNo)=System.Windows.Forms.DialogResult.Yes Then
                    Process.Start(saveFileDialog1.FileName)
                End If
            End If

        End Sub

        ''' <summary>
        ''' This is the method that will be called by the ASP.NET front end. It returns an array of bytes 
        ''' with the report data, so the ASP.NET application can stream it to the client.
        ''' </summary>
        ''' <returns>The generated file as a byte array.</returns>
        Public Function WebRun() As Byte()
            dataModule.LoadData()
            ordersReport.SetValue("Date", Date.Now)

            Dim DataPath As String= Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().Location) &"\..\..\"

            Dim a As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
            Using OutStream As New MemoryStream()
                Dim rm As New System.Resources.ResourceManager("template", a)
                Dim WbData() As Byte=CType(rm.GetObject("Templates In The Exe.template.xls"), Byte())
                Using InStream As Stream = New MemoryStream(WbData)
                    ordersReport.Run(InStream, OutStream)
                    Return OutStream.ToArray()
                End Using
            End Using
        End Function


        Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
            Close()
        End Sub

        Private Sub ordersReport_GetInclude(ByVal sender As Object, ByVal e As FlexCel.Report.GetIncludeEventArgs) Handles ordersReport.GetInclude
            Dim a As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
            Dim rm As New System.Resources.ResourceManager("FileName), a)
            Dim Data() As Byte=CType(rm.GetObject(e.FileName), Byte())
            e.IncludeData=Data
        End Sub
    End Class

End Namespace

Form1.Designer.vb

Imports System.Collections
Imports System.ComponentModel
Imports System.IO
Imports System.Reflection
Imports System.Resources
Imports FlexCel.Core
Imports FlexCel.XlsAdapter
Imports FlexCel.Report
Imports FlexCel.Demo.SharedData
Namespace TemplatesInTheExe
    Partial Public Class mainForm
        Inherits System.Windows.Forms.Form

        Private WithEvents button1 As System.Windows.Forms.Button
        Private saveFileDialog1 As System.Windows.Forms.SaveFileDialog
        Private label1 As System.Windows.Forms.Label
        Private WithEvents btnCancel As System.Windows.Forms.Button
        ''' <summary>
        ''' Required designer variable.
        ''' </summary>
        Private components As System.ComponentModel.Container = Nothing

        ''' <summary>
        ''' Clean up any resources being used.
        ''' </summary>
        Protected Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If components IsNot Nothing Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub

        #Region "Windows Form Designer generated code"
        ''' <summary>
        ''' Required method for Designer support - do not modify
        ''' the contents of this method with the code editor.
        ''' </summary>
        Private Sub InitializeComponent()
            Me.button1 = New System.Windows.Forms.Button()
            Me.saveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
            Me.label1 = New System.Windows.Forms.Label()
            Me.btnCancel = New System.Windows.Forms.Button()
            Me.SuspendLayout()
            ' 
            ' button1
            ' 
            Me.button1.Anchor = (CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles))
            Me.button1.BackColor = System.Drawing.Color.Green
            Me.button1.ForeColor = System.Drawing.Color.White
            Me.button1.Location = New System.Drawing.Point(152, 88)
            Me.button1.Name = "button1"
            Me.button1.Size = New System.Drawing.Size(112, 23)
            Me.button1.TabIndex = 0
            Me.button1.Text = "GO!"
            Me.button1.UseVisualStyleBackColor = False
'           Me.button1.Click += New System.EventHandler(Me.button1_Click)
            ' 
            ' saveFileDialog1
            ' 
            Me.saveFileDialog1.Filter = "Excel Files|*.xls;*.xlsx;*.xlsm|Excel 97/2003|*.xls|Excel 2007|*.xlsx;*.xlsm|All files|*.*"
            Me.saveFileDialog1.RestoreDirectory = True
            ' 
            ' label1
            ' 
            Me.label1.Location = New System.Drawing.Point(24, 24)
            Me.label1.Name = "label1"
            Me.label1.Size = New System.Drawing.Size(360, 24)
            Me.label1.TabIndex = 2
            Me.label1.Text = "How to read a template from the executable instead of an external file."
            ' 
            ' btnCancel
            ' 
            Me.btnCancel.Anchor = (CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles))
            Me.btnCancel.BackColor = System.Drawing.Color.FromArgb((CInt((CByte(192)))), (CInt((CByte(0)))), (CInt((CByte(0)))))
            Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
            Me.btnCancel.ForeColor = System.Drawing.Color.White
            Me.btnCancel.Location = New System.Drawing.Point(272, 88)
            Me.btnCancel.Name = "btnCancel"
            Me.btnCancel.Size = New System.Drawing.Size(112, 23)
            Me.btnCancel.TabIndex = 3
            Me.btnCancel.Text = "Cancel"
            Me.btnCancel.UseVisualStyleBackColor = False
'           Me.btnCancel.Click += New System.EventHandler(Me.btnCancel_Click)
            ' 
            ' mainForm
            ' 
            Me.AutoScaleDimensions = New System.Drawing.SizeF(6F, 13F)
            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
            Me.ClientSize = New System.Drawing.Size(416, 133)
            Me.Controls.Add(Me.btnCancel)
            Me.Controls.Add(Me.label1)
            Me.Controls.Add(Me.button1)
            Me.Name = "mainForm"
            Me.Text = "Templates in the exe"
            Me.ResumeLayout(False)

        End Sub
        #End Region
    End Class
End Namespace

Form1.vb

Imports System.Collections
Imports System.ComponentModel
Imports System.IO
Imports System.Reflection
Imports System.Resources
Imports FlexCel.Core
Imports FlexCel.XlsAdapter
Imports FlexCel.Report
Imports FlexCel.Demo.SharedData


Namespace TemplatesInTheExe
    ''' <summary>
    ''' How to embed the reports in the executable, including "included" reports.
    ''' </summary>
    Partial Public Class mainForm
        Inherits System.Windows.Forms.Form

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
            AutoRun()
        End Sub

        Public Sub AutoRun()
            Using ordersReport As FlexCelReport = SharedData.CreateReport()
                AddHandler ordersReport.GetInclude, AddressOf ordersReport_GetInclude
                ordersReport.SetValue("Date", Date.Now)

                If saveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
                    Dim a As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
                    Using InStream As Stream = a.GetManifestResourceStream("Templates In The Exe.template.xls")
                        Using OutStream As New FileStream(saveFileDialog1.FileName, FileMode.Create)
                            ordersReport.Run(InStream, OutStream)
                        End Using
                    End Using

                    If MessageBox.Show("Do you want to open the generated file?", "Confirm", MessageBoxButtons.YesNo) = System.Windows.Forms.DialogResult.Yes Then
                        Process.Start(saveFileDialog1.FileName)
                    End If
                End If
            End Using

        End Sub

        Private Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
            Close()
        End Sub

        Private Sub ordersReport_GetInclude(ByVal sender As Object, ByVal e As FlexCel.Report.GetIncludeEventArgs)
            Dim a As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
            Using InStream As Stream = a.GetManifestResourceStream(e.FileName)
                Dim data(CInt(InStream.Length) - 1) As Byte
                InStream.Position = 0
                InStream.Read(data, 0, data.Length)
                e.IncludeData = data
            End Using
        End Sub
    End Class

End Namespace

Program.vb

Namespace TemplatesInTheExe
    Friend NotInheritable Class Program

        Private Sub New()
        End Sub

        ''' <summary>
        ''' The main entry point for the application.
        ''' </summary>
       <STAThread> _
        Shared Sub Main()
            Application.EnableVisualStyles()
            Application.SetCompatibleTextRenderingDefault(False)
            Application.Run(New mainForm())
        End Sub
    End Class
End Namespace