注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

delphi 如何将两张图片合并成一张  

2013-08-16 01:25:43|  分类: delphi xe4 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
有两张图片,我想通过程序把他合并成一张,然后另存为一张新图

var  
      DestRect,SrcRect:TRect;  
  begin  
      DestRect:=Rect(0,0,Image2.Width,Image2.Height);  
      SrcRect  :=DestRect;  
      Image2.Canvas.CopyMode:=cmSrcAnd;  
      Image2.Canvas.CopyRect(DestRect,Image1.Canvas,SrcRect);  
      Image1.Visible:=False;  
  end;

 

如果是jpg文件的话可以用 
uses ...Jpeg;(加上jpeg单元) 
...... 
procedure TForm1.Button1Click(Sender: TObject); 
var 
jp1, jp2, jp: TJPEGImage; 
bmp_t, bmp: TBitmap; 
begin 
jp1 := TJPEGImage.Create; 
jp2 := TJPEGImage.Create; 
jp := TJPEGImage.Create; 
try 
jp1.LoadFromFile(''''C:/1.jpg''''); 
jp2.LoadFromFile(''''C:/2.jpg''''); 
bmp := TBitmap.Create; 
bmp_t := TBitmap.Create; 
try 
bmp.Width := jp1.Width; 
bmp.Height := jp1.Height jp2.Height; 

bmp_t.Assign(jp1); 
bmp.Canvas.Draw(0, 0, bmp_t); 
bmp_t.Assign(jp2); 
bmp.Canvas.Draw(0, jp1.Height, jp2); 

jp.Assign(bmp); 
jp.SaveToFile(''''C:/0.jpg''''); 
finally 
bmp.Free; 
bmp_t.Free; 
end; 
finally 
jp1.Free; 
jp2.Free; 
jp.Free; 
end; 
end; 

  评论这张
 
阅读(379)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017