转换图像

我试图将此代码转换为vb.net并添加一些代码来创建一个文件...但文件的解析变成废话，我似乎无法将它插入到Crystal报告中，我做了些什么将其转换为vb.net时出错？在此先感谢:)转换图像

原来这里是链接Convert an image into WMF with .NET?

<Flags> 
Private Enum EmfToWmfBitsFlags 
    EmfToWmfBitsFlagsDefault = &H0 
    EmfToWmfBitsFlagsEmbedEmf = &H1 
    EmfToWmfBitsFlagsIncludePlaceable = &H2 
    EmfToWmfBitsFlagsNoXORClip = &H4 
End Enum 

Private Shared MM_ISOTROPIC As Integer = 7 
Private Shared MM_ANISOTROPIC As Integer = 8 
<DllImport("gdiplus.dll")> 
Private Shared Function GdipEmfToWmfBits(_hEmf As IntPtr, _bufferSize As UInteger, _buffer As Byte(), _mappingMode As Integer, _flags As EmfToWmfBitsFlags) As UInteger 
End Function 
<DllImport("gdi32.dll")> 
Private Shared Function SetMetaFileBitsEx(_bufferSize As UInteger, _buffer As Byte()) As IntPtr 
End Function 
<DllImport("gdi32.dll")> 
Private Shared Function CopyMetaFile(hWmf As IntPtr, filename As String) As IntPtr 
End Function 
<DllImport("gdi32.dll")> 
Private Shared Function DeleteMetaFile(hWmf As IntPtr) As Boolean 
End Function 
<DllImport("gdi32.dll")> 
Private Shared Function DeleteEnhMetaFile(hEmf As IntPtr) As Boolean 
End Function 


Private Function MakeMetafileStream(image As Bitmap) As Byte() 
    Dim metafile As Metafile = Nothing 
    Using g As Graphics = Graphics.FromImage(image) 
     Dim hDC As IntPtr = g.GetHdc() 
     metafile = New Metafile(hDC, EmfType.EmfOnly) 
     g.ReleaseHdc(hDC) 
    End Using 

    Using g As Graphics = Graphics.FromImage(metafile) 
     g.DrawImage(image, 0, 0) 
    End Using 
    Dim _hEmf As IntPtr = metafile.GetHenhmetafile() 
    Dim _bufferSize As UInteger = GdipEmfToWmfBits(_hEmf, 0, Nothing, MM_ANISOTROPIC, EmfToWmfBitsFlags.EmfToWmfBitsFlagsDefault) 
    Dim _buffer As Byte() = New Byte(_bufferSize - 1) {} 
    GdipEmfToWmfBits(_hEmf, _bufferSize, _buffer, MM_ANISOTROPIC, EmfToWmfBitsFlags.EmfToWmfBitsFlagsDefault) 
    Dim hmf As IntPtr = SetMetaFileBitsEx(_bufferSize, _buffer) 
    Dim tempfile As String = Path.GetTempFileName() 
    CopyMetaFile(hmf, tempfile) 
    DeleteMetaFile(hmf) 
    DeleteEnhMetaFile(_hEmf) 

    Dim stream = New MemoryStream() 
    Dim data As Byte() = File.ReadAllBytes(tempfile) 

    Return data 
End Function 

Private Sub Convert() 
    Dim src As New Bitmap("C:\Users\Sample\Desktop\Logos\LogoTransparent\Transparentlogo.png") 
    Dim Msteam As Byte() = MakeMetafileStream(src) 
    Dim newF As String = "C:\Users\Alvin Rodriguez\Desktop\Logos\new logo transparent\Transparentlogo.wmf" 
    System.IO.File.WriteAllBytes(newF, Msteam) 
    Msteam = Nothing 
End Sub

来源

2017-10-20 Orion Star

为什么你认为它是用C＃标签来标记这是个好主意？ – DavidG

@DavidG我最好的猜测如果我是一个投注人，他是用C＃标记的，因为他从C＃获得代码的链接。正如你已经提到的那样，它在这里没有关系，并且已经编辑了该问题以移除违规标签。 – Codexer

一些接口要体改：

Declare Function CopyEnhMetaFile Lib "gdi32" Alias "CopyEnhMetaFileA" (ByVal hemfSrc As IntPtr, ByVal lpszFile As String) As IntPtr 

Declare Function DeleteEnhMetaFile Lib "gdi32" (ByVal hemf As IntPtr) As Integer 

Private Declare Function GdipEmfToWmfBits Lib "gdiplus.dll" (ByVal hEmf As IntPtr,  ByVal bufferSize As UInteger, ByVal buffer() As Byte, ByVal mappingMode As Integer,  ByVal flags As EmfToWmfBitsFlags) As UInteger

来源

2017-11-30 19:56:52 JPG

回答

相关问题