Question

我试图使用PNGImage库将PNG图像加载到TImage，

每次我

Image1.Picture.LoadFromFile('c:\c.png');

我得到：

正在读取的文件不是有效的“便携式网络图形”图像因为它包含无效的标题。此文件可能已损坏，请尝试再次获得

现在我猜这个问题是由这些行引起的（来自PngImage库）：

{Characters for the header}
const
  PngHeader: Array[0..7] of Char = (#137, #80, #78, #71, #13, #10, #26, #10);

{Loads the image from a stream of data}
procedure TPngObject.LoadFromStream(Stream: TStream);
var
  Header    : Array[0..7] of Char;
  HasIDAT   : Boolean;

  {Chunks reading}
  ChunkCount : Cardinal;
  ChunkLength: Cardinal;
  ChunkName  : TChunkName;
begin
  {Initialize before start loading chunks}
  ChunkCount := 0;
  ClearChunks();
  {Reads the header}
  Stream.Read(Header[0], 8);

  {Test if the header matches}
  if Header <> PngHeader then
  begin
    RaiseError(EPNGInvalidFileHeader, EPNGInvalidFileHeaderText);
    Exit;
  end;

我尝试将Char更改为AnsiChar，但它没有用。

Answer 1

您正在自己编译PNGImage单元，并且您有一个为Unicode前Delphi设计的过时PNGImage。这是你的根本问题。

PNG功能现已内置于Delphi中。 PNGImage单元是产品附带的标准库的一部分。只需删除您的PNGImage代码版本即可。确保删除.pas和.dcu文件，以便不能使用错误版本。

然后在您的某个单元的uses子句中包含PNGImage，我想您已经这样做了。这将导致使用内置版本的单元。

将PNG加载到TImage

1 个答案: