.NET(VB.NET)

Dispose測試：Dispose時是否立即釋放記憶體

topcat — Mon, 07 Jul 2008 08:45:00 GMT

緣起：

小喵寫這篇是源自於小喵上一篇文章【物件Object的New,Dispose與Connection的Open,Close概念分享】，小喵最後描述【當物件Dispose的時候，並沒有把該段記憶體清空，只是標註，這段空間不再使用，直到GC啟動把他清空才算真正的清空。】。但是小喵看一些網路文章時，有些卻提到當呼叫Dispose的時候，記憶體立即釋放。因此小喵就做這個測試來看看到底是怎麼回事。

測試計畫：

於是小喵寫了個小小的Console程式，然後裡面使用一個小類別，該類別在New的時候，讀取一個很大的文字檔，並且把文字檔的內容放到一個變數中。讓這個類別使用大量的記憶體。接著呼叫Dispose將物件釋放，最後呼叫GC.Collect強迫做資源回收。在這個過程中，小喵使用系統中的工具【效能】來監視這個程式的記憶體使用狀況，藉此來觀察Dispose時，是否立即釋放記憶體。

程式準備：

首先先寫個Console的程式，在專案中開啟一個【主控台應用程式】，然後在專案中新增一個類別，這個類別因為需要有Dispose的功能，因此小喵【Implements System.IDisposable】的介面，讓這個類別有可以進行Dispose，接著安排屬性，撰寫New時的讀取文字檔內容。相關程式如下：

Class:myTestObj

Imports System.IO

Public Class myTestObj
    Implements System.IDisposable

    Private m_TestStr As String

    Public Property TestStr() As String
        Get
            Return m_TestStr
        End Get
        Set(ByVal value As String)
            m_TestStr = value
        End Set
    End Property

    Public Sub New()

    End Sub
    Public Sub New(ByVal myFileName As String)
        m_TestStr = My.Computer.FileSystem.ReadAllText(myFileName)
    End Sub

    Private disposedValue As Boolean = False        ' 偵測多餘的呼叫

    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: 釋放其他狀態 (Managed 物件)。
                m_TestStr = ""
            End If

            ' TODO: 釋放您自己的狀態 (Unmanaged 物件)
            ' TODO: 將大型欄位設定為 null。
        End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    ' 由 Visual Basic 新增此程式碼以正確實作可處置的模式。
    Public Sub Dispose() Implements IDisposable.Dispose
        ' 請勿變更此程式碼。在以上的 Dispose 置入清除程式碼 (ByVal 視為布林值處置)。
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class

接著在Console程式中，就使用該類別，之後Dispose接著呼叫GC.Collect做資源回收，程式如下：

Module Module1
    Sub Main()
        Dim oTest As myTestObj
        Try
            oTest = New myTestObj("xx.txt")
        Catch ex As Exception

        Finally
            oTest.Dispose()
            GC.Collect()
        End Try
    End Sub
End Module

剩下就是準備一個夠大的文字檔，讓記憶體的使用比較明顯，小喵準備一個23MB的文字檔

接著就是測試的開始囉

先開啟【控制台】中的【系統管理工具】找到【可靠性和效能監視器】

然後按下F11讓程式啟動，接著在校能監視器中，新增一個監視，選擇【Process】，接著選擇【PageFileBytes】，並選擇我們的Process【ConsoleApplication1.vshost】藉此觀察記憶體的使用狀況。

測試結果：

測試過程小喵錄製下來，請參考以下的錄影過程

http://vip2.blueshop.com.tw/topcat/DEMO/Dispose_GC/Dispose_GC.html

從錄影的過程觀察到，當系統進行完Dispose之後，事實上記憶體並沒有立即釋放，而是直到呼叫了GC.collect之後才真正的釋放。

特別聲明：

