delphixe delphi-opencv-master pIplImage显示到timage 详细代码

以下是将 `IplImage` 显示到 `TImage` 的 Delphi 代码示例：

uses
  ..., cvTypes, cvUtils;

procedure IplImageToTImage(IplImg: IplImage; TImg: TImage);
var
  Bitmap: TBitmap;
  ImgSrc, ImgDest: pByte;
  x, y: Integer;
begin
  // 创建 TBitmap 并设置宽高
  Bitmap := TBitmap.Create;
  Bitmap.Width := IplImg.width;
  Bitmap.Height := IplImg.height;

  // 将 IplImage 转换为 TBitmap
  ImgSrc := IplImg.imageData;
  ImgDest := Bitmap.ScanLine[Bitmap.Height - 1];
  for y := 0 to IplImg.height - 1 do
  begin
    for x := 0 to IplImg.width - 1 do
    begin
      ImgDest[0] := ImgSrc[2];
      ImgDest[1] := ImgSrc[1];
      ImgDest[2] := ImgSrc[0];
      Inc(ImgSrc, 3);
      Inc(ImgDest, 3);
    end;
    ImgDest := Bitmap.ScanLine[Bitmap.Height - 1 - y];
  end;

  // 显示 TBitmap 到 TImage
  TImg.Picture.Assign(Bitmap);

  // 释放资源
  Bitmap.Free;
end;

其中，`IplImg` 是源 `IplImage`，`TImg` 是目标 `TImage`。通过扫描 `IplImage` 中的像素，将其转换为 `TBitmap` 并最终显示到 `TImage`。