Lazarus - 正在下载图片格式文件

Question

我在从z文件加载图片时遇到问题。图片的扩展名为 .png 。 任何人都可以解释为什么它不再起作用了吗？

 if (FileExists('file.png')) then
   Image1.Picture.LoadFromFile('file.png');  

错误：

  

项目project1引发了异常类'PNGImageException'，并带有消息：这不是PNG数据

     

项目project1引发了异常类'FPImageException'，其中包含以下消息：图像格式错误

Answer 1

首先创建图像组件：

MyPicture := TImage.Create(FormCanvas);
MyPicture.Name := 'picture';
MyPicture.Parent := FormCanvas;

V1-使用直接路径

Edit_pic_path.Text := 'C:\Images\';
Prop_Picture_Name.Text := 'image.png';

try
     if (FileExists(Edit_pic_path.Text + Prop_Picture_Name.Text)) then
     begin
       MyPicture.Picture.LoadFromFile(Edit_pic_path.Text + Prop_Picture_Name.Text);
     end;
  finally
  end;

V2-图片必须位于项目文件夹中

...
MyPicture.Picture.LoadFromFile(Prop_Picture_Name.Text);
...