загрузка рисунка в Image

[-Jack-]

Ну что есть у кого какие идеи ? Ну или подскажите какой нибудь компонент, который без труда загрузит из ресурса картинку и её покажет.

[Аватар]

procedure TForm1.BitBtn2Click(Sender: TObject);
var png: TPNGObject;
begin
  png:=TPNGObject.Create;
  png.LoadFromResourceName(HInstance,'img');
  Image1.Width:=png.Width;
  Image1.Height:=png.Height;
  Image1.Canvas.Draw(0,0,png);
  png.Free;
end;

[-Jack-]

Сообщение от Аватар

procedure TForm1.BitBtn2Click(Sender: TObject);
var png: TPNGObject;
begin
  png:=TPNGObject.Create;
  png.LoadFromResourceName(HInstance,'img');
  Image1.Width:=png.Width;
  Image1.Height:=png.Height;
  Image1.Canvas.Draw(0,0,png);
  png.Free;
end;

Та же самая ошибка ...

[Volkogriz]

Доброе время суток!
Вот недавно делал, здесь можно выудить что вам надо!

procedure TForm1.LoadImages;
var
I,Pos:Integer;
  ImageName: string;
  Component: TComponent;
begin
Imag:= LoadLibrary(PChar(extractfilepath(Application.ExeName)+ 'SystemFacility.dll'));
Pos:=Max(0, FCurrentImage);
  for I := Pos to Min(Pos + 14, FSL.Count -1) do
begin
  ImageName := 'Image' + IntToStr(I - Pos +1);
 Component := FindComponent(ImageName);
 if Component  = nil then
 raise Exception.Create('Component' + ImageName  + 'not found!');
 if not (Component is TImage) then
 raise Exception.Create('Component has invalid type!');
 Image := TImage(Component);
  JPG := TJPEGImage.Create;
  imageStream:=TResourceStream.Create(Imag,FSL[I],'jpeg');
  JPG.LoadFromStream(imageStream);
  Image.Picture.Graphic:= JPG;
  JPG.Free;
end;
Inc(FCurrentImage, 15);//следующие 15
end;

Здесь важно вот это:

Image.Picture.Graphic:= JPG;

Должно работать!))

[Serge_Bliznykov]

Сообщение от -Jack-

Та же самая ошибка ...

-Jack-, раз есть ошибка, значит, что-то Вы забываете сделать или делаете не так..


попробуйте разобрать простенький рабочий пример.

выкладываю.
Исходники: LoadImageFromRes_source.rar

Исполняемый (exe) файл: LoadImageFromRes_EXE.rar