(2356)Delphi 2010下使用sqlitesimpledelphi连接SQLite数据库及中文乱码问题的解决

Delphi 2010下使用sqlitesimpledelphi连接SQLite数据库及中文乱码问题的解决

应女朋友的要求，要写一款销售管理的软件。用于管理服装店每天的销售记录，已及管理服装店的客户，并对客户进行生日提醒 因为之前使用C#写过一款家庭管理软件，主要是自己用，所以使用了服务器型数据库MySQL，积攒了一些数据库软件的开发经验。 针对这次的软件需求决定采用SQLite，因为本人比较鄙视Access，主要是因为不能跨平台，而且在实际需求上SQLite更适合。 因为女朋友要求尽快，那就必须得要快了。。。 这次采用了Delphi+SQLite的结构来写的，之前一直喜欢Delphi，但是没有深入涉足，最重要的原因就是不支持Unicode，Delphi易主之后，开发很活跃，而且全面引进Unicode支持，所以决定重拾Delphi。 首先简单说说SQLite在Delphi中的应用，SQLite是使用纯C写的，本身所有涉及字符串的地方都使用了UTF8（Unicode编码的一种存储传输格式），足可以看出作者的先见之明。如果使用VC（本人的主要开发工具），Unicode的问题几乎不存在，但是因为Delphi引入Unicode不久，很多控件暂时没有Unicode版的，就比如这里的sqlitesimpledelphi，原作者一直没有添加Unicode支持。 刚开始搜集Delphi封装SQLite的控件的时候，因为sqlitesimpledelphi使用比较方便，封装也比较合理，用起来很舒服，但是直到软件Beta版都写出来了，乱码问题才暴露出来。。。所以只能自己改了。 下面就进入正题说说sqlitesimpledelphi在Delphi 2010中的应用 简单说sqlitesimpledelphi最重要的两个类是TSQLiteDatabase和TSQLiteTable TSQLiteDatabase负责连接数据库，和执行SQL语句。TSQLiteTable负责获取SQL的执行结果。 （先引入SQLiteTable3单元） 1.连接数据库 要连接SQLite数据库，首先创建TSQLiteDatabase实例，在调用构造函数时传入数据库文件名，要使用UTF8Encode函数将文件名字符串编码为UTF8，尤其当数据库名中存在非ASCII码时 例如：database:=TSQLiteDatabase.Create(datafile); 2.执行SQL语句 SQL语句可以简单分为两种：有结果和没结果 对于没有结果的比如UPDATE，INSERT等，调用TSQLiteDatabase实例的ExeSQL函数，传入SQL。这里也要用UTF8Encode将SQL语句编码为UTF8编码 会返回结果的，比如SELECT等，调用TSQLiteDataBase实例的GetTable函数，获得TSQLiteTable实例，通过该实例可以获取数据库的返回结果。一样的，SQL语句要用UTF8Encode进行编码 例如： strsql:='insert into users(name,adddate) values('''+user.name+''','''+user.adddate+''')';
database.ExecSQL(UTF8Encode(strsql)); strsql:='select * from users where name='''+user.name+'''';
table:=database.GetTable(UTF8Encode(strsql)); 3.获取SQLite数据库返回的结果 获取结果由GetTable函数返回的TSQLiteTable实例得到 主要使用如下子函数： Count函数可以获得数据行的行数，FieldIsNull函数可以判断对应的的字段是否为空。Next和Previous函数移动当前的数据行指针。 获取数据字段： FieldAsString FieldAsInteger FieldAsBlob FieldAsDouble FieldAsBlobText 上述函数的参数都是对应字段的序号，如果不能确定字段的序号，可以使用函数TSQLiteTable实例的FieldIndex属性获得，属性的参数为字段名字符串，一样的最好用UTF8Encode进行编码。 如果对应的字段值为字符串类型，也可以使用FieldByName属性，传入字段名即可直接获得。 在这里，如果对应的字段为字符串类型，则需要将其使用UTF8Decode进行解码，否则会出现乱码问题，因为SQLite返回的字符串为UTF8编码的，但是sqlitesimpledelphi在封装SQLite函数时将其声明为AnsiString，所以必须手动进行解码。 最后一点重要提示，当使用完GetTable返回的TSQLiteTable实例之后，需要由调用方调用Free函数进行释放，否则会内存泄露，一定要注意。 例如： table:=database.GetTable(UTF8Encode(strsql));
try
for i:= 1 to table.Count do
begin
// 对每一行检索信息
New(pinfo);
pinfo^.name:=UTF8Decode(table.FieldAsString(table.FieldIndex['name']));
pinfo^.size:=UTF8Decode(table.FieldByName['size']);
。。。。
// 插入到链表中
infolist.Add(pinfo);
table.Next;
end;
finally
table.Free;
end; 3.断开数据库连接，销毁TSQLiteDatabase实例即可 例如：database.Free; ################################################################################################# 如果使用原版的sqlitesimpledelphi，当使用UTF8Decode函数之后，可能依然存在乱码问题，一个表现就是，最后一个汉字显示为框，后面跟一个问号，其他的汉字解码正常。 后来跟踪了一下sqlitesimpledelpi的源代码，从SQLite获取的字符串数据是正确的，但是因为TSQLiteTable的构造函数在读取SQLite返回的UTF8字符串时使用了setstring函数，强行将数据字段进行了转换，引起字符串长度出现错误，所以在UTF8Decode解码时出现了漏解码的问题。 我这里给出一种解决方案，基本修复了该Bug。 1.将TSQLiteTable的构造函数Create中的setstring行注释掉。将thisStringValue的生命从pstring改为PRawByteString。将临时数据ptrValue直接赋值给thisStringValue。 2.相关函数/属性声明修改如下： function GetFields(I: cardinal): string; 改为function GetFields(I: cardinal): RawByteString; function GetFieldByName(FieldName: string): string; 改为function GetFieldByName(FieldName: string): RawByteString; function FieldAsString(I: cardinal): string;改为function FieldAsString(I: cardinal): RawByteString; property Fields[I: cardinal]: string read GetFields;改为property Fields[I: cardinal]: RawByteString read GetFields; property FieldByName[FieldName: string]: string read GetFieldByName;改为property FieldByName[FieldName: string]: RawByteString read GetFieldByName; 下面提供的是最新的sqlitesimpledelphi原版和修正版。 原版网盘下载1（UUSHARE） 原版网盘下载2（115网盘） 修正版网盘下载1（UUSHARE） 修正版玩盘下载2（115网盘） 截几张图上来看看：