岁数大了，QQ也不闪了，微信也不响了，电话也不来了，但是图老师依旧坚持为大家推荐最精彩的内容，下面为大家精心准备的将多个jpg文件以追加形式合并成一个文件，希望大家看完后能赶快学习起来。
【 tulaoshi.com - 编程语言 】
DFW里有朋友问：
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/） 有多个jpg文件,如:
1.jpg
2.jpg
3.jpg
......
怎样将这些文件以追加形式合并成一个新的jpg文件？也就是说1.jpg作为第一页,2.jpg作为第二页,如此类推.
想了一下，思路就是把每个jpeg文件解码成位图以后进行拼接再编码为jpeg
（本文来源于图老师网站，更多请访问http://www.tulaoshi.com/bianchengyuyan/） 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:
来源:http://www.tulaoshi.com/n/20160219/1622332.html
看过《将多个jpg文件以追加形式合并成一个文件》的人还看了以下文章 更多>>
