[原创] 将多个jpg文件以追加形式合并成一个文件
2005-04-14 11:15
309 查看
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单元偷懒咯,呵呵
有多个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单元偷懒咯,呵呵
相关文章推荐
- (原创)如何将Nios II硬件和软件合成一个文件(NIOS II)(硬件)(软件)(合并)
- 将多个文本文件合并成一个文件的3种方法
- 一个在DOS下处理中文和长名字目录和文件的程序(原创)
- 如何将很多文件合并称一个文件
- 利用Costura.Fody制作绿色单文件程序(C#程序(含多个Dll)合并成一个Exe)
- [转]关于ffmpeg 的总结(一个linux 下 集 屏幕录像录音,音频视频转换,合并音频视频文件,格式转换于一身的命令)
- 合并多个文本文件中的内容到一个文件中
- 一个PE文件的学习程序[原创]
- python实现将文件夹内所有txt文件合并成一个文件
- 多个excel文件如何快速合并到一个excel中
- 一个简单的文件上传功能控件(原创)
- Android之SD卡以追加形式写文件并把文件保存到SD卡中
- 画一个UML类图表示下文件和文件夹的形式
- 自己写的将文件从多个文件合并到一个文件夹的小方法
- unserialize的这个问题是由一个emlog论坛用户在使用时报错而发现的 问题表现情况如下: emlog缓存的保存方式是将php的数据对象(数组)序列化(serialize)后以文件的形式存放,
- Python将多个excel文件合并为一个文件
- 有两个磁盘文件A和B,各存放一行字母,要求把这两个文件中的信息合并 (按字母顺序排列), 输出到一个新文件C中
- 将多个文本文件合并成一个文件的3种方法
- 合并一个php文件和png文件挂小马儿
- 将一个图片以二进制值的形式存入Xml文件中