首页 相关文章 将多个jpg文件以追加形式合并成一个文件

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

  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.j...[ 查看全文 ]

2016-02-19 标签:

将多个jpg文件以追加形式合并成一个文件的相关文章

手机页面
收藏网站 回到头部