Как в Image.Picture.Bitmap загрузить и отмаштабировать bmp jpg pnp картинки?

[XerSon]

Собственно сабж.

Если можно то с примером!

Маштабирую под клиентскую область так:

Stretch:=True;

[Sibedir]

    Image1.Picture.LoadFromFile (FileName);

Для png (я так понимаю именно он имелся в виду под pnp) в Delphi7 нужно скачать соответствующие модули.

[Аватар]

  Image.AutoSize:=False;
  Image.Proportional:=True;
  Image.Stretch:=True;
  try
    Image.Picture.LoadFromFile(<имя файла>);
  except
    Exit; //или что-то в этом роде
  end;
  Image.Width:=ClientWidth-Image.Left;
  Image.Height:=ClientHeight-Image.Top;

Должно сработать. Для jpg в Delphi 7 есть юнит JPeg.pas (если не напутал). Для png ищи в интернете. Достаточно имена юнитов вставить в uses

[DomiNick]

Ну... Конкретно в Image.Picture.Bitmap вы можете загружать только bmp...
А вот Image.Picture может содержать потомка класса TGraphic (Image1.Picture.Assign( <...> );): например TPNGObject, уже в который можно запихивать png-картинки (модуль PNGImage, он включён в Делфи начиная со смены владельцев с Борланд на Embercadero)...

А LoadFromFile вроде автоматически подбирает из доступных (тех что в Uses есть)...

[Sibedir]

Да, точно. Совсем забыл сказать. Для jpg в uses нужно добавить Jpeg. И для png есть свой модуль в нэте.

[XerSon]

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

Ну... Конкретно в Image.Picture.Bitmap вы можете загружать только bmp...
А LoadFromFile вроде автоматически подбирает из доступных (тех что в Uses есть)...

Парни, как отдельно грузить bmp jpg pnp в TImage мне известно!

Среда D2009

А вопрос был именно о Image.Picture.Bitmap и как при выборе того или иного формата, загрузить, конвертировать, отмаштабировать его в BitMap?

[Sibedir]

Тоже не сложно

var
  JPG: TJPEGImage;
begin
  if OpenPictureDialog1.Execute then begin
    JPG := TJPEGImage.Create;
    JPG.LoadFromFile (OpenPictureDialog1.FileName);

    Image1.Picture.Bitmap.Assign (JPG);

    JPG.Free;
  end;
end;

Задавайте вопрос конкретнее. "Как в Bitmap загрузить Jpeg". А Image всех только с толку сбил.

[XerSon]

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

Задавайте вопрос конкретнее. "Как в Bitmap загрузить Jpeg". А Image всех только с толку сбил.

Спс за корректировку вопроса, а для png нет примера?
И как это правильно оформить в коде, в функции, процедуре, чтоб при выборе любого из трёх форматов, результат был в Image1.Picture.Bitmap? + с обработкой исключений!

[Sibedir]

а для png нет примера?

Тоже самое, только модуль скачай и подключи.

как это правильно оформить в коде, в функции, процедуре, чтоб при выборе любого из трёх форматов, результат был в Image1.Picture.Bitmap? + с обработкой исключений!

var
  Pic: TPicture;
begin
  if OpenPictureDialog1.Execute then begin
    Pic := TPicture.Create;
    try
      Pic.LoadFromFile (OpenPictureDialog1.FileName);
      Image1.Picture.Bitmap.Assign (Pic.Graphic);
      Pic.Free;
    except
      on E: EInvalidGraphic do ShowMessage ('Ошибка загрузки');
      on E: EConvertError do ShowMessage ('Ошибка конвертирования');
      else ShowMessage ('Прочие ошибки: ' + #13 + Exception(ExceptObject).Message);
    end;
  end;
end;

[XerSon]

Sibedir

понятно, спс!

Но если я гружу в Image картинку большего размера, то он растягиваеться под размер картинки, что не есть гут, как Любую загружаемую картинку, подогнать под размер Image, предварительно отмаштабировать?