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屬性，這就是問題所在。 重命名屬性后，我再也沒有問題了。