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