delphi11 pIplImage显示到timage 用法、

在 Delphi 11 中，使用 OpenCV 库将 `IplImage` 显示到 `TImage` 的示例代码如下：

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`。

使用时，可以在程序中调用 `IplImageToTImage` 这个过程，并将要显示的 `IplImage` 和目标 `TImage` 作为参数传递进去。例如：

procedure TForm1.Button1Click(Sender: TObject);
var
  IplImg: IplImage;
begin
  // 加载图像到 IplImage
  IplImg := cvLoadImage('path/to/image.jpg', CV_LOAD_IMAGE_COLOR);

  // 将 IplImage 显示到 TImage
  IplImageToTImage(IplImg, Image1);

  // 释放 IplImage 资源
  cvReleaseImage(IplImg);
end;

这里的 `cvLoadImage` 函数用于加载图像到 `IplImage`，`cvReleaseImage` 函数用于释放 `IplImage` 资源。根据实际情况修改图像路径和 `TImage` 名称即可。