Delphi实现三张图片合成

最新推荐文章于 2023-04-06 09:52:35 发布

guoqlee

最新推荐文章于 2023-04-06 09:52:35 发布

阅读量3.7k

点赞数

分类专栏： Delphi 文章标签： delphi image integer path file string

本文链接：https://blog.csdn.net/guoqlee/article/details/1748406

版权

这篇博客讲述了如何在Delphi环境下实现三张图片的合成，并在合成后对图片进行压缩。通过创建TBitMap对象，将三个图像分别赋值，然后合并到一起。如果选中CheckBox2，则在合成的图片上叠加当前时间。接着，使用TMemoryStream和自定义的CompressBitmap过程对图像进行压缩并保存。最后，根据CheckBox1的选中状态决定是否删除源图片。

摘要由CSDN通过智能技术生成

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls,StrUtils,Qt,Zlib,JPEG,Math, FileCtrl,initialize;

procedure TF_tphc.Button1Click(Sender: TObject);
type
Tfn=array[0..2]of string;
var i:integer;
s,path:string;
fn:Tfn;
WillbeChangedBmp,TestBmp,ChangedBmp:TBitMap;
CompressStream:TMemoryStream;
begin

WillbeChangedBmp:=TBitMap.Create;
WillbeChangedBmp:=Image1.Picture.Bitmap;
TestBmp:=TbitMap.Create;
TestBmp.Assign(WillbeChangedBmp);
ChangedBmp:=TBitMap.Create;
ChangedBmp:=Image1.Picture.Bitmap;
ChangedBmp.Assign(TestBmp);
WillbeChangedBmp:=Image2.Picture.Bitmap;
TestBmp.Assign(WillbeChangedBmp);
ChangedBmp.Assign(TestBmp);
WillbeChangedBmp:=Image3.Picture.Bitmap;
TestBmp.Assign(WillbeChangedBmp);
ChangedBmp.Assign(TestBmp); //合