将多个jpg文件以追加形式合并成一个文件_delphi教程 bmp 合并 http://www.west.cn/www/info/58058-1.htm

将多个jpg文件以追加形式合并成一个文件_delphi教程

作者：网友供稿 点击：0

　　西部数码-全国虚拟主机10强！20余项虚拟主机管理功能,全国领先!第6代双线路虚拟主机,南北访问畅通无阻!云服务器可在线rar解压,自动数据恢复设置虚拟目录等.虚拟主机免费赠送访问统计,企业邮局.Cn域名注册10元/年,自助建站480元起,免费试用7天,满意再付款!P4主机租用799元/月.月付免压金!

文章页数：[1] 

DFW里有朋友问：

有多个jpg文件,如:
1.jpg
2.jpg
3.jpg
......
怎样将这些文件以追加形式合并成一个新的jpg文件?也就是说1.jpg作为第一页,2.jpg作为第二页,如此类推.

想了一下，思路就是把每个jpeg文件解码成位图以后进行拼接再编码为jpeg

uses ..., 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;

这里两个原始jpeg图片的宽高都是一样的，如果图片宽度可能不一致那可以先计算一下所有图片的最大宽度，再画就行了。

由于懒得研究jpeg的文件结构和压缩算法，就拿delphi自带的Jpeg单元偷懒咯，呵呵

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west.cn
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!

相关主题

文章页数：[1] 

 

  

热门文章

·如何在启动机器时自动运行adsl拨号（1）_delphi教程
·delphi的通配符比较（第五版）_delphi教程
·delphi托盘编程实战演练_delphi教程
·关于中文折行及相关问题的解决方法_delphi教程
·字幕图标控件_delphi教程
·一个很简单的加密算法_delphi教程
·winapi编程关闭qq登录窗体_delphi教程
·组件开发方式_delphi教程
·用ehlib二次开发报表打印程序，实现财务凭证的打印（三）_delphi教程
·delphi+汇编例子1（求和的比较）_delphi教程

最新文章

·阻止windwos xp系统蓝屏的几大绝招_windows xp
·photoshop极坐标滤镜巧绘三维游泳圈_photoshop教程
·photoshop将美女照片转为手绘效果_photoshop教程
·zend studio5.5测试版 兼容三系统_php文摘
·photoshop调整图片对比度方法浅析_photoshop教程
·一个设置任意窗口透明度的命令行delphi程序_delphi教程
·photoshop基础教程：跟我学调色练习3-润色_photoshop教程
·windows xp空间：文件的属性也玩“花样”_windows xp
·轻松清理windows xp系统垃圾_windows xp
·配景的使用与创建_autocad教程