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:= 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原版和修正版。
Delphi 2010下使用sqlitesimpledelphi连接SQLite数据库及中文乱码问题的解决的更多相关文章
- mybatis连接mysql数据库插入中文乱码
对于MySQL数据库的乱码问题,有两种情况: 1. mysql数据库编码问题(建库时设定). 2. 连接mysql数据库的url编码设置问题. 对于第一个问题,目前个人发现只能通过重新建库解决,建库的 ...
- mysql数据库的中文乱码问题的解决
今天终于解决了数据库中文乱码的问题,分享出来让更多的人作为参考,我们进入主题: 如果在搭建mysql数据库的时候没有设置它的编码格式,在以后的开发中,中文乱码会是一个令人头疼的问题,所以我在这里分享一 ...
- (ASP.NET)C#连接Oracle数据库示例(中文乱码问题解决)
接手了一个遗留的ASP.NET系统,数据库用的是Oracle,以前没搞过.NET和Oracle数据库,数据库搞了半天才解决乱码问题,在此做个笔记备忘. 1.下载安装ODAC 1)请去Oracle官网下 ...
- PL/SQL连接Oracle数据库,中文乱码,显示问号
问题描述: 登陆PL/SQL,执行SQL语句后,输出的中文标题显示成问号????:条件包含中文,则无数据. 如果不是中文,需要修改注册表值,方法如下: 进入注册表:Win+r,输入re ...
- Sqlite在.NET下的使用和Sqlite数据库清理
原文:Sqlite在.NET下的使用和Sqlite数据库清理 Sqlite 是一款轻量级的关系型数据库,她的好处我就不详细道来了.本文的初衷是为.net平台的使用者提供帮助. Sqlite有专门为VS ...
- VS2010连接SQLite数据库
Visual studio 2010及以上版本,连接SQLite数据库 1.在Sqlite开发站点下载SQLite的.exe安装包 Ctrl+F搜索这条语句:This is the only setu ...
- Python3实现连接SQLite数据库的方法
本文实例讲述了Python3实现连接SQLite数据库的方法,对于Python的学习有不错的参考借鉴价值.分享给大家供大家参考之用.具体方法如下: 实例代码如下: ? 1 2 3 4 5 6 7 8 ...
- VS2010上连接SQLite数据库
VS2010连接SQLite数据库 Visual studio 2010及以上版本,连接SQLite数据库 1.在Sqlite开发站点下载SQLite的.exe安装包 Ctrl+F搜索这条语句:Thi ...
- Adobe AIR中使用Flex连接Sqlite数据库(1)(创建数据库和表,以及同步和异步执行模式)
系列文章导航 Adobe AIR中使用Flex连接Sqlite数据库(1)(创建数据库和表) Adobe AIR中使用Flex连接Sqlite数据库(2)(添加,删除,修改以及语句参数) Adobe ...
随机推荐
- 解决mybatisplus saveBatch 或者save 无法插入主键问题
解决mybatisplus saveBatch 或者save 无法插入主键问题 通过跟踪源码后得出结论,由于插入的表的主键不是自增的,而是手动赋值的,所以在调用saveBatch 执行的sql语句是没 ...
- Vue学习笔记【26】——Vue路由(什么是路由)
什么是路由 后端路由:对于普通的网站,所有的超链接都是URL地址,所有的URL地址都对应服务器上对应的资源,这个对应关系就是后端中的路由: 前端路由:对于单页面应用程序来说,主要通过URL中的hash ...
- Shiro学习(19)动态URL权限限制
用过spring Security的朋友应该比较熟悉对URL进行全局的权限控制,即访问URL时进行权限匹配:如果没有权限直接跳到相应的错误页面.Shiro也支持类似的机制,不过需要稍微改造下来满足实际 ...
- BZOJ 3771: Triple(FFT+容斥)
题面 Description 我们讲一个悲伤的故事. 从前有一个贫穷的樵夫在河边砍柴. 这时候河里出现了一个水神,夺过了他的斧头,说: "这把斧头,是不是你的?" 樵夫一看:&qu ...
- NX二次开发-基于NX开发向导模板的NX对Excel读写操作(OLE方式(COM组件))
在看这个博客前,请读者先去完整看完:NX二次开发-基于MFC界面的NX对Excel读写操作(OLE方式(COM组件))https://ufun-nxopen.blog.csdn.net/article ...
- contest20191023
slz的题 KCN 雨中的晴天 宫水三叶生活的城市是一个一维平面上的城市.三叶喜欢用一个长度为n的线段来表示这座城市.线段上(包含端点)平均分布着 $n+1$ 个点,其中第 $i$ 个点到第 $i+1 ...
- error LNK2001: 无法解析的外部符号 __imp__RegEnumKeyExA@32
错误: error LNK2001: 无法解析的外部符号 __imp__OpenProcessToken@12 error LNK2001: 无法解析的外部符号 __imp__LookupPrivil ...
- normal use for autotools
1. remove temporary files, only used for test purpose. ls | sed -e rm -rf 2. edit autogen.sh echo &q ...
- 牛客 Fruit Ninja 2018 ACM 上海大都会赛 (随机化算法)
题目链接:Fruit Ninja 比赛链接:2018 ACM 国际大学生程序设计竞赛上海大都会赛重现赛 题目描述 Fruit Ninja is a juicy action game enjoyed ...
- POJ 3304 Segments (判断直线与线段相交)
题目链接:POJ 3304 Problem Description Given n segments in the two dimensional space, write a program, wh ...