服务端数据：
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返回，结果显示正常。
暂时这样处理。
Indy9 tcp服务与indy10客户端通信
需要注意发送的数据需要编码为Ansi 接收的数据也要转码为Ansi
IOHandler.Write(Astr,indytextEncodeing(Tencoding.ANSI));//发送
IOHandler.InputBuffer.Size>0 //接收
IOHandler.InputBufferAsString(indyTextEncoding(Tencoding.ANSI))
RES资源文件中的字符串
资源文件是原来D7下生成的，因此其中字符串的编码也是ANSI
读出到buffer时buffer类型需要是byte 或者ansichar的数据