TBitmap > LoadBitmap > EOutofResource?

[XerSon]

Всем привет, ...

При загрузке битмапа из ресурса, вываливается EOutofResource, в чем моя ошибка? Но сама картинка загружается в битмап нормально!

var
  _TmplStr: string;
begin
  _TmplStr := TmplComboBox.Text;
  Image.Picture.Bitmap.Handle := LoadBitmap(HInstance, PChar(_TmplStr));
  Image.Repaint;
end;

[Пепел Феникса]

а как в ресурс запакована?
может стоит применить TResourceStream?

[GunSmoker]

А Bitmap-то точно существует? У Image.Picture, я имею ввиду.

И какого размера растр в ресурсе?

[XerSon]

123 BITMAP "Bmp/123.bmp"

bmp 24bit

Сообщение от GunSmoker

А Bitmap-то точно существует? У Image.Picture, я имею ввиду.

var
  ResBmp: TBitmap;
  _TmplStr: PChar;
begin
  _TmplStr := PChar(Tmpl_ComboBox.Text);
  ResBmp := TBitmap.Create;
  try
    ResBmp.LoadFromResourceName(HInstance, _TmplStr);
    Image.Picture.Assign(ResBmp);
  finally
    ResBmp.Free;
  end;
end;

в фаил проекта, дописал:

ReportMemoryLeaksOnShutdown := DebugHook <> 0;

Картинка грузится нормально в Image, но репорт говорит о следующем:



И как правильно загрузить в TResourceStream?

[XerSon]

Разобрался вроде:

var
  Bmp: TBitmap;
  JPG: TJPEGImage;
  _TmplStr: string;
  ResStream: TResourceStream;
begin
  // Присваиваем переменной значение из комбобокса
  _TmplStr := PChar(Tmpl_ComboBox.Text);
  // создание потока ресурсов
  ResStream := TResourceStream.Create(HInstance, _TmplStr, 'JPEG');
  // создаём объект Jpeg
  JPG := TJPEGImage.Create;
  // использование ресурсов
  JPG.LoadFromStream(ResStream);
  // создаём объект Bitmap
  Bmp := TBitmap.Create;
  try
    // Ассоциируем Bitmap c Jpeg
    Bmp.Assign(Jpg);
    Image.Picture.Assign(Bmp);
  finally
    // освобождение потока ресурсов
    ResStream.Free;
    // Уничтожаем объекты
    Bmp.Free;
    Jpg.Free;
  end;
end;