- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的程序当前采用 4 bpp(每像素位)TIFF 作为位图,将其转换为图形,添加一些文本字符串,然后再次将其保存为 TIFF 文件。默认情况下,输出 Bitmap.Save() TIFF 文件似乎是 24 bpp(与输入无关)并且比原始 TIFF 大很多。
是否可以保持与输出输入相同的 4 bpp 调色板编码,如果没有,我如何将我的 Bitmap PixelFormat 从 24bpp 转换为 4 bpp 索引?
我在 Bob Powell: Locking Bits 看到了一个将 24 bpp 转换为 1 bpp 的示例。但无法弄清楚如何为 4 bpp 做到这一点。
最佳答案
这是我发布的类(class)的修改版本 here .它使用来自原始源站点评论中的 4bpp 逻辑。
Public Class BitmapEncoder
''' <summary>
''' Copies a bitmap into a 1bpp/4bpp/8bpp bitmap of the same dimensions, fast
''' </summary>
''' <param name="b">original bitmap</param>
''' <param name="bpp">1 or 8, target bpp</param>
''' <returns>a 1bpp copy of the bitmap</returns>
Public Shared Function ConvertBitmapToSpecified(ByVal b As System.Drawing.Bitmap, ByVal bpp As Integer) As System.Drawing.Bitmap
Select Case bpp
Case 1
Case 4
Case 8
Case Else
Throw New ArgumentException("bpp must be 1, 4 or 8")
End Select
' Plan: built into Windows GDI is the ability to convert
' bitmaps from one format to another. Most of the time, this
' job is actually done by the graphics hardware accelerator card
' and so is extremely fast. The rest of the time, the job is done by
' very fast native code.
' We will call into this GDI functionality from C#. Our plan:
' (1) Convert our Bitmap into a GDI hbitmap (ie. copy unmanaged->managed)
' (2) Create a GDI monochrome hbitmap
' (3) Use GDI "BitBlt" function to copy from hbitmap into monochrome (as above)
' (4) Convert the monochrone hbitmap into a Bitmap (ie. copy unmanaged->managed)
Dim w As Integer = b.Width, h As Integer = b.Height
Dim hbm As IntPtr = b.GetHbitmap()
' this is step (1)
'
' Step (2): create the monochrome bitmap.
' "BITMAPINFO" is an interop-struct which we define below.
' In GDI terms, it's a BITMAPHEADERINFO followed by an array of two RGBQUADs
Dim bmi As New BITMAPINFO()
bmi.biSize = 40
' the size of the BITMAPHEADERINFO struct
bmi.biWidth = w
bmi.biHeight = h
bmi.biPlanes = 1
' "planes" are confusing. We always use just 1. Read MSDN for more info.
bmi.biBitCount = CShort(bpp)
' ie. 1bpp or 8bpp
bmi.biCompression = BI_RGB
' ie. the pixels in our RGBQUAD table are stored as RGBs, not palette indexes
bmi.biSizeImage = CUInt((((w + 7) And &HFFFFFFF8) * h / 8))
bmi.biXPelsPerMeter = 1000000
' not really important
bmi.biYPelsPerMeter = 1000000
' not really important
' Now for the colour table.
Dim ncols As UInteger = CUInt(1) << bpp
' 2 colours for 1bpp; 256 colours for 8bpp
bmi.biClrUsed = ncols
bmi.biClrImportant = ncols
bmi.cols = New UInteger(255) {}
' The structure always has fixed size 256, even if we end up using fewer colours
If bpp = 1 Then
bmi.cols(0) = MAKERGB(0, 0, 0)
bmi.cols(1) = MAKERGB(255, 255, 255)
ElseIf bpp = 4 Then
bmi.biClrUsed = 16
bmi.biClrImportant = 16
Dim colv1 As Integer() = New Integer(15) {8, 24, 38, 56, 72, 88, 104, 120, 136, 152, 168, 184, 210, 216, 232, 248}
For i As Integer = 0 To 15
bmi.cols(i) = MAKERGB(colv1(i), colv1(i), colv1(i))
Next
ElseIf bpp = 8 Then
For i As Integer = 0 To ncols - 1
bmi.cols(i) = MAKERGB(i, i, i)
Next
End If
' For 8bpp we've created an palette with just greyscale colours.
' You can set up any palette you want here. Here are some possibilities:
' greyscale: for (int i=0; i<256; i++) bmi.cols[i]=MAKERGB(i,i,i);
' rainbow: bmi.biClrUsed=216; bmi.biClrImportant=216; int[] colv=new int[6]{0,51,102,153,204,255};
' for (int i=0; i<216; i++) bmi.cols[i]=MAKERGB(colv[i/36],colv[(i/6)%6],colv[i%6]);
' optimal: a difficult topic: http://en.wikipedia.org/wiki/Color_quantization
'
' Now create the indexed bitmap "hbm0"
Dim bits0 As IntPtr
' not used for our purposes. It returns a pointer to the raw bits that make up the bitmap.
Dim hbm0 As IntPtr = CreateDIBSection(IntPtr.Zero, bmi, DIB_RGB_COLORS, bits0, IntPtr.Zero, 0)
'
' Step (3): use GDI's BitBlt function to copy from original hbitmap into monocrhome bitmap
' GDI programming is kind of confusing... nb. The GDI equivalent of "Graphics" is called a "DC".
Dim sdc As IntPtr = GetDC(IntPtr.Zero)
' First we obtain the DC for the screen
' Next, create a DC for the original hbitmap
Dim hdc As IntPtr = CreateCompatibleDC(sdc)
SelectObject(hdc, hbm)
' and create a DC for the monochrome hbitmap
Dim hdc0 As IntPtr = CreateCompatibleDC(sdc)
SelectObject(hdc0, hbm0)
' Now we can do the BitBlt:
BitBlt(hdc0, 0, 0, w, h, hdc, _
0, 0, SRCCOPY)
' Step (4): convert this monochrome hbitmap back into a Bitmap:
Dim b0 As System.Drawing.Bitmap = System.Drawing.Bitmap.FromHbitmap(hbm0)
'
' Finally some cleanup.
DeleteDC(hdc)
DeleteDC(hdc0)
ReleaseDC(IntPtr.Zero, sdc)
DeleteObject(hbm)
DeleteObject(hbm0)
'
Return b0
End Function
Private Shared SRCCOPY As Integer = &HCC0020
Private Shared BI_RGB As UInteger = 0
Private Shared DIB_RGB_COLORS As UInteger = 0
<System.Runtime.InteropServices.DllImport("gdi32.dll")> _
Private Shared Function DeleteObject(ByVal hObject As IntPtr) As Boolean
End Function
<System.Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function GetDC(ByVal hwnd As IntPtr) As IntPtr
End Function
<System.Runtime.InteropServices.DllImport("gdi32.dll")> _
Private Shared Function CreateCompatibleDC(ByVal hdc As IntPtr) As IntPtr
End Function
<System.Runtime.InteropServices.DllImport("user32.dll")> _
Private Shared Function ReleaseDC(ByVal hwnd As IntPtr, ByVal hdc As IntPtr) As Integer
End Function
<System.Runtime.InteropServices.DllImport("gdi32.dll")> _
Private Shared Function DeleteDC(ByVal hdc As IntPtr) As Integer
End Function
<System.Runtime.InteropServices.DllImport("gdi32.dll")> _
Private Shared Function SelectObject(ByVal hdc As IntPtr, ByVal hgdiobj As IntPtr) As IntPtr
End Function
<System.Runtime.InteropServices.DllImport("gdi32.dll")> _
Private Shared Function BitBlt(ByVal hdcDst As IntPtr, ByVal xDst As Integer, ByVal yDst As Integer, ByVal w As Integer, ByVal h As Integer, ByVal hdcSrc As IntPtr, _
ByVal xSrc As Integer, ByVal ySrc As Integer, ByVal rop As Integer) As Integer
End Function
<System.Runtime.InteropServices.DllImport("gdi32.dll")> _
Private Shared Function CreateDIBSection(ByVal hdc As IntPtr, ByRef bmi As BITMAPINFO, ByVal Usage As UInteger, ByRef bits As IntPtr, ByVal hSection As IntPtr, ByVal dwOffset As UInteger) As IntPtr
End Function
<System.Runtime.InteropServices.StructLayout(System.Runtime.InteropServices.LayoutKind.Sequential)> _
Private Structure BITMAPINFO
Public biSize As UInteger
Public biWidth As Integer, biHeight As Integer
Public biPlanes As Short, biBitCount As Short
Public biCompression As UInteger, biSizeImage As UInteger
Public biXPelsPerMeter As Integer, biYPelsPerMeter As Integer
Public biClrUsed As UInteger, biClrImportant As UInteger
<System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=256)> _
Public cols As UInteger()
End Structure
Private Shared Function MAKERGB(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer) As UInteger
Return CUInt((b And 255)) Or CUInt(((r And 255) << 8)) Or CUInt(((g And 255) << 16))
End Function
Private Sub New()
End Sub
End Class
'Load your image
Using B As New Bitmap("c:\test.tiff")
'Do a bunch of stuff to it
'...'
'Convert it to 4BPP
Using I = BitmapEncoder.ConvertBitmapToSpecified(B, 4)
'Save to disk
I.Save("c:\test2.tiff")
End Using
End Using
关于vb.net - 使用 GDI+ 将 24 bpp 转换为 4 bpp,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2517477/
我有几个问题。我是 Visual Basic 这个领域的新手,所以不要取笑我。 1.) VB.NET之间有什么区别和 VB ? 2.) 我需要为 Windows 开发基本的应用程序。(如记事本)我应该
就目前而言,这个问题不适合我们的问答形式。我们希望答案得到事实、引用资料或专业知识的支持,但这个问题可能会引发辩论、争论、投票或扩展讨论。如果您觉得这个问题可以改进并可能重新打开,visit the
我是框架 3.5 的新手。我注意到,在创建 Web 内容表单时,除了 aspx.vb 页面之外,它还会创建一个 aspx.designer.vb 页面。谁能向我解释一下它们之间的区别以及它们的用途吗?
我只是想知道 VB.NET 和 VB 2010 是否相同。 我只是想知道。 最佳答案 VB 2010 是 VB.Net 的最新版本。 Microsoft 在 VB 2005 版本中删除了 VB 的“.
我是框架 3.5 的新手。我注意到,在创建 Web 内容表单时,除了 aspx.vb 页面之外,它还会创建一个 aspx.designer.vb 页面。谁能向我解释一下它们之间的区别以及它们的用途吗?
我正在尝试将 VB 函数移植到 VB.NET,但我无法使该函数正常工作并正确更新。 rFormat = Format(Format(Value, fmt), String$(Len(fmt), "@"
如何在VB中注释多行代码/代码块? 最佳答案 VB 在语言级别上没有这样的构造。它有使用撇号字符的单行注释: ' hello world ' this is a comment Rem this is
我正在使用我在 VB2005 中创建的表单在按下按钮时打开程序,然后在文本字段中显示进程 ID(再次按下按钮时)。当我运行它时,表单将打开程序 (Notepad.exe) 但当我单击按钮查看进程 ID
我正在尝试添加一个从 vb.net 创建的 dll,并且想将其导入到现有的 vb 6 项目中,但它给了我错误“无法添加对指定文件的引用”。 。有人知道如何解决这个问题吗? 最佳答案 需要遵循以下步骤:
我有一个数据 GridView 。右键单击它会显示一个上下文菜单,但它始终位于右上角。我想要它,以便菜单出现在用户右键单击的单元格上。它可能是单元格 1 或单元格 2 或其他。 谢谢福尔坎 最佳答案
我只是在 Visual Studio 2010 中使用 Visual Basic。有人知道我将如何制作“浏览文件夹(或文件)”按钮吗?我对 VB 真的很陌生,我只是在寻找一些简单的帮助:) 最佳答案
这次感到困惑... 最简单的代码行有时可能起作用,有时却没有。首先,我认为问题在于我试图读取DWORD的值,但是由于我可以从某些键读取DWORD值,所以这一定不是问题。现在的问题似乎是,如果 key
我的代码中有此方法: Private Sub Display() Received.AppendText(" - " & RXArray) End Sub 这两个调用之间有什么区别:
我正在创建一个宏程序来记录和回放鼠标和键盘输入。录制效果很好,鼠标播放也一样,但是我在播放键盘输入时遇到了麻烦——特别是在释放之前按住一个键几秒钟。这不等同于重复按键。这是我尝试过的: 技巧 1:Me
我最近刚刚了解了 VB.NET 中静态局部变量的使用,并想知道它在延迟加载属性中的潜在用途。 考虑以下示例代码。 Public Class Foo Implements IFoo End Clas
VB 有一个 C# 没有的特性,在项目级别导入命名空间(我的项目>引用>导入命名空间)。当新人在源代码控制之外检查项目时,我们的自定义导入不包括在内。这个 VB 特定的导入命名空间存储在哪里? 最佳答
我已将我的问题缩小到这个简单的案例,但似乎无法找到发生了什么: 我有两个表单,一个只有一个按钮,另一个是空的。 单击按钮时,form1 隐藏和显示 form2 出现时,form2隐藏,form1再次显
为什么下面的简单代码会失败?无论我使用 LinearGradientMode 的哪个值,这段代码总是用从左到右的渐变填充路径。 graphPath 是在别处创建的 GraphicPath 对象(基本上
我可以多快替换字符串中的字符? 所以这个问题的背景是这样的:我们有几个应用程序通过套接字相互通信并与客户端的应用程序通信。这些套接字消息包含不可打印的字符(例如 chr(0)),需要用预定的字符串(例
如何从任何文件中读取原始字节数组... Dim bytes() as Byte ..然后将该字节数组写回新文件? 我需要它作为一个字节数组来做一些处理。 我目前正在使用: 阅读 Dim fInfo
我是一名优秀的程序员,十分优秀!