Delphi图像处理 -- 图像显示

阅读提示：

    《Delphi图像处理》系列以效率为侧重点，一般代码为PASCAL，核心代码采用BASM。

    《C++图像处理》系列以代码清晰，可读性为主，全部使用C++代码。

    尽可能保持二者内容一致，可相互对照。

    本文代码必须包括文章《Delphi图像处理 -- 数据类型及公用过程》中的ImageData.pas单元和《Delphi图像处理 -- 图像合成》中除例子外的全部代码。

 

    Delphi的TCanvas以及派生类提供了显示TGraphic图像的方法Draw，其实这个方法本身并没有显示图像的功能，只是反过来调用了一下TGraphic的Draw方法。TGraphic本身是个抽象类，其Draw方法也是个纯虚方法，所以TGraphic的所有派生类必须提供一个具体的Draw方法。TGraphic的主要派生类TBitmap也有一个Draw方法，但是该方法只能利用其Transparent属性显示透明背景图像，而不能正确显示带Alpha通道的32位图像，即使Delphi2009以上版本的TGraphic增添了一个SupportsPartialTransparency属性，但TBitmap也还是没法直接显示ARGB像素格式的图像，因为TBitmap调用的是Windows API的AlphaBlend函数，该函数似乎只能显示PARGB格式像素的图像，而且TGraphic的SupportsPartialTransparency属性还是只读性质的。

    GDI+的TGpGraphics的系列DrawImage方法画ARGB32位图像倒是很好的，但如果图像真的含Alpha信息时，显示的速度却是较慢，大家可以用2张较大的图片试一下，一张含Alpha，一张不含Alpha，对比一下就知道了。

    因为本系列图像处理过程中有多个方法会使Alpha分量发生变化，即使该图像原来不含Alpha信息，所以有必要写图像显示过程。而且，如果在应用程序中只是需要显示处理过的图像，就不必再将TImageData类型转换为TGraphic或者TGpBitmap了，直接使用本文的显示过程无疑是很方便的。

    本文的图像显示是利用《Delphi图像处理 -- 图像合成》中的图像合成过程_DoMixer来完成的，因此，必须包括《Delphi图像处理 -- 图像合成》中除例子外的全部代码： 

function GetBitmapInfoHeader(const Data: TImageData): TBitmapInfoHeader;
begin
  Result.biSize := Sizeof(TBitmapInfoHeader);
  Result.biWidth := Data.Width;
  Result.biHeight := Data.Height;
  Result.biPlanes := 1;
  Result.biBitCount := (Data.PixelFormat shr 8) and $ff;
  Result.biCompression := BI_RGB;
end;

procedure GetDCImageData(DC: HDC; x, y: Integer; var Data: TImageData; pbi: TBitmapInfo);
var
  saveBitmap, Bitmap: HBITMAP;
  memDC: HDC;
begin
  Bitmap := CreateCompatibleBitmap(DC, Data.Width, Data.Height);
  try
    memDC := CreateCompatibleDC(DC);
    saveBitmap := SelectObject(memDC, Bitmap);
    try
      BitBlt(memDC, 0, 0, Data.Width, Data.Height, DC, x, y, SRCCOPY);
    finally
      SelectObject(memDC, saveBitmap);
      DeleteDC(memDC);
    end;
    GetDIBits(DC, bitmap, 0, Data.Height, Data.Scan0, pbi, DIB_RGB_COLORS);
  finally
    DeleteObject(Bitmap);
  end;
end;

procedure BitBltImageData(DC: HDC; x, y: Integer; const Data: TImageData; pbi: TBitmapInfo);
var
  saveBitmap, Bitmap: HBITMAP;
  memDC: HDC;
begin
  Bitmap := CreateDIBItmap(DC, pbi.bmiHeader, CBM_INIT, Data.Scan0, pbi, DIB_RGB_COLORS);
  memDC := CreateCompatibleDC(DC);
  saveBitmap := SelectObject(memDC, Bitmap);
  try
    BitBlt(DC, x, y, Data.Width, Data.Height, memDC, 0, 0, SRCCOPY);
  finally
    SelectObject(memDC, saveBitmap);
    DeleteDC(memDC);
    DeleteObject(Bitmap);
  end;
end;

procedure ImageDraw(DC: HDC; x, y: Integer; const Data: TImageData; Alpha: Single = 1);
var
  pbi: TBitmapInfo;
  dstR, srcR: TRect;
  alphaI: Integer;
  dst, src: TImageData;
  pData: PImageData;
begin
  if GetClipBox(DC, dstR) <= NULLREGION then Exit;
  alphaI := Round(Alpha * 256);
  if alphaI < 0 then Exit;
  if alphaI > 256 then alphaI := 256;
  if (alphaI = 256) and not Data.AlphaFlag and ((Data.Width shl 2) = -Data.Stride) then
  begin
    pbi.bmiHeader := GetBitmapInfoHeader(Data);
    pData := @Data;
    _InvertScan0(pData^);
    BitBltImageData(DC, x, y, Data, pbi);
    _InvertScan0(pData^);
    Exit;
  end;
  dstR.Left := 0;
  dstR.Top := 0; 
  srcR := Rect(x, y, Data.Width + x, Data.Height + y);
  if not IntersectRect(dstR, dstR, srcR) then Exit;
  if x < 0 then x := -x else x := 0;
  if y < 0 then y := -y else y := 0;
  src := GetSubImageData(Data, x, y, dstR.Right - dstR.Left, dstR.Bottom - dstR.Top);
  dst := NewImageData(src.Width, src.Height);
  dst.AlphaFlag := False;
  pbi.bmiHeader := GetBitmapInfoHeader(dst);
  if (alphaI < 256) or Data.AlphaFlag then
    GetDCImageData(DC, dstR.Left, dstR.Top, dst, pbi);
  _InvertScan0(dst);
  _DoMixer(dst, src, alphaI);
  _InvertScan0(dst);
  BitBltImageData(DC, dstR.Left, dstR.Top, dst, pbi);
  FreeImageData(dst);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  source: TGpBitmap;
  dest: TBitmap;
  tmp: TJpegImage;
  src, dst: TImageData;
begin
  dest := TBitmap.Create;
  tmp := TJpegImage.Create;
  tmp.LoadFromFile('..\..\media\IMG_9440_mf.jpg');
  dest.Assign(tmp);
  tmp.Free;
  source := TGpBitmap.Create('..\..\media\xmas_011.png');
  dst := GetBitmapData(dest);
  src := LockGpBitmap(source);
  ImageDraw(Canvas.Handle, 0, 0, dst);
  ImageDraw(Canvas.Handle, dst.Width, 0, src);
  ImageMixer(dst, src, 1);
  UnlockGpBitmap(source, src);
  ImageDraw(Canvas.Handle, dst.Width + src.Width, 0, dst);
  dest.Free;
  source.Free;
end;

    ImageDraw过程比GDI+的TGpGraphics.DrawImage方法要快，特别是显示png之类的图片。

    本文介绍的只是最基本的显示过程，还可以有拉伸形式和几何变换形式的图像显示方式，参照《Delphi图像处理 -- 几何变换（上）》和《Delphi图像处理 -- 几何变换（下）》代码可以很容易完成。

    上面代码中例子的显示效果同《Delphi图像处理 -- 图像合成》的第二副效果图：

    《Delphi图像处理》系列使用GDI+单元下载地址和说明见文章《GDI+ for VCL基础 -- GDI+ 与 VCL》。

    因水平有限，错误在所难免，欢迎指正和指导。邮箱地址：maozefa@hotmail.com

    这里可访问《Delphi图像处理 -- 文章索引》。