Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.01.2012, 14:40   #1
kotzzz
Пользователь
 
Регистрация: 30.01.2009
Сообщений: 39
Восклицание PNG в RES-файле

Добавляю 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, то выводится следующее сообщение об ошибке...

В чем дело?!

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

Заранее спасибо за ответ...
kotzzz вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
rc и res файлы Gamst Общие вопросы Delphi 5 18.05.2010 21:02
Поиск данных в текстовом файле (в самом файле! а не в Memo и не загружая всю инфу из файла в одну строку glagoff Помощь студентам 1 05.05.2010 13:00
Запуск из res? Virus25 Общие вопросы Delphi 6 17.01.2010 02:51
RES-файлы... Sota Софт 5 24.01.2009 23:32
Wav-ы в *.res Altera Общие вопросы Delphi 12 22.09.2008 19:01