Question

我的XE4应用程序在win上正常运行，但无法在iOS中加载位图。该文件确实存在（已在终端窗口中检查过）并且Findfirst的东西找到了它。在iOS中我没有例外，但如果win中不存在该文件，我会得到一个异常，因此'IsEmpty'检查在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}

Answer 1

对delphi单元进行了一些调试，看起来在iOS上没有gif支持。这可能是一个错误，但回答了我的问题！

Delphi XE4 iOS加载位图 - 没有加载文件

1 个答案: