jpeg图片处理问题

Question

我怎么按指定长度和宽度来改变某个jpeg图片的大小？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
jpg, resizedjpg:tjpegimage;
newheight, newwidth : integer;
stretchrect : trect;
begin
if openpicturedialog1.execute then begin
  jpg:=tjpegimage.Create ;
  resizedjpg:=tjpegimage.Create ;
 jpg.LoadFromFile(openpicturedialog1.filename);        newheight := 128;
        newwidth := 128;   stretchrect.left := 0;
   stretchrect.Top := 0;
   stretchrect.right := newwidth;
   stretchrect.bottom := newheight;   resizedjpg.Width := newwidth;
   resizedjpg.height := newheight;
   resizedjpg.PixelFormat:=jf24Bit ;
   ( 我这里应该怎么写呢？？？）
   resizedjpg.SaveToFile('C:/333.jpg');//333.bmp就是修改后的
end;end;end.

Answer 2

用一个TBitmap把一个TJpegImage Assign过来，
改变大小后，
再Assign回去。