2013-06-21 43 views
2

我的XE4應用程序運行良好,但無法在iOS中加載位圖。該文件確實存在(已經在終端窗口中檢查過)並且Findfirst可以找到它。我在iOS中沒有例外,但如果文件不存在於win中,我會得到一個異常,因此在iOS中重新變爲真的'IsEmpty'檢查。Delphi XE4 iOS加載位圖 - 沒有文件加載

因此,任何線索爲什麼它不加載存在的文件,而不是引發異常?

乾杯。

{$IFDEF MSWINDOWS} 
    if FindFirst('.\*.*', faAnyFile, SR) = 0 then 
    repeat 
    showmessage(SR.Name); 
    until FindNext(SR) <> 0; 
    FindClose(SR); 

    imgImage.Bitmap.LoadFromFile('.\'+'myfile.gif'); 

{$ELSE} 
    if FindFirst(GetHomePath + PathDelim + Application.Title + '.app' + PathDelim+'*.*', faAnyFile, SR) = 0 then 
    repeat 
    showmessage(SR.Name); 
    until FindNext(SR) <> 0; 
    FindClose(SR); 

    imgImage.Bitmap.LoadFromFile(GetHomePath + PathDelim + Application.Title + '.app' + PathDelim + 'myfile.gif'); 

{$ENDIF} 

回答

2

對delphi單元進行了一些調試,看起來在iOS gif中不支持。這可能是一個錯誤,但回答我的問題!