delphi - 从TBitMap到PBitMap KOL

我想在KOL中将TBitMap转换为PBitMap。

我尝试了这个，但是得到了一张黑色的图片作为输出：

function TbitMapToPBitMap (bitmap : TBitMap) : PbitMap;
begin
 result := NIL;
 if Assigned(bitmap) then begin
  result := NewBitmap(bitmap.Width, bitmap.Height);
  result.Draw(bitmap.Canvas.Handle, bitmap.Width, bitmap.Height);
 end;
end;

知道有什么问题吗？我正在使用Delphi7。

谢谢您的帮助。

编辑：新代码：

function TbitMapToPBitMap (const src : TBitMap; var dest : PBitMap) : Bool;
begin
 result := false;
 if (( Assigned(src) ) and ( Assigned (dest) )) then begin
 dest.Draw(src.Canvas.Handle, src.Width, src.Height);
 result := true;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 TBitMapTest : TBitMap;
 PBitMapTest : PBitMap;
begin
 TBitMapTest := TBitMap.Create;
 TBitMapTest.LoadFromFile ('C:\test.bmp');
 PBitMapTest := NewBitMap (TBitMapTest.Width, TBitMapTest.Height);
 TbitMapToPBitMap (TBitMapTest, PBitMapTest);
 PBitMapTest.SaveToFile ('C:\test2.bmp');
 PBitMapTest.Free;
 TBitMapTest.Free;
end;

最佳答案

要回答您的问题，为什么目标图像是黑色的？这是因为您将这些目标图像绘制为源图像和黑色图像是因为NewBitmap将图像初始化为黑色。

如果要将TBitmap转换为KOL，如何复制或转换PBitmap我只找到了一种方法（也许我错过了KOL中的此类功能，但是即使如此，以下代码中使用的方法也非常有效）。您可以使用Windows GDI功能进行位块传输，即BitBlt，它只是将指定区域从一个画布复制到另一个画布。

下面的代码在您单击按钮时创建VCL和KOL位图实例，将图像加载到VCL位图，调用VCL到KOL位图复制功能，如果该功能成功，则将KOL位图绘制到canvas窗体上并释放两个位图实例：

uses
  Graphics, KOL;

function CopyBitmapToKOL(Source: Graphics.TBitmap; Target: PBitmap): Boolean;
begin
  Result := False;
  if Assigned(Source) and Assigned(Target) then
  begin
    Result := BitBlt(Target.Canvas.Handle, 0, 0, Source.Width, Source.Height,
      Source.Canvas.Handle, 0, 0, SRCCOPY);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  KOLBitmap: PBitmap;
  VCLBitmap: Graphics.TBitmap;
begin
  VCLBitmap := Graphics.TBitmap.Create;
  try
    VCLBitmap.LoadFromFile('d:\CGLIn.bmp');
    KOLBitmap := NewBitmap(VCLBitmap.Width, VCLBitmap.Height);
    try
      if CopyBitmapToKOL(VCLBitmap, KOLBitmap) then
        KOLBitmap.Draw(Canvas.Handle, 0, 0);
    finally
      KOLBitmap.Free;
    end;
  finally
    VCLBitmap.Free;
  end;
end;