Формат PNG

[Євгеній Бєлік]

Здравствуйте!
можете сделать программу которая бы при нажатии на кнопку, загружала фото в формате PNG в TImage. Просто постоянно выдаёт ошибку в pngimage.pas на строке 2769 - "Byte(Dest^)...". У меня делфи 2010. Напишите пожалуйста.

[misher]

var

  F : TStream;

  png: TPNGObject;

begin

  F := TFileStream.Create('files\img.png', fmOpenRead);

  png := TPNGObject.Create;

  png.LoadFromStream(F);

  Image1.Canvas.Draw(0,0,png);

  png.free;

  F.Free;

взято
отсюда

[Євгеній Бєлік]

Спасибо конечно, но сам вопрос в ошибки файла pngimage.

[misher]

Скачал ваш исходник, у меня все работает без ошибок...
Только у меня Delphi2007

[Feraset]

Сообщение от Євгеній Бєлік

Здравствуйте!
можете сделать программу которая бы при нажатии на кнопку, загружала фото в формате PNG в TImage. Просто постоянно выдаёт ошибку в pngimage.pas на строке 2769 - "Byte(Dest^)...". У меня делфи 2010. Напишите пожалуйста.

Скорее всего ошибка в инисталляции png мода. Попробуй переустановить.

[x128]

Если мне не изменяет память, начиная с Delphi 2009 есть нативная поддержка PNG и ничего устанавливать дополнительно ненужно.

uses PNGImage
...
  Image1.Picture.LoadFromFile('image.png');

или

uses PNGImage
...
var
  png: TPNGImage;
...
  png:=TPNGImage.Create;
  png.LoadFromFile('image.png');
  Image1.Picture.Assign(png);
  png.Free;

[Євгеній Бєлік]

Получается тоже самое
Ладно, всем спасибо за помощь. У меня получилось запустить на делфи 7. Просто хотелось работать с делфи 2010, но значит не судьба