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

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

jpeg文件,图片合并  

2013-08-16 02:13:36|  分类: delphi xe4 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

uses jpeg, ExtCtrls;
var
   JPEGImage:  TJPEGImage;
   tmpImage1, tmpImage2, tmpImage3 :TImage;
   ARect :TRect;
   AWidth, AHeight :integer;
begin
    DoubleBuffered:=true;
    tmpImage1 := TImage.Create(Self);
    tmpImage2 := TImage.Create(Self);
    tmpImage3 := TImage.Create(Self);
    tmpImage3.Parent:=self;
    tmpImage1.AutoSize:=true;
    tmpImage2.AutoSize:=true;

//先读入jpeg格式的图片
    JPEGImage := TJPEGImage.Create;
    JPEGImage.LoadFromFile('你读入的文件1');
    tmpImage1.Picture.Bitmap.Assign(JPEGImage);
    JPEGImage.LoadFromFile('你读入的文件2');
    tmpImage2.Picture.Bitmap.Assign(JPEGImage);
    AWidth := tmpImage1.Width;
    AHeight:= tmpImage1.Height;
    tmpImage1.AutoSize:=false;
//并排排列
    tmpImage3.Width:=tmpImage1.Width+tmpImage2.Width;
    tmpImage3.Height:=tmpImage1.Height;
    ARect:=Rect(AWidth, 0, AWidth+tmpImage2.Width, AHeight);
//上下排列
    tmpImage3.Height:=tmpImage1.Height+tmpImage2.Height;
    tmpImage3.Width:=tmpImage1.Width;
    ARect:=Rect(0, AHeight, AWidth, AHeight+tmpImage2.Height);

//合并后的图片放在tmpImage1中
    tmpImage3.Canvas.CopyRect(tmpImage1.ClientRect, tmpImage1.Canvas, tmpImage1.ClientRect);
    tmpImage3.Canvas.CopyRect(ARect, tmpImage2.Canvas, tmpImage2.ClientRect);
    JPEGImage.Assign(tmpImage3.Picture.Bitmap);
    tmpImage1.Free;
    tmpImage2.Free;

    JPEGImage.Compress;
    JPEGImage.SaveToFile('你保存的文件');

    JPEGImage.Free;
end;
  评论这张
 
阅读(588)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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