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

[Gerzs]

Добрый день.
Как загрузить в BitMap картинку?
BitMapImage.LoadFromFile('D:\6790_S urge_main.jpg'); { BitMapImage: TBitMap } – не пашет, т.е. программа компилируется, но при загрузке картинки выдает ошибку, что мол картинка в витмапе не действительна (Bitmap image is not valid )

[mutabor]

{в событии нажатия кнопки (например Button1Click)}
BitMapImage:=TBitmap.Create; //создаем объект
BitMapImage.LoadFromFile('существующий файл.bmp'); //загружаем файл BMP!!!
Form1.Canvas.Draw(0, 0, BitMapImage); //убеждаемся что картинка есть
BitMapImage.Free; //удаляем объект

[inndim]

Gerzs
Если брать ваш прикреплённый пример, то надо в uses добавить jpeg, а код будет следующий:

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

[Gerzs]

mutabor, не работает - все равно выбивае "Bitmap image is not valid"

[inndim]

Gerzs
Смотрите мой пост выше, похоже мы запостили с вами одновременно и вы не увидели мой ответ.

п.с.
Если помог, жми весы слева под ником

[mutabor]

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

mutabor, не работает - все равно выбивае "Bitmap image is not valid"

Так и должно быть, ибо JPEG не есть Bitmap.
Я написал выше: открываем файл BMP!!!

[Gerzs]

Всем спасибо!
inndim, а помогло, что в данном случаи делает Assign?
И для каких форматов можно сделать так как описал mutabor, а для каких так как ты?

[inndim]

Assign копирует.
Как написал mutabor можно сделать для bmp, а как написал я для jpg.

[Gerzs]

inndim, а для PNG, например, что делать?

[inndim]

Скачать какой-нибудь компонент, например pngimage, ну или перейти на delphi 2009 там оно встроено. Ну, или воспользоваться gdi+, но тогда скомпилированное приложение будет работать в винде не ниже Win xp, впрочем это относится и к delphi 2009.