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}