-2

我在这个网站上找到了执行以下操作的代码,所以感谢“logo.Bitmap.LoadFromStream(MyRs);”这一行

访问冲突 - 我假设某种内存错误。

我用过项目 | 资源和图像 ... 添加 Jpeg

这是资源未链接的问题,还是我的代码的问题?

谢谢 :)

uses
  Classes, FMX.Graphics, FMX.Objects;

procedure MyProvedure();
var
     logo  : TImage;
     MyRS  : TResourceStream;
begin
  MyRS := TResourceStream.Create( HInstance, 'logo_1', RT_RCDATA );
  try
      logo.Bitmap.LoadFromStream( MyRs);
  finally
    MyRS.Free;
  end;
end;
4

1 回答 1

3

您必须在使用它之前创建图像:

logo := TImage.Create(nil);
于 2017-02-03T10:40:10.670 回答