TGPImage加载png文件流为什么会报错？

marry2000 2008-05-01 08:28:08

procedure TForm1.Button1Click(Sender: TObject);

var

  Stream: TMemoryStream;

  istreamTest: IStream;

  GPImage: TGPImage;

  Graphic: TGPGraphics;

begin

  Stream := TMemoryStream.Create;

  Stream.LoadFromFile('c:\nofind.png');

  istreamTest:= TStreamAdapter.Create(Stream);

  Graphic := TGPGraphics.Create(Canvas.Handle);

  try

    GPImage := TGPImage.Create('c:\nofind.png');

    //GPImage := TGPImage.Create(istreamTest);  //这句会报错

    Graphic.DrawImage(GPImage, 0, 0);

  finally

    Stream.Free;

    GPImage.Free;

    Graphic.Free;

  end;

end;

直接用文件加载是没问题的，
加载bmp的文件流也OK，换成png就不行，真是怪了。。。

...全文

526 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

marry2000 2008-05-06

打赏
举报

[Quote=引用 12 楼 maozefa 的回复:]
你说的这个问题可能是GDI+内部的一点小BUG，就是使用文件流加载PNG文件时会弹出CPU调试对话框，这个问题对你的程序没有影响，脱离Delphi调试环境，运行会正常。
[/Quote]

我测试了一下，
GPImage := TGPImage.Create(istreamTest); 这一句在脱离ide运行时确实没有报错，
但在执行Graphic.DrawImage(GPImage, 0, 0);　这句时报错。。。

jacknes009 2008-05-06

打赏
举报



uses

pngimage;

var

  filename : string;

    gif : TGIFImage;

    PNG:   TPNGObject;

begin

                    PNG := TPNGObject.Create;

          Bitmap := TBitmap.Create;

          try

                   PNG.LoadFromFile(filename);

                  gif.Assign(PNG);

          finally

                  PNG.Free;

          end;

end

jacknes009 2008-05-06

打赏
举报

下载个PNG类就可以用了，
下载地址
http://download.csdn.net/source/226243

使用



uses

pngimage;

var

  filename : string;

    Bitmap		: TBitmap;

    PNG:   TPNGObject;

begin

					PNG := TPNGObject.Create;

          Bitmap := TBitmap.Create;

          try

                   PNG.LoadFromFile(filename);

                  Bitmap.Assign(PNG);

          finally

                  PNG.Free;

          end;

end

marry2000 2008-05-06

打赏
举报

真是头疼，
我在win2000系统的机子上测试，脱离ide运行，Graphic.DrawImage(GPImage, 0, 0);会报错，
在xp系统的机子测试，结果如楼上所说。没有报错，图片也能正确显示。

阿发伯 2008-05-06

打赏
举报

[Quote=引用 15 楼 marry2000 的回复:]
引用 12 楼 maozefa 的回复:
你说的这个问题可能是GDI+内部的一点小BUG，就是使用文件流加载PNG文件时会弹出CPU调试对话框，这个问题对你的程序没有影响，脱离Delphi调试环境，运行会正常。

我测试了一下，
GPImage := TGPImage.Create(istreamTest); 这一句在脱离ide运行时确实没有报错，
但在执行Graphic.DrawImage(GPImage, 0, 0);　这句时报错。。。
[/Quote]

我用你的代码（1楼）脱离ide运行，什么错误也没有，图片也能正确地显示在窗口左上角。

阿发伯 2008-05-04