Загрузка jpg картинок

[А. Долматов]

Здравствуйте!!!! Я уже вся делфу перерыл, но так и не смог загрузить картинку в формате jpg. Подскажите пожалуйста как загузить картинку в формате jpg? Image загружает, но только, когда руками делаешь через picture. Мне надо программно загружать.

[mutabor]

смотри справку по TJpegImage, думаю разберешься

с битмапами (TBitmap) работал? создание, загрузка из файла? если да то точно разберешься, если нет скажи я тебе основной принцип объясню

P.S. хотя тебе скорее всего нужно это
Image.Picture.LoadFromFile('имя файла');

[Stilet]

Вот примерчик :

unit Unit1;

interface

uses        jpeg,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);

var

JpegIm: TJpegImage;
      bdc,adc:HDC;
bm, am: TBitMap;

begin

bm := TBitMap.Create;
JpegIm := TJpegImage.Create;
JpegIm.LoadFromFile('c:\Wall jpg.jpg');
bm.Assign(JpegIm);
am:=TBitmap.Create;
adc:=bm.Canvas.Handle;
bdc:=Form1.Canvas.Handle;  //getdc(bm.Handle);
if BitBlt(bdc,10,10,400,400,adc,400,400,SRCCOPY) then
 else RaiseLastWin32Error;
 
end;

end.

[А. Долматов]

Всем спасибо!!!!

смотри справку по TJpegImage, думаю разберешься

- То что доктор прописал. mutabor спасибо!!! Разобрался.
P.S.

Image.Picture.LoadFromFile('имя файла');

Данный метод не подходит для jpg картинок.
Если сделать так:
Image2.Picture.RegisterFileFormat(' jpg','TJPEGData',TJPEGImage);
Image2.Picture.LoadFromFile(FileLis tBox1.FileName);
то работает, но выскакивает ошибка, если формат bmp. Например ситуация: список графических файлов и в перемешку jpg и bmp, без условия не обойтись.

[pu4koff]

у меня вроде при включенном в uses модуля JPEG. нормально загружаются жпеги... также, как и битмапы, только редактировать их по-моему нельзя...