多个word文件合并:将多个jpg文件以追加形 式合并成一个文件
疯狂代码 http://CrazyCoder.cn/ :http:/CrazyCoder.cn/Delphi/Article12477.html ;DFW里有朋友问: 有多个jpg文件,如: 1.jpg 2.jpg 3.jpg ...... 怎样将这些文件以追加形式合并成个新jpg文件 也就是说1.jpg作为第页,2.jpg作为第 2页,如此类推. 想了下思路就是把每个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单元偷懒咯呵呵 2009-2-12 3:50:22 疯狂代码 http://CrazyCoder.cn/