[VBNET] 如何支援 EMZ/WMZ

這個主題在 VB2005 是比較方便的，因為 VB2005 內建 GZip 解壓縮模組，大家都可以省點事。

 

WMF 是 Windows 3.x 內建的向量檔格式，早期視窗軟體輸出環境不大，解析度不高，所以 2 bytes 的整數來表示座標就非常夠了，但是 Office 4.2/4.3 在列印時需要比較精確的定位，WMF 格式並不能直接使用，所以當時 Office 在 WMF 檔頭前面加上 22 bytes 來描述紙張大小與圖檔關係，但是這個格式並不直接被 Windows API 支援，必須自己另外處理，才能展示，有時又稱 WMF(P) 。而在 WinNT 3.1 上，開始引入工作站級的繪圖軟體，最早引入的是 MicroStation ，工作站級的繪圖軟體需要更精準的座標定位，WMF 不足以使用，所以在 WinNT 上使用的是 4 bytes 整數來表示的座標，就是 EMF ，之後 Win9x/WinNT 都同時支援 EMF ，並以 EMF 為記憶體中交換圖檔的格式。

 

EMZ 是 EMF 的壓縮檔格式，WMZ 是 WMF 的壓縮檔格式，從 Office 2000 開始支援，Office XP 開始，允許使用者可以輸出成 EMZ / WMZ ，到了 Office 2003 可輸出 EMZ 格式。其中主要 WMF 是 Windows 3.1 格式，座標解析度不足，隨著高解析度的印表機問世，例如 4800 DPI 的印表機，若是使用 WMF ，圖形最大只能到 17.3 公分，還不到 A4 尺寸，一般狀況都需要用到 EMF 的解析度，所以到了 Office 2003 乾脆輸出就不允許輸出成為 WMZ 了。

 

EMZ / WMZ 說穿了，就是原先的 EMF + GZip = EMZ ，同理，WMZ 也是一樣，不過網路上的資料少到幾乎找不到，我也是猜出來的，所以在支援上可能會有問題，若是網友有相關資訊時，麻煩回應本篇通知我。

 

以顯示 EMZ 為例：

Case “emz", “wmz"

     Dim ms As New IO.MemoryStream(MyGZipDeCompressBytes(MyGetBinaryFile(strFile)))

     PictureBox.Image = New Drawing.Imaging.Metafile(ms)

 

註： MyGetBinaryFile 為將檔案讀成 Byte() 陣列，可在我的個人網站上找到，MyGZipDeCompressBytes 為將 Byte() 陣列解壓縮為 Byte() 陣列，有空我就會整理到個人網站去。

 

這樣就可以正確顯示了，將支援此功能加入先前發表的 QuickXY ，如下圖：

 

產生 EMZ 的範例：

MySaveBinaryFile(MyGZipCompressBytes(emfImage.ToBytes()), strEmzFile & “.emz")

 

註： MySaveBinaryFile為將 Byte() 陣列寫到檔案，可在我的個人網站上找到，MyGZipCompressBytes為將 Byte() 陣列壓縮為 Byte() 陣列，有空我就會整理到個人網站去，emfImage 為我個人自建的 EMF 類別，支援輸出成為 Byte() 陣列。