怎样将一副大小为1024*768的JPG图片转换成800*600大小的图片 ( 积分: 30 )

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #1

怎样将一副大小为1024*768的JPG图片转换成800*600大小的图片

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #2

怎样将一副大小为1024*768的JPG图片转换成800*600大小的图片

 

L

loxtln

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #3

用acdsee

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #4

我是指用Delphi编程实现
var
JpegImg: TJpegImage;
begin
JpegImg.Assigned('1024*768图片')
????????????????? //怎么样用代码实现将JpegImg图片的值改为800*600
end;

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #5

用程序：

uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
jpg: TJPEGImage;
begin
jpg := TJPEGImage.Create;
try
jpg.LoadFromFile('d:/1.jpg');
jpg.Width := 800;
jpg.Height := 600;
jpg.SaveToFile('d:/1.jpg');
finally
jpg.Free;
end;
end;

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #6

设置.Width .Height只是将图片大小裁剪成指定大小，要求是图片不能够被裁剪，是缩小

 

J

johnnywww

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #7

var
jpgsrc: TJPEGImage;
bitmapsrc, bitmapdest: TBitmap;
begin
jpg := TJPEGImage.Create;
bitmapsrc := TBitmap.Create;
bitmapdest := TBitmap.Create;
try
jpg.LoadFromFile('d:/1.jpg');
bitmapsrc.assign(jpg);
bitmapdest.width := 800;
bitmapdest.height := 600;
bitmapdest.strechdraw(rect(0, 0, 800, 600), bitmapsrc);
jpg.assign(bitmapdest);
jpg.save('d:/2.jpg');
finally
jpg.Free;
bitmapsrc.free;
bitmapdest.free;
end;

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #8

没有strechdraw方法

 

S

stlont

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-16

• #9

拼写错误，用法也不对
要用： bitmapdest.canvas.StretchDraw

 

龙

龙飞凤舞316

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-19

• #10

bitmapdest.canvas.stretchdraw(rect(0,0,800,600),image1.picture.graphic);

 

H

huangqinshui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-25

• #11

用ps处理呀.

 

R

richiesj1118

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-09

• #12

缩小意味着会损失精度了哦
按缩小的比例取象素吧,1024/800, 768/600

 

S

siaosa

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-11

• #13

多人接受答案了。