请教图片处理的几个小问题？

Question

一、jpg图片和bmp格式如何互转？？
二、请看如下代码
var 
    tp:tbitmap;
begin
     tp:=Tbitmap.Create;
     tp.LoadFromFile('d:\111.bmp');
     imagelist1.Add(tp,nil);
     listview1.Items.Add;
     tp.Free;
end;        问题：调取的图片有时是大图，我想把调取的图片按指定尺寸缩小，应该如何做？ tp.setsize()我试过是不行。
或者不缩小也行，我目的是在listview1中图片缩略图能完整显示，就可以了。
   另外，上述代码中，如果要调取jpg图片格式应该怎么做？请教大家了？多谢！

Answer 1

试试下面的:    y:=TBitmap.Create;
    y1:=TBitmap.Create;
    y.Width:=Image1.Width; y.Height:=Image1.Height;
    y1.Width:= y.Width div 2;   // 改size
    y1.Height:= y.height div 2;
    Y.Canvas.Draw(0,0,Image1.Picture.Graphic);
    y1.Canvas.StretchDraw(y1.Canvas.ClipRect,y);

Answer 2

jpg互转,引入jpeg单用之类的(或支持的控件),就可以LOAD了再SAVE来转

Answer 3

前者将缩放属性Stretch设为true就可以了，
后者引入Jpeg单元
uses jpeg;
var 
  Jpeg:TJpegImage;  
begin  
  Jpeg:=TJpegImage.Create;  
  Jpeg.LoadFromFile('test.jpg'); 
end;

Answer 4

CopyRect(),自己随意控制大小。