Delphi XE7のAndroidアプリケーションでTBitmapを作成するとエラーになる

開発環境はDelphi XE7 Update1、プラットフォームはAndroidで発生する問題です。
メインスレッド以外でTBitmapを作成すると例外が発生します。

procedure TForm1.Button1Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
    procedure
    var
      Bmp: TBitmap;
    begin
      Bmp := TBitmap.Create(100, 100);
    end).Start;
end;

$A2355201 で初回の例外が発生しました。例外クラスは EBitmapSizeTooBig メッセージは ‘ビットマップ サイズが大きすぎます。’。 プロセス Project1.apk (22537)

この問題はRAD Studio Quality Portalにも登録されています。

例外が発生する箇所はTBitmap.SetSizeメソッドの中なので、SetSizeメソッドを実行しても同じように例外が発生します。

procedure TForm1.Button1Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(
    procedure
    var
      Bmp: TBitmap;
    begin
      Bmp := TBitmap.Create;
      Bmp.SetSize(100, 100); //ここで例外発生
    end).Start;
end;

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください