请问，怎么做到图象的放大缩小，并且设置压缩比？(50分)

W

whaoye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-11

• #1

要用到一些什么样的函数，在msdn的什么地方？？？
写个简单的例子更好！！

 

W

whaoye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-12

• #2

我说的放大缩小不是指图片的大小，而是 说比如左面是800*600，然后用getdc当然是800*600的了
但是我希望得到一个400*300的缩小一倍的图片

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-12

• #3

var a:tbitmap;
begin
a:=tbitmap.Create;
a.loadfromfile('...');
a.width:=400;
a.height:=300;
就行了

要压缩的话可以用TjpegImage
先得uses jpeg;
就可以设置压缩比！

 

W

whaoye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-12

• #4

这个好象不行吧，那只显示了一半，而不是缩小一半。

 

N

NoSwing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-12

• #5

试一试
var Image1,Image2:TImage;
begin
Image1:=TImage.Create(nil);
Image2:=Timage.Create(nil);
Image1.loadformfile('...');
Image2.Height:=IMage1.Height/2;
Image2.Width:=Image1.Width/2;
Image2.Canvas.StrentchDraw(0,0,IMage2.Width,Image2.Height,Image1.Graphic);
Image2.Save('...');
Image1.free;
Image2.free;

end;

 

初

初学者1

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-12

• #6

>

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-13

• #7

对了，看错了，那就用image控件吧
不过会闪烁，效果不太好

用StrentchDraw!

 

W

whaoye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-14

• #8

哎呀，已经解决了，呵呵，怪自己太懒了。


接受答案

 

W

whaoye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-08-14

• #9

ok