1,183
社区成员
发帖
与我相关
我的任务
分享
uses
pngimage,jpeg;
var
jp:TJPEGImage;
png: TPngImage;
tmp:TBitmap;
begin
png:=TPngImage.Create;
jp:=TJPEGImage.Create;
tmp:=Tbitmap.Create;
try
png.LoadFromFile('d:\a.png');
jp.LoadFromFile('d:\b.jpg');
tmp.Assign(jp);
tmp.Canvas.Draw(0,0, png);
jp.Assign(tmp);
Image1.Picture.Assign(jp);
Image1.Picture.SaveToFile('d:\c.jpg');
finally
png.Free;
jp.Free;
tmp.Free;
end;
end;