用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的宽和高不要太大了,否则会出现“储存空间不足”错误。具体多大数值就超出了,具体情况具体分析,你可以自己试一下。
分享到:
相关推荐
Delphi获取图片像素..rar
DELPHI --学习 通过改变通道来改变图片
Delphi控件拖动及改变大小,动态记录位置
Delphi追踪屏幕像素点颜色值及抓取屏幕,鼠标运行检测及截图演示Delphi源程序,跟踪象素区域、设置鼠标定时点击像素点,测试监视的像素点,不明白的看看测试截图就知道了,和鼠标操作密切相关的一个例子。
Delphi无标题栏改变窗口大小..rar`
delphi无标题窗体(borderstyle=bsnone)默认没有边框,也无法拖拽必变窗体大小,本资源为无标题窗体加边框并可拖拽调整大小
Delphi 实现图片的滚动播放,循环播放。开发工具,delphi7.0
Delphi实现窗体元素拖动改变大小的实例,也就是可以把窗体中的元素控件按照一定需求拉大或缩小,在本程序实现的窗口中单击鼠标就可以动态添加一个按钮元素,并在按钮四周显示拖放控制线,拖动控制线就可以改变元素...
delphi 两张图片叠加 delphi 两张图片叠加 delphi 两张图片叠加
DELPHI多合成一源代码,绝对可编译。
delphi图片颜色对比
图像拖拽,Delphi拖动图片改变位置..rar
delphi7实现的图片浏览,可以将你的图片加载进去后进行浏览,前进后退
delphi 转16位深图片delphi 转16位深图片
放在开发的窗口内,编译后的窗口放大缩小时,窗口的控件不会乱排。
delphi找图,快速找出屏幕上匹配图片
DELPHI 图片任意角旋转DELPHI 图片任意角旋转 DELPHI 图片任意角旋转DELPHI 图片任意角旋转 DELPHI 图片任意角旋转DELPHI 图片任意角旋转
delphi外部图片拖拽
delphi中获得大于2g的文件夹大小的代码,返回类型为int64
纯delphi 对图片进行压缩 设置长 宽 高 大小