用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的宽和高不要太大了,否则会出现“储存空间不足”错误。具体多大数值就超出了,具体情况具体分析,你可以自己试一下。 

Delphi压缩图片代码

 Delphi压缩图片代码 添加引用:uses JPEG; //=====================图片处理函数,将覆盖原图片文件=======================...
  • xinxinweb
  • xinxinweb
  • 2014年09月24日 10:38
  • 1051

将图片 按比例 压缩为JPG

 { 将图片保存到数据库时,有时因为图片的大小 太大 或 是BMP没压缩过的图片,而我们在软件只需要看小图, 怎么办呢? 直接保存太慢、而且太占数据库。用以下函数试试. Compress_...
  • shazhuyubaichi
  • shazhuyubaichi
  • 2010年11月22日 11:59
  • 607

Delphi实现文件压缩解压

  • 2017年08月03日 14:54
  • 920KB
  • 下载

用DELPHI实现文件加密压缩

概述:在这篇文件中,讲述对单个文件的数据加密、数据压缩、自解压的实现。同样,也可以实现对多个文件或文件夹的压缩,只要稍加修改便可实现。关键字:加密压缩、Zlib、流、资源文件引 言:在日常中,我们一定...
  • chrile
  • chrile
  • 2007年04月08日 00:26
  • 387

DELPHI写的JPG,BMP图片压缩程序源码

  • 2008年12月09日 09:12
  • 229KB
  • 下载

如何在不改变图像质量的情况下压缩图像的文件大小

方法:用WINDOWS自带的画图打开图片-再保存 此方法可减缩质量,画质不变,原因么不明,体积能减1/3或者是1/2。...
  • piyajee
  • piyajee
  • 2011年09月15日 16:29
  • 4210

Delphi TBitMap 位图组件

位图组件(TBitMap)TBitMap组件不存在组件板,它封装了Windows的HBITMAP句柄和HPALETTE句柄,用于操纵位图和调色板。  TBitMap对象支持从文件、剪贴板、流中存取位...
  • a137268431
  • a137268431
  • 2015年08月19日 10:53
  • 1007

delphi 取图片宽高

Var         Bmp:TBitMap;         Stream:TMemoryStream;     begin         Bmp   :=TBitMap.Create;    ...
  • xwchen
  • xwchen
  • 2007年09月24日 20:43
  • 2461

delphi 实现 图片类型转换 jpg---bmp 及修改位图大小

下面三个delphi函数实现了bmp类型图片和jpg(jpeg)类型图片的转换和改变位图图片的大小。jpg转换为bmp:{***************************************...
  • zidianjian
  • zidianjian
  • 2009年11月20日 09:30
  • 2518

Delphi图象截取编程示例(7)

(七)抓取窗体或控件图片窗体创建一个新的Form2,保存为Capture2.pas。设置属性BorderIcons的四个属性为false.BorderStyle设为bsNone,FormStyle设为...
  • LuckyJan
  • LuckyJan
  • 2004年11月02日 10:45
  • 6182
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Delphi改变图片的像素,即大小
举报原因:
原因补充:

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