delphixe delphi-opencv-master pIplImage显示到timage
时间: 2023-12-04 11:03:04 浏览: 141
以下是将 `IplImage` 显示到 `TImage` 的 Delphi 代码示例:
```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`。
相关推荐
![txt](https://img-home.csdnimg.cn/images/20210720083642.png)
![rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)