Размер изображения

[guffer]

Есть изображение с разрешением например 1024 на 768. Можно ли в delphi сделать так,чтобы при загрузке этого изображения в программу,или при нажатии на Button,разрешение становилось например 640 на 480?.Заранее спасибо!!!

[psycho-coder]

Для этого нужно кинуть на форму TImage
поставить свойства Width и Height в 640 и 480 соответственно. Установить свойство

Stretch := true;

И в него загружать изображение

Image1.Picture.LoadFromFile('filename.jpg');

[guffer]

Спасибо!!!

Вопрос по этой же теме.Почему когда я сохраняю через SavePictureDialog изображение с измененным в программе разрешением,оно остаётся тем же,что и до изменений. Например я загрузил в прогу изображение 640 на 480, изменил на 1024 на 768,сохранил, а оно осталось всё равно 640 на 480.

[Neeter]

Хех, вот придумал:

procedure TForm1.bt_1Click(Sender: TObject);
var
 x, y: integer;
 Bmp: TBitmap;
 DC: HDC;
begin
 Bmp := TBitmap.Create;
 try
  Bmp.Width := Image1.Width;
  Bmp.Height := Image1.Height;
  DC := GetDC(Handle);
  for y := 0 to Image1.Height - 1 do
   for x := 0 to Image1.Width - 1 do
    Bmp.Canvas.Pixels[x, y] := GetPixel(DC, Image1.Left + x, Image1.Top + y);
  Bmp.SaveToFile('D:\1.bmp');
 finally
  Bmp.Free;
  ReleaseDC(Handle, DC);
 end;
end;

Тут изображение сохраняется прямо с пикселей формы.

[guffer]

Всё работает, но на изображении остаётся чёрная линия.

[Neeter]

У меня все нормально, без черных линий сохраняется.

[guffer]

Ну ладно,попробую разобраться почему эти линии остаются.Спасибо,очень помогли!!!