在 Delphi 10 Berlin 提供了照相及相册自订分辨率的功能,请见官方网站教学:
http://docwiki.embarcadero.com/RADStudio/Berlin/en/Taking_Pictures_Using_FireMonkey_Interfaces
Params.RequiredResolution := TSize.Create(2048, 2048);
Params.RequiredResolution := TSize.Create(3000, 3000);
每张照片有固定宽高比例,系统会自动处理,给它一个想要的大约值就行。
本文原引龟山Aone。