求改变图像尺寸代码 ( 积分: 200 )

L

lsys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #1

一张800*600 的图像a.jpg,我要压缩成 80*60的b.jpg 文件
求该代码

 

L

lsys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #2

一张800*600 的图像a.jpg,我要压缩成 80*60的b.jpg 文件
求该代码

 

5

5291

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #3

重画。好像是
Canvas.Draw(...)
重新设置一下 target 的尺寸就可以了。

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #4

jpeg := Tjpegimage.Create;
image0:=Tbitmap.Create;
image1:=Tbitmap.Create;
jpeg.LoadFromFile(fn);
image0.assign(jpeg);
// image0.picture.loadfromfile(IconDir+sr.Name);
image1.Picture.Bitmap.PixelFormat:=pf24bit;
image1.Canvas.StretchDraw(rect(0,0,79,59),image0.picture.Graphic);
image1.picture.bitmap.SaveToFile(IconDir+'16/'+sr.Name);

 

L

lsys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #5

谢谢,指点

 

L

lsys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-13

• #6

多人接受答案了。