delphi下中文转UFT-8编码

最新推荐文章于 2020-12-21 11:54:13 发布
原创 最新推荐文章于 2020-12-21 11:54:13 发布 · 1.1w 阅读 · 5 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

在 Delphi 10 下，如何将中文字符串转换为 UTF-8 编码，并提供了相应的函数调用示例，以及从 UTF-8 转回中文的方法。

D10下：

function ToUTF8Encodes(str: UTF8String): string;
var
  b: Byte;
begin
  for b in BytesOf(str) do
    Result := Format('%s%%%.2x', [Result, b]);
end;

调用：

procedure TForm1.btn13Click(Sender: TObject);
begin
  ShowMessage(ToUTF8Encodes('中国'));
end;<
最低0.47元/天 解锁文章
delphi tcp utf8_解决Delphi7的自带的UTF-8编码转换函数BUG
weixin_39550258的博客
12-21 815
Delphi7及其以下版本的VCL 只支持Ansi, 所以... WideString 与UTF8String (定义与AnsiString 相同) 并没有办法正确的在VCL 中显示Delphi7自带的utf-8转换函数遇到其无法识别的字符串就返回空。用以下转换函数可以解决这个bugunit util_utf8;interfaceuses Windows;typeUTF8String = Ansi...
程序读取文本文件之UTF8-BOM
Himly_Zhang的博客
07-16 1774
一楼放图 以上是用java做一个简单的文件读取，在TXT中，我们的第一个字明明是A,但是打印的结果，确是一个问号。 发现问题 首先文件是UTF8格式，我们确定读取时候设置的格式无错，那我们检查一下NOTEPAD++文本编辑器中，的编码格式。显示当前文本格式为UTF8, 当然我们还发现，里面有一个选项是以UTF8-无BOM格式编码。经过尝试，当我们文件以UTF8无BOM时候编码时候，文件读取结果正常。那么我们可以肯定，问题是处在这个BOM上。那么我们对BOM到底是干啥的，给一个详细的解释。 编码格式说明
字符串转ＵＴＦ８格式
nextop88的专栏
05-24 2801
将字符串转换成 UTF8 编码的函数 这种转换一般用于网页地址; 我不知道 Delphi 是不是有现成的函数, 用到了就写了一个. //函数: function ToUTF8Encode(str: string): string; var   b: Byte; begin   for b in BytesOf(UTF8Encode(str)) do     Result
Delphi中UTF-8,Unicode格式转换
08-06
delphi7调用delphi2009生成的dll文件会出现乱码问题。是unicode的原因 终于找到了UTF-8、Unicode格式转换函数
delphi 汉字的编码 转换
weixin_34112181的博客
12-22 321
delphi 汉字的编码 转换   2009-10-07 21:57:00|  分类： delphi |  标签： |字号大中小 订阅     ━━━━━━━━━━━━━━━━━━━━━━━━━━ var Str:String; begin Str:='张'; Caption:=IntToHex(PWord(@Str[1])^,4);...
delphi7下ansi转utf8
05-07
delphi7用于将汉字转utf8，如http通讯时使用
Delphi读取和写入utf-8编码格式的文件
dkopg24406的专栏
08-12 1408
读取UTF-8格式的文件内容 function LoadUTF8File(AFileName: string): string; var ffileStream:TFileStream; fAnsiBytes: string; S: string; begin ffileStream:=TFileStream...
xe10_utf_8转换
01-16
"xe10_utf_8转换"这个主题显然与在Delphi中处理UTF-8编码有关。UTF-8是一种非常普遍的字符编码标准，能够支持Unicode字符集，包括世界上几乎所有的文字系统。在Delphi程序中，处理UTF-8编码通常是进行数据输入、输出...
用Delphi写一个UTF8编码格式的文本文件
weixin_30537391的博客
04-21 892
... var f: TextFile; begin AssignFile(f, 'test.txt'); Rewrite(f); write(f, #$EF+#$BB+#$BF); // UTF-8 BOM。关键就是写入这个UTF-8的BOM, BOM 是 Bype O...
中文繁体简体转换工具(Delphi)
05-13
Delphi编写中文繁体简体互转工具,功能简单速度快。完全原创。本人上传资源全部为自己编写。
Delphi字符编码转换工具，hex/unicode/ascII互转.rar
07-10
Delphi字符编码转换工具，原创代码，作者Author: 谢凯。输入一段字符串(汉字或者英文)，可将其转换为Unicode编码或AscII编码。 其中有一段代码避免程序的重复执行(调试通过)，原理：在程序启动时将Application的Title特性字段的值暂时改变。利用Windows API函数FindWindows()查找窗口，恢复Application的Title值。
delphi操作utf-8转码HTTPEncode
09-24
delphi操作utf-8转码HTTPEncode
utf8与string的相互转换
10-25
通过函数调用方式，实现了utf8与string的相互转换，可以非常方便的将string转换为utf8。
UTF8与ansi string转换处理(DELPHI7开发）
03-13
delphi 开发的UTF8 ansistring转换动态库。 通过DELPHI与C++测试。 前面上传的资源未经过仔细验证，有问题，不好意思，重新修正上传
Delphi utf8编码的解码
#Define
10-17 3105
{*******************************************************************   ** 功能: utf8编码的解码   ** 输入参数：   ** 作者：liubin   **日期：2011-02-15
delphi tcp utf8_Delphi 的 Utf-8 转换
weixin_39927158的博客
12-21 820
新版的 Delphi 應該不用這麼麻煩, 據說只要直接在 AnsiString, WideString, UTF8String 之間 assign 時就會自動幫你做轉換 (沒用過, 不知道是不是真的這樣就可以).不過... 還在用 Delphi 3/5, 所以... 只好自己來轉:unit util_utf8;interfaceuses Windows;typeUTF8String = AnsiS...
Delphi UTF8文件读写操作
wh445306
10-07 941
function LoadUTF8File(FileName: string): string; var SS: TStringStream; begin SS := TStringStream.Create('', TEncoding.UTF8); SS.LoadFromFile(FileName); Result := SS.DataString; end; proc...
Delphi7 中文汉字转网址格式 Utf8编码转换（淘宝搜索中文转网址）
xtfnpgy
03-09 3372
function HttpEncode(S:AnsiString):string; var   P:^Byte;   I:Cardinal; begin   Result:='';   P:=@S[1];   Result:=Format('%%%x',[Ord(P^)]);   for I := 1 to Length(S)-1 do   begin     Inc(P);
改成gbk了还是显示uft-8编码不对
最新发布
09-07
当将编码改成GBK后仍显示UTF - 8编码不对，可从以下几个方面尝试解决： ### 代码层面 - **检查转码函数的正确性**：在代码中进行UTF - 8到GBK的转换时，要确保转码函数的正确性。以C++为例，使用Windows API进行转码时，要保证代码逻辑无误。如下代码示例，需正确处理内存分配和释放，避免内存泄漏： ```cpp #include <iostream> #include <string> #include <Windows.h> std::string Utf8ToGbk(const char *src_str) { int len = MultiByteToWideChar(CP_UTF8, 0, src_str, -1, NULL, 0); wchar_t* wszGBK = new wchar_t[len + 1]; memset(wszGBK, 0, len * 2 + 2); MultiByteToWideChar(CP_UTF8, 0, src_str, -1, wszGBK, len); len = WideCharToMultiByte(CP_ACP, 0, wszGBK, -1, NULL, 0, NULL, NULL); char* szGBK = new char[len + 1]; memset(szGBK, 0, len + 1); WideCharToMultiByte(CP_ACP, 0, wszGBK, -1, szGBK, len, NULL, NULL); std::string strTemp(szGBK); if (wszGBK) delete[] wszGBK; if (szGBK) delete[] szGBK; return strTemp; } ``` 也可使用Boost库进行转码，要确保Boost库正确安装和引用，示例如下： ```cpp #include <iostream> #include <string> #include <boost/locale/encoding.hpp> std::string utf8_to_gbk(const std::string & str) { return boost::locale::conv::between(str, "GBK", "UTF-8"); } ``` - **处理UNICODE转换为UTF - 8的细节**：在将UNICODE转换为UTF - 8编码时，应先去除高位0，然后根据所剩编码的位数决定所需最小的UTF - 8编码位数。那些基本ASCII字符集中的字符（UNICODE兼容ASCII）只需要一个字节的UTF - 8编码（7个二进制位）便可以表示[^1]。 ### 系统层面 - **检查系统环境变量**：在Linux系统中，字符编码默认为UTF - 8，若出现乱码可设置为GBK。可通过设置环境变量来更改系统编码，示例如下： ```bash export LC_MONETARY="zh_CN.GBK" export LC_MESSAGES="zh_CN.GBK" export LC_PAPER="zh_CN.GBK" export LC_NAME="zh_CN.GBK" export LC_ADDRESS="zh_CN.GBK" export LC_TELEPHONE="zh_CN.GBK" export LC_MEASUREMENT="zh_CN.GBK" export LC_IDENTIFICATION="zh_CN.GBK" export LC_ALL=zh_CN.GBK ``` 设置后，重新启动相关应用程序，查看编码显示是否正常。 ### 软件层面 - **检查显示软件的编码设置**：若在特定软件中出现编码显示问题，需检查该软件的编码设置。例如，在文本编辑器中，要确保其打开文件时使用的编码为GBK。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值