- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
Delphi 和 C++ Builder 有一个带有 Scanline 属性的 TBitmap 类,该属性返回位图像素的内存。当我在 BMP 文件的十六进制编辑器中查看时,这似乎有所不同。
我正在尝试将 C++ Builder 应用程序移植到 Java,并且想了解 Scanline 中的算法。如果我有该文件,如何像 Scanline 那样生成内存阵列? Scanline 背后的确切规范是什么?
澄清:BMP 是 Windows 24 位 DIB。我没有在代码中提供任何其他信息; C++ Builder 似乎将其加载到某种类型的内存结构中,但它不是逐字节加载的。想知道该结构的规范是什么。
最佳答案
位图文件以 BITMAPFILEHEADER
开头,bfOffBits成员指定图像数据的起始地址。这是位于 Dh 的 DWORD(第 11-14 个字节)。 Delphi VCL 的结构定义为“windows.pas”中的 TBitmapFileHeader
。
ScanLine
的最后一行指向此图像数据(自下而上)。 VCL 在 dsBm
(a BITMAP
) 成员或 DIBSECTION
的 bmBits
成员中具有此值。的图像。当请求扫描线时,VCL 根据请求的行、行中的像素数(图像的宽度)以及组成像素的位数计算偏移量,并返回一个指向地址的指针,将此偏移量添加到bmBits
。它实际上是逐字节的图像数据。
下面的 Delphi 示例代码将 24 位位图读取到文件流,并将每个读取的像素与 Bitmap.ScanLine
对应项的像素数据进行比较:
procedure TForm1.Button1Click(Sender: TObject);
var
BmpFile: string;
Bmp: TBitmap;
fs: TFileStream;
FileHeader: TBitmapFileHeader;
InfoHeader: TBitmapInfoHeader;
iHeight, iWidth, Padding: Longint;
ScanLine: Pointer;
RGBFile, RGBBitmap: TRGBTriple;
begin
BmpFile := ExtractFilePath(Application.ExeName) + 'Attention_128_24.bmp';
// laod bitmap to TBitmap
Bmp := TBitmap.Create;
Bmp.LoadFromFile(BmpFile);
Assert(Bmp.PixelFormat = pf24bit);
// read bitmap file with stream
fs := TFileStream.Create(BmpFile, fmOpenRead or fmShareDenyWrite);
// need to get the start of pixel array
fs.Read(FileHeader, SizeOf(FileHeader));
// need to get width and height of bitmap
fs.Read(InfoHeader, SizeOf(InfoHeader));
// just a general demo - no top-down image allowed
Assert(InfoHeader.biHeight > 0);
// size of each row is a multiple of the size of a DWORD
Padding := SizeOf(DWORD) -
(InfoHeader.biWidth * 3) mod SizeOf(DWORD); // pf24bit -> 3 bytes
// start of pixel array
fs.Seek(FileHeader.bfOffBits, soFromBeginning);
// compare reading from file stream with the value from scanline
for iHeight := InfoHeader.biHeight - 1 downto 0 do begin
// get the scanline, bottom first
ScanLine := Bmp.ScanLine[iHeight];
for iWidth := 0 to InfoHeader.biWidth - 1 do begin
// read RGB from file stream
fs.Read(RGBFile, SizeOf(RGBFile));
// read RGB from scan line
RGBBitmap := TRGBTriple(Pointer(
Longint(ScanLine) + (iWidth * SizeOf(TRGBTriple)))^);
// assert the two values are the same
Assert((RGBBitmap.rgbtBlue = RGBFile.rgbtBlue) and
(RGBBitmap.rgbtGreen = RGBFile.rgbtGreen) and
(RGBBitmap.rgbtRed = RGBFile.rgbtRed));
end;
// skip row padding
fs.Seek(Padding, soCurrent);
end;
end;
关于在十六进制编辑器中查找位图文件的像素数据的开头的图片:
关于delphi - 了解 Delphi 和 C++ Builder 中的 TBitmap.Scanline,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7466349/
我正在执行以下操作将 TBitmap(Firemonkey) 转换为字符串: function BitmapToBase64(Bitmap: Tbitmap): string; var BS: T
为了加快在 Delphi XE2 中绘制位图,我决定采用以下方式 a)创建一个例如。 10 x 线程并仅在线程类内绘制一层位图 b)一旦所有线程完成,使用bitblt函数逐层合并位图 我做了以下实验代
请考虑以下代码: type TBaseControl = class(TWinControl) private FBitmap : TBitmap; public cons
我有一个要在 TPaintBox 上绘制的位图。问题是我之前必须将其旋转到特定角度。我决定使用 TBitmap32。 我是这样做的:我首先创建一个 TBitmap,然后将其传输到 TBitmap32,
我使用Delphi 10.3。 这段代码工作得很好。它加载带有 Alpha channel 的 32 位 BMP,并以适当的透明度显示: Bmp := TBitmap.Create; Bmp.Alph
我编写了一个例程,应该向位图添加点线边框: procedure AddDottedBorderToBitmap(aBM: Vcl.Graphics.TBitmap); var c: TCanvas
FMX.Types.TBitmap类有 ScanLine FMX (FireMonkey) 中的属性,但似乎该属性已被删除,并且在 FMX2 (FireMonkey FM2) 中丢失。 有什么解决办法
有没有比逐像素检查更好的方法? 最佳答案 您可以将两个位图保存到 TMemoryStream 并使用 CompareMem 进行比较: function IsSameBitmap(Bitmap1, B
在相机应用程序中,位图像素阵列是从流式相机中检索的。 通过将像素数组写入命名管道来捕获像素数组,在管道的另一端,ffmpeg 检索它们并创建一个 AVI 文件。 我将需要创建一个自定义帧(启用自定义文
我通过 TCameraComponent.SampleBufferReady 事件收到位图。然后我需要裁剪接收到的图像,以便获得例如矩形图像。 我用以下方法计算了必要的参数: procedure TP
我有一个获取屏幕截图的例程(TBitmap),我需要向最终的 TBitmap/图像添加阴影,我有这段代码(以前可以工作,但是......)有些不对劲,下降- 根本不绘制阴影: // ---------
在 Delphi 中,FireMonkey 的 TBitmap.BitmapScale 属性的用途是什么? Embarcadero 的文档对此只字未提。 最佳答案 它控制位图渲染的比例,例如在 TIm
我正在努力将具有透明度的 TBitmap 绘制到 TDirect2DCanvas 上而不丢失透明度。 创建了一个 TBitmap ,它充当我的绘图操作的后台缓冲区,如下所示: bmp := TBitm
我正在从 TImageList 中的资源加载多个图像在运行时使用此代码: Bitmap:=TBitmap.Create; MyIcons:=TImageList.Create(self); Bi
我想在 KOL 中将 TBitMap 转换为 PBitMap。 我试过这个,但我得到一张黑色图片作为输出: function TbitMapToPBitMap (bitmap : TBitMap) :
这个问题在这里已经有了答案: Why are Delphi objects assigned even after calling .Free? (4 个答案) 关闭 5 年前。 我在 VCL Fo
我有一个由 11 个白色 TBitmap 组成的数组(32 位 512x512 像素 = 1 MB)我想将它们分配给 TPngImage 数组以减少内存使用,我预计 1 mb 白色位图会变成 1.76
我有一个应用程序,可以在打印机上将文本和图像打印到页面上。在页脚处,我们输出一个图像,该图像通过加载一次进行缓存,并存储在 TBitmap 中。在打印例程中,它创建一个新的 TBitmap,然后调用一
我发现了一个演示应用程序,它能够使用 DwmRegisterThumbnail 获取最小化/隐藏窗口的屏幕截图。它工作完美,但结果图像是在表单本身而不是 TBitmap 中绘制的。 这是代码: pro
我想提取 GIF 图像的帧。下面的代码可以工作,但这不是我需要的。我需要将提取的帧保留在一系列位图中。 procedure TForm1.Button2Click(Sender: TObject);
我是一名优秀的程序员,十分优秀!