2017-02-03 44 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

相關問題