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); //合