[kotzzz]

Добавляю png-рисунки в res-файл:

Код:

img1 RCDATA 1.png
img2 RCDATA 2.png
..........................

Добавляю готовый "11.RES"-файл в свою программу:

Код:

var
  Form1: TForm1;
  ResStream: TResourceStream;

implementation

{$R *.dfm}
{$R 11.res}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ResStream := TResourceStream.Create(HInstance, 'Img1', RT_RCDATA);
  Image1.Picture.Bitmap.LoadFromStream(ResStream);
  ResStream.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ResStream := TResourceStream.Create(HInstance, 'Img2', RT_RCDATA);
  Image1.Picture.Bitmap.LoadFromStream(ResStream);
  ResStream.Free;
end;

При нажатии Button1 "png1" добавляется и отображается в "Image1", но стоит второй раз нажать Button2 или тот же Button1, то выводится следующее сообщение об ошибке...

В чем дело?!

Подскажите... Я новичек в программировании... По форумам искал инфо, но подходящего не нашел...

Заранее спасибо за ответ...

[Pyro]

а если строчки с Free закоментировать?

[Kingcss]

Delphi с png не может работать без доп. компонентов.Юзай компонент TPNGImage, res создаешь также, а подгружаешь так:

PHP код:

var png: TPNGObject;
png := TPNGObject.Create; // создаем
png.LoadFromResourceName(HInstance, 'png'); // грузим ресурс
Image1.picture.assign(png); // выводим
png.Free; // высвобождаем 


И не забудь uses pngimage

[angvelem]

На будущее:

Код:

  Image1.Picture.Bitmap.LoadFromStream...

таким способом можно грузить только битмапы, всё остальное, как показано выше:

Код:

  Image1.picture...