在使用DelphiXE3和SQLite3进行程序开发时,解决最后一个字符乱码的问题-阿里云开发者社区

开发者社区> 数据库> 正文
登录阅读全文

在使用DelphiXE3和SQLite3进行程序开发时,解决最后一个字符乱码的问题

简介: 在使用DelphiXE3和SQLite3进行程序开发时,如果使用原版的SQLiteTable3,当使用UTF8Decode函数之后,可能依然存在乱码问题,一个表现就是,最后一个汉字显示为框,后面跟一个问号,其他的汉字解码正常。

在使用DelphiXE3和SQLite3进行程序开发时,如果使用原版的SQLiteTable3,当使用UTF8Decode函数之后,可能依然存在乱码问题,一个表现就是,最后一个汉字显示为框,后面跟一个问号,其他的汉字解码正常。

后来跟踪了一下SQLiteTable3的源代码,从SQLite获取的字符串数据是正确的,但是因为TSQLiteTable的构造函数在读取SQLite返回的UTF8字符串时使用了setstring函数,强行将数据字段进行了转换,引起字符串长度出现错误,所以在UTF8Decode解码时出现了漏解码的问题。

这里给出一种解决方案,修复了该Bug。

1.将TSQLiteTable的构造函数Create中的setstring行改为:

      Var

         strStr: String;
         strValue: PWideChar;      

      //****************************************

      strStr := UTF8Decode(AnsiString(ptrValue));

      strValue := PWideChar(strStr);
      setstring(thisStringValue^, strValue, strlen(strValue));

因为在delphixe3中,setstring函数的第二个参数是PChar,也就是PWideChar类型。

2.在面在调用时,不需要再UTF8Decode解码

版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享: