Bmp to Jpg 图片转换并缩小尺寸（不是裁剪哦）(50分)

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #1

（不是裁剪哦）
我都看了许多说可以缩小尺寸的帖了可是一试还是裁剪的[]
怎样Bmp to Jpg 图片转换并缩小尺寸1024X768变成512X384

 

3

394558739

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #2

你是指用编程来实现,还是.....?

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #3

还是裁剪的[]只能得到这张图的一部份[!]

image1.Picture.LoadFromFile(FileName);
Bmp := TBitmap.Create;
Bmp.LoadFromFile(FileName);


Bmp.Width :=Bmp.Width div 2; //裁为一半
Bmp.Height :=Bmp.Height div 2;
Bmp.Canvas.StretchDraw(Rect(0,0,Width,Height),Bmp);


JPeg := TJPegimage.Create ;
// JPeg.CompressionQuality := 40; //来设置压缩比为原来的40%
JPeg.Assign(Bmp);

 

3

394558739

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #4

你这样做是:
先载剪后压缩哦

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #5

我不想载剪只要压缩，能否帮忙，千恩万谢[]

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #6

保证再加50分[]
我问了许多人了，就是不能解决呀！！！

 

D

dreamisx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #7

image1.Picture.LoadFromFile(FileName);
Bmp := TBitmap.Create;
Bmp.Width := image1.Width div 2;
Bmp.Height := image2.Height div 2;
Bmp.Canvas.StretchDraw(Rect(0,0,Bmp.Width,Bmp.Height), image1.Picture.Graphic);
JPeg := TJPegimage.Create ;
JPeg.Assign(Bmp);

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #8

谢谢dreamisx　：
　　　我先去试试，再发分

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #9

谢谢dreamisx　：
　　真高手！！！
请去问题区拿分，“保证再加50分
”

 

9

963119

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-25

• #10

394558739　也是热心人