JPG := TJPEGImage.Create; //转成jpg
JPG.Assign(bitmap); //慢
JPG.CompressionQuality:=30;
JPG.JPEGNeeded;//慢
JPG.Compress; //慢
JPG.SaveToFile(edtJPG.Text + '\' + R + '.jpg');
jpg.Free;
JPG.Assign(bitmap); //慢
JPG.CompressionQuality:=30;
JPG.JPEGNeeded;//慢
JPG.Compress; //慢
JPG.SaveToFile(edtJPG.Text + '\' + R + '.jpg');
jpg.Free;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货