Delphi XE7位图大小转换为Android上的大消息

Question

当我在Android手机上拍照时，我的XE7应用程序崩溃了，并且显示位图尺寸很大。 但是我使用我以前使用过的代码，效果很好。 它来自embarcadero的示例，它涉及在android / iOS上拍照。

我的代码如下：

procedure TForm1.TakePhotoFromCameraAction1DidFinishTaking(
  Image: TBitmap);
var
  saveParams:TBitmapCodecSaveParams;
  directory,name:String;
begin
  image1.Bitmap.Assign(Image);
  saveParams.Quality := 100;
  {$IFDEF ANDROID}
  directory := TPath.GetPicturesPath;
  name := '/RoomId:'+ fRoomId.ToString()+' '+DateTimeToStr(Now)+'.png';
  {$ENDIF}
  {$IFDEF IOS}
  directory := TPath.GetDocumentsPath;
  name := '/RoomId:'+ fRoomId.ToString()+' '+DateTimeToStr(Now)+'.png';
  {$ENDIF}
  Image.SaveToFile(directory+name,@saveParams);
end;

有人知道为什么它不起作用吗？

更新：我肯定知道代码是正确的。 我已经在其他应用程序中对其进行了测试。 还尝试调试操作，并在调试过程中重复执行TTakePhotoFromCameraAction.CustomTextChanged。 同样在调试期间，它确实保存了图片，但是由于某种原因，它无法正确关闭操作。 奇怪的是，该代码也适用于三星平板电脑，但不适用于索尼手机。

Answer 1

我的表单具有ScaleBy属性，这就是问题所在。 重命名属性后，我再也没有问题了。