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

最新推荐文章于 2025-05-13 16:11:12 发布

优快云

最新推荐文章于 2025-05-13 16:11:12 发布

阅读量1k

点赞数

文章标签： php

本文链接：https://blog.csdn.net/qq_30279495/article/details/130992189

版权

本文介绍如何通过Delphi的TJPEGImage组件，将多个JPEG图片以追加形式合并成一个新的JPEG文件。方法是将每个JPEG解码为位图，拼接后再编码回JPEG，适合图片宽度一致的情况。若图片宽度不一，可计算最大宽度进行调整。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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