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

[Sibedir]

Не зависимо от размера загружаемого изображения(1х1 или 1024х768), Image должен быть:
Image.Width := 280;
Image.Height := 160;

Да он и так остается таким. В моем примере размеры имеджа не меняются !

Ну и? размеры Image становятся 260х180 - А должны быть 280х160

Вы не мою программу запускали.

Догадываюсь, что ваши картинки нужно масштавировать без соблюдения исходных пропорций. Пробуй так:

      Pic.LoadFromFile (OpenPictureDialog.FileName);
      Assign (Pic.Graphic);
      Pic.Free;

      kx := Width/Image.Width;
      ky := Height/Image.Height;
      r1 := Rect (0, 0, Width, Height);
      r2 := Rect (0, 0, Round (Width / kx), Round (Height / ky));

      SetStretchBltMode (Canvas.Handle, HALFTONE);
      if kx < 1 then Width := r2.Right;
      if kx < 1 then Height := r2.Bottom;

      StretchBlt (Canvas.Handle, 0, 0, r2.Right, r2.Bottom, Canvas.Handle, 0, 0, r1.Right, r1.Bottom, SRCCOPY);

      if kx > 1 then Width := r2.Right;
      if kx > 1 then Height := r2.Bottom;

А Image на форме как был 280х160, так пусть и остается таким. Не трогайте его. Он уже нужного вам размера.

[mihali4]

Что-то вы тут "зависли"...
Вот, набросал рабочий примерчик еще и с преобразованием BMP в JPG:

procedure TForm1.Button12Click(Sender: TObject);
var jpg: tjpegimage; 
    bmp: timage;
begin
Image2.Picture.LoadFromFile('d:\1.bmp');//исходный размер 200х150
Image2.AutoSize:=False;
Image2.Height:=50;
Image2.Width:=60;
Image2.Repaint;
Application.ProcessMessages;
//создаем экземпляр объекта
bmp:=timage.Create(self);
bmp.Width:=image2.Width;
bmp.Height:=image2.Height;
bmp.Canvas.StretchDraw(rect(0,0,image2.Width,image2.Height),image2.Picture.Graphic);
bmp.Picture.SaveToFile('d:\3.bmp'); //сохраняем уже готовую bmp картинку в файл, размер 60х50
Application.ProcessMessages;
//создаем экземпляр объекта
jpg:=tjpegimage.create; 
//присваиваем переменной jpg картинку из bmp
jpg.assign(bmp.picture.graphic); 
//устанавливаем параметры качества. Должно быть от 1 до 100. Если 100, то качество лучшее, 1 худшее
jpg.compressionquality:=75; 
//производим сжатие данных картинки
jpg.compress; 
//и сохраняем уже готовую jpg картинку в файл
jpg.savetofile('d:\2.jpg'); //размер 60х50
//уничтожаем объекты, чтобы не засорять память
jpg.free; 
bmp.Free;
end;

[XerSon]

Sibedir

Спасибо, последний код, как раз то что мне и надо было!

mihali4

Компрессия мне известна, спс!

Тема закрыта.

[mihali4]

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

Компрессия мне известна, спс!

Дело не в компрессии - это в "нагрузку".
А в масштабировании :

...
Image2.Picture.LoadFromFile('d:\1.bmp');//исходный размер 200х150
Image2.AutoSize:=False;
Image2.Height:=50;
Image2.Width:=60;
Image2.Repaint;
Application.ProcessMessages;
//создаем экземпляр объекта
bmp:=timage.Create(self);
bmp.Width:=image2.Width;
bmp.Height:=image2.Height;
bmp.Canvas.StretchDraw(rect(0, 0, image2.Width, image2.Height), image2.Picture.Graphic);
bmp.Picture.SaveToFile('d:\3.bmp'); //сохраняем уже готовую bmp картинку в файл, размер 60х50
...