Загрузка изображения

[mutabor]

Содержание файла gfx.rc

JPG RCDATA Images/jpg.jpg
GIF RCDATA Images/gif.gif
PNG RCDATA Images/png.png

Компилировать RES с помощью brcc32 (взять в папке delphi\bin) с параметром <имя файла>

brcc32 gfx.rc

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Jpeg, GifImage, PNGImage;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ImageJpeg: TImage;
  ImageGif: TImage;
  ImagePNG: TImage;

implementation

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

procedure LoadJpegFromRes;
var
MyJpeg: TJpegImage;
ResStream: TResourceStream;
begin
MyJpeg:=TJpegImage.Create;
ResStream:=TResourceStream.Create(HInstance,'JPG',RT_RCDATA);
try
  MyJpeg.LoadFromStream(ResStream);
  ImageJpeg.Picture.Assign(MyJpeg);
finally
  MyJpeg.Free;
  ResStream.Free;
end;
end;

procedure LoadGifFromRes;
var
MyGIF: TGIFImage;
ResStream: TResourceStream;
begin
MyGIF:=TGIFImage.Create;
ResStream:=TResourceStream.Create(HInstance,'GIF',RT_RCDATA);
try
  MyGIF.LoadFromStream(ResStream);
  ImageGif.Picture.Assign(MyGIF);
finally
  MyGIF.Free;
  ResStream.Free;
end;
end;

procedure LoadPNGFromRes;
var
MyPNG: TPNGObject;
ResStream: TResourceStream;
begin
MyPNG:=TPNGObject.Create;
ResStream:=TResourceStream.Create(HInstance,'PNG',RT_RCDATA);
try
  MyPNG.LoadFromStream(ResStream);
  ImagePNG.Picture.Assign(MyPNG);
finally
  MyPNG.Free;
  ResStream.Free;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ImageJpeg:=TImage.Create(Self);
ImageJpeg.Parent:=Self;
LoadJpegFromRes;

ImageGif:=TImage.Create(Self);
ImageGif.Parent:=Self;
ImageGif.Left:=100;
LoadGifFromRes;

ImagePNG:=TImage.Create(Self);
ImagePNG.Parent:=Self;
ImagePNG.Left:=200;
LoadPNGFromRes;
end;

end.

[Алкаш]

что за модули "Jpeg, GifImage, PNGImage" ?

[mutabor]

Jpeg стандартный.
Остальные скачиваются отдельно, можно сказать почти стандартные, GifImage насколько я знаю подарен Борланду и с 2007 входит в стандартную поставку. Они добавляют поддержку форматов в TImage.

[JRcoker]

[DCC Error] Unit1.pas(41): E2003 Undeclared identifier: 'ImagePNG'
[DCC Error] Unit1.pas(41): E2066 Missing operator or semicolon
[DCC Error] Unit1.pas(41): E2008 Incompatible types
[DCC Error] Project1.dpr(9): F2063 Could not compile used unit 'Unit1.pas'
mutabor,РУГАЕТСЯ.....
МОЖЕШЬ ВЫЛОЖИТЬ ИСХОДНИК?

[BOBAH13]

Приветствую, и опять говорю почему не использовать GDI+ ? Там форматов поддержка уйма. И все довольно таки легко

[mutabor]

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

МОЖЕШЬ ВЫЛОЖИТЬ ИСХОДНИК?

Исходник вместе с необходимыми модулями