VB.net將MetaFile/EMF保存爲位圖（.tiff）

目前我有第三方控件生成一個圖元文件。我可以將.wmf文件保存到磁盤上，但無法解決問題。問題是如何將Metafile呈現爲Tiff文件。VB.net將MetaFile/EMF保存爲位圖（.tiff）

目前我有下面的代碼來獲取我的圖元文件並保存它。

Dim mf As Metafile = page.GetImage(TXTextControl.Page.PageContent.All) 



         Dim enhMetafileHandle As IntPtr = mf.GetHenhmetafile() 

         Dim h As IntPtr 
         Dim bufferSize As UInteger = GetEnhMetaFileBits(enhMetafileHandle, 0, h) 
         Dim buffer(CInt(bufferSize)) As Byte 

         GetEnhMetaFileBits(enhMetafileHandle, bufferSize, buffer) 

         Dim msMetafileStream As New MemoryStream 
         msMetafileStream.Write(buffer, 0, CInt(bufferSize)) 


         Dim baMetafileData() As Byte 
         baMetafileData = msMetafileStream.ToArray 
         Dim g As Graphics = Graphics.FromImage(mf) 


         mf.Dispose() 



         File.WriteAllBytes("c:\a.wmf", baMetafileData)

端子

_ 公共共享功能GetEnhMetaFileBits（BYVAL HEMF作爲System.IntPtr，BYVAL n大小作爲UInteger，BYVAL的lpData作爲IntPtr的）作爲UInteger 結束函數

<System.Runtime.InteropServices.DllImportAttribute("gdi32.dll", EntryPoint:="GetEnhMetaFileBits")> _ 

Public Shared Function GetEnhMetaFileBits(<System.Runtime.InteropServices.InAttribute()> ByVal hEMF As System.IntPtr, ByVal nSize As UInteger, ByVal lpData() As Byte) As UInteger 
End Function

我已經嘗試過各種圖像和圖形調用，並且無法將元文件保存爲.tiff文件。任何建議都會很棒。我甚至試圖創建一個新的位圖並將圖元文件繪製到它上面。我總是會拋出一個GDI異常。

來源

2010-03-24 pehaada

我最後的代碼如下所示：

Dim NewGraphic As Graphics = Nothing 
     Dim BitonalImage As Bitmap = Nothing 

     Using bmp As New Bitmap(3264, 4224) 
      Try 

       NewGraphic = Graphics.FromImage(bmp) 
       NewGraphic.FillRectangle(New SolidBrush(Color.White), 0, 0, 3264, 4224) 
       NewGraphic.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic 
       NewGraphic.SmoothingMode = Drawing2D.SmoothingMode.HighQuality 
       NewGraphic.PixelOffsetMode = Drawing2D.PixelOffsetMode.HighQuality 
       NewGraphic.CompositingQuality = Drawing2D.CompositingQuality.HighQuality 
       NewGraphic.TextRenderingHint = Drawing.Text.TextRenderingHint.AntiAliasGridFit 

       NewGraphic.DrawImage(MetaFileToConvert, 0, 0, 3264, 4224) 

       BitonalImage = CType(ConvertToBitonal(CType(bmp, Bitmap)), Bitmap) 
       BitonalImage.SetResolution(385, 385) 

       OutBMP = BitonalImage 

      Catch ex As Exception 
       Throw ex 
      Finally 
       NewGraphic.Dispose() 
       BitonalImage.Dispose() 
      End Try 

     End Using

來源

2010-04-09 17:08:19 pehaada

你的代碼很難破譯。只需將圖元文件繪製爲位圖即可完成工作。例如：

Dim mf As Metafile = page.GetImage(TXTextControl.Page.PageContent.All) 
Using bmp As New Bitmap(mf.Width, mf.Height) 
    Using gr As Graphics = Graphics.FromImage(bmp) 
    gr.DrawImage(mf, 0, 0) 
    End Using 
    bmp.Save("c:\temp\test.tiff", ImageFormat.Tiff) 
End Using

來源

2010-03-25 01:27:11

這工作，我剛剛與DPI搞砸讓我.TIFF是高質量的。 – pehaada 2010-03-28 16:41:09

元文件是可擴展的。使位圖儘可能大，使用帶有Rectangle的DrawImage重載。 – 2010-03-28 16:54:08

VB.net將MetaFile/EMF保存爲位圖（.tiff）

回答

相關問題