delphixe delphi-opencv-master ToBitmap 详细代码

以下是使用 Delphi-OpenCV 库在 Delphi XE 中将 IplImage 对象转换为Bitmap 对象的详细代码：

  OpenCV_Core, OpenCV_ImageProc, // Delphi-OpenCV 库单元
  Vcl.Graphics; // VCL 图形单元

function IplImageToBitmap(const Image: pIplImage): TBitmap;
var
  Depth, Channels: Integer;
  LineSize: Integer;
  ImageData, SrcLine, DestLine: Pointer;
  Bitmap: TBitmap;
  Row, Col: Integer;
  Data: Byte;
begin
  Depth := Image.depth;
  Channels := Image.nChannels;
  LineSize := Image.width * Channels;

  // 分配 Bitmap 对象
  Bitmap := TBitmap.Create;
  Bitmap.PixelFormat := pf24bit;
  Bitmap.Width := Image.width;
  Bitmap.Height := Image.height;

  // 按行遍历 IplImage 数据并转换为 TBitmap 数据
  ImageData := Image.imageData;
  for Row := 0 to Image.height - 1 do
  begin
    SrcLine := ImageData + Row * Image.widthStep;
    DestLine := Bitmap.ScanLine[Row];

    case Depth of
      IPL_DEPTH_8U:
        begin
          for Col := 0 to Image.width - 1 do
          begin
            Data := PByte(SrcLine + Col * Channels)^;
            PByte(DestLine + Col * 3)^ := Data;
            PByte(DestLine + Col * 3 + 1)^ := Data;
            PByte(DestLine + Col * 3 + 2)^ := Data;
          end;
        end;
      IPL_DEPTH_8S:
        begin
          for Col := 0 to Image.width - 1 do
          begin
            Data := Byte(PShortInt(SrcLine + Col * Channels)^);
            PByte(DestLine + Col * 3)^ := Data;
            PByte(DestLine + Col * 3 + 1)^ := Data;
            PByte(DestLine + Col * 3 + 2)^ := Data;
          end;
        end;
      IPL_DEPTH_16U:
        begin
          for Col := 0 to Image.width - 1 do
          begin
            Data := Byte(PWord(SrcLine + Col * Channels)^ shr 8);
            PByte(DestLine + Col * 3)^ := Data;
            PByte(DestLine + Col * 3 + 1)^ := Data;
            PByte(DestLine + Col * 3 + 2)^ := Data;
          end;
        end;
      IPL_DEPTH_16S:
        begin
          for Col := 0 to Image.width - 1 do
          begin
            Data := Byte(PShortInt(SrcLine + Col * Channels)^ shr 8 + 128);
            PByte(DestLine + Col * 3)^ := Data;
            PByte(DestLine + Col * 3 + 1)^ := Data;
            PByte(DestLine + Col * 3 + 2)^ := Data;
          end;
        end;
      IPL_DEPTH_32S:
        begin
          for Col := 0 to Image.width - 1 do
          begin
            Data := Byte(PInteger(SrcLine + Col * Channels)^ shr 24);
            PByte(DestLine + Col * 3)^ := Data;
            PByte(DestLine + Col * 3 + 1)^ := Data;
            PByte(DestLine + Col * 3 + 2)^ := Data;
          end;
        end;
      IPL_DEPTH_32F:
        begin
          for Col := 0 to Image.width - 1 do
          begin
            Data := Byte(PSingle(SrcLine + Col * Channels)^ * 255);
            PByte(DestLine + Col * 3)^ := Data;
            PByte(DestLine + Col * 3 + 1)^ := Data;
            PByte(DestLine + Col * 3 + 2)^ := Data;
          end;
        end;
      IPL_DEPTH_64F:
        begin
          for Col := 0 to Image.width - 1 do
          begin
            Data := Byte(PDouble(SrcLine + Col * Channels)^ * 255);
            PByte(DestLine + Col * 3)^ := Data;
            PByte(DestLine + Col * 3 + 1)^ := Data;
            PByte(DestLine + Col * 3 + 2)^ := Data;
          end;
        end;
    end;
  end;

  Result := Bitmap;
end;

使用方法：

var
  Image: pIplImage;
  Bitmap: TBitmap;
begin
  // 加载图像到 Image 变量中
  Image := cvLoadImage('image.jpg');

  // 将 IplImage 对象转换为 TBitmap 对象
  Bitmap := IplImageToBitmap(Image);

  // 将 TBitmap 对象显示在 TImage 组件上
  Image1.Picture.Assign(Bitmap);

  // 释放 IplImage 对象内存
  cvReleaseImage(@Image);
end;

需要注意的是，由于 Delphi-OpenCV 库中的 IplImage 对象是指针类型的，因此需要传入指针的指针作为参数。在使用完毕后，需要手动释放 IplImage 对象的内存。