Delphi Android XE7加载位图失败
我开发了一个应用程序。它在我的手机上工作得很好,但当这个应用程序在其他手机上开始工作时,它就不工作了 它在显示启动屏幕后关闭。 我考虑到这个问题,“EBitmapLoadinFailed”“加载位图失败”,当我在电话上调试时,正在和其他电话一起使用。 我在主窗体的列表框中有一个位图。 我禁用了listbox中的位图 我的表单创建代码是Delphi Android XE7加载位图失败,android,delphi,firemonkey,delphi-xe7,Android,Delphi,Firemonkey,Delphi Xe7,我开发了一个应用程序。它在我的手机上工作得很好,但当这个应用程序在其他手机上开始工作时,它就不工作了 它在显示启动屏幕后关闭。 我考虑到这个问题,“EBitmapLoadinFailed”“加载位图失败”,当我在电话上调试时,正在和其他电话一起使用。 我在主窗体的列表框中有一个位图。 我禁用了listbox中的位图 我的表单创建代码是 procedure Tfrm_login.FormCreate(Sender: TObject); var strdb : String; b
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;
我的表格显示代码
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;
我认为如果设备是安卓5.0,安装Delphi的安卓5.0更新将有所帮助。我用这种方法解决了我同样的问题 链接是:
您需要对此进行调试。您显示的代码没有位图。联合收割机是你的朋友FWIW。我对我的英语很抱歉,但FWIW是什么?你可以用websearch来回答这个问题。永远值得记住这个选项。谢谢,我不能理解“什么是值得的”在这种情况下,它表明你的主要问题的一方的评论。这对解决主要问题没有帮助,但它是一个有用的提示。