TGBBitmap 与 TBitmap 互转

TGBBitmap用在GDI+中,而TBitmap用在GDI中,有的时候,我们需要将它们进行转换,例如我们要将一个JPEG的图片放到TBitmap中,这样它就可以很方便的被Delphi中的多个控件所使用（如ImageList、Image等等控件)。我们通过TGBBitmap的GetHBITMAP方法可以实现这种转换，如下：

uses
  GDIPAPI,GDIPOBJ;
procedure TForm1.Button1Click(Sender: TObject);
var
  bitmap:TGPBitmap;
  hb:HBITMAP;
begin
  bitmap:=TGPBitmap.Create('d:\mm.jpg');
  //bitmap:=TGPBitmap.Create('d:\test.png');
  bitmap.GetHBITMAP(aclblack,hb);
  Image1.Picture.Bitmap.Handle:=hb;
  bitmap.Free;
end;

代码中的GetHBITMAP方法第一个参数为背景颜色，对于非透明图像，这个参数设置为什么颜色都没有所谓.但对于透明图像(如png)，我们就能看到这个背景色了(如图2，图片中间透明的，于是我们就看到了白色的背景色),第二个参数是位图句柄变量.

 

TBitmap 转 TGBBitmap

uses
  GDIPAPI,GDIPOBJ;
procedure TForm1.Button1Click(Sender: TObject);
var
  bitmap:TBitmap;

  bp:TGPBitmap;
  g:TGPGraphics;
begin
  g:=TGPGraphics.Create(Canvas.Handle);
  bitmap:=TBitmap.Create;
  bitmap.LoadFromFile('d:\mm.bmp'); //必须是BMP图片
  bp:=TGPBitmap.Create(bitmap.Handle,bitmap.Palette);

  g.DrawImage(bp,0,0);
  bp.Free;

  bitmap.Free;
  g.Free;
end;