MediaLibrary Delphi 类型转换错误答案

【问题标题】：MediaLibrary Delphi typecast errorMediaLibrary Delphi 类型转换错误
【发布时间】：2017-08-14 03:46:37
【问题描述】：

我对 Delphi 上的 MediaLibrary 有疑问。

我在我的主窗体上编写以下代码：

unit uPrincipal;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, 
  System.Variants,FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, 
  FMX.Dialogs,
  FMX.Controls.Presentation, FMX.MultiView, FMX.Objects, FMX.Layouts,
  FMX.StdCtrls, System.Actions, FMX.ActnList, FMX.StdActns,
  FMX.MediaLibrary.Actions, FMX.MediaLibrary, FMX.Platform, System.Messaging;

type
  TfmPrincipal = class(TForm)
    Layout1: TLayout;
    mvMenu: TMultiView;
    rctMenuPrincipal: TRectangle;
    rctMenuTop: TRectangle;
    rctMenuBody: TRectangle;
    rctOpHome: TRectangle;
    rctBodyPrincipal: TRectangle;
    tbPrincipal: TToolBar;
    StyleBook1: TStyleBook;
    sbMenu: TSpeedButton;
    sbPhoto: TSpeedButton;
    ActionList1: TActionList;
    TakePhotoFromLibraryAction1: TTakePhotoFromLibraryAction;
    Image1: TImage;
    TakePhotoFromCameraAction1: TTakePhotoFromCameraAction;
    procedure TakePhotoFromLibraryAction1DidFinishTaking(Image: TBitmap);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmPrincipal: TfmPrincipal;

implementation

{$R *.fmx}
{$R *.LgXhdpiPh.fmx ANDROID}
{$R *.NmXhdpiPh.fmx ANDROID}
{$R *.iPhone.fmx IOS}

uses uLogin, uTeste;

procedure TfmPrincipal.TakePhotoFromLibraryAction1DidFinishTaking(
  Image: TBitmap);
begin
  Image1.Bitmap.Assign(Image);
end;

end.

当我在手机上运行此程序时，我单击 SpeedButton，然后收到“无效的类类型转换”错误消息。

我在TActionList 中添加了TakePhotoFromLibraryAction1，并将其设置为SpeedButton 的Action。

我不知道为什么会出现这个错误。

【问题讨论】：

标签： delphi firemonkey delphi-10.1-berlin

【解决方案1】：

这是您的 Delphi 版本中的一个错误。

一种解决方法是使用TButton 而不是TSpeedButton。

另一种解决方法是从 SpeedButton 中删除 Action 分配，然后使用按钮的 OnClick 事件调用操作的 ExecuteTarget() 方法，将不同的控件作为 Target 参数传递给它。

【讨论】：