Delphi 7 de Resim çözünürlüğünü değiştirme

[yilmaz_15500]

Delphi 7 de klasöre kaydetirdiğim jpeg resimlerin çözünürlüğünü standart 1500x1125 yapmam gerekiyor.Yardımcı olur musunuz

[loaded]

Kodlar Lazarus'ta yazılıp denenmiştir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  image:TPicture;
  buffer:Tbitmap;
  filename:string= 'C:\Users\mali.aydin\Desktop\Screenshot_1.png';
begin
  image:=TPicture.Create;
  image.LoadFromFile(filename);

  buffer:=TBitmap.Create;
  buffer.SetSize(1500,1125);
  buffer.Canvas.StretchDraw(rect(0,0,1500,1125),image.Bitmap);
  buffer.SaveToFile(ChangeFileExt(filename,'_res'+ ExtractFileExt(filename) ));
end; 

[yilmaz_15500]

Hocam undeclared identifer SetSize hatası veriyor

[loaded]

Kod Lazarus'ta yazılıp denenmiştir.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  image:TPicture;
  buffer:Tbitmap;
  filename:string= 'C:\Users\mali.aydin\Desktop\Screenshot_1.png';
begin
  image:=TPicture.Create;
  image.LoadFromFile(filename);
  buffer:=TBitmap.Create;
  //buffer.SetSize(1500,1125);
  buffer.Width:=1500;
  buffer.Height:=1125;
  buffer.Canvas.StretchDraw(rect(0,0,buffer.Width,buffer.Height),image.Bitmap);
  buffer.SaveToFile(ChangeFileExt(filename,'_res'+ ExtractFileExt(filename) ));
  buffer.Free;
  image.Free;
end;  

Ayrıca belirtmekte yarar olduğunu düşündüğüm bir husus;
Kullanmak için özel bir nedeniniz yoksa, Delphi 7 yerine Lazarus'u kullanmanızı önemle tavsiye ederim !!!