2017-02-03 56 views
-2

我发现代码在本网站上执行以下操作,所以谢谢 但是,“logo.Bitmap.LoadFromStream(MyRs);”尝试从资源文件加载jpeg时出现内存错误Delphi XE7/OSX

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

我用过Project |资源和图片...添加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; 
+2

问自己logo'的'生命周期是什么? –

+0

该程序打印出带有徽标(位图)的PDF - 所以一生都可以 - 只要它是第一次创建的! (如Ari0nah所述) - 然后我将它释放到finally块中。谢谢。 – Trevor

回答

3

你必须在使用之前创建的图像:

logo := TImage.Create(nil); 
+0

这工作 - 非常感谢你! – Trevor

相关问题