GC.Collect方法是強制作業系統做資源回收的動作，不過請您在寫程式的時候不要這麼做，因為GC.Collect作用的區域並不只有你的程式部分，而是整個系統。並且這個動作是強制性的。再進行這個過程中，由於需要對全部的東西強制資源回收，所以該主機上其他的動作會等他做完之後再開始。其實這個動作.NET Framework自己會依照系統的狀況自己處理。手動處理反而可能造成系統的負擔(想想馬路上隨時有救護車跑來跑去，頻率很高，大家都要停下來等他過)。因此寫程式時，只要使用Dispose讓系統標注這個記憶體可以被使用即可。有需要的時候讓系統自然啟動去清除。不要手動清除他。

物件Object的New,Dispose與Connection的Open,Close概念分享

topcat — Thu, 03 Jul 2008 16:27:00 GMT

這篇文章源自於有位網友對於Using的疑問(http://www.blueshop.com.tw/board/show.asp?subcde=BRD20080703145519KXS&fumcde=FUM20041006161839LRJ)

小喵就小喵的認知來說明，不見得正確，如有錯誤請大家指正，感恩

什麼是New

我們經常可以看到有人使用一個物件的時候會寫

Dim oEmp as ObjEmployee
oEmp = New ObjEmployee

而且少了New就不能執行，那麼什麼是New呢
New是產生執行個體，不過相信很多人又要問，什麼是【產生執行個體】 (能不能講明白一點啊!! )
這要提到電腦的程式運作過程。程式在電腦上跑，會把程式的區段，在記憶體裡面挖一塊空間，然後把程式碼載入那塊空間
接著程式在運作的時候，就是記憶體與CPU之間溝通、運算、記錄等動作，而把【挖塊記憶體，把程式載到那塊空間】這個過程就是【產生執行個體】。
因此沒有New的話會怎樣，程式區塊根本沒有載入到記憶體中，因此也無法運作執行

講的擬人化一點

Dim oEmp as ObjEmployee '宣告oEmp是ObjEmployee這種物件類別(此時有魂無體)
oEmp = New ObjEmployee '產生執行個體(此時投胎轉世，靈魂變成實體，可以開始工作)

什麼是Dispose

當一個物件已經使用完後，未來不會再使用，此時這個物件已經完成他這一生(New完之後到現在)的任務。因此他可以塵歸塵、土歸土...一切還諸天地...此時就進行Dispose
然而實際上，在記憶體中，當物件Dispose的時候，並沒有把該段記憶體清空，只是標註，這段空間不再使用，直到GC啟動把他清空才算真正的清空。
因此如果用完後，不進行Dispose...那麼就會等到該位置很久沒動作了(就像有個人躺在地上，已經超過一定時間(一個月??)沒動作，也沒呼吸)，才會被其他的程式拿來用。

以上說明的是New(生)與Dispose(死)的關係

什麼是Open

當你有了實體後，代表可以開始運作
但不是真的已經運作了
以Connecion來說

Using Conn As New Connetion(ConnStr)
    'Conn.Open
    Dim Dr as SqlDataReader
    Using Cmmd as New SqlCommand("Select...",Conn)
        Dr = Cmmd.ExecuteReader
    End Using
End Using

上面這段程式會出錯，他告訴你...Connection沒有Open，也就例如您建立了一個橋，但是這座橋卻沒有通車，因此也沒辦法用。因此使用DataReader或者Cmmd.ExecuteNoneQuery的時候，都需要告訴他已經通車了...他才會正常運作。

而如果使用DataAdapter的話這個傢伙比較厲害... 他會看有沒有通車，有通車他就用；沒通車的話，他會自己把這通道打開，然後去使用。

最後說什麼是Close...

Close是關閉通道，通道關了是可以再開的唷。
然後跟上面的Dispose再比對一下：
Close只是把通道關閉
Dispose卻是通知作業系統...我已經完成任務，這段記憶體你可以拿去再用...然後壽終正寢
知道不一樣在哪了嗎??

VB.NET中執行SSIS產生的DTSX

topcat — Tue, 11 Mar 2008 14:08:00 GMT

當需要匯入匯出大量的資料時，尤其是異質的資料(例如把Access的mdb資料匯入到MS-SQL)，使用SSIS的方式速度是最快的，而且可以在SQL Server Management Studio裡面，直接在操作匯入匯出的時候，把過程儲存成SSIS的格式(.DTSX)。下次有相同的匯入匯出動作，就可以直接透過儲存的dstx來使用。

如果想在程式中執行DTSX，可以透過以下的方式處理

在專案中，要加入參考【Microsoft.SQLServer.ManagedDTS】
Imports Microsoft.SqlServer.Dts.Runtime
相關程式碼如下：
```
Dim pkg As String = "D:\DTSX\MyImport.dtsx"    'DTSX檔案路徑
Dim app As Application = New Application()
Dim p As Package = app.LoadPackage(pkg, Nothing)

Dim vir As Variables = p.Variables

If Not p.Execute(Nothing, vir, Nothing, Nothing, Nothing) = DTSExecResult.Success Then
   Throw New Exception("NICE.mdb檔案匯入SQL失敗!!")
Else
    Return "Success"
End If
```

可以在程式中執行，那麼無論是透過畫面的按鈕，還是排程都可以處理這樣的動作了!!

另外要注意的是，如果是使用Web Service或者是ASP.NET的話，可能要注意一下權限的問題

透過VB.NET呼叫WebBrowser控制項內的JavaScript Function

topcat — Fri, 11 Jan 2008 16:22:00 GMT

小喵最近碰到這樣的狀況

由於合作廠商的系統是外包的，因此不太可能因為我們公司的需求而做系統的改變，而該系統提供網頁的查詢資料，但是有分頁，分頁數多達數百頁(假設300頁)，因此如果每天要把所有的資料取下來，並且加以整理，然後整合到自己的系統裡，那需要耗費相當的人力。(可以想像一個人從上班後開始登入、進入資料畫面、開始這三百頁的點選。還要剔除不符合的資料，然後放到一個檔案，這個人每天光做這些就下班了!!)

於是小喵決定寫一個程式來解決這樣的問題，在VB.NET 2005裡面有個WebBrowser可以讓小喵在VB.NET裡面處理，可是問題來了，怎麼與網頁中的JavaScript結合讓他翻頁呢??

其實方式很簡單，假設下一頁有個JavaScript的Function名稱為PageDown()，那麼小喵只需要在程式裡面下

Me.WebBrowser1.Navigate("javascript:PageDown()")

這樣就能夠呼叫到啦!!

從小喵學習的經驗聊聊學習ASP.NET的建議

topcat — Thu, 06 Dec 2007 11:08:00 GMT

要走程式設計這條路，確實需要熱情...而且是持續不斷的熱情

小喵聊聊小喵學習的經過

小喵雖然是資訊工程畢業
不過在學校的時候沒有認真學寫程式
(那時候小喵的興趣在網管)
小喵是等作業版本的那群之一

不過在這個過程至少也建立了程式撰寫的基本概念
(變數定義、函數運用、資料型態、判斷式與程式流程、迴圈、遞迴等...)
這個部分您可以看您想學哪個程式語言(例如：C#,VB.NET)，買本那個語言介紹的書看看

後來工作後才真正接觸到程式撰寫
剛開始接觸的是ASP
完全沒有HTML,JavaScript的基礎
由於當時公司剛導入WebApp的方式
公司有請老師來上課
同事們的程度也都差不多
記得當時老師說過一句話
【
學ASP沒有精通HTML,JavaScript(備註1)沒關係
學習過程中多去檢視原始檔，再慢慢了解用到的HTML與JavaScript就好了
】
會這麼說小喵覺得是有原因的
小喵曾經去翻過專門介紹HTML Tag的書
裡面的東西有很多到目前為止還沒用過
因此小喵的建議是，HTML,CSS,JavaScript各找一本當作參考字典就好
有用到的時候來查看怎麼用

直到2005年底VS2005出來的時候，小喵才慢慢把焦點轉到ASP.NET上

備註1:
精通HTML,JavaScript
精通HTML是指所有的HTML的Tag用法都熟悉，還包括CSS的用法
精通JavaScript則是不但要精通JavaScript的語法(其實與C還蠻類似的)
還得對HTML內的各種物件屬性方法熟悉才稱得上精通
----------------

對於學習的建議，小喵的想法如下，提供參考

1.程式語言的學習
如果自己有熟悉的語言，熟C,Java,C++,Delphi的建議學C#，熟VB的學VB.NET
如果都沒有學過程式語言，那麼建議學C#
C#,JavaScript它們的基本語法都是從C衍生出來的
因此您學基本語法的時候，可以一並用在JavaScript裡面
(雖然小喵自己用的是VB.NET)
這個部份找本書來看

2.HTML部分
建議先看過FORM裡面的物件
<INPUT type=Text>
<INPUT Type=button>
<INPUT type=password>
<INPUT type=submit>
<INPUT type=reset>
<SELECT>
<TEXTArea></TEXTArea>
以及會用來排畫面的
<Table></table>
<div></div>
<span></span>
市面上有很多視覺化編輯HTML的工具(Dreamwave,FrontPage,Expression Web等)
建議可以視覺化編輯後他所產生的HTML大致上了解一下

這些部分看過定義，先有個基本印象

3.JavaScript的學習
小喵覺得這部份的重點
在於如何透過JavaScript去控制到畫面的各個物件(尤其是Form裡面的物件)
並且清楚這些物件樹
例如
<HTML> <BODY> <FORM action="" id="form1" name="form1" method="post"> <INPUT type="text" id="text1" name="text1" value="abc"> </FORM> </BODY> </HTML>
那麼您要透過JavaScript取得text1裡面的資料
就要知道這個HTML的架構
IE-->window
裡面有個BODY-->document
裡面有個Form-->form1
裡面有個Input-->text1
所以在JavaScript裡面取得物件的方式是
var t=window.document.form1.text1.value;
4.ASP.NET
找本ASP.NET的書來學習
建議學習程式碼與畫面分開的方式(CodeBeside)
也就是一個abc.aspx的畫面會搭配一個abc.aspx.cs

5.SQL學習
a.學會視覺化的操作(建立資料表、檢視(View)裡面拉資料表、設定關聯、勾選要的欄位、設定條件)
b.學習T-SQL:從視覺化操作產生的SQL語法..學習T-SQL(SELECT,INSERT,UPDATE, DELETE,INNER JOIN, LEFT JOIN, RIGHT JOIN)
c.學習資料庫規劃(需求分析、資料表欄位規劃設計、資料庫正規化)

以上五點的時間順序建議
1.建議先學程式語言，至少對基本程式有概念
2~5可以同時間交叉學習

最後，當基礎都OK了小喵建議，自己出一些題目給自己，可以參考在網路上看到的一些東西，給自己一些題目來撰寫，這樣可以在撰寫過程中，發現不足的地方並且尋求解決方法，讓自己更為精進。

以上提供想走ASP.NET開發的人提供參考

Refactor工具For VB.NET, ASP.NET, C++

topcat — Fri, 12 Oct 2007 09:21:00 GMT

Refactor主要是要將原本可以正常運作，可是不容易擴充的程式，經過整理後，讓他保留原有的功能，並且可以增加該程式的擴充性，讓程式能夠更容易擴充與維護。

這樣的工具使用C#的人一定不陌生，因為他已經內建在VS2005 C#裡面了。但是使用VB.NET、C++的使用者卻沒有這樣的一個工具可以幫忙

有第三方廠商提供這樣的工具給大家安裝使用、而且重點是，他是免費的。有需要的請到以下網址下載安裝：

VB.NET：http://www.devexpress.com/Products/NET/IDETools/VBRefactor/

ASP.NET：http://www.devexpress.com/Products/NET/IDETools/RefactorASP/

C++：http://www.devexpress.com/Products/NET/IDETools/RefactorCPP/

使用VB.NET產生ANSI的文字檔

topcat — Thu, 05 Jul 2007 09:21:00 GMT

話說小喵最近在撰寫程式碼產生器，使用VB.NET撰寫介面，讓使用者輸入基本的參數後，就產生一些基本的程式碼。

在過程中小喵發現，產生的程式碼使用【記事本】看起來內容都是正常的，可是從VS2005開啟相關檔案後卻發現，所有中文的部分都變成了亂碼!!

於是小喵開始尋找原因，最後發現原來產生的文字檔都是用UTF-8的格式。小喵試著用記事本把檔案另存成ANSI格式後使用VS2005開啟，中文字的部分終於正常了。

故事講完了回到正提，小喵使用StreamWriter的方式產生文字檔，程式如下：

Using sw As New StreamWriter("D:\TEMP\Test.vb") sw.WriteLine("'這是測試文字輸出") sw.close() End Using

這樣的方式在沒有指定輸出格式的狀況下，預設是UTF-8。要改成ANSI(Big5)就需要改成

Using sw As New StreamWriter("D:\TEMP\Test.vb", False, System.Text.Encoding.GetEncoding(950)) sw.WriteLine("'這是測試文字輸出") sw.close() End Using

其中，950是代表您要用Big5編碼的方式進行，如果要輸出別的編碼方式，可以輸入不同的代號。

.NET呼叫VB6撰寫元件【釋放資源】的語法

topcat — Wed, 04 Apr 2007 18:31:00 GMT

在撰寫.NET的時候，.NET並不會自動作資源回收，所以呼叫完元件後，需要自己下語法將資源回收

如果呼叫的是.NET所撰寫的COM+元件，那麼資源回收的語法是

Obj.Dispose()

Obj = Nothing

但是如果呼叫的是VB6的元件，那麼不能呼叫Dispose將資源釋放

所以需要用以下的指令將資源釋放(元件服務中的數字會停下來)

System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

整體的語法如下
Dim obj as Object = CreateObject(“PDemo.CDemo”)

Try

Catch ex As Exception

Finally

System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

obj = Nothing

End Try

.NET中將圖檔解析度轉小並另存檔案的程式碼

topcat — Wed, 03 Jan 2007 11:52:00 GMT

最近小喵的同事問到小喵一個問題

由於目前的數位相機的解析度都很高，所以圖片的解析度都很大，檔案也很大，那麼如果把圖檔上傳後，其他的人要瀏覽就會花費許多的時間。

如果使用者可以上傳前就先把圖檔轉小，然後再上傳，這樣上傳的時間會變少、其他的讀者瀏覽該圖檔時也不會等太久，但是問題來了，一般的使用者不會用影像處理軟體，使用者又遍佈全省各地，因此不可能一個一個教他們如何使用影像處理軟體來轉換圖的解析度

因應這樣的需求，小喵開始尋找.NET中如何處理影像解析度的相關程式語法，原來.NET中要處理這些動作是很簡單的，沒幾行語法就可以達成了。相關範例語法如下：

首先記得要先Imports 相關的NameSpace：
Imports System.Drawing
Imports System.Drawing.Imaging

Dim g As Image = Image.FromFile("D:\Backup\T1.jpg") '讀取原始圖檔 Dim ThisFormat As ImageFormat = g.RawFormat '取得圖檔格式 Dim FixWidth As Integer = 640 '設定修改後的寬度 Dim FixHeight As Integer = (FixWidth / g.Width) * g.Height '計算等比例縮小後的高度 Dim ImgOutput As New Bitmap(g, FixWidth, FixHeight) '宣告新的圖，並指定高度 ImgOutput.Save("D:\Backup\T1.jpg", ThisFormat) '存成指定的格式 '最後將物件釋放 g.Dispose() ImgOutput.Dispose()

有了以上的語法後，接著就是如何的應用了，小喵有兩個想法提供給小喵同事
一是寫個Client端的程式，讓使用者使用，先把圖轉小後，再上傳。
二是讓使用者把原圖上傳後，在ASP.NET中將圖檔轉小後蓋掉原來的檔案。