D7项目升级记录

标签：bubuko   字符   gdi   span   bind   json格式   .com   使用   函数   

服务端数据：

JSON格式然后DES加密之后base64转换

Delphi Post获取数据后

由于原有解密程序为D7下使用

Des(Astr:string):string;

String-à是ansistring

现在要在xe版本中使用原有的加密方法时直接替换所有string为ansistring,chr函数为ansichar。

Des(Astr:Ansistring):Ansistring;

解密出字符串用Utf8toAnsi转换后中文奇数个时出现乱码。

Eg:

{"book_isbn":"9787530125434","book_issn":"","book_cn":"","book_barcode":"","book_name":"名人??专著 ","book_keyword":"","book_author":" (??罗曼·罗兰原著 ; 郭琳改写","book_publishing_house":"北京 : 北京少年儿童出版??,"book_edition":"3??,"book_series":"","book_publish_date":" 2010","book_publish_cycle":"","book_binding":"","book_title_page":"","book_text_page":"","book_price":"0.0000","book_type_no":"K835.165.76=41","book_types":"贝多??(Beethoven, ludwing Van 1770-1827) -- 传记 -- 缩写","book_size":"","book_words":"","book_sheet":"","book_pages":"147??: 彩图 ; 24cm","book_object":"贝多??(Beethoven, ludwing Van 1770-1827) -- 传记 -- 缩写","book_abstract":""}

后来输入二进制发现

输入字符串在乱码的位置都出现了3F 怀疑是返回结果为ansistring时转换时出错。

随添加数据labytes:Tbytes;直接把转换结果存入数据后。用Tencoding.UTF8.GetString返回，结果显示正常。

暂时这样处理。

D7项目升级记录

标签：bubuko   字符   gdi   span   bind   json格式   .com   使用   函数   

原文地址：https://www.cnblogs.com/jspdelphi/p/9543644.html