日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

用.net動(dòng)態(tài)創(chuàng)建類(lèi)的實(shí)例_.Net教程

編輯Tag賺U幣
教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!

推薦:ASP.NET 2.0 里輸出文本格式流
在用 ASP.NET 編程時(shí),打開(kāi)一個(gè)頁(yè)面一般是通過(guò)指定超鏈接地址,調(diào)用指定的頁(yè)面文件(.html、.aspx)等方法。 但是,如果即將打開(kāi)的頁(yè)面文件的內(nèi)容是在程序中動(dòng)態(tài)生成,或者是從數(shù)據(jù)庫(kù)的表里取出

用.net動(dòng)態(tài)創(chuàng)建類(lèi)的實(shí)例

看了網(wǎng)上很多關(guān)于DotNet動(dòng)態(tài)創(chuàng)建類(lèi)的實(shí)例的文章,我這里想總結(jié)一下,其實(shí)方法很簡(jiǎn)單,就是用“Activator.CreateInstance”。但是這個(gè)方法需要待創(chuàng)建的類(lèi)的Type作為參數(shù),為了獲得該參數(shù),可以利用[Assembly].GetType方法,這個(gè)方法只需要待創(chuàng)建的類(lèi)的名稱(chēng)(名稱(chēng)字符串)就可以了,最后的問(wèn)題就是要獲得這個(gè)類(lèi)所在的程序集。如何獲得待創(chuàng)建的類(lèi)所在程序集,那么就解決了這個(gè)問(wèn)題。

其實(shí),在獲得程序集這個(gè)問(wèn)題上,可以有更簡(jiǎn)單的辦法,以下是我的做法。

利用Microsoft.VisualBasic.VBCodeProvider(),如果是C#可以用CSharpCodeProvider(),將類(lèi)文件編譯成為DLL文件,然后利用[Assembly].LoadFrom("DLL 的絕對(duì)路徑")加載該DLL。這樣我們可以避免在那些創(chuàng)建DLL和Type的復(fù)雜代碼。我告訴我的項(xiàng)目組成員這個(gè)例子后,強(qiáng)調(diào)要打開(kāi)思路,Simple is perfect,凡事都盡量找簡(jiǎn)便的方法來(lái)實(shí)現(xiàn),客戶(hù)永遠(yuǎn)不會(huì)為我們那些復(fù)雜的代碼多花一分錢(qián)。

1.執(zhí)行編譯任務(wù)的方法:

Public Shared Function CompileExecutable()Function CompileExecutable(ByVal sourceName As String, ByVal DLLPath As String, ByRef ReturnDLLName As String) As Boolean
Dim sourceFile As FileInfo = New FileInfo(sourceName)
Dim provider As CodeDomProvider = Nothing
Dim compileOk As Boolean = False

' 根據(jù)原文件的擴(kuò)展名選擇code provider
If sourceFile.Extension.ToUpper(CultureInfo.InvariantCulture) = ".CS" Then

provider = New Microsoft.CSharp.CSharpCodeProvider()

ElseIf sourceFile.Extension.ToUpper(CultureInfo.InvariantCulture) = ".VB" Then

provider = New Microsoft.VisualBasic.VBCodeProvider()

Else
Console.WriteLine("原文件必須包含 .cs 或 .vb 擴(kuò)展名")
End If

If Not provider Is Nothing Then

' 構(gòu)造DLL文件的全路徑
Dim dllName As String = String.Format("{0}\{1}.dll", _
DLLPath, _
sourceFile.Name.Replace(".", "_"))

ReturnDLLName = dllName

Dim cp As CompilerParameters = New CompilerParameters()

' 設(shè)置編譯控制參數(shù)
cp.GenerateExecutable = False '生成DLL,如果是True則生成exe文件
cp.OutputAssembly = dllName
cp.GenerateInMemory = False
cp.TreatWarningsAsErrors = False

' 調(diào)用編譯方法將原代碼文件編譯成DLL
Dim cr As CompilerResults = provider.CompileAssemblyFromFile(cp, _
sourceName)

If cr.Errors.Count > 0 Then
' 顯示編譯錯(cuò)誤
Console.WriteLine("編譯錯(cuò)誤 {0} 編譯成 {1}", _
sourceName, cr.PathToAssembly)

Dim ce As CompilerError
For Each ce In cr.Errors
Console.WriteLine(" {0}", ce.ToString())
Console.WriteLine()
Next ce
Else
' 顯示編譯成功的消息
Console.WriteLine("原文件 {0} 編譯成 {1} 成功完成.", _
sourceName, cr.PathToAssembly)
End If

' 返回編譯結(jié)果
If cr.Errors.Count > 0 Then
compileOk = False
Else
compileOk = True
End If
End If
Return compileOk

End Function


2.編譯DLL,并動(dòng)態(tài)創(chuàng)建類(lèi)的實(shí)例。(這里類(lèi)的原文件是Class1.vb文件,放在WebSite的App_Code文件夾中了,實(shí)際使用時(shí)可以放在任意物理位置。)

Dim strSourceFileName As String = Server.MapPath("~/App_Code/Class1.vb") '類(lèi)文件的全路徑
Dim strDllPath As String = Server.MapPath("~/App_Code") '編譯后的DLL文件存放的位置
Dim strDllName As String = "" 'DLL的全路徑(返回值)
CompileExecutable(strSourceFileName, strDllPath, strDllName) '編譯原文件為DLL文件

Dim a As [Assembly] = [Assembly].LoadFrom(strDllName) '加載DLL
Dim myType As System.Type = a.GetType("Class1") '獲得Class1的Type
Dim obj As Object = Activator.CreateInstance(myType) '獲得Class1的實(shí)例
3.Class1.vb原文件
Public Class Class1Class Class1
Public i As Integer
End Class

分享:從XML文件中讀取數(shù)據(jù)綁定到DropDownList
1 、綁定DropDownList: 以下為引用的內(nèi)容: ddl_language.DataSource = createDataSource(); ddl_language.DataTextField = "languageText

來(lái)源:模板無(wú)憂(yōu)//所屬分類(lèi):.Net教程/更新時(shí)間:2008-08-22
相關(guān).Net教程