delphi 如何将两张图片合并成一张

最新推荐文章于 2022-05-08 17:01:11 发布

7年

最新推荐文章于 2022-05-08 17:01:11 发布

阅读量9.5k

点赞数 1

CC 4.0 BY-SA版权

分类专栏： My delphi 文章标签： delphi image c

本文链接：https://blog.youkuaiyun.com/zzflover/article/details/2885341

My delphi 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一种使用 Delphi 合并两张图片的方法，并提供了详细的代码示例。首先利用 Canvas 控件将两张图片叠加在一起，适用于 BMP 格式；接着展示了如何处理 JPG 文件，包括加载、合并及保存图片。

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

有两张图片，我想通过程序把他合并成一张，然后另存为一张新图

var
DestRect,SrcRect:TRect;
begin
DestRect:=Rect(0,0,Image2.Width,Image2.Height);
SrcRect :=DestRect;
Image2.Canvas.CopyMode:=cmSrcAnd;
Image2.Canvas.CopyRect(DestRect,Image1.Canvas,SrcRect);
Image1.Visible:=False;
end;

如果是jpg文件的话可以用
uses ...Jpeg;（加上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;