delphi中将UCS2编码的字符串转化为GB2312编码的简单方法
作者：互联网
2025-08-15
Delphi教程
最近在做一个短信相关的项目。从联通网关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;
相关标签:
相关推荐
专题
+ 收藏
+ 收藏
+ 收藏
+ 收藏
+ 收藏
+ 收藏
最新数据
相关文章
修改 Delphi 10.3.3 IDE 字体和字体大小
Delphi 3.0中连接数据库的三种方式
Oralce 调用Delphi写DLL去访问C# WebService的问题
一个C++及Delphi做的压缩程序
怎样在C#中调用Delphi6写的DLL
关于C#下写的Web Service 服务在Delphi下调用时的问题
在Delphi中的Access技巧集
传递和返回数据到一个Delphi编写的UDF
如何用Delphi和Web Services开发短信应用程序
如何用Delphi实现StringTokenizer功能
AI精选
MCP协议设计与实现-第13章 Streamable HTTP：远程流式传输
从零开发一个 MCP 服务器 + OpenCode Skill：让 AI 学会审查你的代码
MCP协议设计与实现-第11章 Python Client 实现剖析
MCP协议设计与实现-第14章 SSE 与 WebSocket
MCP协议设计与实现-第7章 Prompt：可复用的交互模板
MCP协议设计与实现-第8章 TypeScript Server 实现剖析
MCP协议设计与实现-第20章 从零构建一个生产级 MCP Server
MCP协议设计与实现-第16章 服务发现与客户端注册