TImage组件无法显示用户选择的图片文件问题排查

核心问题排查与修复 #

你的代码中导致TImage无法显示图片的原因及对应修复方案如下：

1. TImage控件显示属性配置缺失 #

先检查img1的两个关键属性：

• 将Stretch设为True，让图片自适应控件尺寸；
• 将AutoSize设为False，避免图片因尺寸过大超出父容器pnl_img范围被隐藏；
• 确认img1的Parent是pnl_img，且未被其他控件遮挡。

2. 图片格式兼容性处理错误 #

你直接将img1.Picture.Bitmap赋值给OriginalImage，但如果选中JPG/PNG等非BMP格式图片，img1.Picture.Bitmap并不会自动加载图片内容（TImage会用对应格式的Graphic类存储，比如TJPEGImage），这不仅会导致OriginalImage为空，还可能间接影响TImage的显示逻辑。

修复后的选择图片事件代码：

procedure TForm1.btn1_select_imgClick(Sender: TObject);
var
  OpenDialog: TOpenDialog;
begin
  OpenDialog := TOpenDialog.Create(nil);
  try
    // 明确支持的图片格式，避免加载非图片文件
    OpenDialog.Filter := '图片文件|*.bmp;*.jpg;*.jpeg;*.png|所有文件|*.*';
    OpenDialog.Options := [ofPathMustExist, ofFileMustExist];
    if OpenDialog.Execute then
    begin
      lbl_selected_file.Caption := OpenDialog.FileName;
      // 加载图片到TImage
      img1.Picture.LoadFromFile(OpenDialog.FileName);
      // 正确处理不同格式图片到OriginalImage，同时避免内存泄漏
      if Assigned(OriginalImage) then
        OriginalImage.Free;
      OriginalImage := TBitmap.Create;
      // 将Graphic内容绘制到Bitmap
      OriginalImage.SetSize(img1.Picture.Graphic.Width, img1.Picture.Graphic.Height);
      OriginalImage.Canvas.Draw(0, 0, img1.Picture.Graphic);
    end;
  finally
    OpenDialog.Free;
  end;
end;

3. 全局变量内存泄漏问题 #

全局变量OriginalImage每次点击都创建新实例但未释放旧实例，会导致内存泄漏。在Form的生命周期中统一管理：

// 给Form添加OnCreate事件
procedure TForm1.FormCreate(Sender: TObject);
begin
  OriginalImage := TBitmap.Create;
  PixellatedImage := TBitmap.Create;
end;

// 给Form添加OnDestroy事件
procedure TForm1.FormDestroy(Sender: TObject);
begin
  OriginalImage.Free;
  PixellatedImage.Free;
end;

4. 输出路径拼接的潜在错误 #

btn2_select_output_pathClick中拼接保存路径时，要处理文件夹是否以\结尾的情况，避免生成无效路径：

// 替换原保存代码
OutputImage.SaveToFile(IncludeTrailingPathDelimiter(FileOpenDialog.FileName) + 'output.jpg');

验证步骤 #

1. 配置好img1的Stretch和AutoSize属性，确保控件在父容器内可见；
2. 替换修复后的选择图片代码，测试加载JPG、PNG、BMP等不同格式图片；
3. 添加Form的创建/销毁事件处理全局变量，避免内存泄漏。

内容的提问来源于stack exchange，提问作者Omar Gonzales