Delphi Android XE7加载位图失败



我开发了一个应用程序。它在我的手机上工作得很好,但当这个应用程序开始在其他手机上工作时,它就不工作了它关闭后显示启动屏幕。我采取这个问题,'EBitmapLoadinFailed' 'Loading Bitmap Failed'当我调试在使用其他手机的手机。我在mainform的列表框中有一个位图。我在列表框中禁用了位图我的表单创建代码是,

    procedure Tfrm_login.FormCreate(Sender: TObject);
var
      strdb : String;
begin
 try
 strDB :=System.IOUtils.TPath.GetDocumentsPath + PathDelim + 'user.s3db';
 with con do
  begin
    LoginPrompt                   := False;
    Params.Clear;
    Params.Values['Database']     := strDB;
    Params.Values['DriverID']     := 'SQLite';
    Params.Values['CharacterSet'] := 'utf8';
    Connected                     := True;
  end;
     sqlexe('CREATE TABLE IF NOT EXISTS AYARLAMA('+
            'ID    INTEGER     NOT NULL PRIMARY KEY AUTOINCREMENT,'+
            'TIP   NVARCHAR(50)    NULL,'+
            'DEGER NVARCHAR(255)   NULL)');
 except
   //fdf
 end;
end;

My Form Show Code,

procedure Tfrm_login.FormShow(Sender: TObject);
begin
try
with myq do
 begin
  sql.Clear;
  sql.Add('SELECT * FROM AYARLAMA WHERE TIP='+''''+'MAIL'+'''');
  Open;
  if RecordCount>0 then
   begin
    first;
    edit_ad.Text:=FieldByName('DEGER').AsString;
   end;
 end;
 except
 /// tyrt
 end;
end;

我认为如果设备是Android 5.0,安装Delphi的Android 5.0更新将有所帮助。我用这种方法解决了同样的问题。

链接是:http://cc.embarcadero.com/item/30110

最新更新