图像转换的问题(100分)

如何将jpg图片旋转和变为原来的几分之一大小,如有现成控件请说明如何使用,最好给个例子.也可以发到我的Email:yzk@km169.net

发送

bb := ResizeBitmap(b, 0.25);
将b变为原来的1/4

function ResizeBitmap(oBitmap: TBitmap; exRate: Extended): TBitmap;
var
nb: TBitmap;
r : TRect;
begin
Result := nil;

if exRate <= 0 then Exit;

nb := TBitmap.Create;

nb.Height := Round(oBitmap.Height * exRate);
nb.Width := Round(oBitmap.Width * exRate);

r.TopLeft := Point(0, 0);
r.BottomRight := Point(nb.Width, nb.Height);

with nb.Canvas do
begin
Pen.Style := psDash;
Brush.Style := bsClear;
Rectangle(0, 0, nb.Width, nb.Height);
StretchDraw(r, TGraphic(oBitmap));
end;

Result := nb;
end;

用imageen控件好了，里面有你的要求的例子

接受