Delphi Android XE7 加载位图失败
Delphi Android XE7 Loading Bitmap Failed
我开发了一个应用程序。它在我的 phone 上工作得很好,但是当这个应用程序开始在其他 phone 上工作时它就不起作用了
它在显示初始屏幕后关闭。
当我在与其他 phone 一起使用的 phone 处进行调试时,我遇到了这个问题,'EBitmapLoadinFailed' 'Loading Bitmap Failed'。
我在主窗体的列表框中有一个位图。
我在列表框中禁用了位图
我的表单创建代码是,
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;
我认为如果设备是 Android 5.0,安装 Delphi 的 Android 5.0 更新会有所帮助。我已经以这种方式解决了同样的问题。
我开发了一个应用程序。它在我的 phone 上工作得很好,但是当这个应用程序开始在其他 phone 上工作时它就不起作用了 它在显示初始屏幕后关闭。 当我在与其他 phone 一起使用的 phone 处进行调试时,我遇到了这个问题,'EBitmapLoadinFailed' 'Loading Bitmap Failed'。 我在主窗体的列表框中有一个位图。 我在列表框中禁用了位图 我的表单创建代码是,
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;
我认为如果设备是 Android 5.0,安装 Delphi 的 Android 5.0 更新会有所帮助。我已经以这种方式解决了同样的问题。