- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我使用Delphi 10.3。
这段代码工作得很好。它加载带有 Alpha channel 的 32 位 BMP,并以适当的透明度显示:
Bmp := TBitmap.Create;
Bmp.AlphaFormat := afDefined;
Bmp.LoadFromFile('bbb.bmp');
Image1.Picture.Assign(Bmp);
Bmp.SaveToFile('uuu.bmp');
但是这段代码消除了透明度:
Bmp := TBitmap.Create;
Bmp.AlphaFormat := afDefined;
Bmp.LoadFromFile('bbb.bmp');
Bmp.SaveToFile('uuu.bmp');
Image1.Picture.Assign(Bmp);
为什么?
我什至为 pf32 编写了自己的保护程序:
type TBitmap = class(Vcl.Graphics.TBitmap)
procedure SaveToFile2(Filename: String);
procedure LoadFromFile2(Filename: String);
end;
PCardinalArray = ^TCardinalArray;
TCardinalArray = array[0..32767] of Cardinal;
...
procedure TBitmap.SaveToFile2(Filename: String);
var Head: array[0..53] of Byte;
F: TFileStream;
Size: Integer;
P: PCardinalArray;
y: Integer;
begin
Size := Width*Height*4 + 54;
FillChar(Head, 54, 0);
Head[0] := $42;
Head[1] := $4D;
Head[2] := Size and $FF;
Head[3] := (Size shr 8) and $FF;
Head[4] := (Size shr 16) and $FF;
Head[5] := Size shr 24;
Head[6] := 0;
Head[7] := 0;
Head[8] := 0;
Head[9] := 0;
Head[10] := 54;
Head[11] := 0;
Head[12] := 0;
Head[13] := 0;
Head[14] := 40;
Head[15] := 0;
Head[16] := 0;
Head[17] := 0;
Head[18] := Width and $FF;
Head[19] := (Width shr 8) and $FF;
Head[20] := (Width shr 16) and $FF;
Head[21] := Width shr 24;
Head[22] := Height and $FF;
Head[23] := (Height shr 8) and $FF;
Head[24] := (Height shr 16) and $FF;
Head[25] := Height shr 24;
Head[26] := 1;
Head[27] := 0;
Head[28] := 32;
Head[29] := 0;
Head[38] := $12;
Head[39] := $0B;
Head[40] := 0;
Head[41] := 0;
Head[42] := $12;
Head[43] := $0B;
Head[44] := 0;
Head[45] := 0;
F := TFileStream.Create(Filename, fmCreate or fmShareDenyWrite);
F.Write(Head[0], 54);
for y:=Self.Height-1 downto 0 do begin
P := Self.ScanLine[y];
F.Write(P[0], Self.Width*4);
end;
F.Free;
end;
我还为 pf32bit 编写了自己的加载程序:
procedure TBitmap.LoadFromFile2(Filename: String);
var Head: array[0..53] of Byte;
F: TFileStream;
P: PCardinalArray;
y: Integer;
begin
F := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite);
FillChar(Head, 54, 0);
F.Read(Head[0], 54);
if (F.Size < 54) or (Head[0] <> $42) or (Head[1] <> $4D) or (Head[10] <> 54) or (Head[28] <> 32) then begin
F.Free;
Exit;
end;
Self.Width := Head[18] + (Head[19] shl 8) + (Head[20] shl 16) + (Head[21] shl 24);
Self.Height := Head[22] + (Head[23] shl 8) + (Head[24] shl 16) + (Head[25] shl 24);
Self.PixelFormat := pf32bit;
Self.AlphaFormat := afIgnored;
for y:=Self.Height-1 downto 0 do begin
P := Self.ScanLine[y];
F.Read(P[0], Self.Width*4);
end;
Self.AlphaFormat := afDefined;
F.Free;
end;
此函数的输出与输入文件不同。似乎 Alpha channel 正在更改:
Self.AlphaFormat := afDefined;
所以看起来这并没有改变位图的渲染方式,但它实际上改变了位图并重新计算像素。这可以避免吗?我想要一个以 Alpha 透明度显示的位图,但我希望所有像素保持完整,就像它们在文件中一样。
最佳答案
在 Embarcadero 文档中 Vcl.Graphics.TBitmap.TransparentColor
,透明色设置为位图图像数据中的第一个像素。也许问题就在那里。程序以这种方式重新加载图片。
也许这段代码可以帮助您找到问题: http://docwiki.embarcadero.com/CodeExamples/Rio/en/TGraphic_(Delphi)
关于delphi - TBitmap.SaveToFile 正在更改位图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/61309826/
我正在执行以下操作将 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);
我是一名优秀的程序员,十分优秀!