用Delphi改变图片的像素,即大小

转载 2007年09月24日 21:04:00
用Delphi改变图片的像素,即大小.需代码!急用,谢谢!
我给你讲一种非常简单的方法:

第一步:在窗体上放上image1和image2两个图片控件。再放一个Button按钮控件。

第二步:在image1的Picture属性中载入一张JPG或者BMP图片。而image2不要管它。

第三步:双击Button进行按扭编写环境。写入下面代码:

Image2.Height := 200;//新图像高度
Image2.Width := 300;//新图像宽度
Image2.Canvas.StretchDraw(Image2.ClientRect,Image1.Picture.Graphic);
Image2.Picture.SaveToFile('c:/b.jpg');//保存新图像



问题回答完了,请测试无误后立即给分,别拖时间。

你没有说要压缩,所以我没写压缩的代码。其实这种情况最好是要压缩一下,压缩代码也非常简单(因为我不喜欢太长的代码),如果你需要请加我QQ5555044
晕。。。。。。。。不知道。。。。。。
uses添加Jpeg.

var
bmp,bmp1:TBitmap;
jpeg:TJpegImage;
str:string;
begin
str:='你的图片的完整路径+图片名'
if (ExtractFileExt(str)='.JPG') or (ExtractFileExt(str)='.jpg') then
begin
jpeg:=TJpegImage.Create;
try
jpeg.LoadFromFile(str);
bmp:=TBitmap.Create;
try
bmp.Width:=strtoint(edit1.Text);
bmp.Height:=strtoint(edit2.Text);
bmp.Canvas.StretchDraw(rect(0,0,bmp.Width,bmp.Height),jpeg);
jpeg.Assign(bmp);
finally
bmp.Free;
end;
jpeg.SaveToFile('D:/aa.jpg');
finally
jpeg.Free;
end;
end;
end;
if (ExtractFileExt(str)='.BMP') or (ExtractFileExt(str)='.bmp') then
begin
bmp1:=TBitmap.Create;
try
bmp1.LoadFromFile(str);
bmp:=Tbitmap.Create;
try
bmp.Width:=strtoint(edit1.Text);
bmp.Height:=strtoint(edit2.Text);
bmp.Canvas.StretchDraw(rect(0,0,bmp.Width,bmp.Height),bmp1);
bmp1.Assign(bmp);
finally
bmp.Free;
bmp1.SaveToFile('D:/aa.bmp');
end;
finally
bmp1.Free;
end;
end;
end;

只是edit1和edit2中添加的bmp的宽和高不要太大了,否则会出现“储存空间不足”错误。具体多大数值就超出了,具体情况具体分析,你可以自己试一下。 

相关文章推荐

超全——一般照片、图片的尺寸、大小、像素

规格/英寸 尺寸/cm 根据150PPI计算的数码相机可冲洗最大照片的数据对照表(英寸) 500万像素 有效4915200,像素2560X1920。可冲洗照片尺寸17X13,对角线21寸 ...

对于一个".bmp"图片,获取其像素值的大小和个数

题目:对于一个".bmp"图片,获取其像素值的大小和个数 解析:废话不多说,直接上已经调试好的程序 #define _CRT_SECURE_NO_WARNINGS #include using...

像素、分辨率与图片大小之关系

像素、分辨率与图片大小之关系  我们买数码相机或是评价相机功能的时候,常常提到相机的“像素”这一概念,认为像素大的相机就好,就能拍出精细的图片来,现在有的高档数码相机的像素数高达上千万,一般的家庭用...

图片大小 、像素 、分辨率 之间的关系

“像素”是相机感光器件上的感光最小单位。就像是光学相机的感光胶片的银粒一样,记忆在数码相机的“胶片”(存储卡)上的感光点就是像素;要想得到分辨率高(也就是细腻的照片),就必须保证有一定的像素数;是不是...

Android实现改变一个图片的像素值

如果你有一张图片,想实现把图片中某一类的像素点修改一下,例如:把一个图片中的全白的像素点改成你想要的颜色,可以通过如下方法实现 第一步:创建一个布局   <LinearLayout xmln...

Android屏幕大小和密度对照表,以及px、dip、sp等像素单位的解释

名人名言:一种美德的幼芽、蓓蕾,这是最宝贵的美德,是一切道德之母,这就是谦逊;有了这种美德我们会其乐无穷。——加尔多斯  一直对px、dip、sp、dp这几个单位概念很模糊。网上查了下,基本...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)