delphi中将UCS2编码的字符串转化为GB2312编码的简单方法

2016-02-19 12:48 37 1 收藏

下面图老师小编跟大家分享一个简单易学的delphi中将UCS2编码的字符串转化为GB2312编码的简单方法教程，get新技能是需要行动的，喜欢的朋友赶紧收藏起来学习下吧！

【 tulaoshi.com - 编程语言】

　　最近在做一个短信相关的项目。从联通网关deliver过来的短信都是ucs2编码的。

　　在网上找了些资料，找到一些使用java语言本身带的api转换的代码，但没有合适的delphi源码，所以经研究后自己写了一个，很简单的：

　　function Ucs2ToGBK(const InValue: string): string;
　　var
　　 I: Integer;
　　begin
　　 Result := '';
　　 for I := 1 to length(InValue) div 2 - 1 do
　　 Result := Result + WideChar(StrToInt('$' + IntToHex(Ord(InValue[2 * I - 1]), 2)
　　 + IntToHex(Ord(InValue[2 * I]), 2)));
　　end;
　　

来源:https://www.tulaoshi.com/n/20160219/1602003.html

上一篇： B520e机器只有一个喇叭有声音的维修案例
下一篇：技术人员的市场意识与市场人员的技术功底

看过《delphi中将UCS2编码的字符串转化为GB2312编码的简单方法》的人还看了以下文章更多>>

编码为GB2312网站让AJAX接收的数据显示支持中文

标签： Web开发

代码如下： script var xmlHttp; var BrowerType="ie"; function createXML(){ try{ xmlHttp = new ActiveXObject("Msxml2.XMLHTTP"); } catch (e){ try{ xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); }catch(e2) { xmlHttp =false; } } if (!xmlHttp && typeof XMLHttpRequest != 'undefined'){ xmlHttp = new XMLHttpR...

Java反转字符串和相关字符编码的问题解决

标签：编程语言网络编程

代码如下： public String reverse(char[] value){ for (int i = (value.length - 1) 1; i = 0; i--){ char temp = value[i]; value[i] = value[value.length - 1 - i]; ...

Delphi中的字符串

标签：编程语言网络编程

Delphi中的字符串 ——摘自网络一：各种字符串字符串是Object Pascal所有数据类型中最有用的类型。许多函数以字符串为传递参数。由于在Delphi中字符串的定义和使用有各种方式，包括Pascal中典型的字符串（String），Delphi支持的长字符串（ANSIString），类似于C语言的字符数组（Array of Char），指向字符的...

Delphi的编码规范

标签：编程语言网络编程

1．规范简介？xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /> 本规范主要规定Delphi源程序在书写过程中所应遵循的规则及注意事项。编写该规范的目的是使公司软件开发人员的源代码书写习惯保持一致。这样做可以使每一个组员都可以理解其它组员的代码，以便于源代码的二次开发记忆系统的维护。 ...

PHP对GB编码动态转UTF-8编码的几种方法评测

标签： PHP

在《IP地址-地理位置转换的测评》一文中提到用ip2addr函数直接读取IP数据库文件是效率最高的，相比用MySQL数据库存储IP数据，用SQL查询是效率最低的。但是IP数据库文件QQWry.dat是GB2312编码的。现在我需要UTF-8编码的地理位置结果。如果用MySQL方法，可以在数据存入数据库时就转换为UTF-8编码，一劳永逸。但是QQWry.dat文件又无...

查看更多精彩>>