Загрузка картинки в BitMap

[Gerzs]

inndim, Еще раз спасибо! Хорошо что у меня D2009.

[silverworld]

Раньше я думал иначе, спасибо за помощь в этом вопросе.

[Gerzs]

Добрый день.
Подскажите, пожалуйста, как это же проделать только загрузить надо картинку из TImage и формата jpg.

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

из TImage?
или в TImage?

если второе то:

procedure TForm4.FormShow(Sender: TObject);
var
JPEG: TJPEGImage;
begin
    JPEG := TJPEGImage.Create;
    JPEG.LoadFromFile('6790_Surge_main.jpg');
    Image1.Picture.Bitmap.Assign(JPEG);
    JPEG.Free;
end;

[Gerzs]

Сообщение от Пепел Феникса

из TImage?
или в TImage?

если второе то:

procedure TForm4.FormShow(Sender: TObject);
var
JPEG: TJPEGImage;
begin
    JPEG := TJPEGImage.Create;
    JPEG.LoadFromFile('6790_Surge_main.jpg');
    Image1.Picture.Bitmap.Assign(JPEG);
    JPEG.Free;
end;

Практически так и есть - из TImage в TImage, только в процессе я еще изображение корректирую.

[Gerzs]

Наверное я непонятно объяснил задачу.
Нужно кодифицировать код:

procedure TForm4.FormShow(Sender: TObject); 
var 
JPEG: TJPEGImage; 
begin 
JPEG := TJPEGImage.Create; 
JPEG.LoadFromFile('6790_Surge_main.jpg'); 
Image1.Picture.Bitmap.Assign(JPEG); 
JPEG.Free; 
end;

так чтоб
1. Вместо TJPEGImage использовался универсальный класс в который можно было б загрузить jng, png, gif, bmp
2. Загрузка изображения в этот объект должна проводится из Image1

[mutabor]

Есть универсальный класс, то ли TGraphic то ли TPicture, а у него в свою очередь есть вложенные TBitmap, TIcon и т.д. Т.е. вы в любом случае грузите не в оболочку а во вложенные классы.

[BOBAH13]

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

Наверное я непонятно объяснил задачу.
Нужно кодифицировать код:

procedure TForm4.FormShow(Sender: TObject); 
var 
JPEG: TJPEGImage; 
begin 
JPEG := TJPEGImage.Create; 
JPEG.LoadFromFile('6790_Surge_main.jpg'); 
Image1.Picture.Bitmap.Assign(JPEG); 
JPEG.Free; 
end;

так чтоб
1. Вместо TJPEGImage использовался универсальный класс в который можно было б загрузить jng, png, gif, bmp
2. Загрузка изображения в этот объект должна проводится из Image1

1. Смотрим в сети заголовки каждого из форматов.
2. Пишем свой класс в котором описываем каждый класс/дочерний для каждого из форматов (таких классов в сети море)
3. В вашем родительском классе пишем типа LoadFromFile(const FileName: String); и в этой процедуре открываем файл как бинарный и читаем по порядку каждый из заголовкой (определенного размера), таким образом определяем какой это формат файл, если найден определенный заголовок закрываем файл и грузим для дочернего класс из файла (например определили png, значит дочерний класс для работы с Png грузит этот файл).
4. желательно, чтобы не париться, все свести к TBitmap, например загрулии Png, все в TBitmap его Assign или HDC скопировать через BitBlt. Таким образом будь то формат gif или png или jpeg всеравно окажется на вашем TBitmap (таким образом 2й пункт можно будет убрать, пожеланию).

[buld3r]

Очень интересный вопрос, а как делать это все динамически. Допустим, я хочу менять картинки, при нажатии на клавишу. Мне кстати, все рассмотренные материалы, тоже очень помогли. Всем большое спасибо.